Novità

Chi lo sa fare?

Marcorun

Marcorun

Advanced Member >GOLD<
Questo piccolo script mette in gioco i primi 10 numeri più ritardati su ruota.
Chiedo se è possibile modificarlo per avere una lunghetta con i numeri più ritardati dopo i primi 10 (dal 11° al 20°)
GRAZIE!

Sub Main()
Dim ruote(10)
Dim numeri1(10),anumfreq,n
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = 1 ' cambia ruota
For n = EstrazioneFin - 200 To EstrazioneFin
anumfreq = StatEstratti(n - 200,n,,ruote,,10,4)
ImpostaGiocata 1,anumfreq,ruote,posta,1
Gioca n
Next
ScriviResoconto
End Sub
 
Ciao Marcorun con il codice statestratti puoi mettere 20 e ti elenca i primi 20, ma poi lo script va in errore inquanto sul codice Gioca puoi tenere in gioco massimo 10 numeri.
e poi non è possibile avere salti nella sequenza ossia 11-20.

Per avere quello che chiedi può essere usato il codice NumeroPosRit e con l'opportuno ciclo for delle posizioni verrano elencati i ritardi voluti con i numeri immessi in una variabile tramite il Redim Preserve.

P.S. Spiegazione per chi a voglia di capire.

Codice: 
Sub Main()
   Dim ruote(10)
   Dim n
   Dim posta(5)
   posta(2) = 1
   posta(3) = 0
   posta(4) = 0
   posta(1) = 0
   r = 1 ' cambia ruota
   ruote(1) = r
   For n = EstrazioneFin - 200 To EstrazioneFin
   '-----------------------------------------------------
      For p = 11 To 20 ' posizioni
         'anumfreq = StatEstratti(n - 200,n,,ruote,,10,4)
         ReDim Preserve anumfreq(p)
         anumfreq(p) = NumeroPosRit(n,r,p)
      Next
      '--------------------------------------------------
      ImpostaGiocata 1,anumfreq,ruote,posta,1
      Gioca n
   Next
   ScriviResoconto
End Sub
 
Codice: 
Sub Main()
   Dim ruote(10),R,ES,EX
   Dim numeri1(10),anumfreq,n
   Dim posta(5)
   posta(2) = 1
   '
   For R = 1 To 10
      ruote(1) = R
      n = 10 ' quanti numeri della lunghetta vuoi visualizzare
      '
EX = 1
      For ES = EstrazioneFin - EX  To EstrazioneFin - EX
         anumfreq = StatEstratti(ES - 200,ES,,ruote,,n,4)
         '
         ImpostaGiocata 1,anumfreq,ruote,posta,0
         Gioca ES
         Scrivi
         Scrivi
      Next
   Next
End Sub

infatti Mike sembra che non si puo fare con 20 numeri ho modificato in parte lo script
ho provato in diversi modi per visualizzare i numeri ritardatari da 10 numeri in poi ma sembra
che non si puo fare, poi vedrò il tuo script..
ho provato n = n + 1 ma visualizza a scaletta i numeri ritardatari..
 
Ultima modifica:
Zetrix, io ho detto si Può usare il Codice NumeroPosRit, ma nulla vieta se si è capace di percorrere altre vie.
Poi il tempo impiegato è minimo 15 secondi che con il codice turbo scende a 5 secondi.
Impiega troppo tempo e non va bene non è vero.
 
Lo script di Mike 58 si è un pò lento perchè va a calcolare 200 estrazioni ma va bene
 
Ultima modifica di un moderatore:
Come ben suggerito da MIKE58 ,ho provato a fare lo script.......date un'occhiata se va bene?

ps:non ricordo mai come si inseriscono nel modo giusto gli script

Sub Main
Dim ruote(10)
Dim ambata(10)
Dim poste(5)
poste(2) = 1
poste(3) = 1
poste(4) = 1
k = 1
For n = EstrazioneFin -120 To EstrazioneFin
ruote(1) = 1

casi = casi + 1

