4WD1 promgramming with Visual Basic ;

Lynxmotion Rovers, Sumo, and Tracked
1

Hi Everybody ; We are preparing a school project With 4WD1 rover ; we are using mini atom bot board and Basic Atom 28. I want to contol our mobile platform from Computer using Serial port. Can Anybody help us how can we control our mobile robot with VB or C# …
We used Serial Port Object and open Connection but How Can we send string and what is string format

For ex Connection.write("???")

We would be greateful if you answer me as soon as possible ;
Thank you Very Much

Eray

2

Um, you need to write a program for the Basic Atom 28 that listens to the serial port for commands and then generates servo pulses for the motor controller based on those commands. Then you write a program for the PC that sends the commands you have defined out the serial port to the basic atom.

3

Hi Eray,

You might download the free PowerPod program, and look in the tools directory for C++ demo for the serial_h3 program. Although you may not be able to use the code directly, I’m sure you’ll see code to generate SSC32 commands, and some ideas on how to accept commands from the windows UI.

Also, as Eddie mentioned, you can learn a LOT from studying the Atom BASIC code provided for the 4WD1 Rover.

Alan KM6VV
P.S. I’m a LEG MAN (6 or 8) myself.

4

i programmed basic atom 28. and connected to it from serial. thnx.
i have cod like that:

serin s_in,57600,[mov]
main:
if mov = (“a”) then
throttle=150
else
throttle=200
endif

i send form the c#project:
serialPort1.WriteLine(“a”);

but there is a comparation problem.

the program always enter the else condition. How can i compare that chatacter? thnx for help

5

my problem continues i try to control the servo. i use serin but i cannot control and i’m not sure how serin and serout commands are used. Please help as soon as possible. in this command i try to use serout to control but i cannot take any data. i use c#.

[code]
main:

serin s_in,57600,[mov]
mov=mov+1
'serout s_out,57600,[mov]

if mov = (97) then
throttle=150
else
throttle=200
endif

pulsout 0,(throttle10) ’ Left Scorpion channel.
pulsout 1,(steering10) ’ Right Scorpion channel.
pause 20

goto main[/code][/code]