-
.
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. -
.
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. -
.
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. -
.
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 !. -
.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
.