YOKOGAWA wt1600 User Manual page 133

7.3 Initialization, Error, and Functions for Execution
+ ers + Chr(13) + msg), vbExclamation, "Error!"
End Sub
----------------------------------------------------------------------------------------
Private Sub Command1_Click()
(Normal)
End Sub
----------------------------------------------------------------------------------------
Private Sub Command2_Click()
(Harmonics)
End Sub
----------------------------------------------------------------------------------------
Private Sub Command3_Click()
(ASCII)
End Sub
----------------------------------------------------------------------------------------
Private Sub Command4_Click()
7-4
ElseIf (ern = ETAB) Then
ers = "ETAB:The return buffer is full"
ElseIf (ern = ELCK) Then
ers = "ELCK:Address or board is locked"
Else
ers = ""
End If
Else
ers = ""
End If
MsgBox ("Status No. " + Str(sts) + Chr(13) + wrn + "Error No. " + Str(ern) + Chr(13)
Call ibonl(Dev, 0)
Dev = -1
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GpibNormal
If (sts = 0) Then
Text1.Text = "END"
Else
Text1.Text = "ERROR"
End If
StartFlag = 0
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GpibHarmonics
If (sts = 0) Then
Text1.Text = "END"
Else
Text1.Text = "ERROR"
End If
StartFlag = 0
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GpibWaveAscii
If (sts = 0) Then
Text1.Text = "END"
Else
Text1.Text = "ERROR"
End If
StartFlag = 0
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GpibWaveFloat
'Run Sample1(GPIB) Get Numerical Data
'Run Sample2(GPIB) Get Numerical Data
'Run Sample3(GPIB) Get Waveform data
'Run Sample4(GPIB) Get Waveform data (FLOAT)
IM 760101-11E