Funktioniert einfach nicht. Schön langsam wäre ich wirklich happy wenn der Motor mal ein Lebenszeichen von sich gebe.

Vielleicht liegt der Fehler in meinem Programm ja bei den Zeitabständen in denen Strobe zu null und wieder high wird?
Oder beim Sleepmode? Dieser muss ja bevor der Treiber beschrieben wird zu null werden um die alten Daten zu löschen, und muss dann immer auf high eingestellt sein.

Bitte um Hilfe
************************************************** ******
$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 = &B0010000010000011101
Word1 = &B1001100011000010001

Strobe = 1
Sleepmode = 0
Waitus 1
Sleepmode = 1
Waitus 100
Strobe = 0
Waitus 1
Shiftout Portb.0 , Portb.1 , Word0 , 1 , 19 , 100
Waitus 1
Shiftout Portb.0 , Portb.1 , Word1 , 1 , 19 , 100
Waitus 1
Strobe = 1

Do
Toggle Motor
Waitms 500
Toggle Motor
Waitms 500
Loop

End
************************************************** ******

Schöne Grüße,
Martin