PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV Mobile 2024 → GPS Ponto Central
GPS Ponto Central
Started by adrianoboller, Nov., 18 2014 2:27 PM - No answer
Registered member
3,660 messages
Popularité : +175 (223 votes)
Posted on November, 18 2014 - 2:27 PM
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)