Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Mike58 limite numeri

Marcorun

Advanced Member
Forse Mike 58 o qualche altro esperto di script,potrebbe modificare quello da me scritto (mettendo insieme pezzi di script non miei),aggiungendo altri 2/3 numeri da poter usare con un sistema...........o forse il mondo informatico/listati così immenso,ha dei limiti così grandi di max 10 numeri?

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
g = InputBox("Su quale ruota, ",,1)
ruote(1) = g
For n = EstrazioneFin - 100 To EstrazioneFin


numeri1(1) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 1))
numeri1(2) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 2))
numeri1(3) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 3))
numeri1(4) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 4))
numeri1(5) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 5))
numeri1(6) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 6))
numeri1(7) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 7))
numeri1(8) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 8))
numeri1(9) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 9))
numeri1(10) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 10))


EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,9,2

Call Scrivi("--------------------------------------------------------------------------------------",1,1,2,4,3)

Gioca n

Next
ScriviResoconto
End Sub



Grazie......Buon Anno!!!!!!
 

lotto_tom75

Advanced Premium Member
Codice:
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
'g = InputBox("Su quale ruota, ",,1)

Dim g
For g = 1 To 12 ' x analizzare automaticamente tutte le ruote e scegliere via via la condizione teoricamente migliore

ruote(1) = g
For n = EstrazioneFin - 100 To EstrazioneFin


numeri1(1) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 1))
numeri1(2) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 2))
numeri1(3) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 3))
numeri1(4) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 4))
numeri1(5) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 5))
numeri1(6) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 6))
numeri1(7) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 7))
numeri1(8) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 8))
numeri1(9) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 9))
numeri1(10) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 10))


EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,38,2

'Call Scrivi("--------------------------------------------------------------------------------------",1,1,2,4,3)

'Gioca n

Gioca n,False,False,0,0,False

Next
Next ' x analisi automatica delle ruote

'Call ScriviDistribuzioneEsiti(True)
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3")




'ScriviResoconto
End Sub

E Buon Super 2019 ;)

Ps: modifiche effettuate: aumentato numero di colpi di analisi, aggiunto filtraggio per evidenziare solo i teorici esiti in max 3 colpi, lasciata la classe 10 di sviluppo e inserita analisi automatica di tutte le 11 ruote... Mi complimento con te per aver intuito l'importanza delle lunghette oltre la classe 10, che ovviamente poi si devono cercare di ridurre il + possibile in microlunghette di classe minima (max 7) una volta che sono state in qualche modo individuate... :)
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Marcorun,Tom,prima di tutto buon anno in secundis : non ho capito quasi niente :confused: non potreste essere più espliciti? grazie!
 

claudio8

Advanced Member >PLATINUM PLUS<
Marcorun;n2146791 ha scritto:
Forse Mike 58 o qualche altro esperto di script,potrebbe modificare quello da me scritto (mettendo insieme pezzi di script non miei),aggiungendo altri 2/3 numeri da poter usare con un sistema...........o forse il mondo informatico/listati così immenso,ha dei limiti così grandi di max 10 numeri?


Grazie......Buon Anno!!!!!!

Mi pare di capire che vorresti poter giocare più di 10 numeri con la funzione Impostagiocate e Gioca. Bene, questo non è possibile perchè sulla base dei max 10 numeri inseribili in bolletta del lotto, è stato definito a suo tempo, anche per SPTM, il limite di 10 numeri per giocata.

Se il tuo intento è di incrementare questo valore sempre usando Impostagiocate e Gioca, devi fare in modo che questi numeri vengano sviluppati( Sviluppointegrale) in decine o inferiori (novine, ottine ecc) e successivamente ciclarle ( For ...next) dalla 1a all'ultima mettendole in gioco.

Diversamente dovresti utilizzare la funzione VerificaEsito che non mi pare abbia questo limite.

Spero di aver capito bene il tuo intento e di averti suggerito in maniera sufficentemente chiara.

Ciao
 

Alien.

Advanced Premium Member
ciao,scusa mi da errore qua: Call ScriviDistribuzioneCasiInCorso(True,"1,2,3")
grazie.
 

Marcorun

Advanced Member
x Lotto_tom75...ho visto lo script è molto bello,anche graficamente...continuo a studiarlo, intanto GRAZIE
 

Marcorun