ambata(1) = Fuori90(NumeroPosRit(n,1,10))
ambata(2) = Fuori90(NumeroPosRit(n,1,11))
ambata(3) = Fuori90(NumeroPosRit(n,1,12))
ambata(4) = Fuori90(NumeroPosRit(n,1,13))
ambata(5) = Fuori90(NumeroPosRit(n,1,14))
ambata(6) = Fuori90(NumeroPosRit(n,1,15))
ambata(7) = Fuori90(NumeroPosRit(n,1,16))
ambata(8) = Fuori90(NumeroPosRit(n,1,17))
ambata(9) = Fuori90(NumeroPosRit(n,1,18))
ambata(10) = Fuori90(NumeroPosRit(n,1,19))
ImpostaGiocata 1,ambata,ruote,poste,k
Gioca n
Next
ScriviResoconto
End Sub

Ovviamente lo script di MIKE58 è perfetto!
 
Ok Marco l'importante è capire il concetto.
Però...
Fare un ciclo for ti fa risparmiare tutta le altre scritture e non ti serve il fuori 90 (le posizioni sono massimo 90)

Poi per inserire lo script nell'apposito codice ti basta cliccare sulle ultime icone tre puntini(più Opzioni) e ti appariranno altre icone prendi l'ultima con leggenda codice ed inserisci lo script.

Codice: 
Sub Main
Dim ruote(10)
Dim ambata(10)
Dim poste(5)
poste(2) = 1
poste(3) = 1
poste(4) = 1
k = 1
ResetTimer
For n = EstrazioneFin -120 To EstrazioneFin
ruote(1) = 1

casi = casi + 1
'------------------------------------------
For x = 1 To 10
ambata(x) = NumeroPosRitTurbo(n,BA_,x+9)
Next
'------------------------------------------
'ambata(1) = Fuori90(NumeroPosRit(n,1,10))
'ambata(2) = Fuori90(NumeroPosRit(n,1,11))
'ambata(3) = Fuori90(NumeroPosRit(n,1,12))
'ambata(4) = Fuori90(NumeroPosRit(n,1,13))
'ambata(5) = Fuori90(NumeroPosRit(n,1,14))
'ambata(6) = Fuori90(NumeroPosRit(n,1,15))
'ambata(7) = Fuori90(NumeroPosRit(n,1,16))
'ambata(8) = Fuori90(NumeroPosRit(n,1,17))
'ambata(9) = Fuori90(NumeroPosRit(n,1,18))
'ambata(10) = Fuori90(NumeroPosRit(n,1,19))
ImpostaGiocata 1,ambata,ruote,poste,k
Gioca n
Next
ScriviResoconto
Scrivi "Tempo di elaborazione : " & TempoTrascorso,1
End Sub
Tempo di elaborazione : 00:00:03
 
Si ho controllato è perfetto , parte dal 10° al 19° numero , il fuori 90 non serve in quanto hai un solo numero e non supera mai il 90
 
Ovvio che le posizioni si possono cambiare a piacere.....x quanto riguarda il fuori 90 è vero non serve ,ma x un principiante come me si tratta di un peccato veniale :) ....
 
Ma se vi piace far bollire il cervello,vi faccio un'altra domanda a cui so già che neanche MIKE58 riuscirà a venirne a capo....
Vi riporto al mio script originale che mette in gioco i primi numeri ritardati....modificandolo di un piccolo particolare metterà in gioco i primi 10 numeri più frequenti su n° estrazioni.....ma se volessimo mettere in gioco quelli più frequenti dall'11° al 20°?... :cool:
Codice: 
Sub Main()
Dim ruote(10)
Dim numeri1(10),anumfreq,n
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = 1 ' cambia ruota
For n = EstrazioneFin - 200 To EstrazioneFin
anumfreq = StatEstratti(n - 100,n,,ruote,,10,2)'<<<<<<<<<<<<<<<frequenza
ImpostaGiocata 1,anumfreq,ruote,posta,1
Gioca n
Next
ScriviResoconto
End Sub
 
