Blackbumpkin
23.12.2005, 07:13
Hallo Leute,
ich habe mir mal ein Programm Heruntergeladen und das schaut jetzt so aus:
'################################################# #
'Schrittmotoransteuerung mit rn-control mega32 v1.4
'Art= Vollschritt bipolar
'Schrittmotor Mitsumi M35SP-7
'Anschluss 1 = Gelb
'Anschluss 2 = Orange
'Anschluss 3 = Schwarz
'Anschluss 4 = Braun
'nicht belegt = Rot
'################################################# #
$regfile = "m32def.dat" 'controller definieren
$crystal = 16000000 'Taktfrequenz definieren
Config Portb = Output 'Port als "Ausgang" definieren
Config Portc = Output 'Port als "Ausgang" definieren
Config Portd = Output 'Port als "Ausgang" definieren
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 240
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
End
woher weiß ich wie ich die Port/Pin zuweißen soll hier ist ja der Portb,c,d Output für was d?(für den kontakt in der mitte der Spule? und wo muß ich den am Board dann anschliessen?)
kann ich sagen das Portb.0 einmal an meinem Portstecker b Pin 0 liegt und die erste Schraubklemme von meinem ersten Motoranschluss???
ich habe mir mal ein Programm Heruntergeladen und das schaut jetzt so aus:
'################################################# #
'Schrittmotoransteuerung mit rn-control mega32 v1.4
'Art= Vollschritt bipolar
'Schrittmotor Mitsumi M35SP-7
'Anschluss 1 = Gelb
'Anschluss 2 = Orange
'Anschluss 3 = Schwarz
'Anschluss 4 = Braun
'nicht belegt = Rot
'################################################# #
$regfile = "m32def.dat" 'controller definieren
$crystal = 16000000 'Taktfrequenz definieren
Config Portb = Output 'Port als "Ausgang" definieren
Config Portc = Output 'Port als "Ausgang" definieren
Config Portd = Output 'Port als "Ausgang" definieren
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 240
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
End
woher weiß ich wie ich die Port/Pin zuweißen soll hier ist ja der Portb,c,d Output für was d?(für den kontakt in der mitte der Spule? und wo muß ich den am Board dann anschliessen?)
kann ich sagen das Portb.0 einmal an meinem Portstecker b Pin 0 liegt und die erste Schraubklemme von meinem ersten Motoranschluss???