Ja ich hab jetzt mal auf die Signale geehen und wenn ich nix überlesen hab dann stimmt das so.
Mal zum Testen das hier nehmen.
Code:
$regfile = "2313def.dat"
$crystal = 1000000
Config Portb = Output
Dim Word0 As Long
Dim Word1 As Long
Motor Alias Portb.2
Strobe Alias Portb.3
Sleepmode Alias Portb.4
Word0 = &B00100000100000111010000000000000
Word1 = &B10011000110000100010000000000000
Strobe = 1
Sleepmode = 0
Waitus 1000
Sleepmode = 1
Waitus 1000
Strobe = 0
Waitus 1000
Shiftout Portb.0 , Portb.1 , Word0 , 1 , 19 , 1000
Waitus 1000
Shiftout Portb.0 , Portb.1 , Word1 , 1 , 19 , 1000
Waitus 1000
Strobe = 1
Do
Toggle Motor
Waitms 500
Toggle Motor
Waitms 500
Loop
End
Zum einen hab ich die Pausen raufgedreht um sicher zu sein das der steppertreiber nicht einfach nur überrollt wird.
Später wenn alles läuft dann kannste an den Timings feilen.
Jetzt muß er erstmal laufen.
Im Datenblatt steht "Data is clocked into a
shift register on the rising edge of CLOCK signal." also interpretiere ich das als 1 oder 3 für die Option.
Da ich jetzt nicht weiß ob deine alte Zeile als MSB oder LBS genommen wird hab ich einfach auf die vollen 4 Bit aufgerundet und dein Bitmuster damit fest nach MSB geschoben.
Damit ist die Option erstmal auf 1 festgelegt.
Versuch das mal und berichte.
PS:
Der Treiber sieht interessant aus.
Wo gibts den ?
Lesezeichen