Ok, I have a VB script running in the macro pump, and it uses 99% of my computers resources, so sometimes it slows down, It may be my way of coding or something. Anyone here sees something wrong with the code?
BB=0
CC=0
DD=0
EE=0
FF=0
Do While GetUserLed(1020)=1
Code "G01 A36"
While IsMoving()
Sleep 100
Wend
If IsActive(Input1)=TRUE Then
BB=1
Else
BB=0
End If
If BB=0 And DD=0 And FF=0 Then
DeActivateSignal(OUTPUT1)
DeActivateSignal(OUTPUT2)
DeActivateSignal(OUTPUT3)
ElseIf BB=1 And DD=0 And FF=0 Then
ActivateSignal(OUTPUT1)
DeActivateSignal(OUTPUT2)
DeActivateSignal(OUTPUT3)
ElseIf BB=0 And DD=1 And FF=0 Then
DeActivateSignal(OUTPUT1)
ActivateSignal(OUTPUT2)
DeActivateSignal(OUTPUT3)
ElseIf BB=0 And DD=0 And FF=1 Then
DeActivateSignal(OUTPUT1)
DeActivateSignal(OUTPUT2)
ActivateSignal(OUTPUT3)
ElseIf BB=1 And DD=1 And FF=1 Then
ActivateSignal(OUTPUT1)
ActivateSignal(OUTPUT2)
ActivateSignal(OUTPUT3)
ElseIf BB=1 And DD=0 And FF=1 Then
ActivateSignal(OUTPUT1)
DeActivateSignal(OUTPUT2)
ActivateSignal(OUTPUT3)
ElseIf BB=1 And DD=1 And FF=0 Then
ActivateSignal(OUTPUT1)
ActivateSignal(OUTPUT2)
DeActivateSignal(OUTPUT3)
ElseIf BB=0 And DD=1 And FF=1 Then
DeActivateSignal(OUTPUT1)
ActivateSignal(OUTPUT2)
ActivateSignal(OUTPUT3)
End If
CODE "G04 P375"
While IsMoving()
Sleep 100
WEnd
DeActivateSignal(OUTPUT1)
DeActivateSignal(OUTPUT2)
DeActivateSignal(OUTPUT3)
CODE "G04 P375"
While IsMoving()
Sleep 100
WEnd
FF=EE
EE=DD
DD=CC
CC=BB
Loop
End