Sub Process_Globals
Public Serial1 As Serial
Private stp As Stepper
Private StepsPerRevolution As Int = 200
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
stp.Initialize2(StepsPerRevolution, 8, 9, 10, 11)
stp.SetSpeed(60)
Step1(0)
End Sub
Sub Step1(u As Byte)
stp.Step(StepsPerRevolution)
CallSubPlus("Step2", 500, 0)
End Sub
Sub Step2(u As Byte)
stp.Step(-StepsPerRevolution)
CallSubPlus("Step1", 500, 0)
End Sub