Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
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 .non so, ... cosa cerchi ?
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 .
Non proprio cosi ma è un inizio . GrazieProva 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.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 Alien, cambia: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 .
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
Provato ma non da esiti.ciao Alien, cambia:
Ini = EstrazioneIni
in
Ini = 9475
ciao, Gio.
Mike 58 si potrebbe fare per 2 ruote contemporaneamente e inserire un' altra condizione .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
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.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