Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Uživatelský manuál Strana 263

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 400
  • Tabulka s obsahem
  • ŘEŠENÍ PROBLÉMŮ
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 262
10F. Visual Basic II. SOFTWARE GUIDES - 10. Driver488/W31
II-248 Personal488 Users 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
Zobrazit stránku 262
1 2 ... 258 259 260 261 262 263 264 265 266 267 268 ... 399 400

Komentáře k této Příručce

Žádné komentáře