hi everyone,
could someone give me a coding to Receive a sms to my GE864 and make this sms as a output from my basic stamp using PBAISE lug plz
thx
hi everyone,
could someone give me a coding to Receive a sms to my GE864 and make this sms as a output from my basic stamp using PBAISE lug plz
thx
hi everyone,
I would like to know how make my GE864 read the SmS messge which i send it to him by other Gsm!!! in stamp mircontroller!!!
lower your expectations!!!
so isn’t impossible??? at lest how you can see the messger from debug termail in basic stamp when you send it from ur phone to the GSM???
Try reading the GE864 documentation, it’s all in there.
i try this coding!!! but it doesn’t work
’ {$STAMP BS2}
’ {$PBASIC 2.5}
’ -----[ I/O Definitions ]-------------------------------------------------
GPRS_RX PIN 0
GPRS_TX PIN 1
Letter VAR Word
Go VAR Word
’ -----[ Constants ]-------------------------------------------------------
GPRS_Baud CON 84
DO
SEROUT GPRS_TX, GPRS_Baud, [“AT+CMGF=1”, CR]
SERIN GPRS_RX, GPRS_Baud, [WAIT(“+CNMI:”), Letter]
IF Letter = Go THEN
HIGH 15
ENDIF
LOOP
“i wanna send Go to make PIN 15 goes high”
can you help me with this???
best wishes
Do you have to do the escape protocol with this modem, that being
let serial port be idle for 1 second or more
send +++ without a CR or LF
wait for modem to respond with OK<cr/lf>
how the cod will be it’s like this ???
’ {$STAMP BS2}
’ {$PBASIC 2.5}
’ -----[ I/O Definitions ]-------------------------------------------------
GPRS_RX PIN 0
GPRS_TX PIN 1
Letter VAR Word
Go VAR Word
’ -----[ Constants ]-------------------------------------------------------
GPRS_Baud CON 84
DO
SEROUT GPRS_TX, GPRS_Baud, [“AT+CMGF=+++”]
PAUSE 2000
SERIN GPRS_RX, GPRS_Baud, [WAIT(“+CNMI:”), Letter]
IF Letter = Go THEN
HIGH 15
ENDIF
LOOP
thx guys i did the sofware and it’s working perfectly loool here the one and how is interesting to make a such system lool this … you can have many system controls in one stamp mircontroll thx to BS2 loooooool… here is the final code…
’ {$STAMP BS2}
’ {$PBASIC 2.5}
A VAR Word
'---------------------[Initializations]-----------------------------------------
HELP:
LOW 3
LOW 4
LOW 2
LOW 1
'================================================= ================================================== ====
'----------------------main routine --------------------------------------------------------------------
'================================================= ================================================== ====
frist:
PAUSE 500
SEROUT 14 ,84, [“AT+CMGD=1,4”,13,10] ’ Delect All messages
SERIN 15, 84 , [WAIT(“OK”)]
MAIN:
PAUSE 500
SEROUT 14 , 84, [“AT+CMGF=1”, 13,10] ’ Text mode
SERIN 15 , 84,3000,MAIN, [WAIT(“OK”)]
SECOND:
PAUSE 500
SEROUT 14,84, [“AT+CNMI=1,2,0,0,0”,13,10] ’ Read all messages
SERIN 15 , 84,3000,SECOND,[WAIT(“OK”) ]
THRID:
DO
SERIN 15 , 84, [WAIT(“>”),A] ’ Wait to recived SMS
IF A = “A” THEN
’ order to be make
HIGH 0
PAUSE 1000
SMS_Prep:
PAUSE 500
SEROUT 14, 84, [“AT+CMGF=1”, CR]
SERIN 15, 84, 3000, SMS_Prep, [WAIT(“OK”)] ’ Text mode
SMS:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS, [WAIT(“>”)]
SMS2:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 1 is on!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS2, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “a” THEN
’ order to be make
LOW 0
PAUSE 1000
SMS_Prep1:
PAUSE 500
SEROUT 14, 84, [“AT+CMGF=1”, CR] ’ Text mode
SERIN 15, 84, 3000, SMS_Prep1, [WAIT(“OK”)]
SMS1:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS1, [WAIT(“>”)]
SMS8:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 1 is off!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS8, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “B” THEN ’ order to be make
HIGH 1
PAUSE 1000
SMS_Prep2:
PAUSE 500
SEROUT 14, 84, [“AT+CMGF=1”, CR] ’ Text mode
SERIN 15, 84, 3000, SMS_Prep2, [WAIT(“OK”)]
SMS9:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS9, [WAIT(“>”)]
SMS3:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 2 is on!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS3, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “b” THEN ’ order to be make
LOW 1
PAUSE 1000
SMS_Prep3:
PAUSE 500
SEROUT 14, 84, [“AT+CMGF=1”, CR] ’ Text mode
SERIN 15, 84, 3000, SMS_Prep3, [WAIT(“OK”)]
SMS10:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS10, [WAIT(“>”)]
SMS4:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 2 is off!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS4, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “D” THEN
’ order to be make
HIGH 2
PAUSE 1000
SMS_Prep4:
PAUSE 500
SEROUT 14, 84, [“AT+CMGF=1”, CR] ’ Text mode
SERIN 15, 84, 3000, SMS_Prep4, [WAIT(“OK”)]
SMS11:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS11, [WAIT(“>”)]
SMS5:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 3 is on!!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS5, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “d” THEN ’ order to be make
LOW 2
PAUSE 1000
SMS_Prep5:
PAUSE 500
SEROUT 14, 84, [“AT+CMGF=1”, CR] ’ Text mode
SERIN 15, 84, 3000, SMS_Prep5, [WAIT(“OK”)]
SMS12:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS12, [WAIT(“>”)]
SMS6:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 3 is off!!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS6, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “C” THEN
’ order to be make
HIGH 3
PAUSE 1000
SMS_Prep6:
PAUSE 500
SEROUT 14, 84, [“AT+CMGF=1”, CR] ’ Text mode
SERIN 15, 84, 3000, SMS_Prep6, [WAIT(“OK”)]
SMS13:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS13, [WAIT(“>”)]
SMS7:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 4 is on!!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS7, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “c” THEN ’ order to be make
LOW 3
PAUSE 1000
SMS_Prep7:
PAUSE 500 ’ Text mode
SEROUT 14, 84, [“AT+CMGF=1”, CR]
SERIN 15, 84, 3000, SMS_Prep7, [WAIT(“OK”)]
SMS15:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS15, [WAIT(“>”)]
SMS16:
PAUSE 500
SEROUT 14, 84, [“The Light’s Number 4 is off!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS16, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “X” THEN
LOW 0
LOW 1
LOW 2
LOW 3
PAUSE 1000
SMS_Prep8:
PAUSE 500 ’ Text mode
SEROUT 14, 84, [“AT+CMGF=1”, CR]
SERIN 15, 84, 3000, SMS_Prep8, [WAIT(“OK”)]
SMS18:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS18, [WAIT(“>”)]
SMS17:
PAUSE 500
SEROUT 14, 84, [“ALL lights are off!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS17, [WAIT(“OK”)]
GOTO THRID
ELSEIF A = “x” THEN
HIGH 0
HIGH 1
HIGH 2
HIGH 3
PAUSE 1000
SMS_Prep9:
PAUSE 500 ’ Text mode
SEROUT 14, 84, [“AT+CMGF=1”, CR]
SERIN 15, 84, 3000, SMS_Prep9, [WAIT(“OK”)]
SMS19:
PAUSE 500
SEROUT 14,84, [“AT+CMGS=”, $22, “33008808”, $22, CR] ’ Send to this phone number
SERIN 15, 84, 3000, SMS19, [WAIT(“>”)]
SMS20:
PAUSE 500
SEROUT 14, 84, [“ALL lights are on!”, $1A] ’ Data to be send
SERIN 15, 84, 5000, SMS20, [WAIT(“OK”)]
GOTO THRID
ENDIF
LOOP