PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → GPS - Init - Inicializar
GPS - Init - Inicializar
Débuté par adrianoboller, 24 nov. 2014 12:57 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 24 novembre 2014 - 12:57
Procedure GPS_Inicializar(LOCAL TipoANS, LOCAL IntensidadeAMB, LOCAL PrecisaoAB)

//Ex.: GPS_Inicializar("A", "A", "A")
//Ex.: GPS_Inicializar("N", "M", "B")
//Ex.: GPS_Inicializar("S", "B", "B")


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

IF TipoANS = "A" THEN

IF IntensidadeAMB = "A" THEN
IF PrecisaoAB = "A" THEN
//A, A, A
GPSInitParameter(gpsAuto, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyHigh+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsAuto, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyHigh+gpsPrecisionLow)
END
ELSE IF IntensidadeAMB = "M"
IF PrecisaoAB = "A"
GPSInitParameter(gpsAuto, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyMedium+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsAuto, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyMedium+gpsPrecisionLow)
END
ELSE IF IntensidadeAMB = "B"
IF PrecisaoAB = "A"
GPSInitParameter(gpsAuto, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyLow+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsAuto, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyLow+gpsPrecisionLow)
END
END

ELSE IF TipoANS = "N" THEN

IF IntensidadeAMB = "A" THEN
IF PrecisaoAB = "A"
GPSInitParameter(gpsNetwork, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyHigh+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsNetwork, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyHigh+gpsPrecisionLow)
END
ELSE IF IntensidadeAMB = "M"
IF PrecisaoAB = "A"
GPSInitParameter(gpsNetwork, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyMedium+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsNetwork, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyMedium+gpsPrecisionLow)
END
ELSE IF IntensidadeAMB = "B"
IF PrecisaoAB = "A"
GPSInitParameter(gpsNetwork, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyLow+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsNetwork, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyLow+gpsPrecisionLow)
END
END

ELSE IF TipoANS = "S" THEN

IF IntensidadeAMB = "A"
IF PrecisaoAB = "A"
GPSInitParameter(gpsSatellite, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyHigh+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsSatellite, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyHigh+gpsPrecisionLow)
END
ELSE IF IntensidadeAMB = "M"
IF PrecisaoAB = "A"
GPSInitParameter(gpsSatellite, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyMedium+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsSatellite, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyMedium+gpsPrecisionLow)
END
ELSE IF IntensidadeAMB = "B"
IF PrecisaoAB = "A"
GPSInitParameter(gpsSatellite, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyLow+gpsPrecisionHigh)
ELSE IF PrecisaoAB = "B"
GPSInitParameter(gpsSatellite, gpsAltitude+gpsDirection+gpsSpeed+gpsEnergyLow+gpsPrecisionLow)
END
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(GPSStatus())