How to stabilize Bluetooth Connection

[leybra]

Hi guys, I need some help about how to stabilize bluetooth connection using vb.net 2005? Currently, I am using Serialport to establish a connection, but some times it failed to connect with this error message "The port 'COM6:' does not exist". Usually, 4 out of 10 attempts will bring out this error message. Maybe, my coding is not good enough, so hopefully someone can guide me with this. Thanks.

This is sample of my coding:

        serialPort.PortName = "COM6"
        serialPort.BaudRate = 115200
        serialPort.Parity = IO.Ports.Parity.None
        serialPort.DataBits = 8
        serialPort.StopBits = IO.Ports.StopBits.Two
        Try
            serialPort.Open()
            serialPort.ReadTimeout = 50000
            serialPort.WriteTimeout = 50000

            If serialPort.IsOpen Then
                MsgBox("Connection successful")
            End If
            serialPort.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            serialPort.Close()
        End Try

 

[JohnH]

Have you verified the port configuration with the documentation for your device? These settings all need to be correct. You should be able to find the same information from control panel, system, hardware, device manager, and navigating to the port there to look at its properties, but there is the possibility for the OS to be misconfigured also.

 

[neel]

Hi leybra,

I think the problem is you are sending 8+1+1 bits instead of 8+1 bits, which is usually with bluetooth over serial com.

Hi guys, I need some help about how to stabilize bluetooth connection using vb.net 2005? Currently, I am using Serialport to establish a connection, but some times it failed to connect with this error message "The port 'COM6:' does not exist". Usually, 4 out of 10 attempts will bring out this error message. Maybe, my coding is not good enough, so hopefully someone can guide me with this. Thanks.

This is sample of my coding:

        serialPort.PortName = "COM6"
        serialPort.BaudRate = 115200
        serialPort.Parity = IO.Ports.Parity.None
        serialPort.DataBits = 8
        serialPort.StopBits = IO.Ports.StopBits.Two
        Try
            serialPort.Open()
            serialPort.ReadTimeout = 50000
            serialPort.WriteTimeout = 50000

            If serialPort.IsOpen Then
                MsgBox("Connection successful")
            End If
            serialPort.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            serialPort.Close()
        End Try