-
|
.
|
| BUONASERA A TUTTI/E....
Grazie mille Joe per le dritte, l'ultimo script mi da una serie di errori che nei script precedenti ero riuscito a risolvere, ma in quest'ultimo no....credo sia un problema di compatibilità....
BUON WEEKEND ! |
|
-
|
.
|
| Buongiorno a tutte/i,
grazie joe dell'aggiornamento, avevo notato che lo script precedente teneva conto della distanza 30 in qualsiasi posizione estrazionale, per non disturbare una volta rintracciata la distanza andavo a vedere ogni estrazione....
GRAZIE mille per la perfezione....
PS: se non chiedo troppo, è possibile ricercare la terzina ricavata su tutte le ruote per capire dove compare più spesso l'ambo in terzina?
per poi giocarlo in esse? se complicato farò la ricerca a mano....
Edited by Franco Sedonati - 12/7/2020, 11:21 |
|
-
|
.
|
| | Esatto riassunto perfetto! Grazie |
|
-
|
.
|
| Buona Domenica a tutti,
un'infinite grazie a J-Gio91 per lo script e il suo tempo dedicatomi, anche per me va bene spostare la discussione...
Mandj mandj
Ps: da solo non ci sarei mai arrivato , nella mia testa la logica è completamente diversa , per ora non riesco a capire come "ragiona" lo script.
Tu hai spiegato bene |
|
-
|
.
|
| buongiorno a tutti,
J-Gio91 continuo a disturbarti...
CODICE Sub Main
Dim Ini,Fin,Es,R,RN,P,Q,S,E(5),D
Dim Out 'PER COMPATIBILITA' L8 6
Ini = EstrazioneFin - 9
Fin = EstrazioneFin
D = 30
For Es = Ini To Fin
Scrivi DataEstrazione(Es),True
For R = 1 To 12
Out = FormatSpace(NomeRuota(R),10)
For P = 1 To(5)
E(P) = Format2(Estratto(Es,R,P))
Next
Out = Out & StringaNumeri(E) & " " & Space(1)
OrdinaMatrice E,False
For P = 1 To 4
For Q = P + 1 To 5
If Abs (E(P)-E(Q)) = D Then ' DIFFERENZA ASSOLUTA
' NUOVA PARTE
E(S) = E(P) + 30
If E(S) = E(Q) Then
E(S) = E(P) + 60
If E(S) > 90 Then
E(S) = E(S) - 90
End If
End If
' FINE PARTE NUOVA
Out = Out & E(P) & "." & E(Q) & Space(1) '& "+" & Space(1) & E(S)
End If
Next
Next
Scrivi Out ' Tutto assieme in una linea
Next
Scrivi String(43,"-")
Next
End Sub
in centro al codice c'è la parte che ho modificato per trovare l'elemento C mancante...all'inizio mi restituiva in alcuni casi un valore superiore a 90, una volta fatta la correzione mi dà questo risultato:
13.06.2020
Bari 47.29.83.23.35
Cagliari 52.59.47.90.58
Firenze 39.27.69.57.66 39.69 27.57
Genova 56.60.84.13.15
Milano 61.09.63.14.20
Napoli 71.22.31.34.38
Palermo 48.77.14.71.61
Roma 68.70.10.39.86
Torino 20.53.90.69.66
Venezia 84.28.05.13.56
Tutte
Nazionale 57.07.52.84.75
-------------------------------------------
16.06.2020
Bari 90.22.52.65.67 22.52
Cagliari 26.71.70.49.65
Firenze 59.40.18.36.42
Genova 31.78.08.15.65
Milano 58.14.48.05.07
Napoli 39.46.79.59.19
Palermo 83.53.13.45.41 83.53
Roma 37.02.26.28.20
Torino 76.18.15.08.67
Venezia 89.02.46.48.87
Tutte
Nazionale 24.68.54.31.10 24.54
-------------------------------------------
non mi inserisce più il terzo elemento e dovrebbe inserirlo così:
Nazionale 24.68.54.31.10 24.54 + 84
non riesco a capire dove sbaglio, mi puoi aiutare a risolvere...grazie
poi vedrò come fare per fare la ricerca del terzo elemento sulle altre ruote
grazie e buon week end |
|
-
|
.
|
| Wow fantastico l'ultimo messaggio ! Molto bello anche il risultato da vedere...stò ancora sbattendo la testa con il trovare "l'elemento C" , ci ero parzialmente riuscito ma in alcune estrazioni l'elemento B era uguale ad A, prima di chiedere aiuto voglio riprovare partendo di nuovo da capo....grazie...
PS: Ho l8 6.1.34 , è abbastanza recente come versione ? |
|
-
|
.
|
| Ciao J-GIO91, si ho sbagliato...era l'80 sulle due ruote successive...io cerco una terzina con distanza 30, se per esempio trovo 1 e il 31 a Bari, devo cercare (se c'è) il 61 su una delle altre ruote...Nazionale compresa...forse così sono più chiaro...per capire...ho sbagliato a pensare che bisogna modificare quella parte di codice che avevo scritto ?
Grazie |
|
-
|
.
|
| buonasera a tutti....ho cercato in rete informazioni per installare spaziometria su win 10 senza risultato, se qualcuno avesse una procedura e mi volese aggiornare sarei grato...
J-Gio91, se adesso volessi trovare il terzo numero mancante della terzina distanza 30 (l'ambo l'ho trovato con il tuo secondo script) quale parte di codice dovrei aggiungere?
Dovrei in qualche modo verificare tutti gli altri estratti con i 2 numeri rilevati....
quindi dovrei prendere E(P) ed E(Q) e verificare che tra gli altri estratti ci sia nuovamente la distanza 30
Credo che dovrei modificare questa parte dello script
OrdinaMatrice E,False
For P = 1 To 4
For Q = P + 1 To 5
If Abs (E(P)-E(Q)) = D Then ' DIFFERENZA ASSOLUTA
Out = Out & E(P) & "." & E(Q) & Space(1)
End If
Ma per quanto mi sono scervellato non sono arrivato a nessuna conclusione....
Ho fatto questa modifica per vedere anche la Nazionale:
For R = 1 To 10 ------> For R = 1 To 12
Esempio:
25.06.2020
Bari 26.50.20.27.64 50.20 26
Cagliari 52.36.25.37.09
Firenze 63.31.41.50.07
Genova 30.48.85.81.68 30
Milano 80.15.77.29.90
Napoli 47.67.51.85.80
Palermo 88.28.46.29.13
Roma 89.75.74.46.48
Torino 07.22.08.51.11
Venezia 65.90.14.71.53
Tutte
Nazionale 56.52.31.86.17 56.86
A Bari c'è l'Ambo 50.20 e il mancante 30 si trova a Genova, mentre sulla Nazionale c'è l'Ambo 56.86 e il mancante 26 a Bari
GRAZIE |
|
-
|
.
|
| | Buongiorno e grazie, avevo provato a scaricare spaziometria, ma non mi funziona...io ho Windows 10... Può essere che ho letto che funziona solo con WindowsXP ? |
|
-
|
.
|
| Buongiorno a tutti/e !
Sono riuscito solo oggi a mettermi davanti al pc....
Grazie mille J-Gio91 per la tua "lezione" ed ho capito che è molto difficile come argomento per me...non riesco a seguire tutti i passaggi delle varie variabili e come "ragiona" il programma...in alcuni passaggi ho dovuto togliere il comando "False" altrimenti mi dava errore450, (riga 10 , 14 , 19).
Stò cercando di capire perchè nel report mi indica anche i numeri che hanno una distanza pari a 60.... |
|
-
|
.
|
| | Grazie mille per queste 2 risposte, domani ci studio sopra...ora vado a dormire, domani sveglia alle 4:45...grazie grazie e buona serata ! |
|
-
|
.
|
| | Grazie, vedrò di studiare e ci provo...guardando qualche script già compilato non ho capito niente... |
|
-
|
.
|
| Buonasera, come faccio con uno script a cercare 2numeri vicini e non,sulla stessa ruota con distanza 30 e l'isotopo di uno dei due precedenti ? Grazie
Edited by J-Gio91 - 8/7/2020, 22:09 |
|
-
|
.
|
| | Buongiorno,guardando nell'indice di l8+_6.0 non ho capito niente del linguaggio...voglio imparare ad arrangiarmi, avete dei tutorial o delle spiegazioni più chiare, magari anche con degli esempi...devo cercare tra tutti gli estratti una distanza specifica...grazie |
|
14 replies since 10/6/2020
.
