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