Mike58 limite numeri

[Marcorun]

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]

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...

 

[fillotto]

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

 

[fillotto]

ho visto l'output di tom si potrebbe commentarlo?

 

[Marcorun]

Molto gentile, GRAZIE...questa sera lo lancio.

 

[claudio8]

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.]

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

 

[Marcorun]

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

 

[Marcorun]

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]

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.

  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

 

[Marcorun]

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]

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.