PC serial Ports

[larryhts]

I have a App that needs to read two serial numbers  from the PC serial ports and display in a text box. I am new to VB and can’t seem to get ports to write to the textbox’s. Any ideas on how to do this? I have all but this one machine running the scanners in to the PLC no trouble but PC port's not so sure how.

[Godra]

Google is your best friend but for now you can start here:

https://www.advancedhmi.com/forum/index.php?topic=1223.0

[larryhts]

Google is your best friend but for now you can start here:

https://www.advancedhmi.com/forum/index.php?topic=1223.0

Thanks Godra.   I have it working now.

[Godra]

Don't ever hesitate to post your working code.

It might inspire others and eventually help them in their projects.

[larryhts]

Godra,  That's a good idea.   
Here is the code I am using.

 Private Sub ReadCom(ByVal ReceiveSerialData() As String)
        ' Receive strings from a serial port.
        Dim returnStr As String = ""
        Dim com1 As IO.Ports.SerialPort

        ' Change this string for the port number
        com1 = My.Computer.Ports.OpenSerialPort("COM27")
        com1.ReadTimeout = 10000
            com1.Open()
        Dim Incoming As String = com1.ReadLine()

        returnStr &= Incoming '& vbCrLf
        If com1 IsNot Nothing Then TextBox1.Text = returnStr

    End Sub