Novità

Script per analisi periodica

cerco uno script che per una data ruota mi restituisca in out tutti i numeri con maggior frequenza che sono usciti nei mesi di giugno dall' anno 2002 alll' anno 2022 .

Prova questo:
Sub Main
Dim nu()
Dim ru(1)
r = InputBox("Quale ruota",,8)
sorte = CInt(InputBox("Quale sorte minima verifico x MESI ","SORTE",1))
sortestat = CInt(InputBox("QUALE SORTE VERIFICA STATISTICA ","SORTE STATISTICA",1))
Ini = EstrazioneIni
fin = EstrazioneFin ' range fine estrazioni
Tot = fin - Ini + 1
ru(1) = r
Call ScegliNumeri(nu)
Call StatisticaFormazioneTurbo(nu,ru,sortestat,rerit,reritmax,Incrmax,refre,Ini,fin)
ReDim atx(12)
atx(1) = " Comb "
atx(2) = " Ruota "
atx(3) = " sorte "
atx(4) = " Ritardo Att "
atx(5) = " Rit Max "
atx(6) = " incr max "
atx(7) = " Frequenza "
atx(8) = " Range inizio "
atx(9) = " Range fine "
atx(10) = " Estrazioni "
atx(11) = " Author "
atx(12) = " Richiesta "
Call InitTabella(atx,2,,3,5)
atx(1) = StringaNumeri(nu)
atx(2) = NomeRuota(r)
atx(3) = NomeSorte(sortestat)
atx(4) = rerit
atx(5) = reritmax
atx(6) = Incrmax
atx(7) = refre
atx(8) = DataEstrazione(Ini)
atx(9) = DataEstrazione(fin)
atx(10) = Tot
atx(11) = " Mike58 "
atx(12) = " Giulio_LG "
Call AddRigaTabella(atx,4,,3)
Call SetColoreCella(11,,7)
Call SetColoreCella(12,,1)
Call CreaTabella()
For es = Ini To fin
Messaggio "Elaboro estrazioni. . . . . . " & es & " * * * * Script By Mike58 * * * * "
Call AvanzamentoElab(Ini,fin,es)
sf1 = SerieFreqTurbo(es,es,nu,ru,sorte)
sf2 = SerieFreqTurbo(es,es,nu,ru,sorte + 1)
sf3 = SerieFreqTurbo(es,es,nu,ru,sorte + 2)
sf4 = SerieFreqTurbo(es,es,nu,ru,sorte + 3)
If sf1 > 0 And Mese(es) = 1 Then m1 = m1 + sf1
If sf1 > 0 And Mese(es) = 2 Then m2 = m2 + sf1
If sf1 > 0 And Mese(es) = 3 Then m3 = m3 + sf1
If sf1 > 0 And Mese(es) = 4 Then m4 = m4 + sf1
If sf1 > 0 And Mese(es) = 5 Then m5 = m5 + sf1
If sf1 > 0 And Mese(es) = 6 Then m6 = m6 + sf1
If sf1 > 0 And Mese(es) = 7 Then m7 = m7 + sf1
If sf1 > 0 And Mese(es) = 8 Then m8 = m8 + sf1
If sf1 > 0 And Mese(es) = 9 Then m9 = m9 + sf1
If sf1 > 0 And Mese(es) = 10 Then m10 = m10 + sf1
If sf1 > 0 And Mese(es) = 11 Then m11 = m11 + sf1
If sf1 > 0 And Mese(es) = 12 Then m12 = m12 + sf1
'------------------------------------------------------
If sf2 > 0 And Mese(es) = 1 Then t1 = t1 + sf2
If sf2 > 0 And Mese(es) = 2 Then t2 = t2 + sf2
If sf2 > 0 And Mese(es) = 3 Then t3 = t3 + sf2
If sf2 > 0 And Mese(es) = 4 Then t4 = t4 + sf2
If sf2 > 0 And Mese(es) = 5 Then t5 = t5 + sf2
If sf2 > 0 And Mese(es) = 6 Then t6 = t6 + sf2
If sf2 > 0 And Mese(es) = 7 Then t7 = t7 + sf2
If sf2 > 0 And Mese(es) = 8 Then t8 = t8 + sf2
If sf2 > 0 And Mese(es) = 9 Then t9 = t9 + sf2
If sf2 > 0 And Mese(es) = 10 Then t10 = t10 + sf2
If sf2 > 0 And Mese(es) = 11 Then t11 = t11 + sf2
If sf2 > 0 And Mese(es) = 12 Then t12 = t12 + sf2
'---------------------------------------------------------
If sf3 > 0 And Mese(es) = 1 Then tt1 = tt1 + sf3
If sf3 > 0 And Mese(es) = 2 Then tt2 = tt2 + sf3
If sf3 > 0 And Mese(es) = 3 Then tt3 = tt3 + sf3
If sf3 > 0 And Mese(es) = 4 Then tt4 = tt4 + sf3
If sf3 > 0 And Mese(es) = 5 Then tt5 = tt5 + sf3
If sf3 > 0 And Mese(es) = 6 Then tt6 = tt6 + sf3
If sf3 > 0 And Mese(es) = 7 Then tt7 = tt7 + sf3
If sf3 > 0 And Mese(es) = 8 Then tt8 = tt8 + sf3
If sf3 > 0 And Mese(es) = 9 Then tt9 = tt9 + sf3
If sf3 > 0 And Mese(es) = 10 Then tt10 = tt10 + sf3
If sf3 > 0 And Mese(es) = 11 Then tt11 = tt11 + sf3
If sf3 > 0 And Mese(es) = 12 Then tt12 = tt12 + sf3
'---------------------------------------------------------
If sf4 > 0 And Mese(es) = 1 Then ttt1 = ttt1 + sf4
If sf4 > 0 And Mese(es) = 2 Then ttt2 = ttt2 + sf4
If sf4 > 0 And Mese(es) = 3 Then ttt3 = ttt3 + sf4
If sf4 > 0 And Mese(es) = 4 Then ttt4 = ttt4 + sf4
If sf4 > 0 And Mese(es) = 5 Then ttt5 = ttt5 + sf4
If sf4 > 0 And Mese(es) = 6 Then ttt6 = ttt6 + sf4
If sf4 > 0 And Mese(es) = 7 Then ttt7 = ttt7 + sf4
If sf4 > 0 And Mese(es) = 8 Then ttt8 = ttt8 + sf4
If sf4 > 0 And Mese(es) = 9 Then ttt9 = ttt9 + sf4
If sf4 > 0 And Mese(es) = 10 Then ttt10 = ttt10 + sf4
If sf4 > 0 And Mese(es) = 11 Then ttt11 = ttt11 + sf4
If sf4 > 0 And Mese(es) = 12 Then ttt12 = ttt12 + sf4

