Novità

R.I.V.

BaffoBlù

BaffoBlù

Advanced Member >PLATINUM<

Ripetuti. Isotopi. Verticali.

Possibile embrione di un metodo in costruzione...


Questa è l'idea iniziale :

si agisce ogni fine mese,
controllando tutte le estrazioni del mese appena passato
sulle 11 ruote.
Dalla prima all'ultima estrazione del mese interessato.

si controllano tutti gli estratti in posizione

quindi colonna dei 1° estratti fino alla colonna dei 5° estratti.

si "marcano" i ripetuti in ogni colonna


le immagini spiegheranno ulteriormente dove vorrei andare a parare
ma ci vorrebbe uno script per verificare una marea di cose e affinare il tiro...
anche avere un riscontro visivo sarebbe utile...

A chi va di avventurarsi nei meandri di questo script?


metto solo 2 esempi reali su bari


bari mese di marzo


v1.png



bari mese di aprile


v2.png

 
Mah ... Baffo ?

nessun fratello, nessun ammiratore, nessun vicino di casa che risponde alla tua richiesta ?
Ho cercato in archivio qualcosa che poteva andar bene come script, ma purtroppo nulla.
Ma tutti gli amici del Baffo, possibile che nessuno abbia qualche minuto per eseguire uno script ?

Dai ... Salvo, salvaci tu ....
 
*blacklotto* ha scritto:
Mah ... Baffo ?

nessun fratello, nessun ammiratore, nessun vicino di casa che risponde alla tua richiesta ?
Ho cercato in archivio qualcosa che poteva andar bene come script, ma purtroppo nulla.
Ma tutti gli amici del Baffo, possibile che nessuno abbia qualche minuto per eseguire uno script ?

Dai ... Salvo, salvaci tu ....
Clicca per espandere...

hi hi hi, ma sei tremendo...:ROFLMAO::ROFLMAO::ROFLMAO:

ma non c'è fretta, poi c'è chi ancora lavora con questo caldo...
questo è sempre stato un periodo di ferie e rilassamento...

rilassati fratello...:)
 
Buonasera Baffo ,io ho provato a fare un autocomposizione di script tramite il pulsante su Spaziometria e riguarderebbe Ambi uguali Isotopi, non so se può essere di aiuto mi sembra che si avvicina alla tua richiesta ,forse andrebbe modificato qualcosa ,io più di questo non riesco a fare, ma spero che possa essere di aiuto ,se qualcuno che ci sa fare con gli script e lo migliora ,ben venga.

Codice:
Sub Main
Dim i ' variabile generica per controllo cicli
Dim idEstr ' controlla lo scorrimento del ciclo di analisi
Dim Inizio ' è il limite inferiore del ciclo di analisi
Dim Fine ' è il limite superiore del ciclo di analisi
Dim nDaFare ' è il numero di estrazioni contenute nel range
Dim nFatte ' è il numero di estrazioni elaborate nel blocco analisi
Dim Ruote(12) ' contiene le ruote in gioco
Dim Poste (10) ' contiene le poste per ciascuna sorte giocata
Dim PosteTT (10) ' contiene le poste per ciascuna sorte giocata su tutte
Dim vetNumEstratto(10)' contiene i numeri da giocare per Estratto la gestione è a carico dell'utente
Dim vetNumAmbo(10)' contiene i numeri da giocare per Ambo la gestione è a carico dell'utente
Dim vetNumTerno(10)' contiene i numeri da giocare per Terno la gestione è a carico dell'utente
Dim idGiocata ' identifica le giocate effettuate
Dim CollFigTrovate ' collection contenente gli ambi uguali trovati
Dim clsFg ' Classe per enumerare la collection



' Imposto i limiti del range di analisi
Inizio = 1 ' 1 - 07/01/1871
Fine = 10467 ' 105 - 02/07/2024

' Imposto le ruote in gioco
Call ImpostaRuote(Ruote)
' Imposto le poste in gioco
Call ImpostaPoste(Poste)
Call ImpostaPoste(PosteTT)

' Calcolo estrazioni da fare
nDaFare = Fine - (Inizio- 1)

' Blocco analisi estrazioni
For idEstr = Inizio To Fine

' Qui va il codice che l'utente dovra scrivere per analizzare il metodo
' Come esempio nel codice c'è una funzione di rilevamento condizioni
' eventualemte sostituire il codice di rilevamento condizioni con
' codice adatto alle esigenze

' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
If GetAmbiUgualiIsotopi(idEstr, CollFigTrovate) > 0 Then
idGiocata = 0 ' azzera le giocate
' Scorre le figure trovate
For Each clsFg In CollFigTrovate
ReDim aNumeriFig(0)
Call GetArrayNumeriFromFiguraCiclo(clsFg, aNumeriFig) ' ottengo i numeri della figura
idGiocata = idGiocata + 1 'incrementa il numero della giocata
Call ImpostaGiocata (idGiocata ,aNumeriFig,Ruote,Poste,10) ' gioca la combinazione per 10 colpi
Call DisegnaEstrazioneFromFiguraCiclometrica(idEstr, clsFg)' Disegno l'estrazione con la condizione rilevata

Next
Call Gioca (idEstr , True)
End If
' ------ FINE CODICE RILEVAMENTO CONDIZIONE

' Gestione avanzamento elaborazione
nFatte = nFatte + 1
Call AvanzamentoElab(0, nDaFare, nFatte)

' Gestione messaggio
Call Messaggio ("Estrazioni elaborate : " & nFatte)

' Gestione interruzione elaborazione
If ScriptInterrotto Then Exit For
Next
Call ScriviResoconto

End Sub
Sub ImpostaRuote (vetR) ' imposta la ruote in gioco
vetR(1) = 1
vetR(2) = 2
vetR(3) = 3
vetR(4) = 4
vetR(5) = 5
vetR(6) = 6
vetR(7) = 7
vetR(8) = 8
vetR(9) = 9
vetR(10) = 10
vetR(11) = 12

End Sub
Sub ImpostaPoste (vetP) ' imposta le poste in gioco
vetP(1) = 1
vetP(2) = 1
vetP(3) = 1

End Sub
 
Acquafresca ha scritto:
Buonasera Baffo ,io ho provato a fare un autocomposizione di script tramite il pulsante su Spaziometria e riguarderebbe Ambi uguali Isotopi, non so se può essere di aiuto mi sembra che si avvicina alla tua richiesta ,forse andrebbe modificato qualcosa ,io più di questo non riesco a fare, ma spero che possa essere di aiuto ,se qualcuno che ci sa fare con gli script e lo migliora ,ben venga.

Codice:
Sub Main
Dim i ' variabile generica per controllo cicli
Dim idEstr ' controlla lo scorrimento del ciclo di analisi
Dim Inizio ' è il limite inferiore del ciclo di analisi
Dim Fine ' è il limite superiore del ciclo di analisi
Dim nDaFare ' è il numero di estrazioni contenute nel range
Dim nFatte ' è il numero di estrazioni elaborate nel blocco analisi
Dim Ruote(12) ' contiene le ruote in gioco
Dim Poste (10) ' contiene le poste per ciascuna sorte giocata
Dim PosteTT (10) ' contiene le poste per ciascuna sorte giocata su tutte
Dim vetNumEstratto(10)' contiene i numeri da giocare per Estratto la gestione è a carico dell'utente
Dim vetNumAmbo(10)' contiene i numeri da giocare per Ambo la gestione è a carico dell'utente
Dim vetNumTerno(10)' contiene i numeri da giocare per Terno la gestione è a carico dell'utente
Dim idGiocata ' identifica le giocate effettuate
Dim CollFigTrovate ' collection contenente gli ambi uguali trovati
Dim clsFg ' Classe per enumerare la collection



' Imposto i limiti del range di analisi
Inizio = 1 ' 1 - 07/01/1871
Fine = 10467 ' 105 - 02/07/2024

' Imposto le ruote in gioco
Call ImpostaRuote(Ruote)
' Imposto le poste in gioco
Call ImpostaPoste(Poste)
Call ImpostaPoste(PosteTT)

' Calcolo estrazioni da fare
nDaFare = Fine - (Inizio- 1)

' Blocco analisi estrazioni
For idEstr = Inizio To Fine

' Qui va il codice che l'utente dovra scrivere per analizzare il metodo
' Come esempio nel codice c'è una funzione di rilevamento condizioni
' eventualemte sostituire il codice di rilevamento condizioni con
' codice adatto alle esigenze

' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
If GetAmbiUgualiIsotopi(idEstr, CollFigTrovate) > 0 Then
idGiocata = 0 ' azzera le giocate
' Scorre le figure trovate
For Each clsFg In CollFigTrovate
ReDim aNumeriFig(0)
Call GetArrayNumeriFromFiguraCiclo(clsFg, aNumeriFig) ' ottengo i numeri della figura
idGiocata = idGiocata + 1 'incrementa il numero della giocata
Call ImpostaGiocata (idGiocata ,aNumeriFig,Ruote,Poste,10) ' gioca la combinazione per 10 colpi
Call DisegnaEstrazioneFromFiguraCiclometrica(idEstr, clsFg)' Disegno l'estrazione con la condizione rilevata

