PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → GPS - Change Marker - Alterar Marcador
GPS - Change Marker - Alterar Marcador
Débuté par adrianoboller, 24 nov. 2014 13:15 - 4 réponses
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:15
Procedure GPS_Marcador_Alterar(LOCAL ControleMapa, LOCAL TipoPM, LOCAL Latitude, LOCAL Longitude, LOCAL NomeProduto, LOCAL ImagemPNG, LOCAL WindowSN)

ok = False

IF ControleMapa = "" THEN
ControleMapa = gloControleMapa
END

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

MyPosition is geoPosition
MyPosition..Latitude = Latitude
MyPosition..Longitude = Longitude

MyMarker is Marker
MyMarker..Position = MyPosition
MyMarker..ActionClick = GPS_ProcMarkerClick
MyMarker..Name = NomeProduto
MyMarker..Image = ImagemPNG

IF TipoPM = "P" THEN
MinhaPosicao is geoPosition = GPSGetPosition()
MyMarker..Position = MinhaPosicao
ok = MapModifyMarker(ControleMapa, MyMarker)
ELSE IF TipoPM = "M" THEN
ok = MapModifyMarker(ControleMapa, MyMarker)
END

IF ok = False THEN
IF WindowSN = "S"
Info("Erro ao modificar o marcado.", ErrorInfo())
END
ELSE
IF WindowSN = "S"
Info("Marcador modificado com sucesso!...")
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(ok)
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:23
Procedure GPS_Marcador_Excluir(LOCAL ControleMapa, LOCAL Latitude, LOCAL Longitude, LOCAL WindowSN)

ok = False

IF ControleMapa = "" THEN
ControleMapa = gloControleMapa
END

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

// Delete a marker
MyMarker is Marker
MyMarker..Position..Latitude = Latitude
MyMarker..Position..Longitude = Longitude

ok = MapDeleteMarker(ControleMapa, MyMarker)

IF ok = True THEN
IF WindowSN = "S" THEN
Info("Marcador excluido com sucesso!...")
END
ELSE
IF WindowSN = "S" THEN
Info("Marcador não foi excluido.",ErrorInfo())
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(ok)
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:23
Procedure GPS_Marcador_ExcluirTodos(LOCAL WindowSN)

MapDeleteAll(WIN_OS_04GPS.ControleMapa)

IF WindowSN = "S" THEN
Info("Marcadores excluidos...")
END
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:24
Procedure GPS_Marcador_Incluir(LOCAL ControleMapa, LOCAL TipoPML, LOCAL Latitude, LOCAL Longitude, LOCAL NomeProduto, LOCAL ImagemPNG, LOCAL WindowSN)

ok = False

IF ControleMapa = "" THEN
ControleMapa = gloControleMapa
END

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

MyPosition is geoPosition
MyPosition..Latitude = Latitude
MyPosition..Longitude = Longitude

MyMarker is Marker
MyMarker..Position = MyPosition
MyMarker..ActionClick = GPS_ProcMarkerClick
MyMarker..Name = NomeProduto
MyMarker..Image = ImagemPNG

IF TipoPML = "P" THEN //Minha Posicao
MinhaPosicao is geoPosition = GPSGetPosition()
ok = MapAddMarker(ControleMapa, MinhaPosicao)
ELSE IF TipoPML = "M" THEN
ok = MapAddMarker(ControleMapa, MyMarker)
ELSE IF TipoPML = "L" THEN
ok = MapAddMarker(ControleMapa , Latitude , Longitude)
END

IF ok = False THEN
IF WindowSN = "S"
Info("Erro ao criar o marcado.", ErrorInfo())
END
ELSE
IF WindowSN = "S"
Info("Marcador criado com sucesso!...")
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(ok)
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:27
Procedure GPS_ProcMarkerClick(MyMark is Marker)

ToastDisplay(StringBuild("Posição: %1 N, %2 E ", MyMark..Position..Latitude, MyMark..Position..Longitude))