Hallo liebe Leute,
ich habe hier einen Schrittmotor (7,5°) an meinem RN-Control und jetzt habe ich 2x hintereinander einen:
Dim I As Byte
For I = To 10
Motor schritt 1-4
Next I
warum läuft nur immer der erste und den zweiten findet er nicht was mache ich falsch???
Code:'##################################### 'Schrittmotoransteuerung an RN-Control 'Art= Vollschritt bipolar 'Anschluss 1 = Orange 'Anschluss 2 = Gelb 'Anschluss 3 = Braun 'Anschluss 4 = Schwarz '##################################### $regfile = "m32def.dat" 'controller definieren $crystal = 16000000 'Taktfrequenz definieren Config Portb = Output 'Port als "Ausgang" definieren Config Portc = Output Config Portd = Output 1a Alias Portb.0 'Pin als Spule 1a benennen 1b Alias Portb.1 'Spule 1b 2a Alias Portc.6 'Spule 2a 2b Alias Portc.7 'Spule 2b Portb.0 = 0 'Spule 1a definiert auf Null Portb.1 = 0 'Spule 1b Portc.6 = 0 'Spule 2a Portc.7 = 0 'Spule 2b Portd.4 = 1 'Motortreiber Spule 1 Enable Portd.5 = 1 'Motortreiber Spule 2 Enable Dim I As Byte For I = 1 To 60 Dim Zeit As Byte Zeit = 3 'Zeit zwischen den einzelnen Schritten (kleiner=schneller) 1a = 1 : 1b = 0 : 2a = 1 : 2b = 0 'Schritt 1 Waitms Zeit 1a = 1 : 1b = 0 : 2a = 0 : 2b = 1 'Schritt 2 Waitms Zeit 1a = 0 : 1b = 1 : 2a = 0 : 2b = 1 'Schritt 3 Waitms Zeit 1a = 0 : 1b = 1 : 2a = 1 : 2b = 0 'Schritt 4 Waitms Zeit Next I Waitms 100 Dim A As Byte For A = 1 To 60 Dim Zeit As Byte Zeit = 3 'Zeit zwischen den einzelnen Schritten (kleiner=schneller) 1a = 1 : 1b = 0 : 2a = 1 : 2b = 0 'Schritt 1 Waitms Zeit 1a = 1 : 1b = 0 : 2a = 0 : 2b = 1 'Schritt 2 Waitms Zeit 1a = 0 : 1b = 1 : 2a = 0 : 2b = 1 'Schritt 3 Waitms Zeit 1a = 0 : 1b = 1 : 2a = 1 : 2b = 0 'Schritt 4 Waitms Zeit Next A End
Zitieren
Lesezeichen