FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
GPS Status
GPS Status
Iniciado por Caio de Jesus, 17,abr. 2024 19:44 - 1 respuesta
Conéctese…
Caio de Jesus
#1
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
Informar
0
0
Boller
#2
Miembro registrado
3.659 mensajes
Popularité : +175 (223 votes)
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/
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto