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
Summary of Contents for SLM SERIES
Page 15: ...SLM MANUAL 6 118073 001 Rev C Figure 2 2 Unit Dimensions 1200W ...
Page 19: ...SLM MANUAL 10 118073 001 Rev C Figure 3 3 Local Programming via External Voltage Source ...
Page 20: ...SLM MANUAL 11 118073 001 Rev C Figure 3 4 Remote Monitoring ...
Page 40: ...Figure 9 Web Page 1 Contact Information 118080 001 REV A Page 13 of 95 ...
Page 98: ...Request Faults 68 20 ASCII 118080 001 REV A Page 71 of 95 ...
