'Activity module
Sub Process_Globals
    Dim Serial1 As Serial
    Dim AStreams As AsyncStreams
    Dim connected As Boolean
    Dim Buffa As String
    Dim mode As String
    Dim ptr As Int
    Dim cmd As String
    Dim fincmd() As Byte
    Dim DataLogger As TextWriter
    
    Dim cmdtime As String
    Dim Timer1 As Timer
End Sub

Sub Globals
    Dim btnSend As Button
    Dim txtLog As EditText
    Dim txtSend As EditText
    
    Dim Ready_ForNext As Boolean        ' 
    Dim response As StringBuilder
    Dim msg1 As String
    Dim msg2 As String
    Dim ctrf As Int
    Dim ctrm As Int
    Dim ctrs As Int
    Dim Now As Long
    Dim prevcmd As String
    Dim septab As String
        septab=Chr(9)
    Dim fincmda As String
        fincmda=Chr(10)&Chr(13)
        fincmd=fincmda.getbytes("UTF8")
        
    Dim str_init(8) As String
        str_init(0)="STI"         ' show version firmware
        str_init(1)="ATSP6"     ' protocol CAN
        str_init(1)="ATE0"         ' echo suppress
        str_init(2)="ATH1"         ' Header On
        str_init(3)="ATL0"         ' LineFeed Off
        str_init(4)="ATS0"         ' Space    Off
        str_init(5)="ATCF 700"    ' Filter 7xx
        str_init(6)="ATCM F00"     ' Mask   all 7xx
        str_init(7)="STM"        ' show everything passing mask & filter

    Dim btn_start As Button

        
    Dim Btn_connect As Button
    Dim Lbl_connect As Label
    

    
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        Serial1.Initialize("Serial1")
    End If
    Activity.LoadLayout("1")

   
    now = DateTime.Now
    DateTime.DateFormat="yyMMdd"
    DateTime.timeformat="HHmmss"
    Lbl_connect.Color=Colors.Red


End Sub
Sub Activity_Resume

    If Serial1.IsEnabled = False Then
        Msgbox("Please enable Bluetooth.", "")
    Else
        Serial1.Listen 'listen for incoming connections
    End If
    mode="init"
    ptr=0
    response.Initialize
End Sub


Sub Serial1_Connected (Success As Boolean)
    If Success Then
        ToastMessageShow("Connected successfully", False)
        AStreams.Initialize(Serial1.InputStream, Serial1.OutputStream, "AStreams")
        connected = True
        Lbl_connect.Text="Connected"
        Lbl_connect.Color=Colors.green
        DataLogger.Initialize(File.OpenOutput(File.DirRootExternal& "/Sniffer" ,"sniffer_"&DateTime.date(now)&"_"&DateTime.time(now) &".txt", True))
        DateTime.timeformat="HHmmss:SSS"
    Else
        connected = False
        Msgbox(LastException.Message, "Error connecting.")
        Lbl_connect.Text="Not Connected"
        Lbl_connect.Color=Colors.Red
    End If
End Sub


Sub Activity_Pause (UserClosed As Boolean)
    If UserClosed Then
        AStreams.Close
        Serial1.Disconnect
        DataLogger.close

    End If
End Sub

Sub btnSend_Click
    If connected Then
        If AStreams.IsInitialized = False Then 
            Return
        End If
        If txtSend.Text.Length > 0 Then
            sendcmd(txtSend.Text) 
        End If
    End If
End Sub
Sub sendcmd (commande As String)
        AStreams.Write(commande.GetBytes("UTF8"))
        AStreams.Write(fincmd)
        cmdtime=DateTime.time(now)
        prevcmd=commande
End Sub
Sub AStreams_NewData (Buffer() As Byte)
    Dim rsp As String
    rsp = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    now = DateTime.Now
    txtLog.Text = txtLog.Text & rsp
    txtLog.SelectionStart = txtLog.Text.Length
    DataLogger.WriteLine("new " & DateTime.time(now) & " msg " & rsp )


End Sub


Sub AStreams_Error
    ToastMessageShow(LastException.Message, True)
End Sub
Sub btn_start_Click

    timer1.Interval=200
    timer1.Enabled=True
    For i=0 To 7
        sendcmd(str_init(i))
    Next
    timer1.Enabled=False

End Sub


Sub Btn_connect_Click
    Dim PairedDevices As Map
    PairedDevices = Serial1.GetPairedDevices
    Dim l As List
    l.Initialize
    For i = 0 To PairedDevices.Size - 1
        l.Add(PairedDevices.GetKeyAt(i))
    Next
    Dim res As Int
    res = InputList(l, "Choose device", -1) 'show list with paired devices
    If res <> DialogResponse.CANCEL Then
        Serial1.Connect(PairedDevices.Get(l.Get(res))) 'convert the name to mac address
    End If
End Sub
Sub Btn_disconnect_Click
        Timer1.Enabled = False
        DataLogger.close
        
    If connected Then
        AStreams.Close
        Serial1.Disconnect
        connected = False
    End If
        Lbl_connect.Text="Not Connected"
        Lbl_connect.Color=Colors.Red
End Sub