YOKOGAWA WT1600FC User Manual page 135

Dummy = DoEvents()
sts = GpibWaveFloat
(FLOAT)
If (sts = 0) Then
Else
End If
StartFlag = 0
End Sub
————————————————————————————————————————————
Private Sub Command5_Click()
Dim sts As Integer
If (StartFlag = 1) Then
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
List1.AddItem "NOT MAKE"
Text1.Text = "END"
StartFlag = 0
End Sub
————————————————————————————————————————————
Private Sub Command6_Click()
Dim sts As Integer
If (StartFlag = 1) Then
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
List1.AddItem "NOT MAKE"
Text1.Text = "END"
StartFlag = 0
End Sub
————————————————————————————————————————————
Private Sub Form_Load()
StartFlag = 0
Dev = -1
addr = 1
Command1.Caption = "Sample1(GPIB)" + Chr(13) + "Get Power Data"
Command2.Caption = "Sample2(GPIB)" + Chr(13) + "Get Impedance Data"
Command3.Caption = "Sample3(GPIB)" + Chr(13) + "Get Wave Data(ASCII)"
Command4.Caption = "Sample4(GPIB)" + Chr(13) + "Get Wave Data(FLOAT)"
Text1.Text = ""
End Sub
————————————————————————————————————————————
IM 760151-17E
Text1.Text = "END"
Text1.Text = "ERROR"
Exit Sub
Exit Sub
7.3 Initialization, Error, and Functions for Execution
'Run Sample4(GPIB) Get Waveform data
'Clear Start Flag
'Clear device id
'GPIB Address = 1
7
7-5