Sub Serial1_Connected (Success As Boolean)
If Success Then
ToastMessageShow("Ptt Button connected ", False)
TestStream.Initialize(Serial1.InputStream,Serial1.OutputStream,"TestStream")
End If
End Sub
Sub teststream_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
Select Case msg
Case "+PTT=P" 'Ptt button pressed
PTT_ON
Case "+PTT=R" 'Ptt button relesed
PTT_OFF
End Select
'ToastMessageShow(msg, False)
End Sub