Eh eh Marco è possibile anche questo.
Codice: 
Sub Main()
   Dim ruote(10)
   Dim numeri1(10),anumfreq,n
   Dim posta(5)
   posta(2) = 1
   posta(3) = 0
   posta(4) = 0
   posta(1) = 0
   ruote(1) = 1 ' cambia ruota
   '--------------------
   Const cNum = 1
   Const cFrq = 2
   Const cPre = 3
   Const cRit = 4
   Const cRitMax = 5
   '-------------------
   For n = EstrazioneFin - 200 To EstrazioneFin
      anumfreq = StatEstratti(n - 100,n,,ruote,,20,2)'<<<<<<<<<<<<<<<frequenza
      '-----------------------------------------------------------------------
      For x = 11 To 20
      ReDim Preserve aFreq(x)
      aFreq(x) = anumfreq(x)
      Next
      'raccolgo i 20 estratti + frequenti
      ' con ciclo for posiz 11-20
      ' memorizzo i dati ultimi in una variabile Preserve
      '******* sfida vinta ********
      '........................................................................
      ImpostaGiocata 1,aFreq,ruote,posta,1
      Gioca n
   Next
   ScriviResoconto
End Sub

Ciao

verifica
 
Ultima modifica:
SIIIIIIIIIII !!!!!!!!!!........lo sapevo!

sei veramente forte...ti ammiro tanto e ti ringrazio ,penso che sarà utile a me e spero ad altri.
GRAZIE

poi a piacere si può scegliere il range di numeri e di posizione frequenza....Bello!
 
Codice: 
Sub Main()
   Dim ruote(10),R,ES,EX,x
   Dim numeri1(10),anumfreq,n,aFreqx,color
   Dim posta(5)
   posta(2) = 1
   '
   For R = 1 To 10
      ruote(1) = R
      'n = 10 ' quanti numeri della lunghetta vuoi visualizzare
      For n = 10 To 20
         For ES = EstrazioneFin - 1 To EstrazioneFin - 1
            anumfreq = StatEstratti(ES - 200,ES,,ruote,,n,4)
            '
         Next
         ReDim Preserve aFreq(n)
         aFreq(n) = anumfreq(n)
         '
         For color = 1 To 7
            Scrivi "" & NomeRuota(R) & "",0,1,color
            '
            ImpostaGiocata 1,anumfreq,ruote,posta,0
            Gioca ES
            Scrivi
            Scrivi
            Scrivi
         Next
      Next
   Next
End Sub

MIke ho seguito il tuo script ma non so perche lo script visualizza la estr del 18 maggio
quanto invece dovrebbe visualizzare la estr del 16 maggio,forse ho sbagliato a mettere
il next nel posto sbagliato..
 
Però Zetrix, innanzitutto bisogna seguire le indicazioni che metto in fase di spiegazione script.
Poi SI !!! hai sbagliato il Posto del for Next.
e soprattutto hai sbagliato a mettere il vettore di 20 numeri nella imposta giocata.
Davvero lo script per me è finito Qui!!! ogni altra modifica è a carico vostro.

Codice: 
Sub Main()
   Dim ruote(10),R,ES,EX,x
   Dim numeri1(10),anumfreq,n,aFreqx,color
   Dim posta(5)
   posta(2) = 1
   '
   For R = 1 To 10
      ruote(1) = R
      'n = 10 ' quanti numeri della lunghetta vuoi visualizzare
     
         For ES = EstrazioneFin - 1 To EstrazioneFin - 1
            anumfreq = StatEstratti(ES - 200,ES,,ruote,,20,4)
            '
       
         For n = 11 To 20
         ReDim Preserve aFreq(n)
         aFreq(n) = anumfreq(n)
         Next
         '
         For color = 1 To 7
            Scrivi "" & NomeRuota(R) & "",0,1,color
            '
            ImpostaGiocata 1,aFreq,ruote,posta,0
            Gioca ES
            Scrivi
            Scrivi
            Scrivi
         Next
      Next
   Next
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 giugno 2025
    Bari
    41
    76
    54
    04
    17
    Cagliari
    34
    52
    84
    54
    55
    Firenze
    21
    60
    89
    51
    03
    Genova
    36
    40
    46
    03
    73
    Milano
    32
    80
    01
    68
    12
    Napoli
    63
    34
    22
    85
    10
    Palermo
    21
    85
    64
    15
    65
    Roma
    48
    25
    42
    47
    50
    Torino
    51
    25
    14
    20
    28
    Venezia
    82
    48
    73
    53
    29
    Nazionale
    46
    55
    10
    32
    44
    Estrazione Simbolotto
    Napoli
    25
    01
    41
    45
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto