Hallo

Habe ein kleines problem, vielleicht Denkfehler.
Ein kl. Schrittmotoren mit 20 Schritte pro umdrehung
habe die einmal beim großen C. als Restposten gekauft, 4 Anschl.
uP steuert einen L293D an , an dem habe ich die beiden Spulen
(S10 S11) und (S20 S21) angeschlossen. Die beiden Enable Leitungen sind auf +5V gelegt. Prog ist nur zum Versuch ,der Motor soll sich drehen
Der Motor läuft jetzt mit Drehrichtung Links.

Code:
$regfile = "2313def.dat"
$crystal = 4000000
Config Portd = Output
Portd = 1
S10 Alias Portd.0
S11 Alias Portd.1
S20 Alias Portd.2
S21 Alias Portd.3

Dim A As Byte
Dim B As Byte
A = 50
Do
For B = 1 To 5




S10 = 1 : S11 = 0 : S20 = 1 : S21 = 0
Waitms A
S10 = 0 : S11 = 1 : S20 = 1 : S21 = 0
Waitms A
S10 = 0 : S11 = 1 : S20 = 0 : S21 = 1
Waitms A
S10 = 1 : S11 = 0 : S20 = 0 : S21 = 1
Waitms A

Next





Loop
End
Wollte nun das er Rechts läuft, funktionierte bis jetzt nicht.
Der Motor bewegt sich 2 - 3 Schritte nach recht und pendelt dann hin und her.
Code:
$regfile = "2313def.dat"
$crystal = 4000000
Config Portd = Output
Portd = 1
S10 Alias Portd.0
S11 Alias Portd.1
S20 Alias Portd.2
S21 Alias Portd.3

Dim A As Byte
Dim B As Byte
A = 50
Do
For B = 1 To 5




S10 = 1 : S11 = 0 : S20 = 0 : S21 = 1
Waitms A
S10 = 0 : S11 = 1 : S20 = 0 : S21 = 1
Waitms A
S10 = 0 : S11 = 1 : S20 = 1 : S21 = 0
Waitms A
S10 = 1 : S11 = 0 : S20 = 1 : S21 = 0
Waitms A

Next





Loop
End
Man braucht doch nur die Spulen anders ansteuern oder?
Wäre jemand so nett und schaut sich das mal an.
Irgendwie stehe ich im Wald und sehe keinen Bäume.
Danke im vorraus
Richard