Am einfachsten ist es eine For- Next Schleife zu programmieren (Siehe Bascom Hilfe) die bei jedem Zyklus einen Ausgangsport Toggelt.
Für erste Versuche kann man ja die Schrittzahl Fest einprogrammieren, später kann man dann noch ein kleines Displaymenue einfügen das die Schrittzahl und Drehrichtung anzeigt und mit Tastern dann die Schrittzahl verstellen kann.
So bin ich jedenfalls mit Schrittmotoren angefangen.
So sieht dann das Hauptprogramm aus (Konfigurationen usw. habe ich hier weggelassen)
Do
While Pinc.0 = 0
For A = 1 To B Step 1
Locate 1 , 1
Lcd A;
If A < 10 Then
Locate 1 , 2
Lcd " "
End If
Waitms 100
Toggle Portd.7
Waitms 100
Toggle Portd.7
Next A
Wend
If Pinc.3 = 0 Then 'Änderung der Drehrichtung
Waitms 100
Toggle Portd.6
End If
If Portd.6 = 1 Then 'Anzeige der Drehrichtung
Locate 1 , 5
Lcd "links "
Else
Locate 1 , 5
Lcd "rechts"
End If
If Pinc.1 = 0 Then '+1 Schritt
Waitms 50
Incr B
End If
If Pinc.2 = 0 Then '-1 Schritt
Waitms 50
Decr B
End If
If B > 99 Then B = 0
If B < 10 Then
Locate 2 , 2
Lcd " "
End If
Lowerline
Lcd B
Loop
Lesezeichen