... continued
The following function is used by the check_srq subroutine.
Function HpibErrStr$ (errorcode As Integer)
Select Case errorcode
Case NOERR
Msg$ = " No error "
Case EUNKNOWN
Msg$ = " Unknown error "
Case ESEL
Msg$ = " Invalid select code or device address "
Case ERANGE
Msg$ = " Value out of range "
Case ETIME
Msg$ = " Timeout "
Case ECTRL
Msg$ = " HP-IB must be controller "
Case EPASS
Msg$ = " Pass control not permitted "
Case EFILE
Msg$ = " File I/O Error "
Case ENUMB
Msg$ = " Invalid Number "
Case EADDR
Msg$ = " Improper addressing "
Case EOPEN
Msg$ = " Cannot Open This Card "
Case ENOOPEN
Msg$ = " Card is not open "
Case ECLOSE
Msg$ = " Cannot close card "
Case EHANDLE
Msg$ = " Invalid handle for this ISC "
Case Else
Msg$ = " What? "
End Select
HpibErrStr$ = Msg$
End Function
Chapter 6 Application Programs
Microsoft Visual Basic Language Program
230