Autor Tema: Modulo GSM SIM900  (Leído 410 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado MarShall

  • PIC10
  • *
  • Mensajes: 1
Modulo GSM SIM900
« en: 17 de Septiembre de 2018, 23:18:41 »
Hola a todos , estuve buscando informacion sobre modulos GSM para programarlo en Basic , eh llegado hasta unos post de unos años anteriores y me eh topado con el codigo de un amigo , lo eh probado pero no me funciona , es decir, al inicio de prenden los 4 leds , se apagan como esta en la programacion y solo veo en el hyperterminal que solo se envia AT , CADA 5 SEGUNDOS , es decir , el modulo GSM no me responde con un OK como deberia ser . Cuento con un modulo GSM SIM900 , estoy buscando informacion para poder presentar mi proyecto de titulacion , quiero un programa donde pueda establecer la comunicacion entre el PIC y el Modulo GSM mediante sus comandos AT , en otras palabras quiero q me responda y transmita del PIC a Movil y viceversa , un programa para encender un led desde el celular y que me mande mensaje cuando este se encienda , luego añadire sensores con salidas analogicas y otras cosas mas que son mas sencillas, quisiera q me orientes por favor , entiendo el lenguaje basic pero estoy en proceso de poder desarrollarme x completo en este lenguaje , espero que alguien pueda orientarme y disculpen las molestias . Adjunto el codigo .
Código: QBasic/QuickBASIC
  1. DEFINE OSC 4                  
  2. 'DEFINE OSC 8                
  3. DEFINE HSER_TXSTA 20h  
  4. DEFINE HSER_RCSTA 90h  
  5. DEFINE HSER_BAUD 2400  
  6. 'DEFINE HSER_BAUD 4800
  7. 'DEFINE HSER_BAUD 9600
  8. DEFINE HSER_SPBRG 25          
  9. DEFINE HSER_CLROERR 1  
  10.  
  11. i var byte
  12. TRISB=%00000000
  13. PORTB=%00000000
  14. TRISD=%00001111
  15. PORTD=%00000000
  16.  
  17. FIRSTCHECK:
  18.     HIGH PORTB.7
  19.     PAUSE 500
  20.     HIGH PORTB.6
  21.     PAUSE 500
  22.     HIGH PORTB.5
  23.     PAUSE 500
  24.     HIGH PORTB.4
  25.     PAUSE 500
  26.     PORTB=%00000000
  27. GSM_CHECK:
  28. HSEROUT ["AT",13]          'Enviar AT al módem seguido por un retorno de carro
  29. HSERIN 5000, GSM_CHECK, [WAIT("OK")]'Comprobar respuesta OK, espere 5 segundos max.
  30. HIGH PORTB.7
  31. PAUSE 1000
  32. HSEROUT ["AT+GMM",13]                           'Pregunte el nombre del modelo
  33. HSERIN 5000, GSM_CHECK, [WAIT("T610 series")]   'Comprobar nombre del modelo
  34. HIGH PORTB.6
  35. PAUSE 1000
  36. HSEROUT ["AT+IPR=2400",13]      'Establece la velocidad de transferencia
  37. HSERIN 5000, GSM_CHECK, [WAIT("OK")]'Comprobar respuesta OK, espere 5 segundos max
  38. HIGH PORTB.5
  39. PAUSE 1000
  40. HSEROUT ["AT+CMGF=1",13]            ''envía AT al módem seguido por un retorno de carro y salto de línea
  41. HSERIN 5000, GSM_CHECK, [WAIT("OK")]''Comprobar respuesta OK, espere 5 segundos max.
  42. HIGH PORTB.4
  43. PAUSE 1000
  44. PORTB=%00000000
  45. BEGIN:
  46. IF PORTB.5=1 THEN ERROR_CALL
  47. IF PORTB.6=1 THEN ERROR_SMS
  48. HIGH PORTB.7
  49. pause 1000
  50. LOW PORTB.7
  51. IF PORTD.2 = 0 THEN SEND_SMS
  52. IF PORTD.3 = 0 THEN CALL_PHONE
  53. PAUSE 1000
  54. GOTO BEGIN
  55. SEND_SMS:
  56. HIGH PORTB.6
  57. HSEROUT ["at+cmgs=",34,"xxxxxxxxx",34,13]
  58. PAUSE 1000
  59. HSEROUT ["este es un mensaje de prueba",26]    'ENVIAR MENSAJE
  60. HSERIN 10000, BEGIN, [WAIT("OK")]''Comprobar respuesta OK, espere 5 segundos max.
  61. LOW PORTB.6
  62. GOTO BEGIN
  63. CALL_PHONE:
  64. HIGH PORTB.5
  65. HSEROUT ["atd[0xxxxxxxxx];",13]
  66. HSERIN 5000, BEGIN, [WAIT("OK")]'Comprobar respuesta OK, espere 5 segundos max.
  67. PAUSE 2000
  68. LOW PORTB.5
  69. GOTO BEGIN
  70. ERROR_CALL:
  71. FOR i = 1 TO 5
  72. HIGH PORTB.4
  73. PAUSE 500
  74. LOW PORTB.4
  75. PAUSE 500
  76. NEXT i
  77. PORTB=%00000000
  78. GOTO BEGIN
  79.  
  80. ERROR_SMS:
  81. FOR i = 1 TO 5
  82. HIGH PORTB.4
  83. PAUSE 500
  84. LOW PORTB.4
  85. PAUSE 500
  86. NEXT i
  87. PORTB=%00000000
  88. GOTO BEGIN
  89.  

Desconectado Sergio97Valenzuela

  • PIC10
  • *
  • Mensajes: 1
Re:Modulo GSM SIM900
« Respuesta #1 en: 08 de Diciembre de 2018, 02:45:14 »
amigo tiene la coneccion en proteus :o


 

anything