YOKOGAWA TA220 User Manual page 132

10.4 Sample Program
10-42
sts = InitEthernet
If (sts <> 0) Then
Exit Sub
End If
sts = GetStatistics
If (sts = 0) Then
List1.AddItem Query(0)
List1.AddItem Query(1)
List1.AddItem Query(2)
List1.AddItem Query(3)
List1.AddItem Query(4)
List1.AddItem Query(5)
List1.AddItem Query(6)
List1.AddItem Query(7)
List1.AddItem Query(8)
List1.AddItem Query(9)
List1.AddItem Query(10)
End If
Text1.Text = "END"
StartFlag = 0
End Sub
'---------------------------------------------------------------------
Private Sub Command3_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = InitGpib
If (sts <> 0) Then
Exit Sub
End If
sts = SetParameter
Parameter
If (sts = 0) Then
List1.AddItem Query(0)
List1.AddItem Query(1)
End If
Text1.Text = "END"
StartFlag = 0
End Sub
'---------------------------------------------------------------------
Private Sub Command4_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = InitGpib
If (sts <> 0) Then
Exit Sub
End If
sts = GetStatistics
If (sts = 0) Then
List1.AddItem Query(0)
List1.AddItem Query(1)
List1.AddItem Query(2)
List1.AddItem Query(3)
'Initialize Ethernet
'Run Sample2 GetStatistics
'Initialize Gpib
'Run Sample3 Set/Get Measure
'Initialize Gpib
'Run Sample4 GetStatistics
IM 704610-01E