BNC 645 - Manual (Page 185)

185
Object Property Setting
Name cmdSetIO Command Button
Caption Set I/O
Name cmdStartReading Command Button
Caption Start Readings
Name
cmdClose
Command Button
Caption Close
Name lblAddress Label
Caption Address
Name lblData Label
Caption Data
TextBox Name txtAddress
Name txtData TextBox
MultiLine True
Timer1 tmrPollForSRQ
Interval 1000
Timer
Enabled False
LISTING D.3. THE SRQFetch FUNCTION.
Dim Model 645 As New IOUtils
Dim statusValue As Byte
Dim numberReadings As Long
Private Sub cmdClose_Click() ' Command Button 1
Unload Me
End Sub
Private Sub cmdSetIO_Click() ' Command Button 2
' Set the io control address to the text box address
' we do this so the user can change address in text box
' and it will be reflected in the dialog
txtAddress.Text = "GPIB0::22:INSTR"
Model 645.Connect = txtAddress.Text