Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Page1")
NavControl.ShowPage(Page1)
App.RegisterUserNotifications(True, True, True) 'request permission for notifications
App.ApplicationIconBadgeNumber = 0
If App.LaunchOptions.IsInitialized Then
Dim ln As Notification = App.LaunchOptions.Get("UIApplicationLaunchOptionsLocalNotificationKey")
If ln.IsInitialized Then
'hd.ToastMessageShow("Application was started from a notification: " & ln.AlertBody, True)
End If
End If
fm.Initialize("fm")
WKWebView3.Loadurl("http://85.88.153.23.nip.io:7095/promotions")
Dim no As NativeObject = WKWebView3
no.GetField("scrollView").SetField("bounces", False)
LocManager.Initialize("LocManager")
'in background....
Dim no As NativeObject = LocManager
no = no.GetField("manager")
no.SetField("pausesLocationUpdatesAutomatically", False)
StartBackground(LocManager, 0) 'replaces locManager.Start
'in background....
LocManager_AuthorizationStatusChanged(0)
tn.Initialize("tn")
End Sub
Sub AllowPauseLocationAutomatically(lm As LocationManager, ActivityType As Int) 'ignore
Dim no As NativeObject = lm
no = no.GetField("manager")
no.SetField("activityType", ActivityType)
no.SetField("pausesLocationUpdatesAutomatically", True)
End Sub
Private Sub LocManager_LocationChanged (Location1 As Location)
Dim job As HttpJob
job.Initialize("gps", Me)
job.PostString(serverLink & "/gps", "lat=" & Location1.Latitude & "&lon=" & Location1.Longitude & "&speed=" & Location1.Speed & "&altitude=" & Location1.Altitude & "&os=" & "ios" & "&userId=" & userId)
Dim job As HttpJob
job.Initialize("getBeacons", Me)
job.PostString(serverLink & "/getBeacons", "lat=" & Location1.Latitude & "&lon=" & Location1.Longitude & "&speed=" & Location1.Speed & "&altitude=" & Location1.Altitude )
End Sub