|
Started by adrianoboller, Nov., 24 2014 12:58 PM - 1 reply |
| |
| | | |
|
| |
Registered member 3,659 messages Popularité : +175 (223 votes) |
|
Posted on November, 24 2014 - 12:58 PM |
Procedure GPS_Intinerario2Pontos_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 ELSE ModoCBMP = itineraryCar END
CorIntinerario is int = RGB(CorRed, CorGreen, CorBlue)
IF EnderecoSaida <> "" AND EnderecoChegada <> "" gloGPS_IntinerarioID = 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_IntinerarioID = "" 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) |
| |
| |
| | | |
|
| | |
| |
Registered member 3,659 messages Popularité : +175 (223 votes) |
|
Posted on November, 24 2014 - 12:58 PM |
Procedure GPS_Intinerario15Pontos_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_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt01 <> "" AND EndInt02 = "" gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt02 <> "" AND EndInt03 = "" gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt03 <> "" AND EndInt04 = "" gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt04 <> "" AND EndInt05 = "" gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt05 <> "" AND EndInt06 = "" gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt06 <> "" AND EndInt07 = "" gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt07 <> "" AND EndInt08 = "" gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels) ELSE IF EndInt08 <> "" AND EndInt09 = "" gloGPS_IntinerarioID = 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_IntinerarioID = 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_IntinerarioID = 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_IntinerarioID = 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_IntinerarioID = 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_IntinerarioID = 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_IntinerarioID = 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_IntinerarioID = 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_IntinerarioID = "" THEN Info("Ocorreu um erro ao gerar o intinerario.",ErrorInfo()) Retorno = False ELSE Retorno = True END
RESULT(Retorno) |
| |
| |
| | | |
|
| | | | |
| | |
|