Tabla de contenido
Publicidad
APPENDIX
Winsock
' Asigne las propiedades.
Comando 5
' Revise el estado de conexión.
Option Explicit
Private Sub Command1_Click()
'Conecte al módulo interfaz Ethernet
Me.Winsock1.Connect
End Sub
Private Sub Form_Load()
'Cuando llame un método de apertura Activa desde un PC al módulo interfaz Ethernet,
'Se debería usar la pantalla apropiada o las asignaciones realizadas como sigue.
'Especifique el protocolo a usarse.
'Winsock1.Protocol = sckTCPProtocol / sckUDPProtocol
'Especifique la dirección IP del módulo interfaz Ethernet.
'Winsock1.RemoteHost = "192.0.1.253"
'Especifique el número de puerto usado por el módulo interfaz Ethernet.
'PuertoRemoto Winsock1 =8192
'Si el método de apertura del módulo interfaz Ethenet está en apertura totalmente pasiva.
'especifique el número de puerto asignado.
'Si el método de apertura del módulo interfaz Ethernet está en apertura no pasiva,
'"0" - use cualquier número de puerto
'PuertoLocal Winsock1 = 0
End Sub
Private Sub winsock1_connect()
'Use el evento Connect para realizar el procesamiento de confirmación a tiempo cuando el
procesamiento de conexión se complete normalmente.
'El evento Connect ocurre cuando el procesamiento de conexión se completa.
MsgBox "Connection Completed"
End Sub
App - 27
(4) Ejemplo de Ventana (Formulario 1)
(5) Ejemplo de programa (Formulario 1)
:H2000
:Apertura no pasiva
(Nombre de objeto)
Comand 1 ' Conecte al módulo interfaz Ethernet.
' Envíe la trama 1E compatible con A
Comand 2
(lea por lotes en unidades de palabra).
Comand 3 ' Desconecte la línea.
Comand 4 ' Termine el programa.
MELSEC-Q
App - 27
Publicidad
Tabla de contenido
