|
GPS - Change Marker - Alterar Marcador |
Débuté par adrianoboller, 24 nov. 2014 13:15 - 4 réponses |
| |
| | | |
|
| |
Membre enregistré 3 657 messages Popularité : +175 (223 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é 3 657 messages Popularité : +175 (223 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
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é 3 657 messages Popularité : +175 (223 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é 3 657 messages Popularité : +175 (223 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 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é 3 657 messages Popularité : +175 (223 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)) |
| |
| |
| | | |
|
| | | | |
| | |
|