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:

Code:
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:
Bild hier  

Der Aufbauplan ist hier zu sehen:
Bild hier  

Sicherlich haben schon einige dieses Buch durchgearbeitet und können mir dabei helfen

Gruß Wasi