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

10F. Visual Basic II. SOFTWARE GUIDES - 10. Driver488/W31
II-248 Personal488 User’s Manual, Rev. 3.0
rv% = ioError (ieee%, TURNOFF)
devhandle% = OpenName (“wave”)
adc = OpenName (“ADC”)
If (adc = -1) Then
adc = MakeDevice (devhandle%, “ADC”)
If (adc = -1) Then
MsgBox “Can not initialize device ADC”
End
End If
End If
response = “”
rv% = GetError (ieee%, response)
rv% = BusAddress (adc, 14, -1)
‘Get DRIVER488/W31 status
rv% = Hello (ieee%, response)
mystring = “”
For i% = 1 To Len (RTrim$ (response))
If Asc (Mid$(response, i%, 1)) = 10 Then
mystring = mystring + nl
Else
mystring = mystring + Mid% (response, i%, 1)
End If
Next i%
mystring = mystring + nl
TextWindow.Text = TextWindow.Text + RTrim$ (mystring)
TextWindow.Text = TextWindow.Text + nl
‘Display DRIVER488/W31 status
rv% = Status (ieee%, substat)
Call showstat (substat)
‘Clear ADC
response = “”
rv% = ioClear (adc)
‘Setup the ADC488:
‘Differential inputs (A0)
‘Scan group channel 1 (C1)
‘Compensated ASCII floating-point output format (G0)
‘Channel 1 range to +/- 10V (R3)
‘One-shot trigger on talk (T6)
‘rv% = iooutput (adc, “A0C1G0R3T6X”)
‘Wait for the ready bit of the ADC488 to be asserted
While ((spoll (adc) And 32) = 0)
Wend
‘Display the reading
response = “”
mystring = “”
rv% = enter(adc, response)
voltage = Val (response)
mystring = mystring + “ADC488 channel #1 reading value is ” +
Str$(voltage) + nl
TextWindow.Text = TextWindow.Text + mystring
‘Now acquire and display an average of 10 readings
sum = 0
For i% = 0 To 9
response = “”
rv% = enter (adc, response)
voltage = Val (response)
sum = sum + voltage