Page 143 - Welding Robots Technology, System Issues, and Applications
P. 143
130 Welding Robots
Figure 4.13. TCP/IP socket client.
AxWinsock1.RemoteHost = AxWinsock1 connected event:
"beatriz" If cmd = 1 Then
AxWinsock1.RemotePort = 2004 AxWinsock1.SendData("motor_on")
AxWinsock1.Connect() cmd = 0
cmd = 1 End If
If cmd = 2 Then
AxWinsock1.RemoteHost = AxWinsock1.SendData("motor_off")
"beatriz" cmd = 0
AxWinsock1.RemotePort = 2004 End If
AxWinsock1.Connect() If cmd = 3 Then
cmd = 3 AxWinsock1.SendData("program_stop")
cmd = 0
End If
AxWinsock1 data arrival event:
AxWinsock1.GetData(Text2.Text)
AxWinsock1.Close()
Command
Answer
AxWinsock1.RemoteHost = "beatriz"
AxWinsock1.RemotePort = 2004 AxWinsock1.SendData(Text1.Text) AxWinsock1.Close()
AxWinsock1.Connect()
Figure 4.14. Code detail for the client software
