Novità

Sommativo per 10elotto?

deserto2_0.jpg
 
keeper ha scritto:
qualcuno ha qualche scirpt per 10 e lotto?
Clicca per espandere...

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
 
keeper ha scritto:
ciao franca46 ma cosa fa in realtà lo script? poi non gira su spaziometria
Clicca per espandere...

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ò
 
keeper ha scritto:
joe91 per favore vuoi dare un'occhiata ... da errore in ordinamatrice.grazie
Clicca per espandere...

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
Clicca per espandere...
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto