YOKOGAWA TA220 User Manual page 131

IM 704610-01E
ern = TmGetLastError(Dev)
If (ern = 2) Then
ers = "Device not found"
ElseIf (ern = 4) Then
ers = "Connection to device failed"
ElseIf (ern = 8) Then
ers = "Device not connected"
ElseIf (ern = 16) Then
ers = "Device already connected"
ElseIf (ern = 32) Then
ers = "Incompatible PC"
ElseIf (ern = 64) Then
ers = "Illegal parameter"
ElseIf (ern = 256) Then
ers = "Send error"
ElseIf (ern = 512) Then
ers = "Receive error"
ElseIf (ern = 1024) Then
ers = "Received data not block data"
ElseIf (ern = 4096) Then
ers = "System error"
ElseIf (ern = 8192) Then
ers = "Illegal device ID"
End If
MsgBox ("Status No. " + Str(sts) + Chr(13) + wrn + "Error No. " + Str(ern) +
Chr(13) + ers + Chr(13) + msg), vbExclamation, "Error!"
'Call TmFinish(Dev)
ern = TmFinish(Dev)
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 = InitEthernet
If (sts <> 0) Then
Exit Sub
End If
sts = SetParameter
Parameter
If (sts = 0) Then
List1.AddItem Query(0)
List1.AddItem Query(1)
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()
10.4 Sample Program
'Initialize Ethernet
'Run Sample1 Set/Get Measure
10
10-41