R.I.V.

[BaffoBlù]

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






bari mese di aprile

 

[genios]

Molto interessante .

 

[*blacklotto*]

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

 

[BaffoBlù]

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

hi hi hi, ma sei tremendo...

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

rilassati fratello...

 

[salvo50]

Ciao a Tutti

Secondo me uno script del genere, uno dei pochi che potrebbe farlo è Joe

 

[Acquafresca]

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

 

[BaffoBlù]

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

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

 

[BaffoBlù]

Ciao a Tutti

Secondo me uno script del genere, uno dei pochi che potrebbe farlo è Joe

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

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

 

[BaffoBlù]

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

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

 

[joe]

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.

 

[genios]

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.

No Joe cosi non vale . 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂

 

[joe]

Eu ... Vale ... per quel che vale!

Più o meno cosi (per adesso).

 

[genios]

Eu ... Vale ... per quel che vale!

Più o meno cosi (per adesso).

Vedi l'allegato 2286565

E si ma lo vorrei anche io .Mi stai sempre di piu' trascurando . 🙂 🙂 🙂 🙂 🙂 🙂

 

[Marco-elle]

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

 

[joe]

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

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.

 

[BaffoBlù]

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.

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

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

 

[joe]

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.

 

[maldor006]

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

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

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

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