• Sábado 25 de Junio de 2022, 18:28

Autor Tema:  Puerto Serie con VB2008  (Leído 815 veces)

Jose Acosta

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Puerto Serie con VB2008
« en: Martes 8 de Junio de 2010, 18:11 »
0
Hola

Tengo problemas con la programacion del puerto serie.
Hace tiempo estoy tratando de leer las llamadas de una pizarra telefonica Panasonic por Puerto serie y no lo logro
Este es el codigo que utilizo de prueba. Con el Hyperterminal lo leo perfectamente.
Tengo dudas si hay que enviar algun dato al puerto para poder recibir informacion
Ya he escrito a varios foros y no he resuelto o no me han contestado.
Me parece que nunca voy a resolver esto

Saludos a todos


Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1")
            With com1
                .BaudRate = 9600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                . Dim Datos As String = ""

                MsgBox(com1.BytesToRead)  'Aqui me da 0

               Datos = com1.ReadExisting
               MsgBox(Datos)  'Aqui me da un mensage en Blanco

            End With
 :End Using