Karussell

ftComputing : Programme für die fischertechnik-Interfaces und -konstruktionskästen
  
ftComputing.de
Home
Back
Sitemap
Index
Links
Impressum
Mail

 

Karussell mit Geschwindigkeitssteuerung

Ganz einfaches Karussell mit Antrieb über einen "dicken" schwarzen Motor. Das Getriebe wurde auf schnell (32:1) gesteckt. Abtrieb : 10er Ritzel das in das große Zahnrad (40er) von unten eingreift.

Motor an M1, Taster E1

Programm :

Langsamer Anlauf links
5 Sek Höchstgeschwindigkeit
Langsamer Auslauf links
Langsamer Anlauf rechts
5 Sek Höchstgeschwindigkeit
Langsamer Auslauf rechts

Endlos : Bis Taster E1 (bei Ende einer Runde) oder Esc-Taste (sofort).

Die VBA-Source dazu :

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.

Lösung unter Einsatz von vbaFish30. Die Source der vorgestellten Lösung ist in Katapult.ZIP enthalten. Zusätzlich wird vbaFish30 benötigt.

Stand : 14.05.2004