Novità

Sommativo per 10elotto?

deserto2_0.jpg
 
qualcuno ha qualche scirpt per 10 e lotto?

ciao keeper ti riferisci al 10elotto classico?

ho questo se ti può interessare

Codice:
Sub main()
Dim numeri(10), gg(10),rc(20)
ini= 8477
fin=EstrazioneFin
casi=0
colpi=13
For n=ini To fin
   If IndiceMensile (n)= 4 Then
      casi=casi+1
      numeri(1)=Fuori90(Estratto(n,1,1)*0.8)
      numeri(2)=Fuori90(Estratto(n,2,1)*0.6)
      numeri(3)=Fuori90(Estratto(n,3,1)*0.3)
      numeri(4)=Fuori90(Estratto(n,4,1)*0.1)
      numeri(5)=Fuori90(Estratto(n,5,1)*0.11)
      numeri(6)=Fuori90(Estratto(n,6,1)*0.15)
      numeri(7)=Fuori90(Estratto(n,7,1)*0.2)
      numeri(8)=Fuori90(Estratto(n,8,1)*0.1)
      numeri(9)=Fuori90(Estratto(n,9,1)*0.12)
      numeri(10)=Fuori90(Estratto(n,10,1)*0.6)
      For i=1 To 10
         If numeri(i)=0 Then numeri(i)=90
      Next
      nn=0
      If NumeriRipetuti(numeri) Then
         nn=1
         While NumeriRipetuti(numeri)
            For i=1 To 9
               For y= i+1 To 10
                  If numeri(i)=numeri(y) Then numeri(y)=Fuori90(numeri(y)+89)
               Next
            Next
         Wend
      End If
      OrdinaMatrice numeri,1 ' cosi mette in numeri in ordine crescente
Scrivi : Scrivi String (55,"=")
   If nn=1 Then Scrivi "Erano presenti numeri ripetuti, è stato fatto il -1",1
ColoreTesto 1
Scrivi n&" "& DataEstrazione(n)&" Numeri in gioco per il mese: "& StringaNumeri(numeri),1
Scrivi : ColoreTesto 0
      ess=n+colpi
      If ess>fin Then ess=fin
      For x=n+1 To ess
         co=0
         For r= 1 To 10
            For p= 1 To 2
               co=co+1
               a=Estratto(x,r,p)
               rc(co)=a
            Next
         Next
         OrdinaMatrice (rc) 'solo x controllo
         'Scrivi x&"  "& StringaNumeri (rc)'solo x controllo questo con ripetuti
         If NumeriRipetuti(rc) Then
            c=0
            While NumeriRipetuti(rc)
               c=c+1
               For i=1 To 19
                  For y= i+1 To 20
                     If rc(i)=rc(y) Then rc(y)=Estratto(x,c,3)
                  Next
               Next
            Wend
         End If
         OrdinaMatrice (rc) 'solo x controllo
         Scrivi x&"  "& StringaNumeri (rc)'solo x controllo senza i ripetuti e sostituiti...
         'metti apice sopra se non vuoi vedere la ventina... 
         cont=0
         For i=1 To 20
            For j=1 To 10
               If rc(i)=numeri(j) Then
                  cont=cont+1 
               End If
            Next
         Next
         If cont=0 Then Scrivi "Punti Zero al "& (x-n)&"° colpo" : c1=c1+1
          If cont=5 Then Scrivi "Punti Cinque al "& (x-n)&"° colpo" : c2=c2+1
         If cont=6 Then Scrivi "Punti Sei al "& (x-n)&"° colpo" : c3=c3+1
         If cont=7 Then Scrivi "Punti Sette al "& (x-n)&"° colpo" : c4=c4+1
         If cont=8 Then Scrivi "Punti Otto al "& (x-n)&"° colpo" : c5=c5+1
         If cont=9 Then Scrivi "Punti Nove al "& (x-n)&"° colpo" : c6=c6+1
         If cont=10 Then Scrivi"Punti Dieci al "& (x-n)&"° colpo" : c7=c7+1
      Next
   End If