'-------------- fine condizione -----------------------------
Next
'-------- comincio a scrivere i valori ricavati e li scrivo in tabella ----------------
'Scrivi "Numeri in analisi... " & StringaNumeri(nu) & " - Sulla ruota di..." & NomeRuota(r),True,True,3,0,3
'Scrivi "Sorte di verifica minima..." & NomeSorte(sorte),True,True,2,4,3
Scrivi "Uscita per Mesi su estrazioni n° " & Tot,True,True,,2,3
Scrivi ' spazio
'------ scrivo i titoli per la tabella ---------------
ReDim at(14)
at(1) = MeseNome(1)
at(2) = MeseNome(2)
at(3) = MeseNome(3)
at(4) = MeseNome(4)
at(5) = MeseNome(5)
at(6) = MeseNome(6)
at(7) = MeseNome(7)
at(8) = MeseNome(8)
at(9) = MeseNome(9)
at(10) = MeseNome(10)
at(11) = MeseNome(11)
at(12) = MeseNome(12)
at(13) = " Totale freq. "
at(14) = " Sorte "
Call InitTabella(at,1,,3,5) ' inizializzo tabella dichiarata At,colorefondo(blu),,Size(3),coloreBianco(testo)
'-------- scrivo i valori della presenza nei mesi del numero spia ------------------------------------------------
ReDim av(14)
av(1) = " " & m1
av(2) = " " & m2
av(3) = " " & m3
av(4) = " " & m4
av(5) = " " & m5
av(6) = " " & m6
av(7) = " " & m7
av(8) = " " & m8
av(9) = " " & m9
av(10) = " " & m10
av(11) = " " & m11
av(12) = " " & m12 'etc.
av(13) = " " & m1 + m2 + m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
av(14) = " " & NomeSorte(sorte)
Call AddRigaTabella(av,,,3)
ReDim avv(14)
avv(1) = " " & t1
avv(2) = " " & t2
avv(3) = " " & t3
avv(4) = " " & t4
avv(5) = " " & t5
avv(6) = " " & t6
avv(7) = " " & t7
avv(8) = " " & t8
avv(9) = " " & t9
avv(10) = " " & t10
avv(11) = " " & t11
avv(12) = " " & t12 'etc.
avv(13) = " " & t1 + t2 + t3 + t4 + t5 + t6 + t7 + t8 + t9 + t10 + t11 + t12
avv(14) = " " & NomeSorte(sorte + 1)
Call AddRigaTabella(avv,,,3)
ReDim avvv(14)
avvv(1) = " " & tt1
avvv(2) = " " & tt2
avvv(3) = " " & tt3
avvv(4) = " " & tt4
avvv(5) = " " & tt5
avvv(6) = " " & tt6
avvv(7) = " " & tt7
avvv(8) = " " & tt8
avvv(9) = " " & tt9
avvv(10) = " " & tt10
avvv(11) = " " & tt11
avvv(12) = " " & tt12 'etc.
avvv(13) = " " & tt1 + tt2 + tt3 + tt4 + tt5 + tt6 + tt7 + tt8 + tt9 + tt10 + tt11 + tt12
avvv(14) = " " & NomeSorte(sorte + 2)
Call AddRigaTabella(avvv,,,3)
ReDim avvvv(14)
avvvv(1) = " " & ttt1
avvvv(2) = " " & ttt2
avvvv(3) = " " & ttt3
avvvv(4) = " " & ttt4
avvvv(5) = " " & ttt5
avvvv(6) = " " & ttt6
avvvv(7) = " " & ttt7
avvvv(8) = " " & ttt8
avvvv(9) = " " & ttt9
avvvv(10) = " " & ttt10
avvvv(11) = " " & ttt11
avvvv(12) = " " & ttt12 'etc.
avvvv(13) = " " & ttt1 + ttt2 + ttt3 + ttt4 + ttt5 + ttt6 + ttt7 + ttt8 + ttt9 + ttt10 + ttt11 + ttt12
avvvv(14) = " " & NomeSorte(sorte + 3)
Call AddRigaTabella(avvvv,,,3)