Next
Call Gioca (idEstr , True)
End If
' ------ FINE CODICE RILEVAMENTO CONDIZIONE

' Gestione avanzamento elaborazione
nFatte = nFatte + 1
Call AvanzamentoElab(0, nDaFare, nFatte)

' Gestione messaggio
Call Messaggio ("Estrazioni elaborate : " & nFatte)

' Gestione interruzione elaborazione
If ScriptInterrotto Then Exit For
Next
Call ScriviResoconto

End Sub
Sub ImpostaRuote (vetR) ' imposta la ruote in gioco
vetR(1) = 1
vetR(2) = 2
vetR(3) = 3
vetR(4) = 4
vetR(5) = 5
vetR(6) = 6
vetR(7) = 7
vetR(8) = 8
vetR(9) = 9
vetR(10) = 10
vetR(11) = 12

End Sub
Sub ImpostaPoste (vetP) ' imposta le poste in gioco
vetP(1) = 1
vetP(2) = 1
vetP(3) = 1

End Sub
Clicca per espandere...

grazie, ma con gli ambi uguali isotopi non andiamo da nessuna parte

anche in caso, c'è troppo da modificare

ci vuole uno script dedicato


piano piano ci arriviamo...:)
 
salvo50 ha scritto:
Ciao a Tutti

Secondo me uno script del genere, uno dei pochi che potrebbe farlo è Joe
Clicca per espandere...

ho preso per base uno script di Claudio8

ho fatto diverse modifiche

ma sono ancora all'inizio...

sono arrivato al punto di aver isolato alla perfezione le estrazioni di un mese intero dalla prima all'ultima estrazione,
non importa di quante estrazioni sia formato il mese.

ho messo un ambata fittizia giusto per...

Adesso dovrei (aggiungere allo script) ed isolare tutti gli estratti posizione per posizione
che compongono ogni mese...



Qualche idea ??? che per il momento mi son spento...


Codice: 
Option Explicit
Sub Main
   Dim es,r,a1,b1,c1,d1,e1,x,j,esX,esj,ini,fin,co,clp
   Dim x1,x2,x3,x4,x5
   Dim Ruote(1)
   Dim posta(10)
   posta(1) = 1
   clp = 18
   ini = 4121
   fin = EstrazioneFin
   ResetTimer
   For r = 1 To 1'1
      'If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            For j = 0 To 20
               esj = es + j
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1,,,1,2
               If IsUltimaDelMese(esj) = True Then Exit For
            Next
            a1 = Estratto(es,r,1)
            b1 = Estratto(es,r,2)
            c1 = Estratto(es,r,3)
            d1 = Estratto(es,r,4)
            e1 = Estratto(es,r,5)
            For x = 1 To 20
               esX = es + x
               If IsUltimaDelMese(esX) Then x1 = Estratto(esX,r,1) : x2 = Estratto(esX,r,2) : x3 = Estratto(esX,r,3) : x4 = Estratto(esX,r,4) : x5 = Estratto(esX,r,5): Exit For
            Next
            If esX + 1 > EstrazioneFin Then Exit For
            ReDim aNum(1)
            aNum(1) = 1
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esX) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esX,r),1
            Scrivi String(100,"°"),1
            Ruote(1) = 1
            ImpostaGiocata 1,aNum,Ruote,posta,clp,1
            Gioca esX,1,,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
 
Ecco fatto, sono a buon punto ( almeno per la condizione iniziale)

Mi rimane di rilevare le isotopie verticali
nelle colonne (a,b,c,d,e).

Non so ancora come fare, ma vediamo...

Ps: l'ambata in gioco nello script è fittizzia...(serve solo per mantenere lo script vivo...)




