View Full Version : BoeBot Control with MSRS

04-08-2010, 12:55 PM
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.

04-10-2010, 06:25 AM

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?


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

04-10-2010, 08:15 AM
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 ]----------------------------------------------------


SEROUT 16,16390, ["S"] 'Start character
FOR cs = 8 TO 13
FOR ax = XAxis TO ZAxis ' loop through each axis
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
LOW cs
SHIFTOUT Dio, Clk, MSBFIRST, [%11\2, ax\3] ' select axis
SHIFTIN Dio, Clk, MSBPOST, [axCount\13] ' read axis voltage counts

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"]
SEROUT 16, 16390,["r"]
SEROUT 16, 16390,[DEC5 rvCount] 'DEBUG vRef count
SEROUT 16, 16390,["a"]
SEROUT 16, 16390,[DEC5 axCount] 'DEBUG vAxial count


04-10-2010, 11:32 AM
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

04-11-2010, 08:53 AM
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

04-15-2010, 01:29 PM
Not sure I follow you. What would this code end up looking like?

иии 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]