'
Call CreaTabella(0,0,0,0,1) ' crea tabella in modo verticale
'Call CreaTabella(0,0,0,0,0) ' crea tabella in modo orizzontale
Scrivi
'Scrivi " Script Listed By Mike58 & Giulio_LG ",True,True,6,0,3
End Sub
 
Prova questo:
Sub Main
Dim nu()
Dim ru(1)
r = InputBox("Quale ruota",,8)
sorte = CInt(InputBox("Quale sorte minima verifico x MESI ","SORTE",1))
sortestat = CInt(InputBox("QUALE SORTE VERIFICA STATISTICA ","SORTE STATISTICA",1))
Ini = EstrazioneIni
fin = EstrazioneFin ' range fine estrazioni
Tot = fin - Ini + 1
ru(1) = r
Call ScegliNumeri(nu)
Call StatisticaFormazioneTurbo(nu,ru,sortestat,rerit,reritmax,Incrmax,refre,Ini,fin)
ReDim atx(12)
atx(1) = " Comb "
atx(2) = " Ruota "
atx(3) = " sorte "
atx(4) = " Ritardo Att "
atx(5) = " Rit Max "
atx(6) = " incr max "
atx(7) = " Frequenza "
atx(8) = " Range inizio "
atx(9) = " Range fine "
atx(10) = " Estrazioni "
atx(11) = " Author "
atx(12) = " Richiesta "
Call InitTabella(atx,2,,3,5)
atx(1) = StringaNumeri(nu)
atx(2) = NomeRuota(r)
atx(3) = NomeSorte(sortestat)
atx(4) = rerit
atx(5) = reritmax
atx(6) = Incrmax
atx(7) = refre
atx(8) = DataEstrazione(Ini)
atx(9) = DataEstrazione(fin)
atx(10) = Tot
atx(11) = " Mike58 "
atx(12) = " Giulio_LG "
Call AddRigaTabella(atx,4,,3)
Call SetColoreCella(11,,7)
Call SetColoreCella(12,,1)
Call CreaTabella()
For es = Ini To fin
Messaggio "Elaboro estrazioni. . . . . . " & es & " * * * * Script By Mike58 * * * * "
Call AvanzamentoElab(Ini,fin,es)
sf1 = SerieFreqTurbo(es,es,nu,ru,sorte)
sf2 = SerieFreqTurbo(es,es,nu,ru,sorte + 1)
sf3 = SerieFreqTurbo(es,es,nu,ru,sorte + 2)
sf4 = SerieFreqTurbo(es,es,nu,ru,sorte + 3)
If sf1 > 0 And Mese(es) = 1 Then m1 = m1 + sf1
If sf1 > 0 And Mese(es) = 2 Then m2 = m2 + sf1
If sf1 > 0 And Mese(es) = 3 Then m3 = m3 + sf1
If sf1 > 0 And Mese(es) = 4 Then m4 = m4 + sf1
If sf1 > 0 And Mese(es) = 5 Then m5 = m5 + sf1
If sf1 > 0 And Mese(es) = 6 Then m6 = m6 + sf1
If sf1 > 0 And Mese(es) = 7 Then m7 = m7 + sf1
If sf1 > 0 And Mese(es) = 8 Then m8 = m8 + sf1
If sf1 > 0 And Mese(es) = 9 Then m9 = m9 + sf1
If sf1 > 0 And Mese(es) = 10 Then m10 = m10 + sf1
If sf1 > 0 And Mese(es) = 11 Then m11 = m11 + sf1
If sf1 > 0 And Mese(es) = 12 Then m12 = m12 + sf1
'------------------------------------------------------
If sf2 > 0 And Mese(es) = 1 Then t1 = t1 + sf2
If sf2 > 0 And Mese(es) = 2 Then t2 = t2 + sf2
If sf2 > 0 And Mese(es) = 3 Then t3 = t3 + sf2
If sf2 > 0 And Mese(es) = 4 Then t4 = t4 + sf2
If sf2 > 0 And Mese(es) = 5 Then t5 = t5 + sf2
If sf2 > 0 And Mese(es) = 6 Then t6 = t6 + sf2
If sf2 > 0 And Mese(es) = 7 Then t7 = t7 + sf2
If sf2 > 0 And Mese(es) = 8 Then t8 = t8 + sf2
If sf2 > 0 And Mese(es) = 9 Then t9 = t9 + sf2
If sf2 > 0 And Mese(es) = 10 Then t10 = t10 + sf2
If sf2 > 0 And Mese(es) = 11 Then t11 = t11 + sf2
If sf2 > 0 And Mese(es) = 12 Then t12 = t12 + sf2
'---------------------------------------------------------
If sf3 > 0 And Mese(es) = 1 Then tt1 = tt1 + sf3
If sf3 > 0 And Mese(es) = 2 Then tt2 = tt2 + sf3
If sf3 > 0 And Mese(es) = 3 Then tt3 = tt3 + sf3
If sf3 > 0 And Mese(es) = 4 Then tt4 = tt4 + sf3
If sf3 > 0 And Mese(es) = 5 Then tt5 = tt5 + sf3
If sf3 > 0 And Mese(es) = 6 Then tt6 = tt6 + sf3
If sf3 > 0 And Mese(es) = 7 Then tt7 = tt7 + sf3
If sf3 > 0 And Mese(es) = 8 Then tt8 = tt8 + sf3
If sf3 > 0 And Mese(es) = 9 Then tt9 = tt9 + sf3
If sf3 > 0 And Mese(es) = 10 Then tt10 = tt10 + sf3
If sf3 > 0 And Mese(es) = 11 Then tt11 = tt11 + sf3
If sf3 > 0 And Mese(es) = 12 Then tt12 = tt12 + sf3
'---------------------------------------------------------
If sf4 > 0 And Mese(es) = 1 Then ttt1 = ttt1 + sf4
If sf4 > 0 And Mese(es) = 2 Then ttt2 = ttt2 + sf4
If sf4 > 0 And Mese(es) = 3 Then ttt3 = ttt3 + sf4
If sf4 > 0 And Mese(es) = 4 Then ttt4 = ttt4 + sf4
If sf4 > 0 And Mese(es) = 5 Then ttt5 = ttt5 + sf4
If sf4 > 0 And Mese(es) = 6 Then ttt6 = ttt6 + sf4
If sf4 > 0 And Mese(es) = 7 Then ttt7 = ttt7 + sf4
If sf4 > 0 And Mese(es) = 8 Then ttt8 = ttt8 + sf4
If sf4 > 0 And Mese(es) = 9 Then ttt9 = ttt9 + sf4
If sf4 > 0 And Mese(es) = 10 Then ttt10 = ttt10 + sf4
If sf4 > 0 And Mese(es) = 11 Then ttt11 = ttt11 + sf4
If sf4 > 0 And Mese(es) = 12 Then ttt12 = ttt12 + sf4

