Buongiorno a Tutti ed ancora Buon Anno.
Oggi Voglio proporre un sommativo che partendo da Maggio 2020 nella Terzina calcolata ha sempre dato l'ambo nei 5 colpi, 2 già passati per cui ne mancano solo 3 sperando che la fortuna ci aiuti.
Il pronostico Attuale è:
07.30.54 su FI NA per Ambo
per non avere problemi di calcolo Vi posto comunque lo Script così potete verificare la suà bontà negli esiti, ho scelto di partire da Maggio in quanto le estrazioni hanno subito stop, spostamenti ed anomalie che non mi piacciono, ma nel caos magari i calcoli se ne fregano....
Sperando che la dea bendata ci Aiuti...♠️♣️♥️♦️
Oggi Voglio proporre un sommativo che partendo da Maggio 2020 nella Terzina calcolata ha sempre dato l'ambo nei 5 colpi, 2 già passati per cui ne mancano solo 3 sperando che la fortuna ci aiuti.
Il pronostico Attuale è:
07.30.54 su FI NA per Ambo
per non avere problemi di calcolo Vi posto comunque lo Script così potete verificare la suà bontà negli esiti, ho scelto di partire da Maggio in quanto le estrazioni hanno subito stop, spostamenti ed anomalie che non mi piacciono, ma nel caos magari i calcoli se ne fregano....
Codice:
Option Explicit
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim Clp,Ini,Fin,es,K
posta(2) = 1
ruote(1) = FI_
ruote(2) = NA_
Clp = 5 ' Colpi di Gioco
Ini = 9775
Fin = EstrazioneFin
Scrivi String(107,"-") & " By Xeroxs " & "-----"
Scrivi String(48," ") & "****** Resoconto ****** ",1,,,7
Scrivi String(48," ") & DataEstrazione(Ini) & " - " & DataEstrazione(Fin),1,,,1
Scrivi String(34," ") & " L'Ambo - Su Firenze-Napoli - Alla 12 Del Mese ",1,,,1
Scrivi String(123,"-")
For es = Ini To EstrazioneFin
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = 12 Then
Messaggio "Elaborazione estrazioni... [" &(es) & " ] Script by Xeroxs"
AvanzamentoElab Ini,Fin,es
numeri1(1) = Fuori90(Estratto(es,MI_,3) + Estratto(es,BA_,1) + 84)
numeri1(2) = Fuori90(Estratto(es,BA_,1) - Estratto(es,NA_,3) + 33)
numeri1(3) = Fuori90(Estratto(es,FI_,2) - Estratto(es,TO_,5) + 46)
'EliminaRipetuti numeri1
ColoreTesto 1 : K = K + 1 : Scrivi "Estraz. " & Format2(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile " & "[" & Format2(Mese(es)) & " - " & Anno(es) & "] " & String(58,"*") & " Caso n° " & Format2(K),1,0
Scrivi
ColoreTesto 0
Scrivi
ImpostaGiocata 1,numeri1,ruote,posta,Clp
'Gioca es
Gioca es,True,,1
End If
Next
Scrivi
ScriviResoconto '1
End SubSperando che la dea bendata ci Aiuti...♠️♣️♥️♦️
Ultima modifica:
