PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → GPS - Info - Informacoes
GPS - Info - Informacoes
Débuté par adrianoboller, 24 nov. 2014 12:56 - Aucune réponse
Membre enregistré
3 010 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:56
Procedure GPS_Informacoes(LOCAL WindowSN)

sRetorno is string = ""

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

sAltitude is string = GPSInfo(gpsAltitude)

sDirecao is string = GPSInfo(gpsDirection)

sEnergia is string = GPSInfo(gpsEnergy)

sPrecisao is string = GPSInfo(gpsPrecision)

sTipo is string = GPSInfo(gpsType)

sVelocidade is string = GPSInfo(gpsSpeed)

sRetorno = sAltitude +", "+ sDirecao +", "+ sEnergia +", "+ sPrecisao +", "+ sTipo +", "+ sVelocidade

IF WindowSN = "S" THEN
Info(sRetorno)
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(sRetorno)