Codice: 
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Ruote(11)
   Dim posta(10)
   posta(1) = 1
   clp = 18
   ini = 10000 ' 4121'Inizio 1950
   fin = EstrazioneFin
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                                        Controllo Colonne Isotopie ",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            For j = 0 To 20
               esj = es + j
               a = Estratto(esj,r,1)
               b = Estratto(esj,r,2)
               c = Estratto(esj,r,3)
               d = Estratto(esj,r,4)
               e = Estratto(esj,r,5)
               Scrivi "                                         A  . B  . C  . D  . E  . ",,,,2,2
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(a) & " . " & Format2(b) & " . " & Format2(c) & " . " & Format2(d) & " . " & Format2(e) & " . ",1,,,1,2
               If IsUltimaDelMese(esj) = True Then Exit For
            Next
            For x = 1 To 20
               esX = es + x
               If IsUltimaDelMese(esX) Then x1 = Estratto(esX,r,1) : x2 = Estratto(esX,r,2) : x3 = Estratto(esX,r,3) : x4 = Estratto(esX,r,4) : x5 = Estratto(esX,r,5): Exit For
            Next
            If esX + 1 > EstrazioneFin Then Exit For
            ReDim aNum(1)
            aNum(1) = 1
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esX) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esX,r),1
            Scrivi String(100,"°"),1
            Ruote(1) = r
            ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizzia !!!
            Gioca esX,1,,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub
 
Ciao BaffoBlu,

Idea ... coincide con la capacità di ottenere il lavoro "finito".

Cioè l'algoritmo risolutore (almeno in prima approssimazione) della richiesta fatta.

Dunque ... come al solito ... non rispondere è maleducato,

ma, mettere mano ad un lavoro di Claudio ...

per me ... è discorso tanto possibile quanto "impossibile".

Dunque, si, ti potrei dare la mia soluzione ... ( molto diversa ).

Tuttavia, non qui, non per tutti, non per quelli che sono già da sempre "i capaci".

Ovvero la mia soluzione è simbiotica allla promessa,

che essa rimanga ... un regalo ... per te.

Nel caso di tuo interesse, cerca un mio indirizzo per prendere contatto.

:)
 
joe ha scritto:
Ciao BaffoBlu,

Idea ... coincide con la capacità di ottenere il lavoro "finito".

Cioè l'algoritmo risolutore (almeno in prima approssimazione) della richiesta fatta.

Dunque ... come al solito ... non rispondere è maleducato,

ma, mettere mano ad un lavoro di Claudio ...

per me ... è discorso tanto possibile quanto "impossibile".

Dunque, si, ti potrei dare la mia soluzione ... ( molto diversa ).

Tuttavia, non qui, non per tutti, non per quelli che sono già da sempre "i capaci".

Ovvero la mia soluzione è simbiotica allla promessa,

che essa rimanga ... un regalo ... per te.

Nel caso di tuo interesse, cerca un mio indirizzo per prendere contatto.

:)
Clicca per espandere...
No Joe cosi non vale . 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂
 
Mondo strano anche il Lotto,c'è sempre qualcuno che dice di avere il pisello più grosso
screditando il lavoro altrui....solo che quel qualcuno non ha mai dimostrato nulla e altri col culo del caso,vincite dimostrate e succulente.
Beati chi ce l'hanno piccolino ;)
 
Marco-elle ha scritto:
Mondo strano anche il Lotto,c'è sempre qualcuno che dice di avere il pisello più grosso
screditando il lavoro altrui....solo che quel qualcuno non ha mai dimostrato nulla e altri col culo del caso,vincite dimostrate e succulente.
Beati chi ce l'hanno piccolino ;)
Clicca per espandere...

Hai ragione.

E' un mondo strano.

C'è chi dimostra capacità e risultati ed altri che di bla bla bla in bla bla bla

intervengono ovunque senza mai apportare niente di nuovo e di utile.

Che poi ci sia un certo gap (anche cognitivo) insuperabile è evidente.

Infatti dovendo progettare una costruzione è meglio non avere vincoli e muoversi liberamente.

Se invece ci si deve adattare a RISTRUTTURARE un lavoro preesistente si deve dapprima ricavare

la consistenza e la funzionalità della vecchia struttura.

Poi essa potrebbe non essere adatta o sufficientemente robusta a supportare il peso del nuovo.

Inoltre, i vincoli presenti, devono essere riassunti e considerati assieme a tutte le variabili coinvolte,

cioè si devono importare, i loro valori, il loro significato, il perché della loro presenza e quale ne sia la funzione.

E' molto lavoro ... in più ... con il rischio ulteriore di dover creare storture nell'adattare il nuovo all'esistente.

Tutto quello che manca a strutture spesso poco idonee, alla soluzione del quesito che richiedono

tuttavia un impegnativo studio preventivo.

E' un mio pensiero ... criticabile ... e che puoi (potete) smentire con la dimostrazione del saper fare meglio.

:)
 
joe ha scritto:
Ciao BaffoBlu,

