Table of Contents
Advertisement
GoTo EndSession
ErrorHandler:
If Err.Number = 0 Then
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
ErrMsg = ""
Else
Call MsgBox(Err.Number & vbCrLf & Err.Description, vbOKOnly, "Error")
End If
GoTo EndSession
End Sub
Private Function TrimVISAStr(ByVal VISAStr As String) As String
Dim Pos As Long
On Error GoTo ErrorHandler
Pos = (InStr(VISAStr, Chr(0))) - 1
If Pos <> -1 Then
TrimVISAStr = Left(VISAStr, Pos)
Else
TrimVISAStr = Trim(VISAStr)
End If
Exit Function
ErrorHandler:
TrimVISAStr = VISAStr
End Function
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Remote Operation
Example Programs
5-41
Advertisement
Table of Contents
