Agilent Technologies 33250A - Page 286

286
Chapter 6 Application Programs
Example: Microsoft Visual Basic for Windows
6
Sub WaitForOPC()
Dim Stats As Byte
With Arb
Stats = .IO.Query("*STB?") ’ Read Status Byte
Do While (Stats And 64) = 0 ’ Test for Master Summary Bit
Sleep 100 ’ Pause for 100msec
Stats = .IO.Query("*STB?") ’ Read Status Byte
Loop
End With
End Sub
Sub Fill_array(ByRef data_array() As Double)
’
’ Routine can be used to fill array passed from Main Program. Fills entire array
’ with sequence of +/- 1.0
’
data_array(0) = -1#
data_array(1) = 1#
data_array(2) = -1#
data_array(3) = -1#
data_array(4) = 1#
data_array(5) = 1#
data_array(6) = -1#
data_array(7) = -1#
data_array(8) = -1#
data_array(9) = 1#
data_array(10) = 1#
data_array(11) = 1#
data_array(12) = -1#
data_array(13) = -1#
data_array(14) = -1#
data_array(15) = -1#
data_array(16) = 1#
data_array(17) = 1#
data_array(18) = 1#
data_array(19) = 1#
End Sub