Novità

Mike58 limite numeri

Marcorun

Advanced Member >GOLD<
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

Premium Member
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 >GOLD<
x Lotto_tom75...ho visto lo script è molto bello,anche graficamente...continuo a studiarlo, intanto GRAZIE
 

Marcorun

Advanced Member >GOLD<
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

Premium Member
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 >GOLD<
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

Premium Member
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 20 aprile 2024
    Bari
    08
    62
    22
    82
    12
    Cagliari
    86
    44
    19
    31
    72
    Firenze
    38
    70
    31
    33
    26
    Genova
    84
    71
    65
    55
    75
    Milano
    61
    32
    48
    15
    24
    Napoli
    24
    55
    49
    12
    37
    Palermo
    87
    14
    52
    18
    43
    Roma
    01
    88
    16
    50
    63
    Torino
    15
    70
    52
    62
    55
    Venezia
    15
    83
    49
    18
    44
    Nazionale
    10
    22
    68
    78
    06
    Estrazione Simbolotto
    Genova
    27
    31
    15
    32
    04

Ultimi Messaggi

Alto