804
« on: August 18, 2007, 02:05:14 PM »
Here is your code and I have tested it in the macro pump... so test this and see if it work..
Sub Main()
ES=GETLED(0)
If ES=True Then
ACTIVATESIGNAL(OUTPUT1)
Else
DEACTIVATESIGNAL(OUTPUT1)
End If
Call SetUserLED(1201,IsOn(INPUT1))
Call SetUserLED(1202,IsOn(INPUT2))
Call SetUserLED(1203,IsOn(INPUT3))
Call SetUserLED(1204,IsOn(OEMTRIG1))
Call SetUserLED(1205,IsOn(OEMTRIG2))
Call SetUserLED(1206,IsOn(OEMTRIG3))
Call SetUserLED(1207,IsOn(OEMTRIG4))
Call SetUserLED(1208,IsOn(OEMTRIG5))
Call SetUserLED(1209,IsOn(OEMTRIG6))
Call SetUserLED(1210,IsOn(OEMTRIG7))
Call SetUserLED(1211,IsOn(OEMTRIG8))
Call SetUserLED(1212,IsOn(OEMTRIG9))
Call SetUserLED(1213,IsOn(OEMTRIG10))
Call SetUserLED(1214,IsOn(OEMTRIG11))
Call SetUserLED(1215,IsOn(OEMTRIG12))
Call SetUserLED(1216,IsOn(EMERGENCY))
End Sub
Function IsOn(sig)
If(ISACTIVE(sig))Then
IsOn = 1
Else
IsOn = 0
End If
End Function
Main
thanks
Brian