iOS Question GPSSatellite

D

Deleted member 103

Guest
How do I convert the code?
The "GPSSatellite" function I can not find.
B4X:
Sub GPS1_GpsStatus (Satellites As List)
   Dim Set As Int
  
   Set=0
   For i = 0 To Satellites.Size -1
     Dim GPSSat As GPSSatellite
     GPSSat = Satellites.Get(i)
    
     If GPSSat.UsedInFix Then Set = Set + 1
   Next
   If Set < 3 Then
     Log("OK")
   Else
     Log("KO")
   End If
End Sub
 
Top