LeCroy 6000 SERIES, Operator'S Manual

Page: 279 / 409

WR6K-OM-E Rev A ISSUED: October 2003
277
To make a pause of 10 seconds you can write:
NewTime = Timer + 10.0
Do Loop Until Timer >= NewTime
where Timer is a clock function in the PC, which has a resolution of one second.
Example file for these constructions: DoLoops.Xls
While . . . Wend
This is similar to Do While . . . Loop. You can write things like:
While ( (A > 2) And (C < 92677663) )
AnyVBCalculation
Wend
For . . . Next
Sometimes you know, or you think you know, the number of times that you want to do a job. For
this case a For loop is ideal, especially when you have an array of numbers to work with.
Examples:
For K = 0 To Total
HistogramBin (K) = 0
Next
Omega = TwoPi / Period
For N = 0 To Period
Y (N) = A * Sin (Omega * N)
Next
Be careful about changing the counting variable in any loop. You can do this to terminate the loop
early (but
Exit For is better), but you could also prevent it from terminating at all.
For emergency exit, you can use Exit For . For example:
For K = 0 To Total
If HistogramBin(K) = 0 Then Exit For
AnyVBScripting
Next
It is possible to make a For loop with steps greater than 1, as in the following example in which K
takes the values 3, 7, 11, 15, . . . . 83.