Android Question Android BOX + Arduino connected with serial port

#Region Project Attributes
    #AutoFlushLogs: True
    #CheckArrayBounds: True
    #StackBufferSize: 300
#End Region

Sub Process_Globals
   Public Serial1 As Serial
   Private astream As AsyncStreams
   Private lcd As LiquidCrystal_I2C
   Private pin7 As Pin
   Private pin13 As Pin
   Private lastButtonState As Boolean = False
   Private TimerMain As Timer
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   astream.Initialize(Serial1.Stream, "astream_NewData", "astream_Error")
   lcd.Initialize(0x27, 16, 2)
   lcd.Backlight = True
   lcd.Write("Arduino-Android v 1.0.5")
   pin7.Initialize(7, pin7.MODE_INPUT_PULLUP)
   pin13.Initialize(13,pin13.MODE_OUTPUT)
   TimerMain.Initialize("timerMain_Tick",100)
   TimerMain.Enabled = True
End Sub

private Sub timerMain_Tick
    Dim buttonState As Boolean = pin7.DigitalRead
       If buttonState = False Then
        If lastButtonState <> buttonState Then
            'send message to android only if the button state is changed
            astream.Write("pressed")
            lastButtonState = buttonState
        End If
    Else
        If lastButtonState <> buttonState Then
            'send message to android only if the button state is changed
            astream.Write("released")
            lastButtonState = buttonState
        End If
    End If
End Sub

Sub AStream_NewData (Buffer() As Byte)
   lcd.Clear
   lcd.Write(Buffer)
End Sub

Sub AStream_Error
  
End Sub

#Region  Project Attributes
    #ApplicationLabel: USB Serial Example
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: unspecified
    '#CanInstallToExternalStorage: false
    '#DebuggerForceStandardAssets: true
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    Dim usb As UsbSerial
    Dim astreams As AsyncStreams
End Sub

Sub Globals

    Dim btnSend, btnOpen, btnClose As Button
    Dim label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    btnClose.Enabled = False
    btnSend.Enabled = False
End Sub

Sub btnOpen_Click
    If usb.UsbPresent = usb.USB_NONE Then
        Log("Msgbox - no device")
        Msgbox("No USB device or accessory detected!", "Error")
        Log("Msgbox - returned")
        Return
    End If
    Log("Checking permission")
    If (usb.HasPermission) Then
        Msgbox(usb.DeviceInfo, "Device Information")
        Dim dev As Int
        dev = usb.Open(115200)       
        If dev <> usb.USB_NONE Then
            Log("Connected successfully!")
            btnOpen.Enabled = False
            btnClose.Enabled = True
            btnSend.Enabled = True           
            astreams.Initialize(usb.GetInputStream, usb.GetOutputStream, "astreams")
        Else
            Log("Error opening USB port")
        End If
    Else
        usb.RequestPermission
    End If
End Sub

Sub Astreams_NewData (Buffer() As Byte)
    Dim testo As String
    testo = BytesToString(Buffer,0,Buffer.Length,"UTF8")
    Log("NewData")
    Log(testo)
    label1.Text = ""
    label1.Text = testo
End Sub

Sub btnClose_Click
    astreams.Close
    btnOpen.Enabled = True
    btnClose.Enabled = False
    btnSend.Enabled = False   
End Sub

Sub btnSend_Click
    astreams.Write("abcde".GetBytes("UTF8"))
End Sub

Sub btnExit_Click
    ExitApplication
End Sub

Sub AStreams_Error
    Log("Error: " & LastException)
    astreams.Close
End Sub
Sub Astreams_Terminated
    Log("Terminated")
    astreams.Close
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub