D
Deleted member 103
Guest
How do I convert the code?
The "GPSSatellite" function I can not find.
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