Table of Contents
Advertisement
7
Chapter 7 Application Programs
Visual BASIC Example Program
' Create a scanlist, then set up a loop to scan through
' the channels two times.
viVPrintf(vi, "SLIST 100-103" + Chr$(10), 0)
' Create a scan list including 100 through 103.
For I = 0 To 8
Call viVPrintf(vi, "STEP" + Chr$(10), 0)
' Step through the channels.
Sleep ( 25 )
Next
viClose (vi)
' Close session to 3499A/B/C.
viClose (drm)
' Close session to the resource manager.
End
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
142
' Wait 25 milliseconds.
Advertisement
Table of Contents
