FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
GPS Status
GPS Status
Débuté par Caio de Jesus, 17 avr. 2024 19:44 - 1 réponse
Connectez-vous…
Caio de Jesus
#1
Membre enregistré
1 message
Posté le 17 avril 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
Signaler
0
0
Boller
#2
Membre enregistré
3 662 messages
Popularité : +175 (223 votes)
Posté le 17 avril 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/
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte