341
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Global Const IndexOutput = OUTPUT1
Global Const TriggerOutput = OUTPUT2
Sub Main()
'do 4 pulses
DoPulses 4
End Sub
'subroutine to generate pulses an trigger
Sub DoPulses(Pulses As Integer)
'generate the pluse
For i = 1 To Pulses
ActivateSignal(IndexOutput)
Sleep(200)
DeActivateSignal(IndexOutput)
Sleep(200)
Next i
'generate the trigger
ActivateSignal(TriggerOutput)
Sleep(200)
DeActivateSignal(TriggerOutput)
Sleep(200)
End Sub