BlueTooth to IR converter

Sub AStream_NewData (Buffer() As Byte)
   'Log(BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
   Log("DIm buffer:" & Buffer.Length)
   Log("Buffer: " & BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
End Sub

'Activity module
Sub Process_Globals
   Dim AStream As AsyncStreams
   Dim BConv As ByteConverter 
End Sub

Sub Globals
   
   Dim btnSend As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("2")
   If AStream.IsInitialized = False Then
      AStream.InitializePrefix(Main.serial1.InputStream, True, Main.serial1.OutputStream, "AStream")
   End If
   'txtLog.Width = 100%x
End Sub

Sub AStream_NewData (Buffer() As Byte)
   'LogMessage("You", BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
   Log("DIm buffer:" & Buffer.Length)
   Log("Contenuto buffer: " & BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
End Sub

Sub AStream_Error
   ToastMessageShow("Connection is broken.", True)
   btnSend.Enabled = False
   'txtInput.Enabled = False
End Sub

Sub AStream_Terminated
   AStream_Error
End Sub

Sub Activity_Resume
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   If UserClosed Then
      AStream.Close
   End If
End Sub

Sub txtInput_EnterPressed
   If btnSend.Enabled = True Then btnSend_Click
End Sub
Sub btnSend_Click
   Dim checkTV() As Byte
   
   
   checkTV = 0x0B ' Hex init data <CAN>
   Log("SEND <CAN>: " & checkTV) 
   AStream.Write(checkTV)
   '
End Sub