PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → GPS Ponto Central
GPS Ponto Central
Débuté par adrianoboller, 18 nov. 2014 14:27 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 18 novembre 2014 - 14:27
Procedure GPS_PontoCentral(LOCAL Lat_A, LOCAL Lng_A, LOCAL Lat_C, LOCAL Lng_C, LOCAL DebugSN)

Retorno is string = ""

Lat_B is real = (Min(Lat_A,Lat_C) + ((Max(Lat_A,Lat_C) - Min(Lat_A,Lat_C))/2))
Lng_B is real = (Min(Lng_A,Lng_C) + ((Max(Lng_A,Lng_C) - Min(Lng_A,Lng_C))/2))

GloLatitudeCentral = Lat_B
GloLongitudeCentral = Lng_B

IF DebugSN = "S"
Info(GloLatitudeCentral,GloLongitudeCentral)
END

Retorno = Lat_B +";"+ Lng_B

RESULT(Retorno)