![Agilent Technologies 34420A Скачать руководство пользователя страница 229](http://html1.mh-extra.com/html/agilent-technologies/34420a/34420a_user-manual_2868276229.webp)
... continued
The following subroutine may be included in the GLOBAL.BAS file.
’ HPIB.DLL Access
’ Put into your GLOBAL.BAS file
•
•
•
Global isc As Long
Global device As Long
Global hHpib As Integer
Global errnum As Integer
Sub check_srq ()
condition = 1
’ Display any errors caused by the return of an HPIB command.
If errnum% <> NOERROR Then
MsgBox ("Error = " + HpibErrStr$(errnum%))
End If
’ Wait for the completion of the current command.
errnum% = HpibOutPutS(hHpib%, device&, "*OPC?", 5)
errnum% = HpibEnter(hHpib%, device&, done!)
’ If there is an error bit set, obtain the error.
errnum% = HpibSpoll(hHpib%, device&, response%)
If response% And 32 Then
syst_err$ = "SYST:ERR?"
errnum% = HpibOutPutS(hHpib%, device&, syst_err$, Len(syst_err$))
errnum% = HpibEnter(hHpib%, device&, errx!)
actual% = 80
MsgBox ("Error=" + Str$(errx!))
errnum% = HpibOutPutS(hHpib%, device&, "*CLS", 4)
End If
’ Obtain other HPIB errors.
errnum% = HpibStatus(hHpib%, isc&, condition, Status%)
If errnum% <> NOERROR Then
MsgBox ("Error = " + HpibErrStr$(errnum%))
End If
If Status% = 1 Then
errnum% = HpibSpoll(hHpib%, device&, Status%)
If errnum% <> NOERROR Then
MsgBox ("Error = " + HpibErrStr$(errnum%))
End If
End If
End Sub
6
Chapter 6 Application Programs
Microsoft Visual Basic Language Program
229
Содержание 34420A
Страница 1: ......
Страница 2: ......
Страница 13: ...1 Quick Start ...
Страница 31: ...2 Front Panel Operation ...
Страница 55: ...3 Features and Functions ...
Страница 117: ...4 Remote Interface Reference ...
Страница 200: ...5 Error Messages ...
Страница 213: ...6 Application Programs ...
Страница 245: ...6 Chapter 6 Application Programs Microsoft Excel Macro Example 245 ...
Страница 246: ...Chapter 6 Application Programs Microsoft Excel Macro Example 246 ...
Страница 247: ...7 Measurement Tutorial ...
Страница 274: ...8 Specifications ...
Страница 279: ...Dimensions Chapter 8 Specifications 34420A Nano Volt Micro Ohm Meter 280 ...
Страница 294: ......