Advanced Member
x Claudio8....quando scrivi questo:"Se il tuo intento è di incrementare questo valore sempre usando Impostagiocate e Gioca, devi fare in modo che questi numeri vengano sviluppati( Sviluppointegrale) in decine o inferiori (novine, ottine ecc) e successivamente ciclarle ( For ...next) dalla 1a all'ultima mettendole in gioco."capisco quello che vuoi dire ma non riesco a svilupparlo....tu invece........ne saresti capace?scrivendo lo script?....la stessa cosa quando dici..:"Diversamente dovresti utilizzare la funzione VerificaEsito che non mi pare abbia questo limite.".......x me che non ho studiato informatica tra il dire e il fare ................................:)...GRAZIE 1000
 

claudio8

Advanced Member >PLATINUM PLUS<
Marcorun;n2146919 ha scritto:
x Claudio8....quando scrivi questo:"Se il tuo intento è di incrementare questo valore sempre usando Impostagiocate e Gioca, devi fare in modo che questi numeri vengano sviluppati( Sviluppointegrale) in decine o inferiori (novine, ottine ecc) e successivamente ciclarle ( For ...next) dalla 1a all'ultima mettendole in gioco."capisco quello che vuoi dire ma non riesco a svilupparlo....tu invece........ne saresti capace?scrivendo lo script?....la stessa cosa quando dici..:"Diversamente dovresti utilizzare la funzione VerificaEsito che non mi pare abbia questo limite.".......x me che non ho studiato informatica tra il dire e il fare ................................:)...GRAZIE 1000

Marco, vedi che non c'è bisogno di studiare informatica, basta applicarsi sugli script, visionare le lezioni e leggere l'help delle funzioni.
Ps: 12 numeri in decina danno uno sviluppo di 66 combinazioni.

Codice:
  Sub Main()
     Dim ruote(10)
     Dim numeri1(12)
     Dim posta(5)
     Dim Colonne
     Dim numeri(10)
     Dim classe
     Dim sColonna
     classe = 10
     'Dim numeri(classe)
     posta(2) = 1
     posta(3) = 0
     posta(4) = 0
     posta(1) = 0
     g = InputBox("Su quale ruota, ",,1)
     ruote(1) = g
     For n = EstrazioneFin - 10 To EstrazioneFin
          numeri1(1) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 1))
          numeri1(2) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 2))
          numeri1(3) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 3))
          numeri1(4) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 4))
          numeri1(5) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 5))
          numeri1(6) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 6))
          numeri1(7) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 7))
          numeri1(8) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 8))
          numeri1(9) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 9))
          numeri1(10) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 10))
          numeri1(11) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 11))
          numeri1(12) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 12))
          EliminaRipetuti numeri1
          Colonne = SviluppoIntegrale(numeri1,classe)
         Call Scrivi(Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 1)) & " 1° numero rilevato dalla estrazione " & GetInfoEstrazione(n)& " --------------------------------",1,1,2,4,3)
          For k = 1 To UBound(Colonne)
               sColonna = ""
               For j = 1 To classe
                    sColonna = sColonna & Format2(Colonne(k,j)) & " "
                    numeri(j)= Format2(Colonne(k,j))
               Next
               Call Scrivi( "combinazione n° " & Format2(k) & " -> " & sColonna)

               ImpostaGiocata k,numeri,ruote,posta,9,2

               Gioca n
           Next    
               If VerificaEsito(numeri1,ruote,n+1,2,9,,retEsito2,retColpi2,retEstratti2)Then
                    Scrivi  "Con il VerificaEsito con tutti i numeri [" & StringaNumeri(numeri1) & "] abbiamo : " & retEsito2 & " al " & retColpi2 & "° colpo con estratti " & retEstratti2
               Else
                    Scrivi
               End If

     Next
      ScriviResoconto
End Sub

Saluti
 
Ultima modifica:

Marcorun

Advanced Member
Caspita!!!!!sei bravo!!!!hai superato il limite,script oltre i 10 numeri credo che nessuno mai prima d'ora avesse concepito!...continuo a studiarlo.....chissà se qualcun'altro avrà commenti o modifiche .....con ammirazione,RINGRAZIO!
 

claudio8

Advanced Member >PLATINUM PLUS<
Esagerato.... :) :)
Riprendi lo script, ho corretto l'inizio estrazioni di verifica esito e ho inserito i 12 numeri che il VerificaEsito controlla in unica lunghetta.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41
Alto