Buenas noches
No me activa el relay
Con el siguiente código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Variable para retorno de estado del PLC.
Dim OnUdpRxStat As UdpRxCmdStat
' Variable para almacenar el estado de una conexion para enviar comando a el dispositivo.
Dim CmdStat As SendStat
' Crear array de bytes a enviar (dos bytes).
Dim DataBytes(2) As Byte
' Especificar el primer byte el valor "1", para activar RELAY1 / DOUT1.
DataBytes(0) = 1
' Especificar el segundo byte un valor cualquiera.
DataBytes(1) = 55
' Enviar bytes UDP al script con el metodo "Send".
' Nota: El valor retornado en OnUdpRxStat no es comprobado por cuestiones didacticas, pero deberia hacerlo.
CmdStat = PioBoard.Cmd.Udp.Send(DataBytes, 2, OnUdpRxStat)
' Comprobar retorno del comando.
If Not (CmdStat = SendStat.Success) Then
' Error: Mostrar cartel con descripcion.
MessageBox.Show(CmdStat.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Retornar.
Return
End If
If (CmdStat = SendStat.Success) Then
MessageBox.Show("Codigo de Error:\n" + CmdStat.ToString(), "Error al enviar commando (UdpRx) ...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
' Comprobar respuesta del PLC al ejecutar la operacion "UdpRx" (buffer
'del PLC lleno o no leido, demasiados bytes, etc.)
If (OnUdpRxStat = UdpRxCmdStat.OK) Then
Dim ErrorCod = "Codigo de Error:\n" + OnUdpRxStat.ToString()
MessageBox.Show(ErrorCod, "Error al ejecutar operacion (UdpRx) ...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Primero me da el error : "nSucess" luego "nOK" y no me activa el relay 1. Adjunto diagrama lagger por las dudas.
Esteban
