|
FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile |
| | | | | |
| Iniciado por Caio de Jesus, 17,abr. 2024 19:44 - 1 respuesta |
| |
| | | |
|
| |
Miembro registrado
1 mensaje |
|
| Publicado el 17,abril 2024 - 19:44 |
// Summary: <specify the procedure action>
// Syntax:
//GpsStatus (<GPS_Status> is int)
//
// Parameters:
// GPS_Status (int):
// Example:
// <Specify a usage example>
//
PROCEDURE GpsStatus(GPS_Status is int)
rLatitude,rLongitude are real
rMinhaPosicaoAntiga, rMinhaposicaoAtual is geoPosition
//Suzano
rMinhaPosicaoAntiga.Latitude = -23.6148228
rMinhaPosicaoAntiga.Longitude = -46.484233
GPSInitParameter(gpsAuto,gpsDirection+gpsEnergyLow)
rMinhaposicaoAtual = GPSLastPosition()
IF rMinhaposicaoAtual.Latitude = 0 OR rMinhaposicaoAtual.Longitude = 0 THEN
rMinhaposicaoAtual = rMinhaPosicaoAntiga
END
SWITCH GPS_Status
CASE gpsUnavailable
ToastDisplay("GPS Indisponível")
CASE gpsEnabled
ToastDisplay("GPS está ativado")
CASE gpsDisabled
ToastDisplay("GPS está desabilitado")
CASE gpsAvailable
rMinhaposicaoAtual = GPSGetPosition(1000,"Obtendo sua localização...")
IF ErrorOccurred = False THEN
GPSEnd()
ELSE
Info(rMinhaposicaoAtual.Latitude,rMinhaposicaoAtual.Longitude)
END
CASE gpsOffService
ToastDisplay("GPS fora de serviço")
OTHER CASE
ToastDisplay("Informação Inesperada")
END |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4.521 mensajes |
|
| Publicado el 17,abril 2024 - 20:41 |
// Summary: <specify the procedure action>
// Syntax:
//Gpsinicializa ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// GPS_Status (int):
PROCEDURE Gpsinicializa()
rLatitude,rLongitude are real
rMinhaPosicaoAntiga, rMinhaposicaoAtual is geoPosition
//Suzano
rMinhaPosicaoAntiga.Latitude = -23.6148228
rMinhaPosicaoAntiga.Longitude = -46.484233
IF GPSStatus() <> gpsEnabled THEN
Info("Habilite o gps do Celular!")
RETURN
ELSE
GPSInitParameter(gpsSatellite,gpsDirection+gpsEnergyLow+gpsPrecisionLow)
GPSGetPosition(300,"Inicializando GPS...")
rMinhaposicaoAtual = GPSLastPosition()
IF rMinhaposicaoAtual.Latitude = 0 OR rMinhaposicaoAtual.Longitude = 0 THEN
rMinhaposicaoAtual = rMinhaPosicaoAntiga
END
SWITCH GPSStatus
CASE gpsUnavailable
ToastDisplay("GPS Indisponível")
CASE gpsEnabled
ToastDisplay("GPS está ativado")
CASE gpsDisabled
ToastDisplay("GPS está desabilitado")
CASE gpsAvailable
rMinhaposicaoAtual = GPSGetPosition(1000,"Obtendo sua localização...")
IF ErrorOccurred = False THEN
GPSEnd()
ELSE
Info(rMinhaposicaoAtual.Latitude,rMinhaposicaoAtual.Longitude)
END
CASE gpsOffService
ToastDisplay("GPS fora de serviço")
OTHER CASE
ToastDisplay("Informação Inesperada")
END
MultitaskApp(300)
GPSFollowMovement(GPSLatitudeLongitudeAtual,300)
END
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|