YOKOGAWA TA720 User Manual page 105

6.3 Initialization, Error, and Functions for Execution
End Sub
————————————————————————————————————————————————————————————————————————————————————————
Private Sub Command2_Click()
End Sub
————————————————————————————————————————————————————————————————————————————————————————
Private Sub Command3_Click()
End Sub
————————————————————————————————————————————————————————————————————————————————————————
Private Sub Command4_Click()
End Sub
————————————————————————————————————————————————————————————————————————————————————————
Private Sub Command5_Click()
6-4
List1.Clear
Dummy = DoEvents()
sts = SetParameter
If (sts = 0) Then
List1.AddItem Query(0)
List1.AddItem Query(1)
End If
Text1.Text = "END"
StartFlag = 0
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GetStatistics1
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
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GetStatistics2
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
Dim sts As Integer
Dim i As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GetBinaryData
If (sts = 0) Then
For i = 0 To 99
List1.AddItem Query(i)
Next i
End If
Text1.Text = "END"
StartFlag = 0
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
'Run Sample1 Set/Get Measure Parameter (GP-IB)
'Run Sample2 GetStatistics 1 (GP-IB)
'Run Sample3 Get Statistics 2 (GP-IB)
'Run Sample4 Get Binary Data (GP-IB)
IM 704510-17E