Operator's Manual
WP700Zi-OM-E-RevA
354
Dim t(16) As Object
‘ Create an array of objects to allow looping.
Set t(1) = acq.C1 : Set t(2) = acq.C2
Set t(3) = acq.C3 : Set t(4) = acq.C4
Set t(5) = mat.F1 : Set t(6) = mat.F2
Set t(7) = mat.F3 : Set t(8) = mat.F4
Set t(9) = mat.F5 : Set t(10) = mat.F6
Set t(11) = mat.F7 : Set t(12) = mat.F8
Dim trace As Integer
trace = 0: views = 0
' Exchange the traces on the grids.
Do
trace = trace + 1
If t(trace).View = "True" Then
views = views + 1
If t(trace).UseGrid = "YT1" Then
t(trace).UseGrid = "YT2"
Else
t(trace).UseGrid = "YT1"
End If
End If
Loop Until ((trace = 12) Or (views = 2))
' Show the parity of the last swap.
If Command1.Caption = "Swap A" Then
Command1.Caption = "Swap B"
Else
Command1.Caption = "Swap A"
End If
Dim TextString As String
TextString = Text1.Text
Dim TextValue As Integer
TextValue = Val(TextString) + 1
TextString = Str(TextValue)
TextString = Trim(TextString)
Text1.Text = TextString
End Sub
This routine exchanges the first two traces that it finds. You can make it exchange all the traces on a dual grid by
changing the penultimate line to this - Loop Until trace = 12
The next figure shows the Visual Basic Screen just after the Text Box text has been set to “0” in the Properties
Window, thus defining the initial value.
Содержание DDA 7 Zi series
Страница 1: ...Operator s Manual WavePro SDA and DDA 7 Zi Series Oscilloscopes ...
Страница 2: ... L R R H HUD RU D D ...
Страница 41: ...Operator s Manual WP700Zi OM E RevA 40 The detachable WavePro Zi front panel ...
Страница 376: ...WavePro 7Zi 375 WP700Zi OM E RevA Absolute Offset Relative ...
Страница 439: ...Operator s Manual WP700Zi OM E RevA 438 ...
Страница 440: ...WavePro 7Zi 439 WP700Zi OM E RevA ...
Страница 544: ...Thank you for purchasing a WavePro SDA or DDA 7 Zi Oscilloscope ...