azzzz.... grande li catta tutti
Volendo si può vedere anche la direzione perché ho notato che la longitudine e la latitudine aumentano oppure diminuiscono a seconda dell'allontanamento della posizione del punto attuale quindi la direzione si può sapere
Troppo difficile poi mi si brucia il cervello, mi basta la segnalazione e la velocità che la macchina deve tenere quando mi avvicino a 100 MT dell'autovelox che imposto dalle impostazioni dell'app più se vicino c'è un altro autovelox sono fregato. Però ho studiato il modo di sbloccare la cosa tramite i comandi al volante della macchina che inviano dei caratteri come se fosse una tastiera
Con una box android collegata all'infotaiment della macchina, questo per il gruppo fiat, ho modificato il main di b4xpagas intercetta l'evento keypress come la tastiera, però prima devi lanciare con media player un piccolo file sonoro ad esempio all'avvio dell'app per abilitare ETM della macchina ad inviare i comandi al volante.
Guarda l'inizio del video che la vedi nel braccio della macchina, il display è l'originale che ha Apple carplay e la box deve essere Apple carplay con installato sopra android auto, sono quasi tutte così le box per automobili
del motore potenziato che viene depotenziato in fabbrica.
private Sub Get_Autovelox(CurrentLocation As Location)
Dim RS As ResultSet
Dim AutoveloxFounded As List
GettingAutovelox = True
Sleep(0)
'Inizializzo la list degli id degli autovelox trovati per non reinserirli dopo il primo inserimento
If AutoveloxFoundedId.IsInitialized = False Then
AutoveloxFoundedId.Initialize
End If
'Cerco gli autovelox nella zona e alla distanza specificata
Try
RS = Functions.SQLConn.ExecQuery("SELECT * FROM Autovelox WHERE (Latitude > " & _
(CurrentLocation.Latitude-(AppSettings.AutoveloxDistance/100000)) & " And Latitude < " & (CurrentLocation.Latitude+(AppSettings.AutoveloxDistance/100000)) & _
") And (Longitude > " & (CurrentLocation.Longitude-(AppSettings.AutoveloxDistance/100000)) & " And Longitude < " & (CurrentLocation.Longitude+(AppSettings.AutoveloxDistance/100000)) & ")")
RS.Position = 0
'Numero di autovelox trovati
AutoveloxCounter = RS.RowCount
Catch
AutoveloxCounter = 0
End Try
'se li trovo nell'intervallo specificato li visualizzo
If AutoveloxCounter > 0 Then
'Inizializzo la list degli autovelox trovati ogni volta per aggiornare il dato della distanza
AutoveloxFounded.Initialize
RS.Position = 0
'Per ogni autovelox del recordset che ho trovato nella distanza specificata
For i = 0 To (RS.RowCount-1)
Dim Autovelox As AutoveloxProp
RS.Position = i
'***Inserisco l'autovelox se non già trovato
If AutoveloxFoundedId.IndexOf(RS.GetInt("Id")) = -1 Then
'inserisco id dell'autovelox nella list di quelli già trovati
AutoveloxFoundedId.Add(RS.GetInt("Id"))
'Visualizzo l'autovelox sulla mappa
GoogleMap.AddMarker3(RS.GetDouble("Latitude"),RS.GetDouble("Longitude"),"Autovelox",LoadBitmap(File.DirAssets,"Autovelox.png"))
End If
'Salvo le proprietà dell'autovelox nella list di quelli trovati
Autovelox.AutoveloxId = RS.GetInt("Id")
Autovelox.Latitude = RS.GetDouble("Latitude")
Autovelox.Longitude = RS.GetDouble("Longitude")
Autovelox.Lim = RS.GetInt("Lim")
Autovelox.Dist = Get_AutoveloxDist(CurrentLocation,Autovelox)
AutoveloxFounded.Add(Autovelox)
Next
'***Ordino per distanza dalla più piccola alla più grossa per trovare l'autovelox più vicino
AutoveloxFounded.SortType("Dist",True)
Dim NearestAutovelox As AutoveloxProp
NearestAutovelox = AutoveloxFounded.Get(0)
AutoveloxDistShowed_Update(NearestAutovelox)
'Se non ho ancora visualizzato l'informazione sull'autovelox la visualizzo
If AutoveloxAlertEnabled = False Then Autovelox_Alert
Else if AutoveloxCounter = 0 Then
AutoveloxAlertEnabled = False
End If
GettingAutovelox = False
End Subprivate Sub Get_AutoveloxDist(CurrentLocation As Location,Autovelox As AutoveloxProp) As Float
Dim AutoveloxLocation As Location
'Calcolo la distanza di ogni autovelox trovato nella distanza specificata
AutoveloxLocation.Initialize
AutoveloxLocation.Latitude = Autovelox.Latitude
AutoveloxLocation.Longitude = Autovelox.Longitude
Return AutoveloxLocation.DistanceTo(CurrentLocation)
End SubAltra info per gli SMANETTONI DI AUTO CHE SERVE A NON FARSI INGANNARE E DERUBARE:
Le centraline motore di oggi 2023 in poi sono bloccate con i cosidetti lokedByte in modo da non rimapparle, uno compra la macchina depotenziata con lo stesso motore di quella potente e la rimappa alla versione più potente per ovvi motivi, per cui ad oggi queste centraline sono inviolabili se non con la centralina aggiuntiva, anche le precedenti, gran cagata scusate il termine, questo perchè il sottoscritto l'ha provata e altro non fa che ingannare la centralina motore tramite un software interno scritto in C passando dati fasulli sui sensori turbo e benzina. All'inizio sembra che la macchina vada di più e in effetti è così ma appena si schiaccia un po sull'acceleratore il limitatore di coppia della macchina interviene e ciao potenza si sente un brusco calo di potenza quindi la macchina spinge per qualche secondo poi toglie potenza, bisogna accelerare poco alla volta e che serve??? a nulla. Meglio una bella mappa che la porta a 300cv
Occhio a non buttare soldi per le stupidate elettroniche e la mappa va fatta togliendo la centralina fisicamente facendo il PIN to PIN e non via OBD.
