TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: zocopeo en 09 de Octubre de 2011, 06:20:58

Título: help S232, not communicate with the serial port
Publicado por: zocopeo en 09 de Octubre de 2011, 06:20:58

 

hello friends

sent a series of commands to the serial poer pic, and receives only the first response, the others I am not able to receive ok, but hiperteminal if the program does,

I've tried a thousand ways but simpre the same, only the first

command
ATE0
atl0
ath0
etc

all ok but only receives answers ATE0

To receive and use escribrir trichexbox response.
Port1_DataReceived Private Sub (ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Port1.DataReceived
       
     

         ReceivedText ((Port1.ReadExisting () & vbCrLf))

         'Call automatically when information was received from the SerialPort


     End Sub



     ReceivedText Private Sub (ByVal [text] As String)
         'compares the thread ID to the creation of the calling thread ID

         If Me.RtbReceived.InvokeRequired Then
             Dim x As New SetTextCallback (AddressOf ReceivedText)
             Me.Invoke (x, New Object () {(text)})
             Reset ()
             Return
         else
             Me.RtbReceived.Text & = [text]
         End If


     End Sub



thanks