'Activity module MAIN
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim pm As PackageManager
Dim PackageName As String = MySubs.GetPackageName
Dim VersionCode As String = pm.GetVersionCode(PackageName)
Dim VersionName As String = pm.GetVersionName(PackageName)
Dim ApplicationLabel As String = pm.GetApplicationLabel(PackageName)
Dim commandPauseMillis As Long = 0 'DateTime.Now + PauseMillis = how many milliseconds to pause
Dim encodingType As String ="UTF-8" 'mult-byte encoding can represent Unicode characters
'Dim encodingType As String = "ISO-8859-1" 'single byte encoding
Dim TTS1 As TTS 'Text To Speech
Dim admin As BluetoothAdmin
Dim serial1 As Serial
Dim foundDevices As List
Type NameAndMac (Name As String, Mac As String)
Dim connectedDevice As NameAndMac
Dim SystemLog As List 'a global list object, this should be cleared to clear the log in the terminal screen
Dim connected As Boolean = False
Dim gravityCenter As Int = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.center)
Dim gravityRight As Int = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.right)
Dim gravityLeft As Int = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.left)
End Sub