Bluetooth ?

[SoyEli]

Hello

Can you give a example of how to find out if bluetooth is
paired and connected ?

Thank you:

 

[Erel]

You can use the Serial library to list the paired devices and to connect to a device.

 

[SoyEli]

Hello

I tried the "Serial library" and it does list the paired bluetooth but
it does not tell me if it's connected.
I need to know if the bluetooth is connected before trying to connect.

Thank You:

Sub LookForBlue()
Dim PairedDevices As Map
Dim l As List
Dim res As Int
PairedDevices = Myblue.GetPairedDevices
l.Initialize
For i = 0 To PairedDevices.Size - 1
l.Add(PairedDevices.GetKeyAt(i)) 'add the friendly name to the list
Next
res = InputList(l, "Choose device", -1) 'show list with paired devices
If res <> DialogResponse.CANCEL Then
Myblue.Connect(PairedDevices.Get(l.Get(res)))
End If
Msgbox(Connected,"Blue")
End Sub
--------------------------------------
Sub MyBlue_Connected (Success As Boolean)
If Success Then
connected = True
Else
connected = False
End If
End Sub

 

[kickaha]

Look at the Serial Connected event, details in this thread

 

[SoyEli]

Thank you for your reply

as you can see above:
I did that,
It shows " if bluetooth IsEnabled " and " Paird ", But is it connected ?

I'm trying to make a app where the " TTS " running in the background will tell me the callers phonenumber only if the blutooth is NOT CONNECTED else stay silent.

Thank you again for all your help

 

[Erel]

Currently you cannot check if there is a connection done by some other app.

 

[SoyEli]

Thanks