help with getting started bluetooth transceiver
fisheaglerobot
Posts: 4
Can anybody help me get started with the bluetooth transceiver. I have plugged it into a BOE and downloaded this code but I get no reply giving me its address.·The transceiver card is plugged in correctly and the code downloads ok.
' {$STAMP BS2}
szdata· VAR Byte(20)
'wait for the eb500 to be ready
····· PAUSE 1000
·
'iniate getting the eb500 bluetooth address
····· SEROUT 1,84,[noparse][[/noparse]"get address",CR]
·
SERIN 0,84,[noparse][[/noparse]WAIT("ack",CR)]
·
'now read the address
····· SERIN 0,84,[noparse][[/noparse]STR szdata\17]
DEBUG "done 1",CR
·'again: GOTO again
SERIN 0,84,[noparse][[/noparse]WAIT(CR,">")]
····· szdata(17)=0
··· DEBUG "local eb500 address:",STR szdata\17,CR
' {$STAMP BS2}
szdata· VAR Byte(20)
'wait for the eb500 to be ready
····· PAUSE 1000
·
'iniate getting the eb500 bluetooth address
····· SEROUT 1,84,[noparse][[/noparse]"get address",CR]
·
SERIN 0,84,[noparse][[/noparse]WAIT("ack",CR)]
·
'now read the address
····· SERIN 0,84,[noparse][[/noparse]STR szdata\17]
DEBUG "done 1",CR
·'again: GOTO again
SERIN 0,84,[noparse][[/noparse]WAIT(CR,">")]
····· szdata(17)=0
··· DEBUG "local eb500 address:",STR szdata\17,CR
Comments
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Chris Savage
Parallax Tech Support
Regards
Frank Nickols
http://www.parallax.com/detail.asp?product_id=30068
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Chris Savage
Parallax Tech Support
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Chris Savage
Parallax Tech Support