Sommativo per 10elotto?

keeper · 7 Maggio 2013

qualcuno ha qualche scirpt per 10 e lotto?

Alien. · 9 Maggio 2013

franca46 · 10 Maggio 2013

keeper ha scritto:
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

keeper · 10 Maggio 2013

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

rosce14 · 11 Maggio 2013

keeper ha scritto:
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.

keeper · 11 Maggio 2013

da errore su questa fuzione ordinematrice(rc) sto cercado di capire

keeper · 11 Maggio 2013

da questi?
4.5.6.7.8.15.19.31.34.42
grazie a franca46 per la disponibilità

keeper · 11 Maggio 2013

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 · 11 Maggio 2013

keeper ha scritto:
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

keeper · 11 Maggio 2013

grazie funziona l'uncia cosa credo che riporti il 91 come previsione ma non fa niente

Joe91 · 11 Maggio 2013

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

) Or (isNumeroValidoLotto (numeri(Y)) = False) Then numeri

=Fuori90(numeri

+89))

keeper · 11 Maggio 2013

ok grazie é sempre disponibile

franca46 · 12 Maggio 2013

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

pico2005 · 12 Maggio 2013

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 = 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 Then numeri = Fuori90(numeri + 89)
If(numeri(i) = numeri) Or(isNumeroValidoLotto(numeri(Y)) = False) Then numeri = Fuori90(numeri + 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 & " 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

keeper · 12 Maggio 2013

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

keeper · 13 Maggio 2013

lo si potrebbe adattare anche al 10elotto5m da alcuni test da molti 4 e 5 si potrebbe applicare una riduzione

keeper · 15 Maggio 2013

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

Cerca

Cerca

Sommativo per 10elotto?

keeper

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

franca46

Advanced Member >PLATINUM PLUS<

keeper

Advanced Member >PLATINUM PLUS<

rosce14

Premium Member

keeper

Advanced Member >PLATINUM PLUS<

keeper

Advanced Member >PLATINUM PLUS<

keeper

Advanced Member >PLATINUM PLUS<

Joe91

Advanced Member >PLATINUM PLUS<

keeper

Advanced Member >PLATINUM PLUS<

Joe91

Advanced Member >PLATINUM PLUS<

keeper

Advanced Member >PLATINUM PLUS<

franca46

Advanced Member >PLATINUM PLUS<

pico2005

Super Member >GOLD<

keeper

Advanced Member >PLATINUM PLUS<

keeper

Advanced Member >PLATINUM PLUS<

keeper

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi