Control Techniques FM-3 Reference Manual page 154

FM-3 Programming Module Reference Manual
If((ModuleInput.3=OFF) AND (ModuleOutput.3=ON)) Then
ModuleOutput.3=OFF
Endif
'Decrease the fill amount once every time ModuleInput.4 is pressed.
If ((ModuleInput.4=ON) AND (ModuleOutput.4=OFF)) Then
Index.1.Dist = Index.1.Dist - 0.10 'ounces
ModuleOutput.4=ON
'ModuleOutput.4 is used to make sure that the distance is
'incremented only once each time ModuleInput.4 is pressed.
If (Index.1.Dist < 12) Then
ModuleOutput.2=ON
Else
ModuleOutput.2=OFF
Endif
Endif
If((ModuleInput.4=OFF) AND (ModuleOutput.4=ON)) Then
ModuleOutput.4=OFF
Endif
Loop
Sequence Learn and Playback
This example consists of three programs. The first program is used to learn 3 positions using "Jog+", "Jog-", "Jog Fast" and
"Learn" inputs. The second program is called several times by the first program. The third program steps through the learned
positions
Learn Program (Program 0)
Home.0.Initiate
Index.1.Initiate
Wait For Index.AnyCommandComplete
Call Program.1
If (ModuleInput.1=ON) Then
Index.1.Dist = PosnCommand
Endif
Wait For ModuleInput.1=OFF
Wait For ModuleInput.2=OFF
Index.2.Initiate
Wait For Index.AnyCommandComplete
Call Program.1
If (ModuleInput.1=ON) Then
Index.2.Dist = PosnCommand
Endif
Wait For ModuleInput.1=OFF
Wait For ModuleInput.2=OFF
Index.3.Initiate
Wait For Index.AnyCommandComplete
Call Program.1
If (ModuleInput.1=ON) Then
140
'Short index output
'Sensor,Offset=0.000in,Vel=-10in/s
'Move to position 1
'Program 1 allows the axis to be jogged
'into position
'Learn the new position if the "Learn"
'input is on
'Read the Position Command into Index.1's
'absolute position.
'Wait until the "Learn" input goes off
'Wait until the "Skip" input goes off
'Move to position 2
'Program 1 allows the axis to be jogged
'into position
'Learn the new position if the "Learn"
'input is on
'Read the Position Command into Index.2's
'absolute position.
'Wait until the "Learn" input goes off
'Wait until the "Skip" input goes off
'Move to position 3
'Program 1 allows the axis to be jogged
'into position
'Learn the new position if the "Learn"