YOKOGAWA WT210, User Manual, Page: 211 / 316

13-21
IM 760401-01E
Communication Commands 1 (System of Commands before the IEEE 488.2-1987 Standard)
13
Private Sub Command5_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
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
Exit Sub
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 'Clear Start Flag
Dev = -1 'Clear device id
addr = 1 'GPIB Address = 1
Command1.Caption = "Sample1(GPIB)" + Chr(13) + "Get Normal Data"
Command2.Caption = "Sample2(GPIB)" + Chr(13) + "Get Harmonics Data"
Text1.Text = ""
End Sub
13.4 Sample Program (Initialization, Error, and Execution Functions)