Measurement Computing Personal488 rev.3.0 For DOS & Windows 3.Xi - Manual (Page 265)

10F. Visual Basic II. SOFTWARE GUIDES - 10. Driver488/W31
II-250 Personal488 User’s Manual, Rev. 3.0
mystring = “”
mystring = mystring + “SC
:” + Str$ (substat.SC) + nl
mystring = mystring + “CA :” + Str$ (substat.CA) + nl
mystring = mystring + “PrimAddr :” + Str$ (substat.PrimAddr) + nl
mystring = mystring + “SecAddr
:” + Str$ (substat.SecAddr) + nl
mystring = mystring + “SRQ :” + Str$ (substat.SRQ) + nl
mystring = mystring + “addrChange:” + Str$(substat.addrChange)+ nl
mystring = mystring + “talker
:” + Str$ (substat.talker) + nl
mystring = mystring + “listener :” + Str$ (substat.listener) + nl
mystring = mystring + “triggered:” + Str$ (substat.triggered) + nl
mystring = mystring + “cleared
:” + Str$ (substat.cleared) + nl
mystring = mystring + “transfer :” + Str$ (substat.transfer) + nl
mystring = mystring + “byteIn
:” + Str$ (substat.byteIn) + nl
mystring = mystring + “byteOut :” + Str$ (substat.byteOut) + nl
TextWindow.Text = TextWindow.Text + RTrim$ (mystring)
End Sub
Function cvi (stringarg$) As Single
Static hb As Integer
Static lb As Integer
Static temp As Single
hb = Asc(Right$(stringarg$, 1)
lb = Asc(Left$(stringarg$, 1)
temp = ((hb And &H7F) * 256) + lb
If (hb And &H80) Then
temp = -temp
End If
cvi = temp
End Function
IEEE 488 Event Custom Control Sample Program
Declarations Included with Form
Dim adc As Integer
Dim response As String * 256
Source Code
Sub Event4881_SRQ ()
‘Clear SRQ condition
rv% = spoll(adc)
‘Reset the buffer pointer of the ADC488
rv% = ioOutput(adc, “B0X”)
‘Get 100 readings from the ADC488
TextWindow.Text = “”
For i% = 1 To 100
rv% = Enter(adc, response)
TextWindow.Text = TextWindow.Text + Chr$(13) + Chr$(10) + response
Next i%
rv% = ioClose(adc)
End Sub
Sub Command1_Click ()
‘Now opening a device named ADC
adc = OpenName(“ADC”)
If (adc = -1) Then
MsgBox “Can not initialize device ADC”
End
End If
‘Clear ADC