If (portType = "ethernet") Then
tcpClient.SendData (str)
Else
MSComm1.InBufferCount = 0
On Error GoTo done
MSComm1.Output = str
done:
tmrOpenClose.Enabled = True
End If
4.2.6.2
Data Input Example
If (portType = "ethernet") Then
Do
DoEvents
.............................................................................................................................
.................................................................................................. ttcpClient.GetData temp$
str = str + temp$
Loop Until InStr(str, Chr(3)) Or Timer - t1 > 1
On Error Resume Next
Else
Do
DoEvents
If MSComm1.InBufferCount > 0 Then
str = str & MSComm1.Input
End If
Loop Until InStr(str, Chr(3)) Or Timer - t1 > 1
If InStr(str, Chr(3)) > 0 Then
tmrOpenClose.Enabled = False
End If
End If
118080-001 REV A
Page 28 of 95
Содержание SLM SERIES
Страница 15: ...SLM MANUAL 6 118073 001 Rev C Figure 2 2 Unit Dimensions 1200W ...
Страница 19: ...SLM MANUAL 10 118073 001 Rev C Figure 3 3 Local Programming via External Voltage Source ...
Страница 20: ...SLM MANUAL 11 118073 001 Rev C Figure 3 4 Remote Monitoring ...
Страница 40: ...Figure 9 Web Page 1 Contact Information 118080 001 REV A Page 13 of 95 ...
Страница 46: ...4 2 2 9 About Displays version information and model number Figure 15 About 118080 001 REV A Page 19 of 95 ...
Страница 98: ...Request Faults 68 20 ASCII 118080 001 REV A Page 71 of 95 ...
