1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| Procedure Events()
Select EventGadget()
Case 0
VibrateDevice(1000)
Case 1
Debug DeviceInfo(#PB_Device_Model)
Debug DeviceInfo(#PB_Device_Platform)
Debug DeviceInfo(#PB_Device_UUID)
Debug DeviceInfo(#PB_Device_Version)
Debug DeviceInfo(#PB_Device_Manufacturer)
Debug DeviceInfo(#PB_Device_Serial)
Case 2
Debug BatteryLevel()
Case 3
Debug "AccelerometerX: " + AccelerometerX()
Debug "AccelerometerY: " + AccelerometerY()
Debug "AccelerometerZ: " + AccelerometerZ()
Debug "AccelerometerTime: " + AccelerometerTime()
Case 4
Debug "GeolocationLatitude: " + GeolocationLatitude()
Debug "GeolocationLongitude: " + GeolocationLongitude()
Debug "GeolocationAltitude: " + GeolocationAltitude()
Debug "GeolocationSpeed: " + GeolocationSpeed()
Debug "GeolocationHeading: " + GeolocationHeading()
Debug "GeolocationTime: " + GeolocationTime()
EndSelect
EndProcedure
Procedure OnSizeDesktop()
Debug "size desktop"
ExamineDesktops()
Debug "DesktopWidth(): " + DesktopWidth(0)
Debug "DesktopHeight(): " + DesktopHeight(0)
EndProcedure
OpenWindow(0, 0, 0, 300, 205, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 0, 0, 300, 25, "Vibrate")
ButtonGadget(1, 0, 30, 300, 25, "SystemInfo")
ButtonGadget(2, 0, 60, 300, 25, "BatteryLevel")
ButtonGadget(3, 0, 90, 300, 25, "Accelerometer")
ButtonGadget(4, 0, 120, 300, 25, "Geolocation")
StringGadget(5, 0, 150, 300, 50, "Geolocation", #PB_String_PlaceHolder)
StartAccelerometer(100)
StartGeolocation(30000)
BindEvent(#PB_Event_Gadget, @Events())
BindEvent(#PB_Event_SizeDesktop, @OnSizeDesktop()) |
Partager