Hi,
I need some help on a problem that I am facing with Bluetooth Serial communication.
I have my bluetooth (BT) serial code ( pasted below ) which works perfectly on Nexus7 Tab.
I move to Lenovo Ideapad ( A1000-G Andr-4.2.1 ) and it stops to receive characters on serial link. ( it still continues to transmit )
I verified my setup BT dongle and other connection by using Blueterm chat. Setup is OK.
I searched through forums and checked for common issues. (I am not using Prefix more in Astreams)
Could someone please suggest what might be going wrong between the 2 types of tablets.
Thanks in advance !
Sub Serial1_Connected (Success As Boolean)
If Success Then
ToastMessageShow("Connected successfully", False)
AStreams.Initialize(Serial1.InputStream,Serial1.OutputStream, "AStreams")
connected = True
Else
connected = False
ToastMessageShow(LastException.Message, False)
End If
End Sub
Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
txtLog.Text = txtLog.Text & msg
End Sub
I need some help on a problem that I am facing with Bluetooth Serial communication.
I have my bluetooth (BT) serial code ( pasted below ) which works perfectly on Nexus7 Tab.
I move to Lenovo Ideapad ( A1000-G Andr-4.2.1 ) and it stops to receive characters on serial link. ( it still continues to transmit )
I verified my setup BT dongle and other connection by using Blueterm chat. Setup is OK.
I searched through forums and checked for common issues. (I am not using Prefix more in Astreams)
Could someone please suggest what might be going wrong between the 2 types of tablets.
Thanks in advance !
Sub Serial1_Connected (Success As Boolean)
If Success Then
ToastMessageShow("Connected successfully", False)
AStreams.Initialize(Serial1.InputStream,Serial1.OutputStream, "AStreams")
connected = True
Else
connected = False
ToastMessageShow(LastException.Message, False)
End If
End Sub
Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
txtLog.Text = txtLog.Text & msg
End Sub