Sub btnconnect_Click
If btnconnect.Text = "Connect" Then
AStream.Close
serial1.Disconnect
Dim LastBTMac As String
LastBTMac = StateManager.GetSetting ("LastConnectedBTMAC")
mLogAdd("Opening BT Serial "&LastBTMac)
If LastBTMac.Length <12 Then
mLogAdd("Not connected to any BT device yet")
LastBTMac= "84:73:03:F0:7E:D2"
Dim PairedDevices As Map
PairedDevices = serial1.GetPairedDevices
Dim l As List
l.Initialize
For i = 0 To PairedDevices.Size - 1
l.Add(PairedDevices.GetKeyAt(i))
Next
Dim res As Int
res = InputList(l, "Choose device", -1) 'show list with paired devices
If res <> DialogResponse.CANCEL Then
serial1.Connect(PairedDevices.Get(l.Get(res))) 'convert the name to mac address and connect
'If devicemac <> "" Then
'BTConnectToDevice
'serial1.ConnectInsecure(admin, devicemac, 1)
' ProgressDialogShow("Connecting to Host....")
' Else
' ToastMessageShow("Please select a Mac Address to connect...", True)
End If
Else
mLogAdd("Using saved Mac "&LastBTMac)
'serial1.Connect("84:73:03:F0:7E:D2")
serial1.Connectinsecure(admin, LastBTMac, 1)
'serial1.Connect(LastBTMac)
'serial1.Connect2(LastBTMac, "00001101-0000-1000-8000-00805F9B34FB")
'serial1.Connect3(LastBTMac,1) ' with port number 1
End If
Else
AStream.Close
serial1.Disconnect
OnConnectedBtnsEnable(False)
End If