-
.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 !
Ciao,
ho riscritto le 2 "Sub" perché avevo dimenticato che lo script dovesse girare con le vecchie versioni di L8.
Non le ho provate perché (al momento) non ho un PC con cui farlo.
L'output è diverso da quello che si può ottenere con versioni più nuove di L8/LD e Spaziometria.
Naturalmente devi cancellare le 2 Sub in fondo allo script (che non funzionano sul tuo PC),
ed al loro posto incollare queste.CODICESub UltimeCadute(Nu)
Dim Ini,Fin,Es,G,R,P,E,X
Dim T,Out 'Output compabile per vecchie versioni L8+
Ini = EstrazioneFin - 17 : Fin = EstrazioneFin
Scrivi
Titoli
For Es = Ini To Fin
Out = DataEstrazione(Es) & " | "
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5 : T = False
E = Estratto(Es,R,P)
For X = 1 To 3
If Nu(X) = E Then Out = Out & Format2(E) & " " : T = True
Next
If T = False Then Out = Out & ".. "
Next
Out = Out & "| "
Next
Scrivi Out
Next
Titoli
End Sub
Sub Titoli
Dim R,Sp1,Sp2,LNR
Dim Out 'Output compabile per vecchie versioni L8+
Out = Space(3) & "DATA" & Space(4) & "|"
For R = 1 To 12 : If R = 11 Then R = 12
LNR = Len(NomeRuota(R)) : Sp1 = Int((16 - LNR)/2) : Sp2 =(16 - LNR - Sp1)
Out = Out & Space(Sp1) & NomeRuota(R) & Space(Sp2) & "|"
Next
Scrivi Out
End Sub -
.
Buon Giorno a tutte/i.
Nel messaggio precedente ho posto in evidenza come nello script
le variabili sono organizzate in gruppi distinti.
Numeri / Ruote / Posizioni
Dunque dopo aver predisposto un contenitore,
e con esso aver raccolto il gruppo dei 3 Numeri (in distanza 30),
essi possono essere utilizzati per evidenziare le loro cadute
nelle estrazioni precedenti e nelle varie ruote.
Per questo ho scritto una routine a sé stante.
Così, con essa è reso evidente come possa funzionare "qui-adesso"
e come possa analogamente essere aggiunta al corredo di altri script,
per svolgere lo stesso compito in altri contesti.
La prova di questo è in quanto fatto con la "seconda-aggiunta".
Cioè per i "Titoli" delle colonne.
Ricordando di aver già scritto questa "parte di programma"
per altri scopi ... l'ho copiata ed incollata qui.
Aggiungendola, senza doverla riscrivere dal principio.CODICEOption Explicit
Sub Main
'Ricerca Ambo Simmetrico + Terzo Mancante Isotopo (in altra ruota)
'Script By Joe V.2.0 By Joe del 22/07/2020
'https://illottodisean69.forumfree.it/?t=77700407&st=15#entry641926956
Dim Ini,Fin,Es,D,M,P,Q,R,S,T
Dim Out 'Output compabile per vecchie versioni L8+
Dim E(5),Nu(3),Ru(2)
D = 30
Ini = EstrazioneFin - 155
Fin = EstrazioneFin
For Es = Ini To Fin
For R = 1 To 12
If R = 11 Then R = 12
For P = 1 To 5
E(P) = Estratto(Es,R,P)
Next
For P = 1 To 4
For Q = P + 1 To 5
If Distanza(E(P),E(Q)) = D Then ' Distanza Ciclometrica
M = Fuori90(E(P) + D)
If M = E(Q) Then M = Fuori90(E(P) + 2*D)
For S = 1 To 12 : If S = 11 Then S = 12
T = Posizione(Es,S,M)
If T = P Or T = Q Then
Out = DataEstrazione(Es) & Space(1)
Out = Out & String(10 - Len(NomeRuota(R)),".") & Space(1)
Out = Out & NomeRuota(R) & Space(1)
Out = Out & Format2(E(P)) & "." & Format2(E(Q))
Out = Out & " + " & Format2(M) & Space(1)
Out = Out & NomeRuota(S) & Space(1)
Out = Out & String(10 - Len(NomeRuota(S)),".") & Space(1)
Out = Out & P & "° e " & Q & "° + " & T & "° "
Scrivi Out
Nu(1) = E(P) : Nu(2) = E(Q) : Nu(3) = M
End If
Next
End If
Next
Next
Next
Next
Call UltimeCadute(Nu)
End Sub
Sub UltimeCadute(Nu)
Dim Ini,Fin,Es,G,R,P,E,X
Ini = EstrazioneFin - 17 : Fin = EstrazioneFin
Scrivi
Titoli
For Es = Ini To Fin
Scrivi DataEstrazione(Es) & " | ",True,False
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P)
For X = 1 To 3
If Nu(X) = E Then ColoreTesto 2 : G = True
Next
Scrivi Format2(E),G,0
ColoreTesto 0 : G = False
If P < 5 Then Scrivi ".",False,False
Next
Scrivi " | ",True,False
Next
Scrivi
Next
Titoli
End Sub
Sub Titoli
Dim R,Sp1,Sp2,LNR
Scrivi Space(3) & "DATA" & Space(4),True,False
Scrivi "|",True,False
For R = 1 To 12 : If R = 11 Then R = 12
LNR = Len(NomeRuota(R)) : Sp1 = Int((16 - LNR)/2) : Sp2 =(16 - LNR - Sp1)
Scrivi Space(Sp1) & NomeRuota(R) & Space(Sp2) & "|",1,0
Next : Scrivi
End Sub -
.si certamente se la somma da un numeretto è giusto
10 1 11 19 31
20 2 22 29 53
30 3 33 39 75
40 4 44 49 7
50 5 55 59 29
60 6 66 69 51
70 7 77 79 73
80 8 88 89 5
esatto
saluti
Per J-Gio91 e per i più esperti del forum ho trovato queste terzine TRE NUMERI X AMBO CON SPAZIOMETRIA DA GIOCARE PER 9 COLPI.
se qualcuno avesse convergenze con qualche terzina e pregato di segnalarlo così proviamo a vincere
mancano 4 colpi qualche terzina dovrebbe pagare.
Inizio 09624 - 02/05/2019
Fine 09794 - 14/07/2020
Estratto Vincenti Perdenti In Corso PercPos Pronostico Data Colpi Esito Ruota Rilevamento
I° +16 +30 +67 5 1 0 83.333 % 13.50.89 09792 - 09/07/2020 1 TO 50.89 Torino
I° +16 +67 +81 5 1 0 83.333 % 50.64.89 09792 - 09/07/2020 1 TO 50.89 Torino
I° +41 +53 +89 5 1 0 83.333 % 24.36.72 09792 - 09/07/2020 2 BA 24.36 Torino
I° +32 +41 +89 5 0 1 83.333 % 15.24.72 09792 - 09/07/2020 5 NO Torino
I° +02 +61 +89 5 0 1 83.333 % 44.72.75 09792 - 09/07/2020 5 NO Torino
I° +32 +61 +89 5 0 1 83.333 % 15.44.72 09792 - 09/07/2020 5 NO Torino
II° +57 +73 +81 5 0 1 83.333 % 20.36.44 09792 - 09/07/2020 5 NO Torino
II° +48 +54 +57 5 0 1 83.333 % 11.17.20 09792 - 09/07/2020 5 NO Torino
II° +44 +83 +87 5 1 0 83.333 % 07.46.50 09792 - 09/07/2020 1 TO 50.7 Torino
II° +06 +11 +55 5 0 1 83.333 % 18.59.64 09792 - 09/07/2020 5 NO Torino
II° +11 +38 +42 5 0 1 83.333 % 01.05.64 09792 - 09/07/2020 5 NO Torino
II° +11 +42 +55 5 0 1 83.333 % 05.18.64 09792 - 09/07/2020 5 NO Torino
III° +31 +59 +65 5 0 1 83.333 % 44.72.78 09792 - 09/07/2020 5 NO Torino
III° +31 +33 +59 5 0 1 83.333 % 44.46.72 09792 - 09/07/2020 5 NO Torino
III° +06 +31 +59 5 0 1 83.333 % 19.44.72 09792 - 09/07/2020 5 NO Torino
IV° +23 +38 +68 5 0 1 83.333 % 02.32.77 09792 - 09/07/2020 5 NO Torino
IV° +26 +44 +68 5 0 1 83.333 % 08.32.80 09792 - 09/07/2020 5 NO Torino
V° +08 +47 +48 5 0 1 83.333 % 12.51.52 09792 - 09/07/2020 5 NO Torino
Per me ... è discussione che non intendo continuare. -
.
Si, ma non è quello che ti ho chiesto.
Alla presenza di alcuni Zerati si ha come Ambata un Numeretto.
10 1 11 19 31
20 2 22 29 53
30 3 33 39 75
40 4 44 49 7
50 5 55 59 29
60 6 66 69 51
70 7 77 79 73
80 8 88 89 5
COSA SI FA ? -
.
Ciao Taurus,
Riguardo il Primo Metodo,
sembra essere possibile che l'ambata sia un numeretto.
Ti chiedo di controllare se i calcoli sono giusti e di specificare,
come deve essere considerata ... la decina ... di questa ambata e
IN QUESTO CASO, come si calcola l'abbinamento per Ambo ?
Per esempio, allego i primi 2 casi, rintracciati dalla bozza cui stavo lavorando:
18.05.2017
PA 33.89.42.30.50
RO 01.20.45.04.50
29
03.06.2017
BA 29.48.50.05.08
CA 53.06.50.84.51
29
20.06.2017
PA 42.05.84.43.40
RO 45.30.05.06.40
7
01.08.2017
NA 80.13.36.73.40
PA 80.44.50.57.48
5
In attesa delle tue istruzioni.
Edited by J-Gio91 - 22/7/2020, 10:30 -
.
Intanto ...
Consiglio come esercizio
di provare a produrre un output simile a questo.
E' molto semplice ottenerlo ri-copiando le istruzioni già scritte
semplicemente aggiungendo all'output (dopo il nome della seconda Ruota (S))
le 3 Posizioni dei numeri (che sono P,Q,T).
----------------------------------------------------------
09.07.2020 .... Genova 77.17 + 47 Roma ...... 3° e 4° + 3°
----------------------------------------------------------
11.07.2020 .. Cagliari 90.30 + 60 Firenze ... 2° e 4° + 2°
----------------------------------------------------------
11.07.2020 .. Cagliari 90.30 + 60 Venezia ... 2° e 4° + 2°
----------------------------------------------------------
16.07.2020 ... Venezia 29.89 + 59 Milano .... 1° e 4° + 1°
----------------------------------------------------------
18.07.2020 .... Genova 62.32 + 02 Bari ...... 4° e 5° + 5°
----------------------------------------------------------
18.07.2020 ...... Roma 12.72 + 42 Genova .... 1° e 4° + 1°
----------------------------------------------------------
Edited by J-Gio91 - 21/7/2020, 21:38 -
.
Ciao,
Ho letto velocemente quanto hai scritto
e penso siano script realizzabili.
Attualmente non ho un PC con cui scrivere
e dovrò anche prima terminare alcuni programmi
cui stavo lavorando.
Se non ci saranno altri interventi prima
appena possibile cercherò di realizzarli. -
.
Ciao Franco,
Quella versione dello script è incompleta.
C'è un ultimo test da introdurre per allinearlo alla richiesta.
Lo avevi scritto in seconda battuta e rileggendo / correggendo
mi sono accorto di averlo dimenticato.
CITAZIONE (Franco Sedonati @ 14/6/2020, 21:39)
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
E' un problema facile da risolvere.
Semplicemente analizzando il valore di alcune considerazioni
Abbiamo detto che l'istruzione "Posizione" (di un numero in una estrazione ed in una ruota)
restituisce un valore da "Zero" a "Cinque" ... lo possiamo memorizzare come valore di "T"
T = Posizione (....) ' memorizza la posizione Trovata
Poi abbiamo già predisposto che "P" e "Q" siano le posizioni dell' Ambo in Distanza 30
Il nuovo Filtro/Condizione dunque sarà semplicissimo da scrivere:
If T= P Or T = Q Then
che dovrà sostituire quello precedente e più generico if Posizione ( ... ) > 0 Then
... Che ammette invece tutte e 5 le posizioni.CODICEOption Explicit
Sub Main
'Ricerca Ambo Simmetrico + Terzo Mancante (in altra ruota)
'Script By Joe V.1.0 By Joe del 11/07/2020
'https://illottodisean69.forumfree.it/?t=77700407&st=15#entry641926956
Dim Ini,Fin,Es,D,M,P,Q,R,S,T,E(5)
Dim Out 'PER COMPATIBILITA' L8+6
D = 30
Ini = EstrazioneFin - 155
Fin = EstrazioneFin
For Es = Ini To Fin
For R = 1 To 12
If R = 11 Then R = 12
For P = 1 To 5
E(P) = Format2(Estratto(Es,R,P))
Next
For P = 1 To 4
For Q = P + 1 To 5
If Distanza(E(P),E(Q)) = D Then ' Distanza Ciclometrica
M = Fuori90(E(P) + D)
If M = CInt(E(Q)) Then M = Fuori90(E(P) + 2*D)
For S = 1 To 12 : If S = 11 Then S = 12
T = Posizione(Es,S,M)
If T = P Or T = Q Then
Out = DataEstrazione(Es) & Space(1)
Out = Out & NomeRuota(R) & Space(1)
Out = Out & String(10 - Len(NomeRuota(R)),".") & Space(1)
Out = Out & E(P) & "." & E(Q)
Out = Out & " + " & Format2(M) & Space(1)
Out = Out & FormatSpace(NomeRuota(S),10)
Scrivi Out & Space(1),0,0
Scrivi String(43,"-")
End If
Next
End If
Next
Next
Next
Next
End Sub
Ultima cosa IMPORTANTE:
Lo script precedente deve essere cestinato perché non funziona bene.
In particolare se gli si applicano queste ultime modifiche ... restituirà risultati sbagliati.
Edited by J-Gio91 - 12/7/2020, 14:18 -
.
Ciao Sean.
Grazie.
Buona giornata a tutte/i.... per ora non riesco a capire come "ragiona" lo script ...
Descrivo brevemente la struttura dello script:
Si scorrono le estrazioni dell'archivio prendendo i 5 estratti di ogni ruota.
Con questi 5 estratti si compongono 10 coppie di numeri.
Se qualcuna di queste coppie è un "Ambo in Distanza 30" si calcola "Numero Mancante" della Terzina Simmetrica e ...
... lo si va a cercare in ognuna delle (altre) Ruote.
Se lo si trova si può scrivere "una linea" di output che contiene:
Data / Ruota / Ambo (in Distanza 30) "+" Terzo Mancante / Ruota (in cui lo si è trovato).
Edited by J-Gio91 - 10/7/2020, 20:43 -
.grazie..ne dovresti fare un post dedicato su tua sezione..grazie ancora
Se ritieni opportuno spostare questa discussione, per me non c'è problema.
Nel ringraziarti per l'ospitalità e l'attenzione,
auguro un buon weekend a tutte/i. -
.
La base dello script che stai usando non trova
tutti gli Ambi di una terzina simmetrica come ad esempio questo:
13.06.2020 Bari ...... 23.83 + 53 Torino
perché 83-23 = 60 mentre il confronto è con d= 30.
In pratica devi usare il calcolo della DISTANZA e quello della DIFFERENZA,
tra la coppia di Estratti presi ad essere un Ambo.
Per il resto è giusto abbassare il valore maggiore di 90.
C'è una istruzione che è Fuori90 e che andrebbe usata per le somme nei calcoli ciclometrici.
Anche se a parer mio gli Estratti non andrebbero MAI SOMMATI nella parte (nuova)
dello script che hai pubblicato dovrebbe essere usato anche sulla prima somma.
Lo script, per come l'ho descritto abbastanza dettagliatamente è questo:CODICEScript di prova cancellato ... perchè non funzionante
Edited by J-Gio91 - 11/7/2020, 10:30 -
.
Ciao,
La versione 6.1.34 mi risulta essere l'ultima cioè è quella che funziona meglio.
Ti dovrebbe permettere di utilizzare lo script senza errori nei parametri dell'istruzione "Scrivi".
Forse io NON ho descritto bene la procedura ma
"in alcune estrazioni l'elemento B era uguale ad A" è una cosa impossibile.
A e B sono 2 degli Estratti e ... e gli Estratti sono sempre diversi.
Come esempio di calcolo supponiamo:
a = 5 e b = 35
c = a + 30
If c = b Then c = a + 60
Edited by J-Gio91 - 4/7/2020, 09:25 -
.Ciao Joe
.. omesso ...
... 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
Con riferimento a questa descrizione e facendo richiamo a quanto ho scritto prima,
è evidente che quando si è calcolato il numero mancante della terna,
lo si deve cercare in una delle altre ruote.
E' semplice farlo con un ciclo For-Next identico a quello usato per la ricerca dell' Ambo Simmetrico.
Però avrà necessariamente un altro indice (o sarà controllato da un altra variabile) perché si ricerca un altra ruota.
In (pseudo)codice potrebbe essere:CODICEFor Seconda Ruota = 1 To 12 ....
If Posizione (Estrazione,Seconda Ruota,Numero Mancante) > 0 Then
.
.
.
End If
Next
In queste poche linee si vede che ho utilizzato l'istruzione Posizione che restituisce un valore da zero a 5.
Zero = non c'è il numero cercato.
1.2.3.4.5 se è presente come 1°, 2°, 3°, 4°, 5° ESTRATTO.
Dunque all'esito del test, quando c'è la Posizione è maggiore di Zero.
Al posto di puntini che ho lasciato come segnaposto
si possono raggruppare tutte le istruzioni di scrittura
e/o introdurre i dati di un eventuale test di giocata da verificare.
Così si impone all'output di elencare, solo i risultati veri.
Riunendo tutte le 'scritte' che si erano fatte per le varie verifiche.
Lascerò una copia di tutto quanto descritto ...
... per chi vorrà "rileggerlo" codificato nello script.
Questo l' output:
13.06.2020 Bari ..... 23.83 + 53 Torino
------------------------------------------
13.06.2020 Firenze .. 39.69 + 09 Milano
------------------------------------------
16.06.2020 Napoli ... 19.79 + 49 Cagliari
------------------------------------------
18.06.2020 Genova ... 53.83 + 23 Venezia
------------------------------------------
20.06.2020 Napoli ... 18.78 + 48 Palermo
------------------------------------------
20.06.2020 Torino ... 44.74 + 14 Bari
------------------------------------------
23.06.2020 Roma ..... 40.70 + 10 Palermo
------------------------------------------
23.06.2020 Roma ..... 40.70 + 10 Nazionale
------------------------------------------
25.06.2020 Bari ..... 20.50 + 80 Milano
------------------------------------------
25.06.2020 Bari ..... 20.50 + 80 Napoli
------------------------------------------
25.06.2020 Nazionale 56.86 + 26 Bari
------------------------------------------
27.06.2020 Genova ... 19.49 + 79 Palermo
------------------------------------------
30.06.2020 Milano ... 11.71 + 41 Torino
------------------------------------------
02.07.2020 Milano ... 05.35 + 65 Palermo
------------------------------------------
02.07.2020 Milano ... 05.35 + 65 Venezia
------------------------------------------ -
.
Non è difficile realizzare quanto hai scritto.
Lo è però un pochino di più con quella vecchia versione di L8.-------------------------------------------
13.06.2020
Bari 47.29.83.23.35 23.83 53
Cagliari 52.59.47.90.58
Firenze 39.27.69.57.66 27.57 87 39.69 09
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 10.70 40
Torino 20.53.90.69.66
Venezia 84.28.05.13.56
-------------------------------------------
Perché è difficile (o addirittura impossibile) comporre righe con diversi colori.
Comunque sia, la logica che ho adottato è più o meno questa:
Hai 2 numeri A e B in distanza 30
prendi A e gli aggiungi 30 ... ed ottieni C
Se C = B aggiungi ANCORA 30 ad A.
Altrimenti C va bene perché è TERZO.
Cioè diverso sia da A che da B.
Edited by J-Gio91 - 9/7/2020, 12:20 -
.
Hai scritto:
"A Bari c'è l'Ambo 50.20 e il mancante 30 si trova a Genova"
30 non è il mancante della terzina simmetrica.
30 è la distanza.
Mancante è 80 della terzina 20.50.80
Mentre il 26 è effettivamente in distanza 30.
Dunque sarebbe giusto ... ma ... non si capisce se cerchi la distanza o il terzo simmetrico mancante.
Perché i due esempi si contraddicono vicendevolmente.
Edited by J-Gio91 - 9/7/2020, 12:19