Idea ... coincide con la capacità di ottenere il lavoro "finito".

Cioè l'algoritmo risolutore (almeno in prima approssimazione) della richiesta fatta.

Dunque ... come al solito ... non rispondere è maleducato,

ma, mettere mano ad un lavoro di Claudio ...

per me ... è discorso tanto possibile quanto "impossibile".

Dunque, si, ti potrei dare la mia soluzione ... ( molto diversa ).

Tuttavia, non qui, non per tutti, non per quelli che sono già da sempre "i capaci".

Ovvero la mia soluzione è simbiotica allla promessa,

che essa rimanga ... un regalo ... per te.

Nel caso di tuo interesse, cerca un mio indirizzo per prendere contatto.

:)
Clicca per espandere...

Ciao Joe, salve a tutti

Lo script che ho postato non è uno script di Claudio8.

Ho preso in prestito solo quelle 4-5 linee che mi servivano di un suo script,
vedendo che si adattavano alla mia idea, ci ho costruito attorno...

Nello specifico, le linee di prima mensile e ultima mensile
con il ciclo For Next, il resto lo messo io da cima a fondo.

Non sono un vero scripter, ma lo script che vedi è mio dall'inizio alla fine!


La condizione di isolare le estrazioni mensili è andata a buon fine, (credo)
ma vorrei riuscire ad isolare le colonne degli estratti in posizione
ed estrapolarne gli eventuali ripetuti e poi evidenziarli visivamente in qualche modo.

Ma sembra più facile a dirsi che a farsi....(hi hi hi...come al solito me le vado a cercare...)

ti ringrazio per la tua disponibilità (poi ne parliamo...in adatta sede...just wait...)

Ora per "educational purpose" a beneficio di tutti vorrei finire almeno questo script (che almeno lo capisco!)

Ad ogni modo sono ben accette idee di tutti per arrivare a quello che ho scritto sopra.
Dite la vostra, scripter, so che ci siete...

sarei interessato a vedere le varie soluzioni possibili che uno scripter possa inventarsi,
ovviamente per "educational purpose"...

mi servono le solite 5-6 linee mancanti...

chi mi da una dritta almeno per il prossimo passo?

Ci sono molti metodi ricavabili gestendo le estrazioni mensili in verticale,
per questo ritengo importante isolare tutti gli estratti in posizione che compongono il mese.
per poterli elaborare in mille modi diversi in futuro...

un ulteriore modo di visionare le estrazioni per estrapolare qualcosa di buono...

grazie




con lo script sono a questo punto



Codice: 
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Ruote(11)
   Dim posta(10)
   posta(1) = 1
   clp = 18
   ini = 4121'Inizio 1950
   fin = EstrazioneFin
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                  Controllo Colonne Isotopie ",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            For j = 0 To 20
               esj = es + j
               a = Estratto(esj,r,1)
               b = Estratto(esj,r,2)
               c = Estratto(esj,r,3)
               d = Estratto(esj,r,4)
               e = Estratto(esj,r,5)
               Scrivi "                   1° . 2° . 3° . 4° . 5° . ",,,,2,2
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & " " & Format2(a) & " . " & Format2(b) & " . " & Format2(c) & " . " & Format2(d) & " . " & Format2(e) & " . ",1,,,1,2
               'Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1,,,1,2
               If IsUltimaDelMese(esj) = True Then Exit For
            Next
            For x = 1 To 20
               esX = es + x
               If IsUltimaDelMese(esX) Then x1 = Estratto(esX,r,1) : x2 = Estratto(esX,r,2) : x3 = Estratto(esX,r,3) : x4 = Estratto(esX,r,4) : x5 = Estratto(esX,r,5): Exit For
            Next
            If esX + 1 > EstrazioneFin Then Exit For
            ReDim aNum(1)
            aNum(1) = 1
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esX) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esX,r),1
            Scrivi String(70,"°"),1
            Ruote(1) = r
            'ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizzia !!!
            'Gioca esX,1,,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub
 
Secondo me è piuttosto sbagliato raccogliere

i 5 estratti (diciamo in orizzontale)

quando quello che intendi cercare sarebbe "in verticale"

e solo nella "una" colonna delle 5.

Dunque ti consiglio di considerare una sola colonna.

Contare quanti 1,2,2,3...88.89.90

ci sono tra i 12.13 ... 20 Estratti

che sei in grado di delimitare mensilmente.

:)
 
BaffoBlù ha scritto:
Ciao Joe, salve a tutti

Lo script che ho postato non è uno script di Claudio8.

