
10-42
IM 704610-01E
sts = InitEthernet 'Initialize Ethernet
If (sts <> 0) Then
Exit Sub
End If
sts = GetStatistics 'Run Sample2 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 'Initialize Gpib
If (sts <> 0) Then
Exit Sub
End If
sts = SetParameter 'Run Sample3 Set/Get Measure
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 'Initialize Gpib
If (sts <> 0) Then
Exit Sub
End If
sts = GetStatistics 'Run Sample4 GetStatistics
If (sts = 0) Then
List1.AddItem Query(0)
List1.AddItem Query(1)
List1.AddItem Query(2)
List1.AddItem Query(3)
10.4 Sample Program