![YOKOGAWA 704420 User Manual Download Page 114](http://html.mh-extra.com/html/yokogawa/704420/704420_user-manual_911156114.webp)
8-43
IM 704420-01E
Communication Function
8
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
Else
ers =
""
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 Command1_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text =
"
START
"
List1.Clear
Dummy = DoEvents()
sts = SetParameter 'Run Sample1 Set/Get Measure Parameter
If (sts = 0) Then
List1.AddItem Query(0)
List1.AddItem Query(1)
List1.AddItem Query(2)
List1.AddItem Query(3)
List1.AddItem Query(4)
List1.AddItem Query(5)
List1.AddItem Query(6)
List1.AddItem Query(7)
End If
Text1.Text =
"
END
"
StartFlag = 0
End Sub
————————————————————————————————————————————————————————————————————— Private Sub Command2_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text =
"
START
"
List1.Clear
Dummy = DoEvents()
sts = SingleMeasure 'Run Sample2 Single Measure
Text1.Text =
"
END
"
StartFlag = 0
End Sub
8.9 Sample Program