Ho preso in prestito solo quelle 4-5 linee che mi servivano di un suo script,
vedendo che si adattavano alla mia idea, ci ho costruito attorno...

Nello specifico, le linee di prima mensile e ultima mensile
con il ciclo For Next, il resto lo messo io da cima a fondo.

Non sono un vero scripter, ma lo script che vedi è mio dall'inizio alla fine!


La condizione di isolare le estrazioni mensili è andata a buon fine, (credo)
ma vorrei riuscire ad isolare le colonne degli estratti in posizione
ed estrapolarne gli eventuali ripetuti e poi evidenziarli visivamente in qualche modo.

Ma sembra più facile a dirsi che a farsi....(hi hi hi...come al solito me le vado a cercare...)

ti ringrazio per la tua disponibilità (poi ne parliamo...in adatta sede...just wait...)

Ora per "educational purpose" a beneficio di tutti vorrei finire almeno questo script (che almeno lo capisco!)

Ad ogni modo sono ben accette idee di tutti per arrivare a quello che ho scritto sopra.
Dite la vostra, scripter, so che ci siete...

sarei interessato a vedere le varie soluzioni possibili che uno scripter possa inventarsi,
ovviamente per "educational purpose"...

mi servono le solite 5-6 linee mancanti...

chi mi da una dritta almeno per il prossimo passo?

Ci sono molti metodi ricavabili gestendo le estrazioni mensili in verticale,
per questo ritengo importante isolare tutti gli estratti in posizione che compongono il mese.
per poterli elaborare in mille modi diversi in futuro...

un ulteriore modo di visionare le estrazioni per estrapolare qualcosa di buono...

grazie




con lo script sono a questo punto



Codice: 
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Ruote(11)
   Dim posta(10)
   posta(1) = 1
   clp = 18
   ini = 4121'Inizio 1950
   fin = EstrazioneFin
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                  Controllo Colonne Isotopie ",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            For j = 0 To 20
               esj = es + j
               a = Estratto(esj,r,1)
               b = Estratto(esj,r,2)
               c = Estratto(esj,r,3)
               d = Estratto(esj,r,4)
               e = Estratto(esj,r,5)
               Scrivi "                   1° . 2° . 3° . 4° . 5° . ",,,,2,2
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & " " & Format2(a) & " . " & Format2(b) & " . " & Format2(c) & " . " & Format2(d) & " . " & Format2(e) & " . ",1,,,1,2
               'Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1,,,1,2
               If IsUltimaDelMese(esj) = True Then Exit For
            Next
            For x = 1 To 20
               esX = es + x
               If IsUltimaDelMese(esX) Then x1 = Estratto(esX,r,1) : x2 = Estratto(esX,r,2) : x3 = Estratto(esX,r,3) : x4 = Estratto(esX,r,4) : x5 = Estratto(esX,r,5): Exit For
            Next
            If esX + 1 > EstrazioneFin Then Exit For
            ReDim aNum(1)
            aNum(1) = 1
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esX) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esX,r),1
            Scrivi String(70,"°"),1
            Ruote(1) = r
            'ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizzia !!!
            'Gioca esX,1,,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub
Clicca per espandere...
Ciao Baffo. Vedi se tu può essere utile questa mia modifica. Ho isolato i numeri ripetuti e poi ho inserito una giocata fittizia che li considera tutti ( se sono meno di 10). Ciao, Maldor
Codice: 
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim Ruote(11)
   Dim posta(10)
   posta(1) = 1
   posta(2) = 1
   posta(3) = 1
   clp = 18
   ini = 10200' 4121'Inizio 1950
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
         fin = EstrazioneFin
   Else
         fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                                        Controllo Colonne Isotopie ",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            Erase Vet_Controllo
            Erase Vet_ripetuti
            Erase Mat_estr_mod
            Scrivi "                                         A  . B  . C  . D  . E  . ",,,,2,2
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
                  Mat_estr_mod(j,pos) = Num
               Next
               If IsUltimaDelMese(esj) Then Exit For
            Next
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                   Num = Estratto(esj,r,pos)
                   If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
               Next
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
               If IsUltimaDelMese(esj) Then Exit For
            Next
            conta = 0
            For k = 1 To 90
               For kk = 1 To 5
                  If Vet_Controllo(k,kk) > 1 Then
                     conta = conta + 1
                     Vet_ripetuti(conta) = k
                  End If
               Next
            Next
            EliminaRipetuti Vet_ripetuti
            ReDim aNum(conta)
            Scrivi
            Scrivi "Numeri ripetuti isotopi"
            For Nr = 1 To conta
               If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
                   aNum(Nr) = Vet_ripetuti(Nr)
                   Scrivi aNum(Nr) & ".",1,False
               End If
            Next
            Scrivi
            Scrivi

            If esj + 1 > EstrazioneFin Then Exit For
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
            Scrivi String(100,"°"),1
            Ruote(1) = r
            ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizia !!!
            Gioca esj,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub
 
