8-44
IM 704420-01E
————————————————————————————————————————————————————————————————————— 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 = GetStatistics 'Run Sample3 Get Statistics
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 Form_Load()
StartFlag = 0 'Clear Start Flag
Dev = -1 'Clear device id
addr = 1 'GPIB Address = 1
Command1.Caption =
"
Sample1
"
+ Chr(13) +
"
Set/Get Parameter
"
Command2.Caption =
"
Sample2
"
+ Chr(13) +
"
Single Measure
"
Command3.Caption =
"
Sample3
"
+ Chr(13) +
"
Get Statistics
"
Text1.Text =
""
End Sub
——————————————————————————————————————————————————————————————————————————————————————————————————
8.9 Sample Program