Sub Main
Do
Anfahren ftiLinks
Pause 5000
Anhalten ftiLinks
Anfahren ftiRechts
Pause 5000
Anhalten ftiRechts
Loop Until Finish(ftiE1)
End Sub
Sub Anfahren(Richtung&)
Dim i&
For i = 3 To 15
SetMotor ftiM1,Richtung,i
Pause 200
Next i
End Sub
Sub Anhalten(Richtung&)
Dim i&
For i = 15 To 3 Step -1
SetMotor ftiM1,Richtung,i
Pause 200
Next i
SetMotor ftiM1,ftiAus
End Sub |
Anfahren / Anhalten wurde in Unterprogramme
gelegt, da es mehrfach genutzt wird.
Schleife von Geschwindigkeitsstufe 3 zu 15 über Parameter i. Jede
Stufe wir 0.2 Sek gefahren.
Wie oben, aber von 15 -> 3
(Stufe 1 - 2 ruckeln nur)
Die Drehrichtung wird als Parameter übergeben. |