i have make this program to run stepper motor with parallel port forward and reverse but still the stepper motor does not run. can someone solve this issue.Any other easy code to run stepper motor?[
]
Private Sub cmdButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdButton1.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
count = count + 1
Label1.Text = Convert.ToString(count)
If count = 1 Then
Label2.Show()
Out(&H378, 1)
ElseIf count = 2 Then
Label2.Hide()
Out(&H378, 4)
ElseIf count = 3 Then
count = 0
Out(&H378, 16)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer2.Enabled = True
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
count = count + 1
Label1.Text = Convert.ToString(count)
If count = 1 Then
Label4.Show()
Out(&H378, 16)
ElseIf count = 2 Then
Label4.Hide()
Out(&H378, 4)
ElseIf count = 3 Then
count = 0
Out(&H378, 1)
End If
End Sub
Private Sub cmdButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdButton1.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
count = count + 1
Label1.Text = Convert.ToString(count)
If count = 1 Then
Label2.Show()
Out(&H378, 1)
ElseIf count = 2 Then
Label2.Hide()
Out(&H378, 4)
ElseIf count = 3 Then
count = 0
Out(&H378, 16)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer2.Enabled = True
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
count = count + 1
Label1.Text = Convert.ToString(count)
If count = 1 Then
Label4.Show()
Out(&H378, 16)
ElseIf count = 2 Then
Label4.Hide()
Out(&H378, 4)
ElseIf count = 3 Then
count = 0
Out(&H378, 1)
End If
End Sub