Schrittmotoransteuerung für Rookies
Hier mein erster, funktionsfähiger Test zur Ansteuerung eines bipolaren Schrittmotor mit rn-control
Code:
'#####################################
'Schrittmotoransteuerung an rn-control
'Art= Vollschritt bipolar
'#####################################
$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 Zeit As Byte
Zeit = 2 'Zeit zwischen den einzelnen Schritten (kleiner=schneller)
'
Do 'Schleife beginnen (Vollschritt)
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
Loop 'wiederhole Schleife
Bild hier