'-------------- fine condizione -----------------------------
Next
'-------- comincio a scrivere i valori ricavati e li scrivo in tabella ----------------
'Scrivi "Numeri in analisi... " & StringaNumeri(nu) & " - Sulla ruota di..." & NomeRuota(r),True,True,3,0,3
'Scrivi "Sorte di verifica minima..." & NomeSorte(sorte),True,True,2,4,3
Scrivi "Uscita per Mesi su estrazioni n° " & Tot,True,True,,2,3
Scrivi ' spazio
'------ scrivo i titoli per la tabella ---------------
ReDim at(14)
at(1) = MeseNome(1)
at(2) = MeseNome(2)
at(3) = MeseNome(3)
at(4) = MeseNome(4)
at(5) = MeseNome(5)
at(6) = MeseNome(6)
at(7) = MeseNome(7)
at(8) = MeseNome(8)
at(9) = MeseNome(9)
at(10) = MeseNome(10)
at(11) = MeseNome(11)
at(12) = MeseNome(12)
at(13) = " Totale freq. "
at(14) = " Sorte "
Call InitTabella(at,1,,3,5) ' inizializzo tabella dichiarata At,colorefondo(blu),,Size(3),coloreBianco(testo)
'-------- scrivo i valori della presenza nei mesi del numero spia ------------------------------------------------
ReDim av(14)
av(1) = " " & m1
av(2) = " " & m2
av(3) = " " & m3
av(4) = " " & m4
av(5) = " " & m5
av(6) = " " & m6
av(7) = " " & m7
av(8) = " " & m8
av(9) = " " & m9
av(10) = " " & m10
av(11) = " " & m11
av(12) = " " & m12 'etc.
av(13) = " " & m1 + m2 + m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
av(14) = " " & NomeSorte(sorte)
Call AddRigaTabella(av,,,3)
ReDim avv(14)
avv(1) = " " & t1
avv(2) = " " & t2
avv(3) = " " & t3
avv(4) = " " & t4
avv(5) = " " & t5
avv(6) = " " & t6
avv(7) = " " & t7
avv(8) = " " & t8
avv(9) = " " & t9
avv(10) = " " & t10
avv(11) = " " & t11
avv(12) = " " & t12 'etc.
avv(13) = " " & t1 + t2 + t3 + t4 + t5 + t6 + t7 + t8 + t9 + t10 + t11 + t12
avv(14) = " " & NomeSorte(sorte + 1)
Call AddRigaTabella(avv,,,3)
ReDim avvv(14)
avvv(1) = " " & tt1
avvv(2) = " " & tt2
avvv(3) = " " & tt3
avvv(4) = " " & tt4
avvv(5) = " " & tt5
avvv(6) = " " & tt6
avvv(7) = " " & tt7
avvv(8) = " " & tt8
avvv(9) = " " & tt9
avvv(10) = " " & tt10
avvv(11) = " " & tt11
avvv(12) = " " & tt12 'etc.
avvv(13) = " " & tt1 + tt2 + tt3 + tt4 + tt5 + tt6 + tt7 + tt8 + tt9 + tt10 + tt11 + tt12
avvv(14) = " " & NomeSorte(sorte + 2)
Call AddRigaTabella(avvv,,,3)
ReDim avvvv(14)
avvvv(1) = " " & ttt1
avvvv(2) = " " & ttt2
avvvv(3) = " " & ttt3
avvvv(4) = " " & ttt4
avvvv(5) = " " & ttt5
avvvv(6) = " " & ttt6
avvvv(7) = " " & ttt7
avvvv(8) = " " & ttt8
avvvv(9) = " " & ttt9
avvvv(10) = " " & ttt10
avvvv(11) = " " & ttt11
avvvv(12) = " " & ttt12 'etc.
avvvv(13) = " " & ttt1 + ttt2 + ttt3 + ttt4 + ttt5 + ttt6 + ttt7 + ttt8 + ttt9 + ttt10 + ttt11 + ttt12
avvvv(14) = " " & NomeSorte(sorte + 3)
Call AddRigaTabella(avvvv,,,3)

