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

  • 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 264
10F. Visual Basic II. SOFTWARE GUIDES - 10. Driver488/W31
II-250 Personal488 Users 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
Zobrazit stránku 264
1 2 ... 260 261 262 263 264 265 266 267 268 269 270 ... 399 400

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

Žádné komentáře