Mitsubishi Electric MELSEC System Q QJ71E71-100 Manual De Usuario página 361

APPENDIX
Private Sub Command2_Click()
Dim SData As String
'Lea D0 a D4 (5 direcciones) con el comando de trama 1E compatible con A.
SData = "01ff000a4420000000000500"
'Envíe los datos.
Me.Winsock1.SendData SData
End Sub
Private Sub Command3_Click()
'Cierre el socket de conexión TCP (desconete la línea).
Me.Winsock1.Close
End Sub
Private Sub Command4_Click()
'Finalice el programa.
Fin
End Sub
Private Sub Command5_Click()
'Revise el estado del Winsock.
'Vea la Ayuda de Visual Basic para detalles.
MsgBox Winsock1.State
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'El evento DataArrival ocurre cuando arrivan nuevos datos.
Dim RData As String
'Obtenga el bloque de datos actuales y guardelo como una variable tipo variante
'Lea la respuesta desde el PLC CPU.
Me.Winsock1.GetData RData
MsgBox RData
End Sub
App - 28
MELSEC-Q
App - 28