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
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08

Ultimi Messaggi

Indietro
Alto