'
Call CreaTabella(0,0,0,0,1) ' crea tabella in modo verticale
'Call CreaTabella(0,0,0,0,0) ' crea tabella in modo orizzontale
Scrivi
'Scrivi " Script Listed By Mike58 & Giulio_LG ",True,True,6,0,3
End Sub
Non proprio cosi ma è un inizio . Grazie
 
Prova questo:
Sub Main
Dim nu()
Dim ru(1)
r = InputBox("Quale ruota",,8)
sorte = CInt(InputBox("Quale sorte minima verifico x MESI ","SORTE",1))
sortestat = CInt(InputBox("QUALE SORTE VERIFICA STATISTICA ","SORTE STATISTICA",1))
Ini = EstrazioneIni
fin = EstrazioneFin ' range fine estrazioni
Tot = fin - Ini + 1
ru(1) = r
Call ScegliNumeri(nu)
Call StatisticaFormazioneTurbo(nu,ru,sortestat,rerit,reritmax,Incrmax,refre,Ini,fin)
ReDim atx(12)
atx(1) = " Comb "
atx(2) = " Ruota "
atx(3) = " sorte "
atx(4) = " Ritardo Att "
atx(5) = " Rit Max "
atx(6) = " incr max "
atx(7) = " Frequenza "
atx(8) = " Range inizio "
atx(9) = " Range fine "
atx(10) = " Estrazioni "
atx(11) = " Author "
atx(12) = " Richiesta "
Call InitTabella(atx,2,,3,5)
atx(1) = StringaNumeri(nu)
atx(2) = NomeRuota(r)
atx(3) = NomeSorte(sortestat)
atx(4) = rerit
atx(5) = reritmax
atx(6) = Incrmax
atx(7) = refre
atx(8) = DataEstrazione(Ini)
atx(9) = DataEstrazione(fin)
atx(10) = Tot
atx(11) = " Mike58 "
atx(12) = " Giulio_LG "
Call AddRigaTabella(atx,4,,3)
Call SetColoreCella(11,,7)
Call SetColoreCella(12,,1)
Call CreaTabella()
For es = Ini To fin
Messaggio "Elaboro estrazioni. . . . . . " & es & " * * * * Script By Mike58 * * * * "
Call AvanzamentoElab(Ini,fin,es)
sf1 = SerieFreqTurbo(es,es,nu,ru,sorte)
sf2 = SerieFreqTurbo(es,es,nu,ru,sorte + 1)
sf3 = SerieFreqTurbo(es,es,nu,ru,sorte + 2)
sf4 = SerieFreqTurbo(es,es,nu,ru,sorte + 3)
If sf1 > 0 And Mese(es) = 1 Then m1 = m1 + sf1
If sf1 > 0 And Mese(es) = 2 Then m2 = m2 + sf1
If sf1 > 0 And Mese(es) = 3 Then m3 = m3 + sf1
If sf1 > 0 And Mese(es) = 4 Then m4 = m4 + sf1
If sf1 > 0 And Mese(es) = 5 Then m5 = m5 + sf1
If sf1 > 0 And Mese(es) = 6 Then m6 = m6 + sf1
If sf1 > 0 And Mese(es) = 7 Then m7 = m7 + sf1
If sf1 > 0 And Mese(es) = 8 Then m8 = m8 + sf1
If sf1 > 0 And Mese(es) = 9 Then m9 = m9 + sf1
If sf1 > 0 And Mese(es) = 10 Then m10 = m10 + sf1
If sf1 > 0 And Mese(es) = 11 Then m11 = m11 + sf1
If sf1 > 0 And Mese(es) = 12 Then m12 = m12 + sf1
'------------------------------------------------------
If sf2 > 0 And Mese(es) = 1 Then t1 = t1 + sf2
If sf2 > 0 And Mese(es) = 2 Then t2 = t2 + sf2
If sf2 > 0 And Mese(es) = 3 Then t3 = t3 + sf2
If sf2 > 0 And Mese(es) = 4 Then t4 = t4 + sf2
If sf2 > 0 And Mese(es) = 5 Then t5 = t5 + sf2
If sf2 > 0 And Mese(es) = 6 Then t6 = t6 + sf2
If sf2 > 0 And Mese(es) = 7 Then t7 = t7 + sf2
If sf2 > 0 And Mese(es) = 8 Then t8 = t8 + sf2
If sf2 > 0 And Mese(es) = 9 Then t9 = t9 + sf2
If sf2 > 0 And Mese(es) = 10 Then t10 = t10 + sf2
If sf2 > 0 And Mese(es) = 11 Then t11 = t11 + sf2
If sf2 > 0 And Mese(es) = 12 Then t12 = t12 + sf2
'---------------------------------------------------------
If sf3 > 0 And Mese(es) = 1 Then tt1 = tt1 + sf3
If sf3 > 0 And Mese(es) = 2 Then tt2 = tt2 + sf3
If sf3 > 0 And Mese(es) = 3 Then tt3 = tt3 + sf3
If sf3 > 0 And Mese(es) = 4 Then tt4 = tt4 + sf3
If sf3 > 0 And Mese(es) = 5 Then tt5 = tt5 + sf3
If sf3 > 0 And Mese(es) = 6 Then tt6 = tt6 + sf3
If sf3 > 0 And Mese(es) = 7 Then tt7 = tt7 + sf3
If sf3 > 0 And Mese(es) = 8 Then tt8 = tt8 + sf3
If sf3 > 0 And Mese(es) = 9 Then tt9 = tt9 + sf3
If sf3 > 0 And Mese(es) = 10 Then tt10 = tt10 + sf3
If sf3 > 0 And Mese(es) = 11 Then tt11 = tt11 + sf3
If sf3 > 0 And Mese(es) = 12 Then tt12 = tt12 + sf3
'---------------------------------------------------------
If sf4 > 0 And Mese(es) = 1 Then ttt1 = ttt1 + sf4
If sf4 > 0 And Mese(es) = 2 Then ttt2 = ttt2 + sf4
If sf4 > 0 And Mese(es) = 3 Then ttt3 = ttt3 + sf4
If sf4 > 0 And Mese(es) = 4 Then ttt4 = ttt4 + sf4
If sf4 > 0 And Mese(es) = 5 Then ttt5 = ttt5 + sf4
If sf4 > 0 And Mese(es) = 6 Then ttt6 = ttt6 + sf4
If sf4 > 0 And Mese(es) = 7 Then ttt7 = ttt7 + sf4
If sf4 > 0 And Mese(es) = 8 Then ttt8 = ttt8 + sf4
If sf4 > 0 And Mese(es) = 9 Then ttt9 = ttt9 + sf4
If sf4 > 0 And Mese(es) = 10 Then ttt10 = ttt10 + sf4
If sf4 > 0 And Mese(es) = 11 Then ttt11 = ttt11 + sf4
If sf4 > 0 And Mese(es) = 12 Then ttt12 = ttt12 + sf4