Ultima modifica:
maldor006 ha scritto:
Ciao Baffo. Vedi se tu può essere utile questa mia modifica. Ho isolato i numeri ripetuti e poi ho inserito una giocata fittizia che li considera tutti ( se sono meno di 10). Ciao, Maldor
Codice: 
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim Ruote(11)
   Dim posta(10)
   posta(1) = 1
   posta(2) = 1
   posta(3) = 1
   clp = 18
   ini = 10200' 4121'Inizio 1950
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
         fin = EstrazioneFin
   Else
         fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                                        Controllo Colonne Isotopie ",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            Erase Vet_Controllo
            Erase Vet_ripetuti
            Erase Mat_estr_mod
            Scrivi "                                         A  . B  . C  . D  . E  . ",,,,2,2
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
                  Mat_estr_mod(j,pos) = Num
               Next
               If IsUltimaDelMese(esj) Then Exit For
            Next
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                   Num = Estratto(esj,r,pos)
                   If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
               Next
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
               If IsUltimaDelMese(esj) Then Exit For
            Next
            conta = 0
            For k = 1 To 90
               For kk = 1 To 5
                  If Vet_Controllo(k,kk) > 1 Then
                     conta = conta + 1
                     Vet_ripetuti(conta) = k
                  End If
               Next
            Next
            EliminaRipetuti Vet_ripetuti
            ReDim aNum(conta)
            Scrivi
            Scrivi "Numeri ripetuti isotopi"
            For Nr = 1 To conta
               If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
                   aNum(Nr) = Vet_ripetuti(Nr)
                   Scrivi aNum(Nr) & ".",1,False
               End If
            Next
            Scrivi
            Scrivi

            If esj + 1 > EstrazioneFin Then Exit For
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
            Scrivi String(100,"°"),1
            Ruote(1) = r
            ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizia !!!
            Gioca esj,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub
Clicca per espandere...
Io che ci capisco molto poco,mi sembra un ottimo lavoro e da quello che ho capito è proprio quello che intende il Baffone.Ieri ho notato che anche le spie isotope uguali consecutive danno esiti sulle ruote interessate il mese sucessivo ma ,bisogna verificare sempre nel tempo per vedere se si tratta solo di casualità
 
maldor006 ha scritto:
Ciao Baffo. Vedi se tu può essere utile questa mia modifica. Ho isolato i numeri ripetuti e poi ho inserito
Codice: 
                                         A  . B  . C  . D  . E  .
01.06.2024 - RO - 18.69.30.68.31 *******    .    .    .    . 31 .
04.06.2024 - RO - 01.56.20.12.25 *******    .    .    . 12 .    .
06.06.2024 - RO - 43.87.27.45.80 ******* 43 .    .    . 45 .    .
07.06.2024 - RO - 55.36.46.85.62 *******    .    .    .    .    .
08.06.2024 - RO - 43.34.87.47.90 ******* 43 .    .    .    . 90 .
11.06.2024 - RO - 78.32.36.04.65 *******    .    . 36 .    .    .
13.06.2024 - RO - 38.55.41.63.39 *******    .    . 41 .    .    .
14.06.2024 - RO - 82.06.79.69.33 *******    .    .    .    .    .
15.06.2024 - RO - 53.28.36.01.90 *******    .    . 36 .    . 90 .
18.06.2024 - RO - 69.50.41.09.31 *******    .    . 41 .    . 31 .
20.06.2024 - RO - 11.51.60.38.04 *******    .    .    .    .    .
21.06.2024 - RO - 90.66.67.11.09 *******    .    .    .    .    .
22.06.2024 - RO - 83.78.75.84.86 *******    . 78 .    .    .    .
25.06.2024 - RO - 22.16.70.12.68 *******    .    .    . 12 .    .
27.06.2024 - RO - 51.58.17.45.77 *******    .    .    . 45 . 77 .
28.06.2024 - RO - 12.54.78.67.24 *******    .    .    .    .    .
29.06.2024 - RO - 74.78.12.23.77 *******    . 78 .    .    . 77 .

