reianjim
- 26th November 2009, 13:56
i have a problem with my project. i don't know where is wrong, if it is in the program or in my circuit. here is the flow of my project. if i press the button in PORTB it will send automatically a message. my problem is it doesn't text or send a message. thats why i need your help. i know lot of here can help me. thanks. i will put my program and the circuit. by the way my phone using is nokia 6610 and the data cable is usb.
HERE IS MY PROGRAM:
------------------------
DEFINE OSC 20
DEFINE HSER_TXSTA 24h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 115200
DEFINE HSER2_CLROERR 1
CLR CON 12 ' Clear screen
LF CON 10 ' Line-feed character
CR CON 13 ' Carriage-return character
SUB CON 26 ' Ctr + Z
QOUTE CON 34
PORTB = $00
AGAIN:
if PORTB.0 = 0 THEN
pause 200
HSEROUT ["AT",CR,LF]
pause 1000
HSEROUT ["AT+CMGF=1",CR,LF]
PAUSE 500
HSerout ["AT+CMGS=",SUB,"+639187085735",SUB,CR,LF]
PAUSE 500
HSEROUT ["Test-Message",CR,LF]
HSEROUT [26]
ENDIF
GOTO AGAIN
END
---------nothing follows
HERE IS MY PROGRAM:
------------------------
DEFINE OSC 20
DEFINE HSER_TXSTA 24h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 115200
DEFINE HSER2_CLROERR 1
CLR CON 12 ' Clear screen
LF CON 10 ' Line-feed character
CR CON 13 ' Carriage-return character
SUB CON 26 ' Ctr + Z
QOUTE CON 34
PORTB = $00
AGAIN:
if PORTB.0 = 0 THEN
pause 200
HSEROUT ["AT",CR,LF]
pause 1000
HSEROUT ["AT+CMGF=1",CR,LF]
PAUSE 500
HSerout ["AT+CMGS=",SUB,"+639187085735",SUB,CR,LF]
PAUSE 500
HSEROUT ["Test-Message",CR,LF]
HSEROUT [26]
ENDIF
GOTO AGAIN
END
---------nothing follows