PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → GPS - Run App Nativo
GPS - Run App Nativo
Débuté par adrianoboller, 24 nov. 2014 13:28 - 2 réponses
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:28
Procedure GPS_RunAppNativo(LOCAL Latitude, LOCAL Longitude, LOCAL MinhaPosicaoSN, LOCAL EnderecoMonumento)

// Inicia a aplicacao nativa do equiapmento com o intinerario com o intervalo da posicao passada ou da posicao atual e a localizacao que deseja ir

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

MyPosition is geoPosition

IF MinhaPosicaoSN = "S"
MyPosition = GPSGetPosition()
ELSE
MyPosition..Latitude = Latitude
MyPosition..Longitude = Longitude
END

MyAddress is Address = geoGetAddress(EnderecoMonumento)

//Se não der erro abre a aplicacao nativa do celular com intinerario setado para iniciar o trajeto
IF ErrorOccurred = False THEN
geoRunApp(MyPosition, MyAddress..Position)
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
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:29
Procedure GPS_Status(LOCAL WindowSN)

// Status = "GPS Enabled" , "GPS Disabled" , "GPS off service" , "GPS Unavailable" , "GPS available"

sRetorno is string = ""

IF GPSStatus() = gpsEnabled THEN
IF WindowSN = "S" THEN
Info("Gps habilitado")
END
sRetorno = "Gps habilitado"
ELSE IF GPSStatus() = gpsDisabled THEN
IF WindowSN = "S" THEN
Info("Gps desabilitado")
END
sRetorno = "Gps desabilitado"
ELSE IF GPSStatus() = gpsOffService THEN
IF WindowSN = "S" THEN
Info("Gps sem serviço")
END
sRetorno = "Gps sem serviço"
ELSE IF GPSStatus() = gpsUnavailable THEN
IF WindowSN = "S" THEN
Info("Gps indisponível.")
END
sRetorno = "Gps indisponível."
ELSE IF GPSStatus() = gpsAvailable THEN
IF WindowSN = "S" THEN
Info("Gps disponível.")
END
sRetorno = "Gps disponível."
ELSE IFGPSStatus() = gpsOffService OR GPSStatus() = gpsUnavailable OR GPSStatus() = gpsError THEN
IF WindowSN = "S" THEN
Info("Região sem serviço de GPS",ErrorInfo())
END
sRetorno = "Região sem serviço de GPS."
END

RESULT(sRetorno)
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:29
Procedure GPS_Stop()

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

GPSStopDetection(gloGPS_DetectID)

GPSEnd ()

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