Kikusui KJM6710, Руководство по эксплуатации, Страница: 48 / 60

4-16 RS-232C Control KJM6710
' Check if the VISA session is correctly opened
If session Is Nothing Then
MsgBox MSG, vbExclamation
Exit Function
End If
' Sends a device message string to the instrument.
On Error GoTo ERROR_HANDLER
session.WriteString (strDat & vbCrLf)' Add CR+LF
Exit Function
ERROR_HANDLER:
Dim strVisaCode As String
strVisaCode = "VISA Error: 0x" & Hex(Err.Number)
MsgBox Err.Description, vbExclamation, strVisaCode
End Function
'------------------------------------------------------------
Function ReceiveMessage(session As IMessage) As String
' Check if the VISA session is correctly opened
If session Is Nothing Then
MsgBox MSG, vbExclamation
Exit Function
End If
' Receives the response message from the instrument.
Dim strRd As String
On Error GoTo ERROR_HANDLER
strRd = session.ReadString(256)
' CR+LF Removed
strRd = Left(strRd, InStr(1, strRd, vbLf) - 2)
ReceiveMessage = strRd
Exit Function
ERROR_HANDLER:
Dim strVisaCode As String
strVisaCode = "VISA Error: 0x" & Hex(Err.Number)
MsgBox Err.Description, vbExclamation, strVisaCode
End Function