problema con PLC Fatek & vb.net
Publicado por juan (1 intervención) el 02/05/2008 17:27:40
Saludos amigos,
Actualmente me encomendaron la tarea de capturar datos desde un PLC Fatek WE-M3, ésto estoy tratando de hacerlo desde una aplicación hecha en Visual Basic .NET. Buscando en la página de microsoft, encontré una clase para comunicarse con un modem por puerto COM (Rs232.vb), la cual la estoy utilizando para hacer las escrituras y lecturas del PLC, el problema es k al momento de leer los datos, me arroja un TimeOut Error. Yo creo que el problema radica en los datos que le estoy enviando, y por eso no obtengo respuesta desde el PLC. A ver si alguien me pudiera orientar un poco en el manejo de estos dispositivos, a continuación dejo el código.
Private Function IsPortAModem(ByVal port As Integer) As Boolean
' Always wrap up working with Comm Ports in exception handlers.
Try
' Attempt to open the port.
m_CommPort.Open(port, 9600, 7, Rs232.DataParity.Parity_Even, _
Rs232.DataStopBit.StopBit_1, 4096)
m_CommPort.Write("02")
m_CommPort.Write("014801R00010343")
m_CommPort.Write("03")
' Sleep long enough for the modem to respond.
System.Threading.Thread.Sleep(200)
Application.DoEvents()
' Try to get info from the Comm Port.
Try
' Try to read a single byte.
m_CommPort.Read(1)
m_CommPort.ClearInputBuffer()
m_CommPort.Close()
Return True
Catch exc As Exception
' Nothing to read from the Comm Port
m_CommPort.Close()
MessageBox.Show(exc.Message)
Return False
End Try
Catch exc As Exception
' Port could not be opened or written to.
MsgBox("Could not open port.", MsgBoxStyle.OkOnly, Me.Text)
Return False
End Try
End Function
Actualmente me encomendaron la tarea de capturar datos desde un PLC Fatek WE-M3, ésto estoy tratando de hacerlo desde una aplicación hecha en Visual Basic .NET. Buscando en la página de microsoft, encontré una clase para comunicarse con un modem por puerto COM (Rs232.vb), la cual la estoy utilizando para hacer las escrituras y lecturas del PLC, el problema es k al momento de leer los datos, me arroja un TimeOut Error. Yo creo que el problema radica en los datos que le estoy enviando, y por eso no obtengo respuesta desde el PLC. A ver si alguien me pudiera orientar un poco en el manejo de estos dispositivos, a continuación dejo el código.
Private Function IsPortAModem(ByVal port As Integer) As Boolean
' Always wrap up working with Comm Ports in exception handlers.
Try
' Attempt to open the port.
m_CommPort.Open(port, 9600, 7, Rs232.DataParity.Parity_Even, _
Rs232.DataStopBit.StopBit_1, 4096)
m_CommPort.Write("02")
m_CommPort.Write("014801R00010343")
m_CommPort.Write("03")
' Sleep long enough for the modem to respond.
System.Threading.Thread.Sleep(200)
Application.DoEvents()
' Try to get info from the Comm Port.
Try
' Try to read a single byte.
m_CommPort.Read(1)
m_CommPort.ClearInputBuffer()
m_CommPort.Close()
Return True
Catch exc As Exception
' Nothing to read from the Comm Port
m_CommPort.Close()
MessageBox.Show(exc.Message)
Return False
End Try
Catch exc As Exception
' Port could not be opened or written to.
MsgBox("Could not open port.", MsgBoxStyle.OkOnly, Me.Text)
Return False
End Try
End Function
Valora esta pregunta
0