PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → GPS - Relative direction - Direcao Relativa
GPS - Relative direction - Direcao Relativa
Débuté par adrianoboller, 24 nov. 2014 12:54 - Aucune réponse
Membre enregistré
3 006 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:54
Procedure GPS_DirecaoRelativa(LOCAL ControleMapa, LOCAL LatitudePontoA, LOCAL LongitudePontoA, LOCAL LatitudePontoB, LOCAL LongitudePontoB, LOCAL MinhaPosicaoBAtualSN, LOCAL Msg, LOCAL WindowSN)

ok = False

Retorno is string = ""

IF ControleMapa = "" THEN
ControleMapa = gloControleMapa
END

IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN

pos1 is geoPosition
pos1..Latitude = LatitudePontoA
pos1..Longitude = LongitudePontoA

pos2 is geoPosition
IF MinhaPosicaoBAtualSN = "S"
pos2 = GPSGetPosition()
ELSE
pos2..Latitude = LatitudePontoB
pos2..Longitude = LongitudePontoB
END

IF Msg <> "" AND WindowSN = "S" THEN
Retorno = Msg +" "+ geoAzimuth(pos1, pos2)
Info(Retorno)
ELSE IF Msg <> "" AND WindowSN <> "S"
Retorno = Msg +" "+ geoAzimuth(pos1, pos2)
ELSE IF Msg = "" AND WindowSN <> "S"
Retorno = geoAzimuth(pos1, pos2)
END

ok = MapDisplayPosition(ControleMapa, pos2)

IF ok = True THEN
IF WindowSN = "S" THEN
Info("Posição detectada")
END
Retorno = "Posição detectada"
ELSE
IF WindowSN = "S" THEN
Info("Posição não foi detectada")
END
Retorno = "Posição não foi detectada"
END

ELSE IF GPSStatus() = gpsDisabled THEN

Info("GPS Desabilitado!")

ELSE IFGPSStatus() = gpsOffService OR GPSStatus() = gpsUnavailable OR GPSStatus() = gpsError THEN

Info("Região sem serviço de GPS",ErrorInfo())

END

RESULT(Retorno)