locked
Problema con Serialport.write() Windows Ce RRS feed

  • Pregunta

  • Hola me encuntro desarrollando una aplicacion en windows Ce Para un gps y necesito enviar una serie de datos  por medio del puerto serial sin embargo no lo e conseguido  cada vez que intento enviar algo la aplicación  se congela sin embargo puedo recibir cualquier dato no se que pueda ser espero y me puedan ayudar 


    Estoy usando Visual Studio 2008. 
    mis valores :("COM1", 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)
    mi load:

     

      Private Sub D_Ce_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            SerialPort.Close()

     

            SerialPort.Open()

            SerialPort.RtsEnable = True

            SerialPort.DtrEnable = True

     

     

            T_Mensaje.MaxLength = 256

            T_Historial.ScrollBars = ScrollBars.Both

     

            Try

     

            Catch ex As Exception

                Error_Serial(ex, True)

            End Try

     

        End Sub

     

     


    Con Esta funcion envio un dato:

     

        Sub Enviar()

            Try

                'SerialPort.DiscardOutBuffer()

     

                If SerialPort.IsOpen Then

                    SerialPort.WriteTimeout = 500

                    SerialPort.Write(T_Mensaje.Text)

     

                Else

     

                End If

     

            Catch ex As Exception

                Error_Serial(ex, False)

            End Try

        End Sub 

    Y con esta Recibo valores:

     Private Delegate Sub setTextCB(ByVal tx As String, ByVal textbox1 As TextBox)

        Private Sub setText(ByVal tx As String, ByVal textbox1 As TextBox)

            If Me.InvokeRequired Then

                Me.Invoke(New setTextCB(AddressOf setText), New Object() {tx, textbox1})

            Else

                textbox1.Text &= tx

            End If

        End Sub

        Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived

            Dim M_recibido As String = SerialPort.ReadExisting()

     

     

            'MsgBox(M_recibido)

            setText(M_recibido, T_Historial)

        End Sub 

    lunes, 31 de octubre de 2011 2:41