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)