Sterowanie 2 silników z LPT w VB
: 06 lut 2007, 12:49
Witajcie jak sterować portem LPT
tak żeby można było sterować dwoma silnikami krokowymi
Lpt ma port 0-7 8 pinów, do sterowania silnika wystarczy cztery
pozostałe cztery chciałem wykorzystać do sterowania drugim silnikiem
ale jak to zroić jednocześnie???
tak aby jakoś podzielić port na dwa??? 0-3 jeden silnik 4-7 drugi
TO do sterowania jednego silnika
Private Sub cmdkoniec_Click()
xx = sld.Value
Label1 = xx
For i = 1 To xx
Out PortAddress1, 0
krok = krok + 1
If krok = 5 Then
krok = 1
Out PortAddress, 0
End If
step 'wykonanie kroku
Next i
End Sub
Private Sub step()
' system sterowania pełno krokowy
If krok = 1 Then
Out PortAddress, 10
End If
If krok = 2 Then
Out PortAddress, 6
End If
If krok = 3 Then
Out PortAddress, 5
End If
If krok = 4 Then
Out PortAddress, 9
End If
Sleep 3
End Sub
tak żeby można było sterować dwoma silnikami krokowymi
Lpt ma port 0-7 8 pinów, do sterowania silnika wystarczy cztery
pozostałe cztery chciałem wykorzystać do sterowania drugim silnikiem
ale jak to zroić jednocześnie???
tak aby jakoś podzielić port na dwa??? 0-3 jeden silnik 4-7 drugi
TO do sterowania jednego silnika
Private Sub cmdkoniec_Click()
xx = sld.Value
Label1 = xx
For i = 1 To xx
Out PortAddress1, 0
krok = krok + 1
If krok = 5 Then
krok = 1
Out PortAddress, 0
End If
step 'wykonanie kroku
Next i
End Sub
Private Sub step()
' system sterowania pełno krokowy
If krok = 1 Then
Out PortAddress, 10
End If
If krok = 2 Then
Out PortAddress, 6
End If
If krok = 3 Then
Out PortAddress, 5
End If
If krok = 4 Then
Out PortAddress, 9
End If
Sleep 3
End Sub