Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim scrivi As OutputStream
Dim leggi As InputStream
Dim manager As UsbManager
Dim access As UsbAccessory
Dim astream As AsyncStreamsText
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("layout_lw3")
tb_quota.Color = Colors.White
Dim jo As JavaObject = Activity
Dim Window As JavaObject = jo.RunMethodJO("getContext", Null).RunMethod("getWindow", Null)
Window.RunMethod("addFlags", Array As Object(524288)) 'FLAG_SHOW_WHEN_LOCKED
Window.RunMethod("addFlags", Array As Object(128)) 'FLAG_KEEP_SCREEN_ON
If FirstTime Then
manager.Initialize
End If
'chiedo i permessi
'controllo se il convertitore è collegato
Dim FT31found As Int = -1
Dim UsbAcc() As UsbAccessory
UsbAcc = manager.GetAccessories
If UsbAcc.Length <1 Then
ToastMessageShow("COLLEGARE IL CONVERTITORE", True)
Return
End If
For i= 0 To UsbAcc.Length -1
If UsbAcc(i).Model.Contains("FT31") Then
FT31found = i
access=UsbAcc(i)
End If
If FT31found < 0 Then
Return
End If
Next
'controllo se ha i permessi
If manager.HasAccessoryPermission(access) = False Then
manager.RequestAccessoryPermission(access)
Else
If FirstTime = True Then
manager.OpenAccessory(access)
'setto il convertitore
scrivi = access.OutputStream
'leggi = access.InputStream
'NUOVO
SetConfigFT31x(19200,8,1,0,0)
astream.Initialize(Me,"astream",access.InputStream,access.OutputStream)
End If
End If
End Sub