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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto