-
Notifications
You must be signed in to change notification settings - Fork 0
/
Application_GPS.b4a
151 lines (111 loc) · 4.4 KB
/
Application_GPS.b4a
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
Build1=Default,test.adrien
File1=bouton_retour.jpg
File2=lytMain.bal
File3=vueBLE.bal
File4=vuegps.bal
File5=VueHome.bal
FileGroup1=Default Group
FileGroup2=Default Group
FileGroup3=Default Group
FileGroup4=Default Group
FileGroup5=Default Group
Group=Default Group
IconFile=
Library1=core
Library10=byteconverter
Library11=bleinsoleemulation
Library2=runtimepermissions
Library3=gps
Library4=phone
Library5=googlemaps
Library6=reflection
Library7=ble2
Library8=xui
Library9=stringutils
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="23"/>~\n~<uses-feature android:name="android.hardware.location.gps"/>~\n~~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.ACCESS_COARSE_LOCATION)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.DarkTheme)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~AddApplicationText(<meta-data android:name="com.google.android.geo.API_KEY" android:value="AIzaSyCxGuZiUo6IgqbuIySKqT_pLyZa7mNN8IU"/>)~\n~'End of default text.~\n~
Module1=ActivityBLE
Module2=Starter
Module3=ActivityGPS
Module4=ClsActionBar
Module5=BLEdata
NumberOfFiles=5
NumberOfLibraries=11
NumberOfModules=5
Version=8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: GPS logger
#VersionCode: 1
#VersionName:
#IncludeTitle: True
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#AdditionalJar: com.google.android.gms:play-services-maps
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#BridgeLogger: true
Sub Process_Globals
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
'Dim myNumber As Int
Dim ListView1 As ListView
'
'Private userlocation As Location
' Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Log("DANS MAIN ActivityCreate")
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
'shared = rp.GetSafeDirDefaultExternal("test")
'rp.CheckAndRequest(rp.PERMISSION_READ_EXTERNAL_STORAGE)
'rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
'rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Activity.LoadLayout("VueHome")
'Activity.AddMenuItem3("MENU","ButtonMenu", LoadBitmap(File.DirAssets, "bouton_retour.jpg"), True)
ListView1.AddSingleLine("ActivityBLE")
ListView1.AddSingleLine("ActivityGPS")
'If FirstTime Then
' If Starter.gps.GPSEnabled=False Then
' ToastMessageShow("Please enable your device's GPS capabilities", True)
' StartActivity(Starter.gps.LocationSettingsIntent)
' gps.Initialize("gpsClient")
' userlocation.Initialize
' Else
'Starter.gps.Start(0, 0)
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
' Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
' If Result Then CallSubDelayed(Starter, "StartGPS")
'ProgressDialogShow("Waiting for GPS location")
' End If
'End If
' Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
' gps.Initialize
' Log(gps
' End If
'List1.Initialize
End Sub
Sub Activity_Resume
Log("DANS MAIN ActivityResume")
End Sub
'Sub Activity_PermissionResult (Permission As String, Result As Boolean)
'If Permission = rp.PERMISSION_ACCESS_FINE_LOCATION Then
' gps. = Result
' End If
'End Sub
Sub Activity_Pause (UserClosed As Boolean)
Log("DANS MAIN ActivityPause")
End Sub
'Sub GPS_UserEnabled (Enabled As Boolean)
' ToastMessageShow("GPS device enabled = " & Enabled, True)
'End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
StartActivity(Value)
End Sub