|
Débuté par adrianoboller, 24 nov. 2014 13:04 - 1 réponse |
| |
| | | |
|
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 13:04 |
Procedure GPS_Itinerario_Iniciar(LOCAL ControleMapa, LOCAL EnderecoSaida, LOCAL EnderecoChegada, LOCAL ModoCBMP, LOCAL CorRed, LOCAL CorGreen, LOCAL CorBlue, LOCAL Transparencia, LOCAL Pixels)
Retorno is string = ""
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF GPSStatus() = gpsEnabled OR GPSStatus() = gpsAvailable THEN
IF ModoCBMP = "Carro" THEN ModoCBMP = itineraryCar ELSE IF ModoCBMP = "Bicicleta" THEN ModoCBMP = itineraryCyclist ELSE IF ModoCBMP = "Manual" THEN ModoCBMP = itineraryManual ELSE IF ModoCBMP = "Bicicleta" THEN ModoCBMP = itineraryPedestrian END
CorIntinerario is int = RGB(CorRed, CorGreen, CorBlue)
IF EnderecoSaida <> "" AND EnderecoChegada <> "" gloGPS_ItinerarioID = MapAddItinerary(ControleMapa, [ EnderecoSaida, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EnderecoSaida = "" AND EnderecoChegada <> "" Info("Endereço de Saída Vazio!...") ELSE IF EnderecoChegada = "" Info("Endereço de Chegada Vazio!...") END
IF gloGPS_ItinerarioID = "" THEN Info("Ocorreu um erro ao gerar o intinerario.",ErrorInfo()) Retorno = False ELSE Retorno = True 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(Retorno) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 24 novembre 2014 - 13:06 |
Itinerary with 15 points:
Procedure GPS_Itinerario15Pontos_Iniciar(LOCAL ControleMapa, LOCAL EnderecoSaida, LOCAL EndInt01, LOCAL EndInt02, LOCAL EndInt03, LOCAL EndInt04, LOCAL EndInt05, LOCAL EndInt06, LOCAL EndInt07, LOCAL EndInt08, LOCAL EndInt09, LOCAL EndInt10, LOCAL EndInt11, LOCAL EndInt12, LOCAL EndInt13, LOCAL EndInt14, LOCAL EndInt15, LOCAL EnderecoChegada, LOCAL ModoCBMP, LOCAL CorRed, LOCAL CorGreen, LOCAL CorBlue, LOCAL Transparencia, LOCAL Pixels)
Retorno is string = ""
IF ControleMapa = "" THEN ControleMapa = gloControleMapa END
IF ModoCBMP = "Carro" THEN ModoCBMP = itineraryCar ELSE IF ModoCBMP = "Bicicleta" THEN ModoCBMP = itineraryCyclist ELSE IF ModoCBMP = "Manual" THEN ModoCBMP = itineraryManual ELSE IF ModoCBMP = "Bicicleta" THEN ModoCBMP = itineraryPedestrian ELSE ModoCBMP = itineraryCar END
CorIntinerario is int = RGB(CorRed, CorGreen, CorBlue) IF CorIntinerario = 0 THEN CorIntinerario = RGB(255, 0, 0) END IF Transparencia = "" THEN Transparencia = 60 END IF Pixels = "" THEN Pixels = 8 END
IF EndInt01 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt01 <> "" AND EndInt02 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt02 <> "" AND EndInt03 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt03 <> "" AND EndInt04 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt04 <> "" AND EndInt05 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt05 <> "" AND EndInt06 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt06 <> "" AND EndInt07 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt07 <> "" AND EndInt08 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt08 <> "" AND EndInt09 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt09 <> "" AND EndInt10 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt10 <> "" AND EndInt11 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt11 <> "" AND EndInt12 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt12 <> "" AND EndInt13 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt13 <> "" AND EndInt14 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EndInt13, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt14 <> "" AND EndInt15 = "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EndInt13, EndInt14, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt15 <> "" gloGPS_ItinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EndInt13, EndInt14, EndInt15, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) END END
IF gloGPS_ItinerarioID = "" THEN Info("Ocorreu um erro ao gerar o intinerario.",ErrorInfo()) Retorno = False ELSE Retorno = True END
RESULT(Retorno) |
| |
| |
| | | |
|
| | | | |
| | |
|