Private Sub btnReadSerialData_Click
Private labelNAME As String
Private labelMAC As String
clv.Clear
Log ("****** Pressed serial button *******")
'' read serial data from here......
''''' serial.Connect("50:65:83:6F:92:15")
Log ("******** SERIAL ****************")
Log (" Serial initialised")
Log (serial.IsInitialized)
''''
serial.Listen
labelNAME = ConnectedName
labelMAC = ConnectedMAC
Label3.text = labelNAME & " " & labelMAC
Log ("************************")
''' Found: device-1.0,50:65:83:6F:92:15, RSSI = -42, (MyMap) {1=[B@30e2fe5, -1=[B@fc05aba, 9=[B@6677d6b, 18=[B@e0930c8, 10=[B@976e561, 2=[B@b896886, 0=[B@4fe8547}
' If AStreams.IsInitialized Then AStreams.Close
' 'prefix mode! Change to non-prefix mode if communicating with non-B4X device.
' AStream.InitializePrefix(serial.InputStream, False, serial.OutputStream, "astreams")
''''
Log ("************************")
Log ("*** GET THE PAIRED DEVICE ***")
ToastMessageShow (" GET THE PAIRED DEVICE ", True)
whosisthere
Log ("************************")
' Log ("******* Phone *****************")
' Log(serial.Address)
' Log (serial.Name)
' Log ("************************")
' buffer = "?"
''''get stuff from raingauge-1.0 now
Log ("******** ASTREAM 1 ****************")
'
AStreams.Initialize(serial.InputStream, serial.OutputStream, "AStreams")
' AStream.Write(buffer.GetBytes("utf8"))
' AStreams.Close
Log ("******** ASTREAM 2 ****************")
Disconnect
End Sub