none
Recibir información de un pbx tem824 desde Visual Basic 2005 por el puerto serial. RRS feed

  • Pregunta

  • Yo estoy estoy aprendiendo VB2005 y estoy haciendo una aplicación en la cual quiero llevar estadística de las llamadas recibidas en un call center, las llamadas entran en un pbx TEM824 de panasonic, por el momento la información la estoy recogiendo por medio del software que trae el Windows HyperTerminal, la configuración que tiene es la que tiene por defecto lo único que le cambio es que la velocidad a 9600, y me muestra toda la información de las llamadas, pero esta información la quiero recoger por medio del Visual Basic para así poder guardarla en una base de datos. Anexo el código que tengo que solamente me mostraría lo recibido y no muestra nada.
     
    Module Module1
        Private WithEvents puertoserial As New System.IO.Ports.SerialPort("com1", 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)
        Sub Main()
            puertoserial.Open()
            If puertoserial.IsOpen = True Then
                Console.WriteLine("Puerto Com1 abierto")
            Else
                Console.WriteLine("Puerto Com1 no esta abierto")
            End If
            Console.WriteLine("Esperando...")
            Console.ReadKey()
            puertoserial.Close()
        End Sub
        Private Sub mypuertoserial_DataReceived(ByVal sender As Object, _
                 ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                  Handles puertoserial.DataReceived
            Console.WriteLine("1=" & puertoserial.ReadExisting)
            Console.WriteLine("2= " & puertoserial.ReadChar)
        End Sub
    End Module
    martes, 30 de enero de 2007 14:34