Programm Für Einen Client - Mitsubishi Electric MELFA CR750 Bedienungs- Und Programmieranleitung

Beispielprogramme
11.2.2 Programm für einen Client
Der Personal Computer arbeitet als Client und das Steuergerät als Server.
Option Explicit
Dim RecvData() As Byte
Private Sub Check1_Click()
If Check1.Value Then
Winsock1.RemoteHost= Text1.Text
Winsock1.RemotePort= Text2.Text
Winsock1.Connect
Else
Winsock1.Close
End If
End Sub
Private Sub Winsock1_Connect()
Command1.Enabled = True
End Sub
Private Sub Winsock1_Close()
Check1.Value = False
End Sub
Private Sub Command1_Click()
Winsock1.SendData (Text3.Text)
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
If bytesTotal > 0 Then
ReDim RecvData(bytesTotal - 1)
Call Winsock1.GetData(RecvData, , bytesTotal)
Text4.SelStart = Len(Text4.Text)
Text4.SelText = StrConv(RecvData, vbUnicode)
End If
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, _
Description As String, ByVal Scode As Long, _
ByVal Source As String, ByVal HelpFile As String, _
ByVal HelpContext As Long, CancelDisplay As Boolean)
Check1.Value = False
Command1.Enabled = False
Winsock1.Close
MsgBox " Error:" & Number & "(" & Description & ")"
End Sub
11 - 10
'Ausführen bei Aktivierung des Kontrollkästchens „Connection"
'Ausführen, wenn Netzwerkverbindung möglich
'Ausführen, wenn Netzwerk geschlossen ist
'Ausführen bei Anklicken der Taste „Transmission"
Programmfunktionen und -beispiele
'Ausführen bei Datenempfang
'Ausführen bei Fehler im
Window-Socket