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.
Zum einen hab ich die Pausen raufgedreht um sicher zu sein das der steppertreiber nicht einfach nur überrollt wird.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
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 ?






Zitieren

Lesezeichen