wasi1
28.10.2007, 22:41
Hallo Leute,
ich bin neu in der Motorgeschichte und hab mir das Buch von Kainka(PC-Schnittstellen unter Windows) gekauft und wollte nun die
2Bit Ansteuerung eines Schrittmotors wie im Buch mal machen.
Ich nutze dazu den Steppermotor AEG SO21/24 Betriebsversorgung 5V / 0,625A - Vier Anschlüße.
Außerdem nutz ich wie bei Kainka angegeben den Leistungstreiber ULN 2803.
Egal ob ich mit 5 oder 12V den Leistungstreiber Versorge, er wird nur heiß ohne ende, daher hab ich die Stromaufnahme auch auf max.0,5A begrenzt.
Als Programm nutze ich VB aus dem Buch, mußte es nur auf die COM1 umändern:
Dim Soll, Ist
Private Sub Command1_Click()
Soll = Val(Text1.Text)
Ausgabe
End Sub
Private Sub Form_Load()
If OPENCOM("COM1:9600,N,8,1") = 0 Then MsgBox "COM2 nicht frei"
DTR 1
RTS 1
Soll = 0: Ist = 0
End Sub
Sub Phase1()
DTR 1
RTS 1
Text3.Text = " 1 1"
End Sub
Sub Phase2()
DTR 1
RTS 0
Text3.Text = " 1 0"
End Sub
Sub Phase3()
DTR 0
RTS 0
Text3.Text = " 0 0"
End Sub
Sub Phase4()
DTR 0
RTS 1
Text3.Text = " 0 1"
End Sub
Sub Ausgabe()
While Soll <> Ist
If Soll > Ist Then Ist = Ist + 1
If Soll < Ist Then Ist = Ist - 1
Text2.Text = Str$(Ist)
Phase = Ist Mod 4
If Phase < 0 Then Phase = Phase + 4
If Phase = 0 Then Phase1
If Phase = 1 Then Phase2
If Phase = 2 Then Phase3
If Phase = 3 Then Phase4
TIMEINIT
While TIMEREAD < 10
DoEvents
Wend
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
CLOSECOM
End Sub
Hier noch der Aufbau des ganzen:
http://www.sellmaker.de/bilder/schrittmotor.jpg
Der Aufbauplan ist hier zu sehen:
http://www.holger-friedrich.de/Robo/ULN2803.gif
Sicherlich haben schon einige dieses Buch durchgearbeitet und können mir dabei helfen ;)
Gruß Wasi
ich bin neu in der Motorgeschichte und hab mir das Buch von Kainka(PC-Schnittstellen unter Windows) gekauft und wollte nun die
2Bit Ansteuerung eines Schrittmotors wie im Buch mal machen.
Ich nutze dazu den Steppermotor AEG SO21/24 Betriebsversorgung 5V / 0,625A - Vier Anschlüße.
Außerdem nutz ich wie bei Kainka angegeben den Leistungstreiber ULN 2803.
Egal ob ich mit 5 oder 12V den Leistungstreiber Versorge, er wird nur heiß ohne ende, daher hab ich die Stromaufnahme auch auf max.0,5A begrenzt.
Als Programm nutze ich VB aus dem Buch, mußte es nur auf die COM1 umändern:
Dim Soll, Ist
Private Sub Command1_Click()
Soll = Val(Text1.Text)
Ausgabe
End Sub
Private Sub Form_Load()
If OPENCOM("COM1:9600,N,8,1") = 0 Then MsgBox "COM2 nicht frei"
DTR 1
RTS 1
Soll = 0: Ist = 0
End Sub
Sub Phase1()
DTR 1
RTS 1
Text3.Text = " 1 1"
End Sub
Sub Phase2()
DTR 1
RTS 0
Text3.Text = " 1 0"
End Sub
Sub Phase3()
DTR 0
RTS 0
Text3.Text = " 0 0"
End Sub
Sub Phase4()
DTR 0
RTS 1
Text3.Text = " 0 1"
End Sub
Sub Ausgabe()
While Soll <> Ist
If Soll > Ist Then Ist = Ist + 1
If Soll < Ist Then Ist = Ist - 1
Text2.Text = Str$(Ist)
Phase = Ist Mod 4
If Phase < 0 Then Phase = Phase + 4
If Phase = 0 Then Phase1
If Phase = 1 Then Phase2
If Phase = 2 Then Phase3
If Phase = 3 Then Phase4
TIMEINIT
While TIMEREAD < 10
DoEvents
Wend
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
CLOSECOM
End Sub
Hier noch der Aufbau des ganzen:
http://www.sellmaker.de/bilder/schrittmotor.jpg
Der Aufbauplan ist hier zu sehen:
http://www.holger-friedrich.de/Robo/ULN2803.gif
Sicherlich haben schon einige dieses Buch durchgearbeitet und können mir dabei helfen ;)
Gruß Wasi