Next
Scrivi : Scrivi " RESOCONTO TOTALE ",1
Scrivi " Periodo dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin)
Scrivi "------------------" : ColoreTesto 0
Scrivi " CASI ANALIZZATI : "& casi
Scrivi "------------------" : Scrivi : ColoreTesto 2
Scrivi FormatSpace (" ZERO",10)&": "&c1,1
Scrivi FormatSpace (" CINQUE",10)&": "&c2,1
Scrivi FormatSpace (" SEI",10)&": "&c3,1
Scrivi FormatSpace (" SETTE",10)&": "&c4,1
Scrivi FormatSpace (" OTTO",10)&": "&c5,1
Scrivi FormatSpace (" NOVE",10)&": "&c6,1
Scrivi FormatSpace (" DIECI",10)&": "&c7,1
End Sub

buon pomeriggio
 
ciao franca46 ma cosa fa in realtà lo script? poi non gira su spaziometria

CIAO KEEPER, HO AVUTO LO STESSO PROBLEMA, HO RISOLTO X VEDERLO CANCELLANDO LE RIGHE CHE DANNO ERRORE.

SE HO FATTO BENE O MALE NON LO SO.

LO SCRIPT DA I 10 NUMERI X IL MESE E LA STATISTICA.

SPERO DI ESSERTI STATA UTILE.

BUON FINE SETTIMANA.


PS. GRAZIE A FRANCA46 X LO SCRIPT.
 
2.3.5.6.7.9.11.16.21.90
1.2.3.4.5.7.12.17.35.50
2.3.4.6.8.9.10.12.18.35
4.5.6.7.8.15.19.31.34.42

proviamo un pò
 
joe91 per favore vuoi dare un'occhiata ... da errore in ordinamatrice.grazie

Ciao Keeper ho corretto gli errori di compatibilità e formattato le tabelle.

NON ho controllato se sono giusti script e risultati.

Codice:
Sub Main()
Dim numeri(10), gg(10),rc(20)
ini= 8477
fin=EstrazioneFin
casi=0
colpi=13
For n=ini To fin
   If IndiceMensile (n)= 4 Then
      casi=casi+1
      numeri(1)=Fuori90(Estratto(n,1,1)*0.8)
      numeri(2)=Fuori90(Estratto(n,2,1)*0.6)
      numeri(3)=Fuori90(Estratto(n,3,1)*0.3)
      numeri(4)=Fuori90(Estratto(n,4,1)*0.1)
      numeri(5)=Fuori90(Estratto(n,5,1)*0.11)
      numeri(6)=Fuori90(Estratto(n,6,1)*0.15)
      numeri(7)=Fuori90(Estratto(n,7,1)*0.2)
      numeri(8)=Fuori90(Estratto(n,8,1)*0.1)
      numeri(9)=Fuori90(Estratto(n,9,1)*0.12)
      numeri(10)=Fuori90(Estratto(n,10,1)*0.6)
      For i=1 To 10
         If numeri(i)=0 Then numeri(i)=90
      Next
      nn=0
      If NumeriRipetuti(numeri) Then
         nn=1
         While NumeriRipetuti(numeri)
            For i=1 To 9
               For y= i+1 To 10
                  If numeri(i)=numeri(y) Then numeri(y)=Fuori90(numeri(y)+89)
               Next
            Next
         Wend
      End If
      OrdinaMatrice numeri,1 ' cosi mette in numeri in ordine crescente
Scrivi : Scrivi String (70,"=")
   If nn=1 Then Scrivi "Erano presenti numeri ripetuti, è stato fatto il -1",1
