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.
'Option Explicit
Sub Main
Dim id,e,p,pp
Dim ruota,nMese
Dim N,Nn
ruota = CInt(InputBox("QUALE RUOTA",,10))
nMese = CInt(InputBox("QUALE MESE",,2))
N = CInt(InputBox("1 NUMERO",,90))
Nn = CInt(InputBox("2 NUMERO",,23))
p = 0
Ini = DataEstrToIdEstr(2,2,2006)
fin = EstrazioniArchivio
Scrivi "Ruota di : " & NomeRuota(ruota) & " - Analisi dal " & DataEstrazione(Ini) & " Al " & DataEstrazione(fin),1,1,2,4,4
Scrivi "NUMERI..." & N & "." & Nn & " - Mese scelto " & MeseNome(nMese),1,1,,1,3
Scrivi
For id = Ini To fin
If Mese(id) = nMese Then
For e = 1 To 5
If Estratto(id,ruota,e) = N Then
p = p + 1
Call Scrivi(GetInfoEstrazione(id) & " " & StringaEstratti(id,ruota,,True) & " " & N,1,1,,1,2)
Exit For
End If
If Estratto(id,ruota,e) = Nn Then
pp = pp + 1
Call Scrivi(GetInfoEstrazione(id) & " " & StringaEstratti(id,ruota,,True) & " " & Nn,1,1,,2,2)
End If
Next
End If
Next
Scrivi
Call Scrivi("Presenze totali del numero " & N & " : " & p,1,1,,1,2)
Call Scrivi("Presenze totali del numero " & Nn & " : " & pp,1,1,,2,2)
End SubSub Main
Dim nu()
Dim ru(1)
r = InputBox("Quale ruota",,8)
sorte = CInt(InputBox("Quale sorte minima verifico x MESI ","SORTE",2))
sortestat = CInt(InputBox("QUALE SORTE VERIFICA STATISTICA ","SORTE STATISTICA",2))
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) = " Forum LottoCed "
Call AddRigaTabella(atx,4,,3)
Call SetColoreCella(11,,7)
Call SetColoreCella(12,,1)
Call SetTableWidth("100%")
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,1) ' crea tabella in modo orizzontale
Scrivi
'Scrivi " Script Listed By Mike58 ",True,True,6,0,3
End Sub
