|
|
|
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.
CODICE Option 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 |
|
.
Offline