Novità

Uno Script Sommativo

  • Creatore Discussione Creatore Discussione jure
  • Data di inizio Data di inizio

jure

Advanced Member >PLATINUM PLUS<
Nel mio Archivio ho trovato questo Script "Sommativo"
se interessa a Qualcuno.
Controllate se bisogna fare qualche aggiustamento perche'
considera 8 le estrazioni mensili. Attualmente sono di media 12.

Sub Main()
Dim som(5,5,90)
Dim estr(2,5)
Dim Val(5,5,90)
Dim amb(90)
r2=InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)
es=InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-8):",,0)
nmc=InputBox("Numero di mesi da considerare:",,12)
perc=InputBox("Inserisci la percentuale (0-100):",,80)
ncg=InputBox("Inserisci il numero di colpi(0 per un mese):",,8)


ultest=7309 ' inserite qui il numero indice dell'ultima estrazione


n=EstrazioneFin
z=0
trovato=False
While z<eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If (((eval(es)=0) And (n=ultest)) Or ((IndiceMensile(n)=eval(es) And (eval(es)>0)) Or ((IndiceMensile(n+1)=1) And (eval(es)=0)))) Then
' fine riga
z=z+1
End If
n=n-1
Wend
nn=n+1
For i=1 To 90
amb(i)=0
Next
If eval(es)=0 Then
s="All'ultima"
Else
s="Alla "+es
End If
s=s+"° estrazione del mese per "
If eval(ncg)=0 Then
s=s+"un mese:"
Else
If eval(ncg)=1 Then
s=s+ncg+" colpo:"
Else
s=s+ncg+" colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal "+DataEstrazione(nn)+" al "+DataEstrazione(EstrazioneFin)
For ru1=1 To 10
For ru2=ru1 To 10
Messaggio " Elaboro la ruota n° "&CInt(ru1)&" con la n° "&CInt(ru2)
z=0
For i=1 To 5
For l=1 To 5
For j=1 To 90
som(i,l,j)=0
Val(i,l,j)=True
Next
Next
Next
For j=1 To 2
For i=1 To 5
estr(j,i)=0
Next
Next
valido=False
For n=nn To EstrazioneFin
If eval(es)=0 Then m=n+1 Else m=n End If
' Attenzione questa sotto deve essere tutta una riga
If (((es=0) And (n=ultest)) Or ((IndiceMensile(m)=eval(es) And (eval(es)>0)) Or ((IndiceMensile(m)=1) And (eval(es)=0)))) Then
' fine riga
z=z+1
For i=1 To 5
estr(1,i)=Estratto(n,ru1,i)
estr(2,i)=Estratto(n,ru2,i)
Next
For i=1 To 5
For l=1 To 5
For j=1 To 90
Val(i,l,j)=True
Next
Next
Next
If eval(ncg)=0 Then
k2=9
If (IndiceMensile(n+8)=eval(es)) Then
k2=8
End If
Else
k2=eval(ncg)
End If
k3=n+k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin
For nv=n+1 To k3
For i=1 To 5
For j=1 To 5
For l=1 To 5
k=Estratto(nv,r2,i)-estr(1,j)-estr(2,l)
While k<=0
k=k+90
Wend
If Val(j,l,k)=True Then
som(j,l,k)=som(j,l,k)+1
Val(j,l,k)=False
End If
Next
Next
Next
Next
End If
Next
For i=1 To 5
For l=1 To 5
For j=1 To 90
zz=Int((z/100)*perc)
s=CStr(eval(i))+"° di "+FormatSpace(NomeRuota(ru1),8)+" + "+CStr(eval(l))+"° di "
s=s+FormatSpace(NomeRuota(ru2),8)+" + "+FormatSpace(CStr(eval(j)),2)+" su "+NomeRuota(r2)+" "
s=s+CStr(som(i,l,j))+" su "+CStr(eval(z))+": "+FormatSpace(CStr(Fuori90(eval(estr(1,i)+estr(2,l)+j))),2)
If Val(i,l,j)=True Then s=s+" in corso" Else s=s+" già uscito"
If (som(i,l,j)>=zz) Then
If (Not(ru1=ru2) Or ((ru1=ru2) And (i<l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i)+estr(2,l)+j)))=amb(Fuori90(eval(estr(1,i)+estr(2,l)+j)))+1
End If
End If
Next
Next
Next
Next
Next
End Sub
 
Alla 8° estrazione del mese per 9 colpi:
Statistica dal 17.06.2010 al 17.05.2012
1° di Bari + 2° di Torino + 77 su Firenze 20 su 24: 16 in corso
2° di Firenze + 1° di Genova + 44 su Firenze 19 su 24: 39 in corso
5° di Genova + 1° di Milano + 4 su Firenze 20 su 24: 73 in corso
1° di Milano + 5° di Venezia + 84 su Firenze 19 su 24: 67 in corso
4° di Roma + 5° di Torino + 27 su Firenze 19 su 24: 88 in corso
Prova previsione con il metodo Sommativo
Firenze
Ambate 16 73
Terzine 16 73 39 - 16 73 67 - 16 73 88
 
Ciao Jure, questo script credo che ormai ce l'abbiano tutti, l'avrò postato almeno 4/5 volte
Ti ho anticipato di un paio di mesi heheheh........ :)
 
Ultima modifica:
amb(Fuori90(eval(estr(1,i)+estr(2,l)+j)))=amb(Fuori90(eval(estr(1,i)+estr(2,l)+j)))+1
devi avvicinare Fuor i90

 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16
Indietro
Alto