PDA

View Full Version : conect GE864



KARIM102
08-13-2010, 09:38 PM
dear all,
how do i connect GE864 with basic stamp???? and how do i reset the GE864???


best regrads

Franklin
08-14-2010, 02:06 AM
This might help http://www.sparkfun.com/datasheets/Cellular%20Modules/GE864-QUAD_PY_Hardware_User_Guide_r11.pdf

KARIM102
08-23-2010, 09:05 PM
Thx mate !!!!!!!!!!!!!!!!!!!!!!

KARIM102
09-16-2010, 10:34 PM
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

Tubular
09-17-2010, 12:23 AM
I saw your message over the wireless forum a couple of days ago, and was about to reply, but figured by now you would have either succeeded or given up. I'm pleased its the former, congratulations!

KARIM102
09-17-2010, 11:10 PM
thx a lot mate.... it's amazing this mircontroller is one of the best but u need to know the way it's working with other devices looool thx a lot again