Numeri ripetuti isotopi
12.78.
una giocata fittizia che li considera tutti ( se sono meno di 10). Ciao, Maldor
Codice: 
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim Ruote(11)
   Dim posta(10)
   posta(1) = 1
   posta(2) = 1
   posta(3) = 1
   clp = 18
   ini = 10200' 4121'Inizio 1950
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
         fin = EstrazioneFin
   Else
         fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                                        Controllo Colonne Isotopie ",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            Erase Vet_Controllo
            Erase Vet_ripetuti
            Erase Mat_estr_mod
            Scrivi "                                         A  . B  . C  . D  . E  . ",,,,2,2
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
                  Mat_estr_mod(j,pos) = Num
               Next
               If IsUltimaDelMese(esj) Then Exit For
            Next
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                   Num = Estratto(esj,r,pos)
                   If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
               Next
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
               If IsUltimaDelMese(esj) Then Exit For
            Next
            conta = 0
            For k = 1 To 90
               For kk = 1 To 5
                  If Vet_Controllo(k,kk) > 1 Then
                     conta = conta + 1
                     Vet_ripetuti(conta) = k
                  End If
               Next
            Next
            EliminaRipetuti Vet_ripetuti
            ReDim aNum(conta)
            Scrivi
            Scrivi "Numeri ripetuti isotopi"
            For Nr = 1 To conta
               If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
                   aNum(Nr) = Vet_ripetuti(Nr)
                   Scrivi aNum(Nr) & ".",1,False
               End If
            Next
            Scrivi
            Scrivi

            If esj + 1 > EstrazioneFin Then Exit For
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
            Scrivi String(100,"°"),1
            Ruote(1) = r
            ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizia !!!
            Gioca esj,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub
Clicca per espandere...
Buongiorno.
Nell'analizzare lo script di maldor006, che ringrazio per averlo condiviso,
ho considerato la ricerca prendento i casi di numeri di posizione ripetuti
con una presenza, in tutte le posizioni, =>4
Riporto un caso reale :


Codice: 
                                        A  . B  . C  . D  . E  .

01.06.2024 - RO - 18.69.30.68.31 *******    .    .    .    . 31 .

04.06.2024 - RO - 01.56.20.12.25 *******    .    .    . 12 .    .

06.06.2024 - RO - 43.87.27.45.80 ******* 43 .    .    . 45 .    .

07.06.2024 - RO - 55.36.46.85.62 *******    .    .    .    .    .

08.06.2024 - RO - 43.34.87.47.90 ******* 43 .    .    .    . 90 .

11.06.2024 - RO - 78.32.36.04.65 *******    .    . 36 .    .    .

13.06.2024 - RO - 38.55.41.63.39 *******    .    . 41 .    .    .

14.06.2024 - RO - 82.06.79.69.33 *******    .    .    .    .    .

15.06.2024 - RO - 53.28.36.01.90 *******    .    . 36 .    . 90 .

18.06.2024 - RO - 69.50.41.09.31 *******    .    . 41 .    . 31 .

20.06.2024 - RO - 11.51.60.38.04 *******    .    .    .    .    .

21.06.2024 - RO - 90.66.67.11.09 *******    .    .    .    .    .

22.06.2024 - RO - 83.78.75.84.86 *******    . 78 .    .    .    .

25.06.2024 - RO - 22.16.70.12.68 *******    .    .    . 12 .    .

27.06.2024 - RO - 51.58.17.45.77 *******    .    .    . 45 . 77 .

28.06.2024 - RO - 12.54.78.67.24 *******    .    .    .    .    .

29.06.2024 - RO - 74.78.12.23.77 *******    . 78 .    .    . 77 .



Numeri ripetuti isotopi

12.78.
RO
Ambate 12.78
Ambo 12.78 anche su Tutte.
Enplein.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 20 dicembre 2024
    Bari
    19
    01
    78
    60
    05
    Cagliari
    25
    70
    87
    36
    23
    Firenze
    70
    45
    42
    37
    85
    Genova
    28
    39
    49
    41
    42
    Milano
    78
    52
    79
    85
    49
    Napoli
    10
    17
    06
    50
    04
    Palermo
    26
    40
    66
    16
    51
    Roma
    43
    26
    86
    19
    50
    Torino
    76
    38
    49
    46
    09
    Venezia
    45
    73
    56
    08
    04
    Nazionale
    79
    25
    38
    54
    72
    Estrazione Simbolotto
    Venezia
    20
    11
    02
    13
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto