Thankyou for ur contributions, about the code, am totally new in Picbasic programming but i got some code from the forum and tried to make it suit my project, it returns sucess when its pic616f877 what changes and additions should i make for it to suit pic16f84
code:
DEFINE OSC 4
DEFINE HSER_TXSTA 20h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1
'Setup the names that will be used throughout the program
PushButton var PORTB.0 ' Setup the name PushButton to mean PortB input 0
Main:
IF PushButton = 0 THEN SMS 'If button is pressed then run the SMS routine below
goto main ' however if the button is not pushed then just go back to the Main
' routine to wait for the button to be pressed
SMS: ' this is the SMS commands routine in order to send an SMS
HSEROUT ["AT" ,13,10] ' send AT to modem followed by a CR and line feed
HSERIN 5000, SMS, [WAIT("OK")] ' now wait for 5secs until OK is received however
' if it is not then goto the SMS routine again
HSEROUT ["AT+CMGF=1" ,13,10]
HSERIN 5000, SMS, [WAIT("OK")]
HSEROUT ["AT+CMGS=+256782277658"]
HSEROUT [13,10]
HSERIN 5000, SMS, [WAIT(">")]
HSEROUT ["BUTTON HAS BEEN PRESSED!"]
HSEROUT [26] ' this is ASCII for Ctrl+Z of which completes SMS sending
HSERIN 15000, SMS, [WAIT("+CMG")] ' then PIC should receive +CMG from modem
HSEROUT [10] 'ascii code for a line feed
end
Pliz help me
regards
dumato





Bookmarks