Table of Contents
Advertisement
Else
End If
MsgBox ("Status No. " + Str(sts) + Chr(13) + wrn + "Error No. " + Str(ern) + Chr(13)
+ ers + Chr(13) + msg), vbExclamation, "Error!"
Call ibclr(Dev)
Call ibonl(Dev, 0)
Dev = -1
End Sub
————————————————————————————————————————————————————————————————————————————————————————
Private Sub DisplayEthernetError(ByVal sts As Integer, ByVal msg As String)
Dim wrn As String
Dim ers As String
Dim ern As Integer
ern = TmGetLastError(eDev)
If (ern = 2) Then
ElseIf (ern = 4) Then
ElseIf (ern = 8) Then
ElseIf (ern = 16) Then
ElseIf (ern = 32) Then
ElseIf (ern = 64) Then
ElseIf (ern = 256) Then
ElseIf (ern = 512) Then
ElseIf (ern = 1024) Then
ElseIf (ern = 4096) Then
ElseIf (ern = 8192) Then
End If
MsgBox ("Status No. " + Str(sts) + Chr(13) + wrn + "Error No. " + Str(ern) + Chr(13)
+ ers + Chr(13) + msg), vbExclamation, "Error!"
'Call TmFinish(eDev)
Dev = -1
End Sub
————————————————————————————————————————————————————————————————————————————————————————
Private Sub Command1_Click()
Dim sts As Integer
If (StartFlag = 1) Then
End If
StartFlag = 1
Text1.Text = "START"
IM 704510-17E
If (ern = EDVR) Then
ers = "EDVR:System error"
ElseIf (ern = ECIC) Then
ers = "ECIC:Function requires GPIB board to be CIC"
ElseIf (ern = ENOL) Then
ers = "ENOL:No Listeners on the GPIB"
ElseIf (ern = EADR) Then
ers = "EADR:GPIB board not addressed correctly"
ElseIf (ern = EARG) Then
ers = "EARG:Invalid argument to function call"
ElseIf (ern = ESAC) Then
ers = "ESAC:GPIB board not System Controller as required"
ElseIf (ern = EABO) Then
ers = "EABO:I/O operation aborted(timeout)"
ElseIf (ern = ENEB) Then
ers = "ENEB:Nonexistent GPIB board"
ElseIf (ern = EDMA) Then
ers = "EDMA:DMA error"
ElseIf (ern = EOIP) Then
ers = "EOIP:I/O operation started before previous operation completed"
ElseIf (ern = ECAP) Then
ers = "ECAP:No capability for intended operation"
ElseIf (ern = EFSO) Then
ers = "EFSO:File system operation error"
ElseIf (ern = EBUS) Then
ers = "EBUS:GPIB bus error"
ElseIf (ern = ESTB) Then
ers = "ESTB:Serial poll status byte queue overflow"
ElseIf (ern = ESRQ) Then
ers = "ESRQ:SRQ remains asserted"
ElseIf (ern = ETAB) Then
ers = "ETAB:The return buffer is full"
ElseIf (ern = ELCK) Then
ers = "ELCK:Address or board is locked"
Else
ers = ""
End If
ers = ""
ers = "Device not found"
ers = "Connection to device failed"
ers = "Device not connected"
ers = "Device already connected"
ers = "Incompatible PC"
ers = "Illegal parameter"
ers = "Send error"
ers = "Receive error"
ers = "Received data not block data"
ers = "System error"
ers = "Illegal device ID"
Exit Sub
6.3 Initialization, Error, and Functions for Execution
6
6-3
Advertisement
Table of Contents
