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 O:)
************************************************** ******
$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