'-------------- fine condizione -----------------------------
Next
'-------- comincio a scrivere i valori ricavati e li scrivo in tabella ----------------
'Scrivi "Numeri in analisi... " & StringaNumeri(nu) & " - Sulla ruota di..." & NomeRuota(r),True,True,3,0,3
'Scrivi "Sorte di verifica minima..." & NomeSorte(sorte),True,True,2,4,3
Scrivi "Uscita per Mesi su estrazioni n° " & Tot,True,True,,2,3
Scrivi ' spazio
'------ scrivo i titoli per la tabella ---------------
ReDim at(14)
at(1) = MeseNome(1)
at(2) = MeseNome(2)
at(3) = MeseNome(3)
at(4) = MeseNome(4)
at(5) = MeseNome(5)
at(6) = MeseNome(6)
at(7) = MeseNome(7)
at(8) = MeseNome(8)
at(9) = MeseNome(9)
at(10) = MeseNome(10)
at(11) = MeseNome(11)
at(12) = MeseNome(12)
at(13) = " Totale freq. "
at(14) = " Sorte "
Call InitTabella(at,1,,3,5) ' inizializzo tabella dichiarata At,colorefondo(blu),,Size(3),coloreBianco(testo)
'-------- scrivo i valori della presenza nei mesi del numero spia ------------------------------------------------
ReDim av(14)
av(1) = " " & m1
av(2) = " " & m2
av(3) = " " & m3
av(4) = " " & m4
av(5) = " " & m5
av(6) = " " & m6
av(7) = " " & m7
av(8) = " " & m8
av(9) = " " & m9
av(10) = " " & m10
av(11) = " " & m11
av(12) = " " & m12 'etc.
av(13) = " " & m1 + m2 + m3 + m4 + m5 + m6 + m7 + m8 + m9 + m10 + m11 + m12
av(14) = " " & NomeSorte(sorte)
Call AddRigaTabella(av,,,3)
ReDim avv(14)
avv(1) = " " & t1
avv(2) = " " & t2
avv(3) = " " & t3
avv(4) = " " & t4
avv(5) = " " & t5
avv(6) = " " & t6
avv(7) = " " & t7
avv(8) = " " & t8
avv(9) = " " & t9
avv(10) = " " & t10
avv(11) = " " & t11
avv(12) = " " & t12 'etc.
avv(13) = " " & t1 + t2 + t3 + t4 + t5 + t6 + t7 + t8 + t9 + t10 + t11 + t12
avv(14) = " " & NomeSorte(sorte + 1)
Call AddRigaTabella(avv,,,3)
ReDim avvv(14)
avvv(1) = " " & tt1
avvv(2) = " " & tt2
avvv(3) = " " & tt3
avvv(4) = " " & tt4
avvv(5) = " " & tt5
avvv(6) = " " & tt6
avvv(7) = " " & tt7
avvv(8) = " " & tt8
avvv(9) = " " & tt9
avvv(10) = " " & tt10
avvv(11) = " " & tt11
avvv(12) = " " & tt12 'etc.
avvv(13) = " " & tt1 + tt2 + tt3 + tt4 + tt5 + tt6 + tt7 + tt8 + tt9 + tt10 + tt11 + tt12
avvv(14) = " " & NomeSorte(sorte + 2)
Call AddRigaTabella(avvv,,,3)
ReDim avvvv(14)
avvvv(1) = " " & ttt1
avvvv(2) = " " & ttt2
avvvv(3) = " " & ttt3
avvvv(4) = " " & ttt4
avvvv(5) = " " & ttt5
avvvv(6) = " " & ttt6
avvvv(7) = " " & ttt7
avvvv(8) = " " & ttt8
avvvv(9) = " " & ttt9
avvvv(10) = " " & ttt10
avvvv(11) = " " & ttt11
avvvv(12) = " " & ttt12 'etc.
avvvv(13) = " " & ttt1 + ttt2 + ttt3 + ttt4 + ttt5 + ttt6 + ttt7 + ttt8 + ttt9 + ttt10 + ttt11 + ttt12
avvvv(14) = " " & NomeSorte(sorte + 3)
Call AddRigaTabella(avvvv,,,3)

