Sub Main
' https://forum.lottoced.com/threads/x-febbraio-se-dara-terno-ve-ne-faro-dono%E2%80%A6%E2%80%A6.2198708/page-2
ColoreTesto 0
Scrivi " Metodo TERNO SUBITO di BURDIGA -- listato GioRyuKen72 ",1,,2,5
Scrivi "https://forum.lottoced.com/threads/x-febbraio-se-dara-terno-ve-ne-faro-dono%E2%80%A6%E2%80%A6.2198708/page-2",1
Scrivi
ColoreTesto 0
Dim Fin,Ini,Es,R1,Caso,Casi,Ruo,Estrazione,Posto,P5,E1,Ruota(2)
Dim PostaABT(1),PostaA(2),PostaC(5)
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Cinquina1(5)
Dim nn(5),Num1,Num2,Num3,Num4,Num5,Fig1,Fig2,Fig3,Fig4,Fig5,N1,N2,N3,N4,N5,im
PostaA(2) = 1
PostaABT(1) = 2
PostaC(2) = 1.5
PostaC(3) = 0.7
PostaC(4) = 0.25
PostaC(5) = 0.05
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare.. 9416=dal 2018, 9572= dal 2019, 9729 = dal 2020",,9752)
im = CInt(InputBox("IN QUALE ESTRAZIONE MENSILE ? per ultima del mese si metta 0 ","NUMERO ESTRAZIONE",0))
R1 = ScegliRuota
Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
For Es = Ini To Fin
Caso = 0
AvanzamentoElab Ini,Fin,Es
If(((eval(im) = 0)And(Es = ultest))Or((IndiceMensile(Es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(Es + 1) = 1)And(eval(im) = 0)))) Then
nn(1) = Estratto(Es,R1,1) ' 61
nn(2) = Estratto(Es,R1,2) ' 80
nn(3) = Estratto(Es,R1,3) ' 40
nn(4) = Estratto(Es,R1,4) ' 26
nn(5) = Estratto(Es,R1,5) ' 16
Fig1 = Figura(nn(1)) '7
Fig2 = Figura(nn(2)) '8
Fig3 = Figura(nn(3)) '4
Fig4 = Figura(nn(4)) '8
Fig5 = Figura(nn(5)) '7
N1 = Figura(Cadenza(nn(1)) + Fig1) '1+7=8
N2 = Figura(Cadenza(nn(2)) + Fig2) '0+8=8
N3 = Figura(Cadenza(nn(3)) + Fig3) '0+4=4
N4 = Figura(Cadenza(nn(4)) + Fig4) '6+8=
N5 = Figura(Cadenza(nn(5)) + Fig5) '1+7=8
Num1 = Fuori90(Fig1 & N1) '1+7
Num2 = Fuori90(Fig2 & N2)
Num3 = Fuori90(Fig3 & N3)
Num4 = Fuori90(Fig4 & N4)
Num5 = Fuori90(Fig5 & N5)
Ruota(1) = R1
Ruota(2) = RuotaDiametrale(R1)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
Scrivi
Scrivi("Ricerca effettuata alla " & Format2(im)&"a estrazione sulla ruota di " & NomeRuota(R1)),1,,,1
Scrivi
Cinquina1(1) = Num1
Cinquina1(2) = Num2
Cinquina1(3) = Num3
Cinquina1(4) = Num4
Cinquina1(5) = Num5
ImpostaGiocata 6,Cinquina1,Ruota,PostaC,13,2
If ScriptInterrotto Then Exit Sub
Gioca Es,1,,1
End If
Next
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Metodo TERNO SUBITO di BURDIGA -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub