blittled
10-24-2009, 07:29 AM
I have a Boe-Bot using a EB500 which I am trying to connect to a Propeller Driven EasyBT as a remote control: I use the following code where the address in the con is the EasyBT address. I cannot get the EB500 to connect to the EasyBT.
PAUSE 1000 'WAIT FOR the eb500 radio TO be ready
'Connect to the remote device
SEROUT SendPin ,84,["con 00:17:a0:01:57:3b",CR]
SERIN ReceivePin,84,[WAIT("ACK",CR)]
'Wait for the connection to be established and switch to data mode
WaitForConnection:
IF IN5 = 0 THEN WaitForConnection
HIGH 6
PAUSE 300
I also wrote a routine to list visible bluetooth devices and the EB500 does see the EasyBT but does not connect.
'{$STAMP BS2}
szData VAR Byte(20)
'Wait for the eb500 radio to be ready
PAUSE 1000
'Get local Bluetooth Addresses
SEROUT 1,84,["lst visible",CR]
SERIN 0,84,[WAIT("ACK",CR)]
'Read the local address from the get command
SERIN 0,84,[STR szData\17]
SERIN 0,84,[WAIT(CR,">")]
szData(17) = 0
DEBUG "Local addresses: ",STR szData\17,CR
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
What electronics need - MORE POWER!!!!!!!
PAUSE 1000 'WAIT FOR the eb500 radio TO be ready
'Connect to the remote device
SEROUT SendPin ,84,["con 00:17:a0:01:57:3b",CR]
SERIN ReceivePin,84,[WAIT("ACK",CR)]
'Wait for the connection to be established and switch to data mode
WaitForConnection:
IF IN5 = 0 THEN WaitForConnection
HIGH 6
PAUSE 300
I also wrote a routine to list visible bluetooth devices and the EB500 does see the EasyBT but does not connect.
'{$STAMP BS2}
szData VAR Byte(20)
'Wait for the eb500 radio to be ready
PAUSE 1000
'Get local Bluetooth Addresses
SEROUT 1,84,["lst visible",CR]
SERIN 0,84,[WAIT("ACK",CR)]
'Read the local address from the get command
SERIN 0,84,[STR szData\17]
SERIN 0,84,[WAIT(CR,">")]
szData(17) = 0
DEBUG "Local addresses: ",STR szData\17,CR
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
What electronics need - MORE POWER!!!!!!!