Table of Contents
Advertisement
Set oBinCnvrtBench = Nothing
Set oAscTraceBench = Nothing
Set oAscCnvrtBench = Nothing
'-- Close VISA session to the WDCA
Call viClose(DevSessionNum)
'-- End VISA session
Call viClose(DefRM)
MousePointer = vbDefault
Exit Sub
OPCTimeOut:
MousePointer = vbDefault
Call MsgBox("Timeout while waiting for OPC. Make sure all cables are securely fastened.", _
GoTo EndSession
ErrorHandler:
If Err.Number = 0 Then
If Status <> 0 Then
'-- VISA error
MousePointer = vbDefault
'-- Translate error number into a message
Call viStatusDesc(DevSessionNum, Status, ReadBuffer)
'-- Trim off nulls
ErrMsg = TrimVISAStr(ReadBuffer)
'-- Post message and reset vars
Call MsgBox(Status & vbCrLf & ErrMsg, vbOKOnly, "Error")
Status = 0
Else
'-- Non-VISA error from another function using VISA
Call MsgBox(ErrMsg, vbOKOnly, "Error")
End If
ErrMsg = ""
Else
Call MsgBox(Err.Number & vbCrLf & Err.Description, vbOKOnly, "Error")
End If
GoTo EndSession
End Sub
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
vbOKOnly, "Timeout")
Remote Operation
Example Programs
5-65
Advertisement
Table of Contents
