#Region Module Attributes
#StartAtBoot: True
#End Region
'Service module for Widget´s
Sub Process_Globals
Dim rv As RemoteViews
Dim ph As PhoneEvents
Dim admin As BluetoothAdmin
Dim GPS1 As GPS
Dim WifiOffFlag As Boolean : WifiOffFlag = False
Dim BTOffFlag As Boolean : BTOffFlag = False
Dim GpsOffFlag As Boolean : GpsOffFlag = False
End Sub
Sub Service_Create
rv = ConfigureHomeWidget("multiwidget.bal", "rv", 0, "MultiWidget",True)
ConfigureButtons
ph.Initialize("Bt")
End Sub
Sub Service_Start (StartingIntent As Intent)
If rv.HandleWidgetEvents(StartingIntent) Then Return
StartServiceAt("",DateTime.Now + 900 * 1000,True)'every 15 mins
End Sub
Sub rv_RequestUpdate
rv.UpdateWidget
End Sub
Sub rv_Disabled
ph.StopListening
Dim ph As PhoneEvents
StopService("")
End Sub
Sub Service_Destroy
End Sub
Sub ConfigureButtons
' configure button images
Dim jhw As JhWifi
' Initialize wifi
jhw.Initialize()
If jhw.Enabled = False Then
rv.SetImage("ImgViewWIFI",LoadBitmap(File.DirAssets,"WIFIoff.png"))
WifiOffFlag = True
Else
rv.SetImage("ImgViewWIFI",LoadBitmap(File.DirAssets,"WIFIon.png"))
WifiOffFlag = False
End If
admin.Initialize("Admin")
If admin.IsEnabled = False Then
rv.SetImage("ImgViewBtooth",LoadBitmap(File.DirAssets,"BToff.png"))
BTOffFlag = True
Else
rv.SetImage("ImgViewBtooth",LoadBitmap(File.DirAssets,"BTon.png"))
BTOffFlag = False
End If
GPS1.Initialize("GPS")
If GPS1.GPSEnabled = False Then
rv.SetImage("ImgViewGPS",LoadBitmap(File.DirAssets,"GPSoff.png"))
GpsOffFlag = True
Else
rv.SetImage("ImgViewGPS",LoadBitmap(File.DirAssets,"GPSon.png"))
GpsOffFlag = False
End If
Return
End Sub
Sub Bt_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
' battery level changed
If Level = 100 Then
If Plugged = True Then
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"100b.png"))
Else
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"100.png"))
End If
Else If Level >= 75 AND Level < 100 Then
If Plugged = True Then
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"80b.png"))
Else
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"80.png"))
End If
Else If Level >= 50 AND Level < 75 Then
If Plugged = True Then
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"60b.png"))
Else
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"60.png"))
End If
Else If Level >= 25 AND Level < 50 Then
If Plugged = True Then
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"40b.png"))
Else
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"40.png"))
End If
Else
rv.SetImage("ImageView1",LoadBitmap(File.DirAssets,"e.png"))
End If
rv.SetText("label1",Level&" %")
rv.UpdateWidget
End Sub
Sub ImgViewWIFI_Click
Dim jhw As JhWifi
' Initialize wifi
jhw.Initialize()
If WifiOffFlag = True Then
rv.SetImage("ImgViewWIFI",LoadBitmap(File.DirAssets,"WIFIon.png"))
WifiOffFlag = False
jhw.Enabled = True
Else
rv.SetImage("ImgViewWIFI",LoadBitmap(File.DirAssets,"WIFIoff.png"))
WifiOffFlag = True
jhw.Enabled = False
End If
End Sub
Sub ImgViewBtooth_Click
If BTOffFlag = True Then
rv.SetImage("ImgViewBtooth",LoadBitmap(File.DirAssets,"BTon.png"))
BTOffFlag = False
admin.Enable
Else
rv.SetImage("ImgViewBtooth",LoadBitmap(File.DirAssets,"BToff.png"))
BTOffFlag = True
admin.Disable
End If
End Sub
Sub ImgViewGPS_Click
Dim turnOn As TurnGPS
turnOn.Initialize()
If GpsOffFlag = True Then
rv.SetImage("ImgViewGPS",LoadBitmap(File.DirAssets,"GPSon.png"))
GpsOffFlag = False
turnOn.turnGPSOn
Else
rv.SetImage("ImgViewGPS",LoadBitmap(File.DirAssets,"GPSoff.png"))
GpsOffFlag = True
turnOn.turnGPSOff
End If
End Sub
