Sub Class_Globals
Dim BTMac As String
Dim Connected As Boolean
Private OSerial As Serial
Private FOnNewData As Object = Null
Dim Scanner As AsyncStreams
end sub
Public Sub Connect
If BTMac = "" Then
ToastMessageShow("no scanner paired", False)
Else
If Not(OSerial.IsEnabled) Then
ToastMessageShow("bluetooth off", True)
Connected = False
Return
End If
If Not(Connected) Then
OSerial.Connect(BTMac) 'convert the name to mac address and connect
End If
End If
End Sub
Private Sub OnSerial_Connected (Success As Boolean)
Try
Connected = Success
If Success Then
Scanner.Initialize(OSerial.InputStream, OSerial.OutputStream, "Scanner")
Else
Log("not connected")
End If
Catch
Connected = False
End Try
End Sub