Here you go Christopher.
-------------------------------------------
Public Counter1
Public Counter2
BeginProg
Do While TRUE
Scan (5,Sec,0,0)
'scan slow until an event happens
'in this case the event is counter1 >= 10
Counter1 = Counter1 + 1
If Counter1 >= 10 Then
'do something
Counter2 = 0 'like reset a counter
ExitScan 'exit this scan
EndIf
NextScan
Scan (1,Sec,0,0)
'now go fast until a new event happens
Counter2 = Counter2 + 1
If Counter2 >= 10 Then
'do something
Counter1 = 0 'like reset a counter
ExitScan 'exit this scan
EndIf
NextScan
Loop 'loop back to the top
EndProg
-----------------------------------------
You can use this concept inside and in conjunction with SlowSequences too.
Public Flag As Boolean
Public Counter1
Public Counter2
Public Counter3
Public Counter4
Public Counter5
BeginProg
Do While TRUE
Scan (5,Sec,0,0)
Counter1 = Counter1 + 1
If Counter1 >= 10 Then
Counter2 = 0
ExitScan
EndIf
NextScan
Scan (1,Sec,0,0)
Counter2 = Counter2 + 1
If Counter2 >= 10 Then
Counter1 = 0
ExitScan
EndIf
NextScan
Loop 'loop back to the top
SlowSequence
Do While true
Scan (1,Sec,3,0)
Counter3 = Counter3 + 1
If Flag Then ExitScan
NextScan
Scan (1,Sec,3,0)
Counter4 = Counter4 + 1
If (NOT Flag) Then ExitScan
NextScan
Loop
EndSequence
SlowSequence
Scan (1,Sec,3,0)
Counter5 = Counter5 + 1
NextScan
EndSequence
EndProg
* Last updated by: Sam on 6/3/2011 @ 8:26 PM *
Hi Sam,
I am working on a program with multiple main scans with vibrating wire instruction following your example program, but compilation failed. Could you please help check, whether this is a program error or compiler error.
'Multiple Main Scan Example
'Program Name : MultipleScan_02.CR6
'---------------------------------------
SequentialMode
Public Flag As Boolean
Dim VW(6)
Public DG,T
BeginProg
Do While True
Scan (10,Sec,0,0)
VibratingWire(VW(1),1,U1,450,6000,1,0.01,"",50,1.4051E-3,2.369E-4,1.019E-7)
DG=(VW(1)^2)/1000
T=VW(6)
If DG <= 4000 Then
Flag = True
ExitScan
EndIf
NextScan
Scan (5,Sec,0,0)
VibratingWire(VW(1),1,U1,450,6000,1,0.01,"",50,1.4051E-3,2.369E-4,1.019E-7)
DG=(VW(1)^2)/1000
T=VW(6)
If DG > 4000 OR (NOT Flag) Then ExitScan
NextScan
Loop
EndProg
'----------------------------------------------------
[Version]C:\Campbellsci\Lib\Compilers\CR6Comp.exe VERSION:CR6.Std.12.00 DATE:04/27/2022
MultipleScan_02.CR6 -- Compile Failed!
line 22: __VW_VW_FILE already declared as a variable.
Error(s) detected in the program. Double-click an error above to navigate to it.
Thanks in advance.
Best regards,
Thein