'
Call CreaTabella(0,0,0,0,1) ' crea tabella in modo verticale
'Call CreaTabella(0,0,0,0,0) ' crea tabella in modo orizzontale
Scrivi
'Scrivi " Script Listed By Mike58 & Giulio_LG ",True,True,6,0,3
End Sub
Ciao Solare , ottimo puoi farlo solo per 5 anni, grazie. Da input.
 
cerco uno script che per una data ruota mi restituisca in out tutti i numeri con maggior frequenza che sono usciti nei mesi di giugno dall' anno 2002 alll' anno 2022 .

prova

Codice:
Sub Main
   Dim frequenze(90)
   an1 = CInt(InputBox("Anno di partenza",,2023))
   an2 = CInt(InputBox("Anno di Fine Range",,Year(Now)))
   r = InputBox("QUALE RUOTA",,5)
   'id = CInt(InputBox("QUALE SPIA",,90))
   ms = CInt(InputBox("Quale Mese",,Month(Now)))
   Ini = EstrazioneIni' - QE
   fin = EstrazioneFin
   Scrivi "Ruota analizzata..." & NomeRuota(r),True,False,2,4,3
   'Scrivi "  Spia analizzata..." & id & "   ",True,False,4,2,3
   Scrivi " Mese Analizzato  " & MeseNome(ms),True,True,3,1,3
   Scrivi "Anno Di Partenza.... " & an1
   Scrivi "Anno Fine estraz.... " & an2
   Scrivi
   For es = Ini To fin
      If Mese(es) = ms And Anno(es) >= an1 And Anno(es) <= an2 Then
         'If Posizione(es,r,id) > 0 Then
         cc = cc + 1
         Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) '& "  posiz. - " & Posizione(es,r,id) & "    RitardoCrono > " & fin - es,True,True,,1,3
         'End If
      End If
   Next
   Scrivi
   Scrivi "casi trovati..._" & cc,1
   Scrivi "Anni calcolati._" & an2 - an1 + 1
   Scrivi
   For n = fin To Ini Step - 1
      If Mese(n) = ms And Anno(n) >= an1 And Anno(n) <= an2 Then
         'If Posizione(n,r,id) > 0 Then
         For i = 1 To 5
            e = Estratto(n,r,i)
            frequenze(e) = frequenze(e) + 1
         Next
         'End If
      End If
   Next
   For n = 0 To 9
      s = "numeri sortiti " & CStr(n) & " volte: "
      c = 0
      For i = 1 To 90
         If frequenze(i) = n Then
            s = s & Format2(i) & " "
            c = c + 1
         End If
      Next
      If c > 0 Then
         Scrivi Format2(c) & " - " & s,True,True,,2,2
      End If
   Next
   Scrivi
   Scrivi "****** listato by Mike58 ******* for Forum LottoCed ******* ",True,True,1,5,3
End Sub
 
prova

Codice:
Sub Main
   Dim frequenze(90)
   an1 = CInt(InputBox("Anno di partenza",,2023))
   an2 = CInt(InputBox("Anno di Fine Range",,Year(Now)))
   r = InputBox("QUALE RUOTA",,5)
   'id = CInt(InputBox("QUALE SPIA",,90))
   ms = CInt(InputBox("Quale Mese",,Month(Now)))
   Ini = EstrazioneIni' - QE
   fin = EstrazioneFin
   Scrivi "Ruota analizzata..." & NomeRuota(r),True,False,2,4,3
   'Scrivi "  Spia analizzata..." & id & "   ",True,False,4,2,3
   Scrivi " Mese Analizzato  " & MeseNome(ms),True,True,3,1,3
   Scrivi "Anno Di Partenza.... " & an1
   Scrivi "Anno Fine estraz.... " & an2
   Scrivi
   For es = Ini To fin
      If Mese(es) = ms And Anno(es) >= an1 And Anno(es) <= an2 Then
         'If Posizione(es,r,id) > 0 Then
         cc = cc + 1
         Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) '& "  posiz. - " & Posizione(es,r,id) & "    RitardoCrono > " & fin - es,True,True,,1,3
         'End If
      End If
   Next
   Scrivi
   Scrivi "casi trovati..._" & cc,1
   Scrivi "Anni calcolati._" & an2 - an1 + 1
   Scrivi
   For n = fin To Ini Step - 1
      If Mese(n) = ms And Anno(n) >= an1 And Anno(n) <= an2 Then
         'If Posizione(n,r,id) > 0 Then
         For i = 1 To 5
            e = Estratto(n,r,i)
            frequenze(e) = frequenze(e) + 1
         Next
         'End If
      End If
   Next
   For n = 0 To 9
      s = "numeri sortiti " & CStr(n) & " volte: "
      c = 0
      For i = 1 To 90
         If frequenze(i) = n Then
            s = s & Format2(i) & " "
            c = c + 1
         End If
      Next
      If c > 0 Then
         Scrivi Format2(c) & " - " & s,True,True,,2,2
      End If
   Next
   Scrivi
   Scrivi "****** listato by Mike58 ******* for Forum LottoCed ******* ",True,True,1,5,3
