BoeBot Control with MSRS

[NWCCTV]

With the attached code I am suppose to use the EBT 500 to connect the BoeBot and have MSRS control it. My question is this, can this code be modified to use a Comm port instead of a Bluetooth device? If so, how and where do I change it? Thanks in advance for any help.

[JD]

NWCCTV,

So you do not want to use the EB500 for communication at all, but rather the programming port on the BASIC Stamp module to send and receive data?

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Respectfully,


Joshua Donelson
www.parallax.com (http://www.parallax.com)

[erickejah]

What about using a serial bluetooth adapter? such as www.bhphotovideo.com/c/product/412767-REG/Iogear_GBS301_Serial_Adapter_with_Bluetooth.html (http://www.bhphotovideo.com/c/product/412767-REG/Iogear_GBS301_Serial_Adapter_with_Bluetooth.html) you only need to specify the adress of the device at the beginning ie:


' ================================================== =======================
'
' File....... Axial and Reference Voltage
' Purpose.... Hitachi H48C 3-Axis Accelerometer (x6) Information gathering for LabVIEW
' Author..... Copyright (c) 2009-2010 Hot-n-Ready, Inc.
' E-mail..... Erick.Andino@gmail.com
' Started.... 02/17/10
'
' {$STAMP BS2}
' {$PBASIC 2.5}
'
' ================================================== =======================


' -----[ Program Description ]---------------------------------------------
'
' This program communicates with the accelerometer to gather information.
'
' -----[ I/O Definitions ]-------------------------------------------------

Dio PIN 15 ' data to/from module
Clk PIN 14 ' clock output

' -----[ Constants ]-------------------------------------------------------

XAxis CON 0 ' adc channels
YAxis CON 1
ZAxis CON 2
VRef CON 3

' -----[ Variables ]-------------------------------------------------------

ax VAR Nib ' axis selection
rvCount VAR Word ' ref voltage adc counts
axCount VAR Word ' axis voltage adc counts
cs VAR Word
' -----[ Initialization ]--------------------------------------------------

DEBUG "con 00:0C:84:00:05:29",CR 'COM adress
'WAIT 5000 'Wait so the BlueTooth handshakes with PC

' -----[ Program Code ]----------------------------------------------------

Main:

SEROUT 16,16390, ["S"] 'Start character
FOR cs = 8 TO 13
FOR ax = XAxis TO ZAxis ' loop through each axis
'Reset:
HIGH cs ' deselect module
'Get_H48C ' read vRef & axis counts
LOW cs
SHIFTOUT Dio, Clk, MSBFIRST, [%11\2, VRef\3] ' select vref register
SHIFTIN Dio, Clk, MSBPOST, [rvCount\13] ' read ref voltage counts
HIGH cs
'PAUSE 1
LOW cs
SHIFTOUT Dio, Clk, MSBFIRST, [%11\2, ax\3] ' select axis
SHIFTIN Dio, Clk, MSBPOST, [axCount\13] ' read axis voltage counts
HIGH cs
'------------

IF (ax = 0) THEN 'DEBUG axis
SEROUT 16, 16390, ["x"]
ELSEIF (ax = 1) THEN
SEROUT 16, 16390, ["y"]
ELSEIF (ax = 2) THEN
SEROUT 16, 16390, ["z"]
ENDIF
'------------
SEROUT 16, 16390,["r"]
SEROUT 16, 16390,[DEC5 rvCount] 'DEBUG vRef count
SEROUT 16, 16390,["a"]
SEROUT 16, 16390,[DEC5 axCount] 'DEBUG vAxial count
NEXT
NEXT

GOTO Main

[NWCCTV]

No, I do not want to use anything bluetooth. I have an ITX motherboard with an Atom CPU. This will run the heavier items, but I want to use a serial port connection between the Stamp and the MSRS software.

ericejah, that link does not work. Howecer, I do not want to spend any more money on this. Tryibg to do it witg parts I already have. Also, I will be using a wireless G adapter and VNC software to control and do not want to be using multiple wireless. Bluetooth has limited distance. I need to be able to control my robot from inside my home while the robot "patrols" outside. I have a high gain outdoor antenna to accomplish this.






Post Edited (NWCCTV) : 4/10/2010 4:42:19 AM GMT

[Franklin]

If you want to do it wired just plug a BOE into your computer and you have your connection. Then you use serout 16 instead of the bluetooth code.

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
- Stephen

[NWCCTV]

Not sure I follow you. What would this code end up looking like?



Request_Connect:
··· pointer = RequestConnect
··· GOSUB Get_Packet
··· SEROUT 1, 84, [STR buffer \5]

· Confirm_Connect:
··· pointer = ConnectionGranted
··· GOSUB Get_Packet
··· Wait_For_Confirm:
····· SEROUT 1, 84, [255, 0, 1, 0, 0]
····· SERIN 0, 84, 20, Wait_For_Confirm, [WAITSTR buffer \ 2,
········································· buffer2, buffer3,
········································· buffer4]
· Request_Packet:
··· msgIndex = msgIndex + 1
··· pointer = RequestCommand
··· GOSUB Get_Packet
··· SEROUT 1, 84, [STR buffer \5]