Hi
I have bluetooth application. Program running but sometimes come error box:
Arrow (->) show codeline 566
Sub mnuConnect_Click
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=0 ' first device from list
If res <> DialogResponse.CANCEL Then
-> Serial1.Connect(PairedDevices.Get(l.Get(res))) 'convert the name to mac address
End If
Wait(300)
End Sub
I have bluetooth application. Program running but sometimes come error box:
Arrow (->) show codeline 566
Sub mnuConnect_Click
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=0 ' first device from list
If res <> DialogResponse.CANCEL Then
-> Serial1.Connect(PairedDevices.Get(l.Get(res))) 'convert the name to mac address
End If
Wait(300)
End Sub