End Sub
Mike 58 si potrebbe fare per 2 ruote contemporaneamente e inserire un' altra condizione .
La condizione è la seguente : selezionare tra i numeri più frequenti quelli che hanno almeno una presenza considerando tutte e due le ruote per ogni ciclo mensile/annuale .

Ciao Eugenio
 
No!! Genios , quando uno script è fatto per uno scopo definito, poi è complicato riadattare lo stesso script per tutt'altro scopo.
Dici 2 ruote ma poi conteggiare le frequenze-Presenze non è facile, c'è bisogno di rivedere tutte le variabili e farli interagire.
Davvero non ho voglia e la cosa che odio rivedere uno script da uno scopo ad un altro scopo.

Ti posso mettere uno script che avevo già fatto che analizza 2 ruote con presenza > 0 in un range temporale (ultime 18)
Ti basta modificare inizio e fine range per avere magari il solo mese maggio 2022.

In altro modo non posso aiutare.

Codice:
Sub Main
   Dim T,V,Ru(2),Nu(1)
   qt = InputBox("Quante estrazioni a ritroso ",,17)
   r1 = InputBox("Scegli Ruota 1",,1)
   r2 = InputBox("Scegli Ruota 2",,2)
   Ini = EstrazioneFin - qt
   fin = EstrazioneFin
   Ru(1) = r1 : Ru(2) = r2
   Scrivi "Range Inizio...... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........ " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni. " & fin - Ini + 1
   Scrivi "Ruote selezionate. " & StringaRuote(Ru)
   Scrivi

   T = Array(T,"Casi","Numero","Freq : " & SiglaRuota(r1),"Freq : " & SiglaRuota(r2),"freq ToT","Ritardo")
   Call InitTabella(T,1,,3,5)
   For n = 1 To 90
  
  
      a = EstrattoFrequenza(r1,n,Ini,fin)
      b = EstrattoFrequenza(r2,n,Ini,fin)
      If a > 0 And b > 0 Then
         k = k + 1
         Nu(1) = n
        
         Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
         V = Array(V,k,n,a,b,fre,rit)
         Call AddRigaTabella(V,,,3)
         Call SetColoreCella(2,7,5)
         If rit = 0 Then Call SetColoreCella(6,3,0)
         'Scrivi n & vbTab & a & " - " & b & vbTab & k
      End If
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,0,1)
End Sub
 
No!! Genios , quando uno script è fatto per uno scopo definito, poi è complicato riadattare lo stesso script per tutt'altro scopo.
Dici 2 ruote ma poi conteggiare le frequenze-Presenze non è facile, c'è bisogno di rivedere tutte le variabili e farli interagire.
Davvero non ho voglia e la cosa che odio rivedere uno script da uno scopo ad un altro scopo.

Ti posso mettere uno script che avevo già fatto che analizza 2 ruote con presenza > 0 in un range temporale (ultime 18)
Ti basta modificare inizio e fine range per avere magari il solo mese maggio 2022.

In altro modo non posso aiutare.

Codice:
Sub Main
   Dim T,V,Ru(2),Nu(1)
   qt = InputBox("Quante estrazioni a ritroso ",,17)
   r1 = InputBox("Scegli Ruota 1",,1)
   r2 = InputBox("Scegli Ruota 2",,2)
   Ini = EstrazioneFin - qt
   fin = EstrazioneFin
   Ru(1) = r1 : Ru(2) = r2
   Scrivi "Range Inizio...... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine........ " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni. " & fin - Ini + 1
   Scrivi "Ruote selezionate. " & StringaRuote(Ru)
   Scrivi

   T = Array(T,"Casi","Numero","Freq : " & SiglaRuota(r1),"Freq : " & SiglaRuota(r2),"freq ToT","Ritardo")
   Call InitTabella(T,1,,3,5)
   For n = 1 To 90
 
 
      a = EstrattoFrequenza(r1,n,Ini,fin)
      b = EstrattoFrequenza(r2,n,Ini,fin)
      If a > 0 And b > 0 Then
         k = k + 1
         Nu(1) = n
       
         Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
         V = Array(V,k,n,a,b,fre,rit)
         Call AddRigaTabella(V,,,3)
         Call SetColoreCella(2,7,5)
         If rit = 0 Then Call SetColoreCella(6,3,0)
         'Scrivi n & vbTab & a & " - " & b & vbTab & k
      End If
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,0,1)
End Sub
Grazie ottimo anche questo script . Un po' difficoltosa la lettura per via della formattazione comunque ottimo.

Ciao Grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
Indietro
Alto