ColoreTesto 1
Scrivi n&" "& DataEstrazione(n)&" Numeri in gioco per il mese: "& StringaNumeri(numeri),1
Scrivi : ColoreTesto 0
      ess=n+colpi
      If ess>fin Then ess=fin
      For x=n+1 To ess
         co=0
         For r= 1 To 10
            For p= 1 To 2
               co=co+1
               a=Estratto(x,r,p)
               rc(co)=a
            Next
         Next
         OrdinaMatrice rc,1 'solo x controllo
         'Scrivi x&"  "& StringaNumeri (rc)'solo x controllo questo con ripetuti
         If NumeriRipetuti(rc) Then
            c=0
            While NumeriRipetuti(rc)
               c=c+1
               For i=1 To 19
                  For y= i+1 To 20
                     If rc(i)=rc(y) Then rc(y)=Estratto(x,c,3)
                  Next
               Next
            Wend
         End If
         OrdinaMatrice (rc),1 'solo x controllo
         Scrivi x&"  "& StringaNumeri (rc,,True)'solo x controllo senza i ripetuti e sostituiti...
         'metti apice sopra se non vuoi vedere la ventina... 
         cont=0
         For i=1 To 20
            For j=1 To 10
               If rc(i)=numeri(j) Then
                  cont=cont+1 
               End If
            Next
         Next
         If cont=0 Then Scrivi "Punti Zero al "& (x-n)&"° colpo" : c1=c1+1
         If cont=5 Then Scrivi "Punti Cinque al "& (x-n)&"° colpo" : c2=c2+1
         If cont=6 Then Scrivi "Punti Sei al "& (x-n)&"° colpo" : c3=c3+1
         If cont=7 Then Scrivi "Punti Sette al "& (x-n)&"° colpo" : c4=c4+1
         If cont=8 Then Scrivi "Punti Otto al "& (x-n)&"° colpo" : c5=c5+1
         If cont=9 Then Scrivi "Punti Nove al "& (x-n)&"° colpo" : c6=c6+1
         If cont=10 Then Scrivi"Punti Dieci al "& (x-n)&"° colpo" : c7=c7+1
      Next
   End If
Next
Scrivi : Scrivi " RESOCONTO TOTALE ",1
Scrivi " Periodo dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin)
Scrivi "------------------" : ColoreTesto 0
Scrivi " CASI ANALIZZATI : "& casi
Scrivi "------------------" : Scrivi : ColoreTesto 2
Scrivi FormatSpace (" ZERO",10)&": "&c1,1
Scrivi FormatSpace (" CINQUE",10)&": "&c2,1
Scrivi FormatSpace (" SEI",10)&": "&c3,1
Scrivi FormatSpace (" SETTE",10)&": "&c4,1
Scrivi FormatSpace (" OTTO",10)&": "&c5,1
Scrivi FormatSpace (" NOVE",10)&": "&c6,1
Scrivi FormatSpace (" DIECI",10)&": "&c7,1
End Sub
 
Ciao Keeper,

L'algoritmo per eliminare i numeri ripetuti ... portandoli in "-1" con un Fuori90 ( ... +89)

sviluppato in un ambiente diverso da Spaziometria ... è un esercizio di equilibrismo che evidentemente

lascia libero sfogo a qualche effetto collaterale.

Puoi provare a sostituire con la seguente linea:

If (numeri(i)=numeri(y)) Or (isNumeroValidoLotto (numeri(Y)) = False) Then numeri(y)=Fuori90(numeri(y)+89))
 
ciao keeper , scusa io non uso spaziometria , e questo listato gira su L8 , l'ho trovato qualke tempo fà sul forum di Ramcolotto
ed avevo dimenticato di scriverlo , vedo che Joe ha provveduto ad aggiustarlo.

buona domenica
 
Ho spostato l'archivio al Dieci e Lotto inserendo l'INT all'algoritmo e modificando con i primi(interessante).

