Modulo GSM SIM900

[MarShall]

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.  
90. END

[Sergio97Valenzuela]

amigo tiene la coneccion en proteus