Emerson FM-3 - Manual (Page 154)

140
FM-3 Programming Module Reference Manual
If (ModuleInput.1=ON) Then ‘Learn the new position if the “Learn”
‘input is on
Index.2.Dist = PosnCommand ‘Read the Position Command into Index.2’s
‘absolute position.
Endif
Wait For ModuleInput.1=OFF ‘Wait until the “Learn” input goes off
Wait For ModuleInput.2=OFF ‘Wait until the “Skip” input goes off
Index.3.Initiate ‘Move to position 3
Wait For Index.AnyCommandComplete
Call Program.1 ‘Program 1 allows the axis to be jogged
‘into position
If (ModuleInput.1=ON) Then ‘Learn the new position if the “Learn”
‘input is on
Index.3.Dist = PosnCommand ‘Read the Position Command into Index.3’s
‘absolute position.
Endif
Wait For ModuleInput.1=OFF ‘Wait until the “Learn” input goes off
Wait For ModuleInput.2=OFF ‘Wait until the “Skip” input goes off
Subroutine for Jogging the Axis into the Desired Position (Program 1)
‘Allow jogging until either the “Learn” input (ModuleInput.1)
‘or the “Skip” input (ModuleInput.2) goes ON.
Do While ((ModuleInput.1=OFF) AND (ModuleInput.2=OFF))
If (ModuleInput.3=ON) Then ‘Jog+ if the Jog+ input is on
Jog.0.PlusInitiate ‘Vel=0.1in/s
Do While (ModuleInput.3=ON)
If (ModuleInput.5=ON) Then ‘ModuleInput.5 = “Jog Fast”
Jog.0.Vel = 1.0 ‘in/s
Else
Jog.0.Vel = 0.1 ‘in/s
Endif
Loop
Jog.Stop ‘Stop jogging when the Jog+ input goes off.
Endif
If (ModuleInput.4=ON) Then ‘Jog- if the Jog- input is on
Jog.0.MinusInitiate ‘Vel=0.1in/s
Do While (ModuleInput.4=ON)
If (ModuleInput.5=ON) Then ‘ModuleInput.5 = “Jog Fast”
Jog.0.Vel = 1.0 ‘in/s
Else
Jog.0.Vel = 0.1 ‘in/s