Codigos De Gsm

Código:
DEFINE OSC 4
DEFINE 20h HSER_TXSTA
DEFINE 90h HSER_RCSTA
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1

'Configurar los nombres que se utilizarán en todo el programa
Elprograma de instalación PORTB.0 PushButton var 'el nombre PushButton en el sentido de entrada PORTB 0

Principal:

SI PushButton = 0 THEN SMS 'Si se pulsa el botón a continuación,ejecutar la rutina siguiente SMS

goto main 'sin embargo, si el botón no se pulsa a continuación, sólo volver a la principal
'Rutina que esperar a que el botón que se presiona

SMS:'este es el SMS comandos de rutina con el fin de enviar un SMS

HSEROUT ["AT", 13,10] 'enviar AT al módem seguido de un CR y avance de línea

HSERIN 5000, SMS, [WAIT ("OK")] 'ahoraesperar hasta 5secs OK embargo, no recibió
"Si no es así entonces ve a la rutina de nuevo SMS

HSEROUT ["AT CMGF + = 1", 13,10]

HSERIN 5000, SMS, [WAIT ("OK")]

HSEROUT ["AT += 256782277658 CMGS"]

HSEROUT [13,10]

[HSERIN 5000, SMS, ESPERE (">")]

HSEROUT ["botón ha sido apretado!"]

HSEROUT [26] "esto es ASCII para Ctrl + Z de los cuales secompleta el envío de SMS

HSERIN 15000, SMS, [WAIT ("+ GMC")] ', entonces debe recibir PIC + GMC desde el módem

HSEROUT [10 Código ASCII] "para un avance de línea
PIC16F877,
Código:DEFINE OSC 8
DEFINE 20h HSER_TXSTA
DEFINE 90h HSER_RCSTA
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1

PushButton var PORTB.0

Principal:

SI PushButton = 0 THEN SMS

Ira principal

SMS:

HSEROUT ["AT", 13,10]

HSERIN 5000, SMS, [WAIT ("OK")]

HSEROUT ["AT CMGF + = 1", 13,10]

HSERIN 5000, SMS, [WAIT ("OK")]

HSEROUT ["AT + =256782277658 CMGS"]

HSEROUT [13,10]

[HSERIN 5000, SMS, ESPERE (">")]

HSEROUT ["botón ha sido apretado!"]

HSEROUT [26]

HSERIN 15000, SMS, [WAIT ("+ GMC")]

HSEROUT [10]