Agilent Technologies Agilent 3499A User Manual

295
Chapter 8 Application Programs
Visual BASIC Example Program
4
8
ErrorHandler:
' Display the error message.
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
If drm <> -1 Then
viClose (drm)
End If
End
VisaErrorHandler:
Dim strVisaErr As String * 200
Call viStatusDesc(defrm, status, strVisaErr)
MsgBox "*** Error : " + strVisaErr
If drm <> -1 Then
viClose (drm)
End If
End
End Sub

Agilent Technologies Agilent 3499A Specifications

General

Brand	Agilent Technologies
Model	Agilent 3499A
Category	Control Systems
Language	English