VB script consuming too much resources

[fer_mayrl]

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

[Chaoticone]

Hey Fer,
   I remember seeing something about this a while back. I can't remember for the life of me what it was for sure. I think it may have been the While if statements.


Brett

[ger21]

Do you have this line at the start of your code?

Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

[fer_mayrl]

no, let me add it, and let you know
Fernando

[fer_mayrl]

Is there a VB command, that acts as a dwell? i dont know, like:

DWELL 100
or
PAUSE 100

where the 100 is in milliseconds?

Regards
Fernando

[fer_mayrl]

Thanks a lot Ger,
That did it, CPU load less than 1%

Still, Is there a DWELL or PAUSE command?

Regards
Fernando

[ger21]

the code"G4" doesn't work for you? I don't know of a "pause", but I'm not a programmer either.

[fer_mayrl]

It delays, but its not as precise As I would like it to be... I could try lowering the argument on the sleep command to make it better
Thanks
Fernando