|
FORUMS PROFESSIONNELS WINDEV, WEBDEV et WINDEV Mobile |
| | | | | |
GPS - My Position - MinhaPosicaoAtual |
Débuté par adrianoboller, 24 nov. 2014 13:24 - 4 réponses |
| |
| | | |
|
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 13:24 |
Procedure GPS_MinhaPosicaoAtual(LOCAL ControleMapa, LOCAL WindowSN)
ok = False
Retorno is string = ""
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN
pos is geoPosition = MapGetPosition(ControleMapa)
IF ErrorOccurred = False THEN RESULT MapInfoPosition(ControleMapa, pos) END
Retorno = "Latitude: " + pos..Latitude + " Longitude: " + pos..Longitude
IF gloWindowSN = "S" AND Retorno <> "" THEN Info(Retorno) END
ok = MapDisplayPosition(ControleMapa, pos)
IF ok = True THEN IF WindowSN = "S" THEN Info("Posição detectada") END Retorno = pos 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) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 13:25 |
Procedure GPS_MostrarPosicaoMapa(LOCAL ControleMapa, LOCAL TipoGEM, LOCAL Latitude, LOCAL Longitude, LOCAL Endereco, LOCAL Monumento, LOCAL WindowSN)
ok = False
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN IF TipoGEM = "G"
MyPosition is geoPosition MyPosition.Latitude = Latitude MyPosition.Longitude = Longitude ok = MapDisplayPosition(ControleMapa, MyPosition) ELSE IF TipoGEM = "E"
ok = MapDisplayPosition(ControleMapa, Endereco) ELSE IF TipoGEM = "M"
ok = MapDisplayPosition(ControleMapa, Monumento) END
IF ok = True THEN IF WindowSN = "S" THEN Info("Localizada a posição no Mapa com Sucesso!...") END ELSE IF WindowSN = "S" THEN Info("Não foi possivel localizar a posição no Mapa...") END 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(ok) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 13:26 |
Procedure GPS_PegarPosicaoMapa(LOCAL ControleMapa, LOCAL WindowSN)
Posicao is string = ""
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN MyPosition is geoPosition MyPosition = MapGetPosition(ControleMapa)
IF ErrorOccurred = False THEN Posicao = MapInfoPosition(ControleMapa, MyPosition) IF WindowSN = "S" THEN Info("A posição no mapa é: " + Posicao) END ELSE Info("Erro ao tentar pegar a posição no mapa!",ErrorInfo()) 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(Posicao) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 13:26 |
Procedure GPS_PosicaoAtual(LOCAL ControleMapa, LOCAL WindowSN)
ok = False
Retorno is string = ""
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN
pos is geoPosition = GPSGetPosition() Retorno = "Latitude: " + pos..Latitude + " Longitude: " + pos..Longitude
IF gloWindowSN = "S" THEN Info(Retorno) END
ok = MapDisplayPosition(ControleMapa, pos)
IF ok = True THEN IF WindowSN = "S" THEN Info("Posição detectada") END Retorno = pos 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) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 13:26 |
Procedure GPS_PosicaoBuscada(LOCAL ControleMapa, LOCAL Rua, LOCAL Cidade, LOCAL CEP, LOCAL Latitude, LOCAL Longitude, LOCAL WindowSN)
ok = False
Retorno is string = ""
MyAddress is Address
MyAddress.Street = Rua
MyAddress..City = Cidade
MyAddress..ZipCode = CEP
MyAddress.Position..Latitude = Latitude
MyAddress.Position..Longitude = Longitude
pos is geoPosition
pos.Latitude = Latitude
pos.Longitude = Longitude
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN
geoGetAddress(MyAddress)
IF ErrorOccurred = True THEN Info("Nenhum endereço localizado") END
Retorno = "Latitude: " + Latitude + " Longitude: " + Longitude
IF gloWindowSN = "S" THEN Info(Retorno) END
ok = MapDisplayPosition(ControleMapa, pos)
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) |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|