Sub Main()Dim numeri(10),gg(10),rc(20)
ini = 8477
fin = EstrazioneFin
casi = 0
colpi = 13
For n = ini To fin
If IndiceMensile(n) = 1 Then
casi = casi + 1
numeri(1) = Fuori90(Int(EstrattoDL(n,1)*1))
numeri(2) = Fuori90(Int(EstrattoDL(n,2)*3))
numeri(3) = Fuori90(Int(EstrattoDL(n,3)*5))
numeri(4) = Fuori90(Int(EstrattoDL(n,4)*7))
numeri(5) = Fuori90(Int(EstrattoDL(n,5)*11))
numeri(6) = Fuori90(Int(EstrattoDL(n,6)*13))
numeri(7) = Fuori90(Int(EstrattoDL(n,7)*19))
numeri(8) = Fuori90(Int(EstrattoDL(n,8)*23))
numeri(9) = Fuori90(Int(EstrattoDL(n,9)*29))
numeri(10) = Fuori90(Int(EstrattoDL(n,10)*31))
For i = 1 To 10
If numeri(i) = 0 Then numeri(i) = 90
Next
nn = 0
If NumeriRipetuti(numeri) Then
nn = 1
While NumeriRipetuti(numeri)
For i = 1 To 9
For y = i + 1 To 10
'If numeri(i) = numeri(y) Then numeri(y) = Fuori90(numeri(y) + 89)
If(numeri(i) = numeri(y)) Or(isNumeroValidoLotto(numeri(Y)) = False) Then numeri(y) = Fuori90(numeri(y) + 89)
Next
Next
Wend
End If
OrdinaMatrice numeri,1 ' cosi mette in numeri in ordine crescente
Scrivi : Scrivi String(70,"=")
If nn = 1 Then Scrivi "Erano presenti numeri ripetuti, è stato fatto il -1",1
ColoreTesto 1
Scrivi n & " " & DataEstrazioneDL(n) & " Numeri in gioco per il mese: " & StringaNumeri(numeri),1
Scrivi : ColoreTesto 0
ess = n + colpi
If ess > fin Then ess = fin
For x = n + 1 To ess
For z=1 To 20
rc(z)=EstrattoDL(x,z)
Next
Scrivi DataEstrazioneDL(x) & " " & StringaNumeri(rc,,True)'solo x controllo senza i ripetuti e sostituiti...
'metti apice sopra se non vuoi vedere la ventina...
cont = 0
For i = 1 To 20
For j = 1 To 10
If rc(i) = numeri(j) Then
cont = cont + 1
End If
Next
Next
If cont = 0 Then Scrivi "Punti Zero al " &(x - n) & "° colpo" : c1 = c1 + 1
If cont = 5 Then Scrivi "Punti Cinque al " &(x - n) & "° colpo" : c2 = c2 + 1
If cont = 6 Then Scrivi "Punti Sei al " &(x - n) & "° colpo" : c3 = c3 + 1
If cont = 7 Then Scrivi "Punti Sette al " &(x - n) & "° colpo" : c4 = c4 + 1
If cont = 8 Then Scrivi "Punti Otto al " &(x - n) & "° colpo" : c5 = c5 + 1
If cont = 9 Then Scrivi "Punti Nove al " &(x - n) & "° colpo" : c6 = c6 + 1
If cont = 10 Then Scrivi"Punti Dieci al " &(x - n) & "° colpo" : c7 = c7 + 1
Next
End If
Next
Scrivi : Scrivi " RESOCONTO TOTALE ",1
Scrivi " Periodo dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi "------------------" : ColoreTesto 0
Scrivi " CASI ANALIZZATI : " & casi
Scrivi "------------------" : Scrivi : ColoreTesto 2
Scrivi FormatSpace(" ZERO",10) & ": " & c1,1
Scrivi FormatSpace(" CINQUE",10) & ": " & c2,1
Scrivi FormatSpace(" SEI",10) & ": " & c3,1
Scrivi FormatSpace(" SETTE",10) & ": " & c4,1
Scrivi FormatSpace(" OTTO",10) & ": " & c5,1
Scrivi FormatSpace(" NOVE",10) & ": " & c6,1
Scrivi FormatSpace(" DIECI",10) & ": " & c7,1
End Sub




 
Ultima modifica:
1O e lotto classici o 5m?
x franca46
grazie per averlo messo a dispisizione di tutto il forum e a joe per la correzione ed a pico2005 per l'adattamento potrebbe essere il punto di partenza per qualchd nuovi studio
 
lo si potrebbe adattare anche al 10elotto5m da alcuni test da molti 4 e 5 si potrebbe applicare una riduzione
 
ciao lo sai che sono all'inizio di vbscript cerco di capire e di lavorarci. vorrei adattarlo al 10elotto5m. grazie per le spiegazioni mi metto all'opera
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto