'Roboter1.bas
' (C)
www.roboternetz.de 2003
define SpannungPeripherie port[1]
define Motoren port[2]
define RichtungLinkerMotor port[3]
define RichtungRechterMotor port[4]
define SchrittLinkerMotor port[5]
define SchrittRechterMotor port[6]
define FahrStrecke WORD 'Fahrstrecke in cm
define i WORD
define n WORD
define p WORD
'Konstanten
define VOR 0 'Vorwärts
define ZURUECK 1 'Vorwärts
beep 100,20,0
SpannungPeripherie=on
SchrittRechterMotor =on
SchrittLinkerMotor =on
motoren=on
FahrStrecke = 200 ' 2m
gosub Vorwaerts
gosub rechtsdrehung
FahrStrecke =50 ' 2m
gosub Vorwaerts
gosub rechtsdrehung
goto weiter
motoren=off
SpannungPeripherie=off
end
RichtungLinkerMotor=Zurueck
RichtungRechterMotor=Vor
for i=1 to 588
pulse SchrittLinkerMotor
pulse SchrittRechterMotor
gosub pause
next
return
RichtungLinkerMotor=Vor
RichtungRechterMotor=Zurueck
for i=1 to 588
pulse SchrittLinkerMotor
pulse SchrittRechterMotor
gosub pause
next
return
RichtungLinkerMotor=VOR
RichtungRechterMotor=VOR
n=(FahrStrecke*25)
for i=1 to n
pulse SchrittLinkerMotor
pulse SchrittRechterMotor
' if i<200 then pause 1 else gosub pause
' if i<200 then pause 1
next
return
RichtungLinkerMotor=Zurueck
RichtungRechterMotor=Zurueck
n=(FahrStrecke*25)
for i=1 to n
pulse SchrittLinkerMotor
pulse SchrittRechterMotor
next
return
return
Lesezeichen