PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → GPS - My Position - MinhaPosicaoAtual
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"
// Centers the map displayed by the "MAP_Position" control on a geographical location
MyPosition is geoPosition
MyPosition.Latitude = Latitude
MyPosition.Longitude = Longitude
ok = MapDisplayPosition(ControleMapa, MyPosition)
ELSE IF TipoGEM = "E"
// Centers the map displayed by the "MAP_Position" control on a city identified by its name
ok = MapDisplayPosition(ControleMapa, Endereco)
ELSE IF TipoGEM = "M"
// Centers the map displayed by the "MAP_Position" control on a monument identified by its name
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)