|
GPS - Detect Position - Detectar Posicao |
Started by adrianoboller, Nov., 24 2014 12:52 PM - No answer |
| |
| | | |
|
| |
Registered member 3,659 messages Popularité : +175 (223 votes) |
|
Posted on November, 24 2014 - 12:52 PM |
Procedure GPS_DetectarPosicao(LOCAL ControleMapa, LOCAL EnderecoMonumento, LOCAL MinhaPosicaoSN, LOCAL Raio, LOCAL Timeout, LOCAL WindowSN)
GPS_Inicializar("A","A","A")
ok = False
retorno is string = ""
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN Latitude, Longitude is real = "" Latitude = GPS_LocalizaEnderecoMonumento(ControleMapa, EnderecoMonumento, 10, WindowSN) Longitude = GPS_LocalizaEnderecoMonumento(ControleMapa, EnderecoMonumento, 11, WindowSN) IF MinhaPosicaoSN = "S" THEN gloGPS_DetectID = GPSDetectPosition(GPS_PosicaoAtual, Latitude, Longitude, Raio, Timeout) ELSE gloGPS_DetectID = GPSDetectPosition(GPS_PosicaoBuscada, Latitude, Longitude, Raio, Timeout) END
MyPosition is geoPosition MyPosition..Latitude = Latitude MyPosition..Longitude = Longitude
ok = MapDisplayPosition(ControleMapa, MyPosition)
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) |
| |
| |
| | | |
|
| | | | |
| | |
|