Per Claudio8 o per chi vuole

[fillotto]

Vorrei fare un semplice script che non riesco a fare se non immaginando una ridondanza di dati da immettere con la complicazione delle posizioni ecc. Spiego:
Devo trovare in una data estrazione tre numeri che abbiano la stessa distanza Esempio reale

Estraz del 25/1/22 CA 81 16 78 2 49 ad occhio non si vede ma 16 78 e 2 hanno la stessa distanza cioè 14 vorrei rigiocare in una stessa cartella i 3 numeri suddetti nelle posizioni 2^ 3^ e 4^ quidi mi attenderei un premio netto di 5.88 contro i 3 e rotti senza specificare lle posizioni.
In questo caso l'esito si è avuto 3 estraz dopo con l'uscita del 2 in 3^ posiz .
Ringraziando in anticipo a chi si cimenterà

 

[claudio8]

Ciao Fill personalmente non ho molto tempo ma qualche aiuto anche da altri può arrivare.

Comincia con la tua bozza così vediamo dove ti areni.
Ciao

 

[Marco-elle]

Può essere un ottima visione ma non è detto che l'esito avvenga nelle posizioni di rilevamento:
Estrazione del 19/2 BA 10-23-36
terno a passo 13
esito al 4° colpo ambo secco 49-68 con i numeri restanti

 

[Marco-elle]

Può essere un ottima visione ma non è detto che l'esito avvenga nelle posizioni di rilevamento:
Estrazione del 19/2 BA 10-23-36
terno a passo 13
esito al 4° colpo ambo secco 49-68 con i numeri restanti

Mi correggo,in realtà c'è la quaterna in passo 13
10-23-35-49 e al 4° colpo esce il il 49
questa condizione l'avevo notata la sera stessa e
avevo ipotizzato l'uscita dei rimanenti in passo 13
cioè 62-75-88.Il 75 è uscito accoppiandosi col 49

 

[fillotto]

Questo è il massimo l'ho fatto su un impianto di un altro script ma mancano altre possibili posizioni e non c'è il rendiconto, se potete in qualche modo integrarlo ecompletarlo.....

Sub Main
     Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z,a,b,c,d,e,es,r1,k
     Posta(1) = 1
   
     X = InputBox("Inserire il numero delle estrazioni da controllare: "," tentativo di script di Fillotto ",200)
     Ini = EstrazioneFin - X
     fin = EstrazioneFin
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi "  Il metodo consiste nel trovare in una ruota tre numeri equidistanti es: 1 . 2. 3 con la stessa distanza, nell'es dist1 "
     Scrivi "  e rigiocarli nella stessa ruota nelle stesse posizioni anche scambiate . Avremo , per intenderci un premio netto    "
     Scrivi " di 5,88  cioè 55/9 =6,11*92/100 "
     For es = Ini To fin
          For r1 = 1 To 10
                     
                   ' For P = 1 To 5
                         a = Estratto(es,r1,1)
                         b = Estratto(es,r1,2)
                         c = Estratto(es,r1,3)
                         d = Estratto(es,r1,4)
                         e = Estratto(es,r1,5)
                                                        If Distanza(a,b) = Distanza(b,c) Or Distanza(a,b) = Distanza(b,d) Or Distanza(a,b) = Distanza(b,e) Then
                            k = k + 1

                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi " la distanza rilevata passo    " & Distanza(a,b)
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab 
                                   Scrivi StringaEstratti(es,r1," ")
                                   Scrivi String(100,"-")
                                  End If
                                 
         Next
    Next

    End Sub

 

[Marco-elle]

Intanto ho rimesso in gioco l'intera cinquina,poi magari domani
qualcuno sistema.Il lato positivo è che su 59 casi,abbiamo 15
ambi,segno che quello che affermavo ieri era vero!....Se si vuole vincere,bisogna giocare le cinquine estratte in precedenza.

Sub Main
   Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z,a,b,c,d,e,es,k,n(5),Ruota(1)
   Posta(1) = 1
   clp = 9
   X = InputBox("Inserire il numero delle estrazioni da controllare: "," tentativo di script di Fillotto ",200)
   Ini = EstrazioneFin - X
   fin = EstrazioneFin
   Scrivi " --------------------------------------------------------------------------------"
   Scrivi "  Il metodo consiste nel trovare in una ruota tre numeri equidistanti es: 1 . 2. 3 con la stessa distanza, nell'es dist1 "
   Scrivi "  e rigiocarli nella stessa ruota nelle stesse posizioni anche scambiate . Avremo , per intenderci un premio netto    "
   Scrivi " di 5,88  cioè 55/9 =6,11*92/100 "
   For es = Ini To fin
      For r1 = 1 To 10
         ' For P = 1 To 5
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         c = Estratto(es,r1,3)
         d = Estratto(es,r1,4)
         e = Estratto(es,r1,5)
         If Distanza(a,b) = Distanza(b,c) Or Distanza(a,b) = Distanza(b,d) Or Distanza(a,b) = Distanza(b,e) Then
            k = k + 1
            Scrivi String(100,"^") & " Caso n. " & k
            Scrivi " la distanza rilevata passo    " & Distanza(a,b)
            Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab
            Scrivi StringaEstratti(es,r1," ")
            Scrivi String(100,"-")
            Ruota(1) = r1
            n(1) = a
            n(2) = b
            n(3) = c
            n(4) = d
            n(5) = e
            ImpostaGiocata 1,n,Ruota,Posta,clp
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[Marco-elle]

Una cosa che ho notato,su tutti gli ambi usciti ripetuti....
si sono formati con un numero dei due che non sono della
stessa distanza e con uno del terno a passo costante.
Questa esamina "potrebbe" essere l'arcano della ripetizione
numerica degli ambi sulle varie ruote che avvengono ultimamente,A questo punto,invece di puntare a una ambata
in posizione con vincita di circa 5 volte la posta,puntare all'ambo
su 2 quartine,cioè circa 18 volte la posta reali
PS:certo che,,,,,,a seghe mentali sono messo bene pure io

 

[claudio8]

X filotto
i numeri sono 5 le distanze da quantificare quante devono essere ?
4 o 10 ?

 

[fillotto]

X filotto
i numeri sono 5 le distanze da quantificare quante devono essere ?
4 o 10 ?

6 cioè 3 dist(a,b), 2dist(b,c), 1dist(c,d) sotto le prime 3
Distanza(a,b) = Distanza(b,c) Or Distanza(a,b) = Distanza(b,d) Or Distanza(a,b) = Distanza(b,e)
mancano le 2 uguaglianze con dist(b,c) 1 con dist(c,d)

 

[fillotto]

Mi correggo,in realtà c'è la quaterna in passo 13
10-23-35-49 e al 4° colpo esce il il 49
questa condizione l'avevo notata la sera stessa e
avevo ipotizzato l'uscita dei rimanenti in passo 13
cioè 62-75-88.Il 75 è uscito accoppiandosi col 49

Sono riuscito a contemplare tutte le equidistanze possibili con le disposizioni con cui si dispone la terzina e per restare nell'estraz del 19/2 BA 10-23-36 abbiamo una terzina a passo 32 e un altra a passo 13

la distanza rilevata passo 32
[10044] [ 21] 19.02.2022 BA
23 36 68 10 49 (36 68 10)
la distanza rilevata passo 13
[10044] [ 21] 19.02.2022 BA
23 36 68 10 49 quindi suggeriva tutti e 5 dell'estrazione. Ecco dove sono arrivato.

Sub Main
     Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z,a,b,c,d,e,es,r1,k
     Posta(1) = 1
    
     X = InputBox("Inserire il numero delle estrazioni da controllare: "," tentativo di script di Fillotto ",200)
     Ini = EstrazioneFin - X
     fin = EstrazioneFin
     Scrivi " --------------------------------------------------------------------------------"
     Scrivi "  Il metodo consiste nel trovare in una ruota tre numeri equidistanti es: 1 . 2. 3 con la stessa distanza, nell'es dist1 "
     Scrivi "  e rigiocarli nella stessa ruota nelle stesse posizioni anche scambiate . Avremo , per intenderci un premio netto    "
     Scrivi " |di 5,88  cioè 55/9 =6,11*92/100 "
     For es = Ini To fin
          For r1 = 1 To 10
                      
                   ' For P = 1 To 5
                         a = Estratto(es,r1,1)
                         b = Estratto(es,r1,2)
                         c = Estratto(es,r1,3)
                         d = Estratto(es,r1,4)
                         e = Estratto(es,r1,5)
       If Distanza(a,b) = Distanza(b,c) Or Distanza(a,b) = Distanza(b,d) Or Distanza(a,b) = Distanza(b,e) Then
                            k = k + 1

                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi " la distanza rilevata passo    " & Distanza(a,b)
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab
                                   Scrivi StringaEstratti(es,r1," ")
                                   Scrivi String(100,"-")
                                  End If
     If Distanza(b,c) = Distanza(c,d) Or Distanza(b,c ) = Distanza(c ,e)  Then
                            k = k + 1

                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi " la distanza rilevata passo    " & Distanza(b,c )
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab
                                   Scrivi StringaEstratti(es,r1," ")
                                   Scrivi String(100,"-")
     End If
    If Distanza(c,d) = Distanza(d,e)   Then
                            k = k + 1

                                   Scrivi String(100,"^") & " Caso n. " & k
                                   Scrivi " la distanza rilevata passo    " & Distanza(c,d )
                                   Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab
                                   Scrivi StringaEstratti(es,r1," ")
                                   Scrivi String(100,"-")
     End If
 
                              
         Next
    Next
'     ScriviResoconto
    End Sub

 

[Marco-elle]

Fil,
Io sono fuori casa…prova a guardare se nei casi dove avviene la ripetizione degli ambi, ci sono i casi come quest’ultimo di BA, perché se statisticamente è una soluzione,23 volte la posta non è un brutto giocare
Meglio ancora, sono 6 ambi con 2 capogiochi su ruota secca

 

[Marco-elle]

Non c'entra una cippa ma sta storia dei terni e quaterne a passo,mi ha incuriosito un casino!
Esamina della formazione a passo 13 con partenza dallo zerato che ha dato la quaterna su TT,
Ruota principale PA
Ruota secondaria BA
8-85
8-32-85
4/5 colpi
scusate se sono fuori tema ma vediamo se ogni tanto una statistica epocale va a segno!

Ruote di gioco: Ba.Pa.
Colpi di gioco: 10

...
Fisso 08 *
Fisso 85 *
Fisso 32 *

dom 06.11.1892
8.85.32.
Esiti:
dom 04.12.1892 al 4 colpo su Pa Ambo 8.85.

sab 17.08.1996
8.85.32.
Esiti:
sab 14.09.1996 al 4 colpo su Pa Ambo 32.8.

mar 06.05.2008
8.85.32.
Esiti:
mar 27.05.2008 al 9 colpo su Ba Ambo 85.8.

mar 20.01.2009
8.85.32.
Esiti:
gio 29.01.2009 al 4 colpo su Pa Ambo 85.8.

sab 18.05.2019
8.85.32.
Esiti:
sab 08.06.2019 al 9 colpo su Pa Ambo 85.32.

sab 19.02.2022
8.85.32.
Esiti:
IN CORSO ...

Data inizio ricerca : dom 08.01.1871
Data fine ricerca   : sab 19.02.2022

Casi esaminati : 6
Casi positivi  : 5
Casi negativi  : 0
Casi in corso  : 1
Casi positivi per ambo     : 5

Vincite totali nei colpi di gioco:

Ambi vinti     : 5

Vincite su Ba  (20%)
Vincite su Pa  (80%)

 

[Marco-elle]

Non c'entra una cippa ma sta storia dei terni e quaterne a passo,mi ha incuriosito un casino!
Esamina della formazione a passo 13 con partenza dallo zerato che ha dato la quaterna su TT,
Ruota principale PA
Ruota secondaria BA
8-85
8-32-85
4/5 colpi
scusate se sono fuori tema ma vediamo se ogni tanto una statistica epocale va a segno!

Ruote di gioco: Ba.Pa.
Colpi di gioco: 10

...
Fisso 08 *
Fisso 85 *
Fisso 32 *

dom 06.11.1892
8.85.32.
Esiti:
dom 04.12.1892 al 4 colpo su Pa Ambo 8.85.

sab 17.08.1996
8.85.32.
Esiti:
sab 14.09.1996 al 4 colpo su Pa Ambo 32.8.

mar 06.05.2008
8.85.32.
Esiti:
mar 27.05.2008 al 9 colpo su Ba Ambo 85.8.

mar 20.01.2009
8.85.32.
Esiti:
gio 29.01.2009 al 4 colpo su Pa Ambo 85.8.

sab 18.05.2019
8.85.32.
Esiti:
sab 08.06.2019 al 9 colpo su Pa Ambo 85.32.

sab 19.02.2022
8.85.32.
Esiti:
IN CORSO ...

Data inizio ricerca : dom 08.01.1871
Data fine ricerca   : sab 19.02.2022

Casi esaminati : 6
Casi positivi  : 5
Casi negativi  : 0
Casi in corso  : 1
Casi positivi per ambo     : 5

Vincite totali nei colpi di gioco:

Ambi vinti     : 5

Vincite su Ba  (20%)
Vincite su Pa  (80%)

Come non detto!....Mi accorgo ora che la previsione si è sfaldata con l'ambata 8 su PA
e il colpo precedente è uscito il 32.....ci eravamo quasi

 

[fillotto]

Claudio8, Marco-elle mi rivologo principalmente a voi vorrei trovare in una qualsiasi ruota(delle 10 canoniche) DUE DISTANZE UGUALI esempio:
Estraz del 25/1/22 CA 81 16 78 2 49 ad occhio non si vede ma 16 78 e 2 hanno la stessa distanza cioè 14 vorrei rigiocare in una stessa cartella (nella stessa ruota dove li ho trovati) i 3 numeri suddetti nelle posizioni 2^ 3^ e 4^ quidi mi attenderei un premio netto di 5.88 contro i 3 e rotti senza specificare lle posizioni. Nello script che segue le ho provate tutte anche riformularndo l'es nel trovare un ambo in 10 estraz giocando i tre num trovati(con dist. equidistanti) in una ruota qualsiasi ma ho fatto un guazzabuio chi mi aiuta??

 Sub Main
           Dim Nu(3),Ru(10),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z,a,b,c,d,e,es,r1,k,colpi,comb(5)
       

           Posta(2) = 1
           colpi = 10
           X = InputBox("Inserire il numero delle estrazioni da controllare: "," tentativo di script di Fillotto ",25)
           Ini = EstrazioneFin - X
           fin = EstrazioneFin
           Scrivi " --------------------------------------------------------------------------------"
           Call Scrivi("  Il metodo consiste nel trovare in una ruota tre numeri equidistanti es:1 .2.3 con la stessa distanza, nell'es ",True,,6,,4)
           Call Scrivi("  dist =1 e rigiocarli nella stessa ruota nelle stesse posiz. anche scambiate .Avremo ,per intenderci un premio ",True,,6,,4)
           Call Scrivi("  netto di 5,88  cioè 55/9 =6,11*92/100 ",True,,6,,4)
' Ru = r1
           For es = Ini To fin
           For r1 = 1to 10
               comb(1) = Estratto(es,r1,1)
               comb(2) = Estratto(es,r1,2)
               comb(3) = Estratto(es,r1,3)
              ' comb(4) = Estratto(es,r1,4)
               'comb(5) = Estratto(es,r1,5)
'
                               a = Estratto(es,r1,1)
                               b = Estratto(es,r1,2)
                               c = Estratto(es,r1,3)              
                               d = Estratto(es,r1,4)
                               e = Estratto(es,r1,5)
                             
              If Distanza(a,b) = Distanza(b,c) Then '1^ disposizione
            ' ReDim comb(3)
              ' comb(1)              
'               comb(2)
'               comb(3)
               k = k + 1
                                           
                                          Scrivi String(100,"^") & " Caso n. " & k
                                         ' ColoreTesto 2
                                        Call Scrivi("la distanza rilevata è a passo    " & Distanza(a,b) & "  " & " numeri interessati A B C    " & a & "  " & b & "  " & c,True,,4,,3)

                                         'ColoreTesto 1
                                        Call Scrivi(GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab,True,,4,,3)
                                         Call Scrivi(StringaEstratti(es,r1," "),True,,4,,3)
                                         Scrivi String(100,"-")
                                         ColoreTesto 0
                       ReDim MatriceCaselleDaEvid(3,1)
'         Primo elemento
         MatriceCaselleDaEvid(1,0) = r1 ' ruota trovata es
         MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
         ' secondo elemento
         MatriceCaselleDaEvid(2,0) = r1 ' ruota trovata es
         MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
         ' terzo elemento
         MatriceCaselleDaEvid(3,0) = r1 ' ruota trovata es
         MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
        Call DisegnaEstrazione(es,MatriceCaselleDaEvid,,vbBlue) '
              End If                  

        ImpostaGiocata 1,comb,Ru ,Posta,colpi,,2
        Gioca es,1,,1,,2
      Scrivi
                                                 

                                   
               Next
         Next
          ScriviResoconto
          End Sub
'

 

[Marco-elle]

Ciao Fill,
mi hai intrippato non poco con sta storia dei terni a passo fisso,sul caso avvenuto a BA il 19/2
con la quaterna a passo 13 (BA 10.23-36-49) avevo ipotizzato la probabile uscita dei numeri mancanti
cioè il 62-75-88.Il 75 è uscito poco dopo,il 62 pure che ho beccato in ambo secco BA 8-62 previsione
inserite su PREVISIONI,ora "dovrebbe essere l'ora del 88 (che tra l'altro ho pure forte).Non c'è una regola ma...qualcosa sempre accade.
Approfitto per inserire una previsione che ho elaborato con l'aiuto del tuo listato sulle ricerche
dei terni a passo fisso
BA-TO
1-17-35
sono già usciti 2 ambetti ma io sono più propenso sul ambo 17-35
vedem che succede nei prossimi colpi

Ricerca del terno in formazione spia 15-39-63-87
sortiti in 1°2°5° su TT
ricerche epocali by Marco
Gioca previsione su BA-TO
...
Fisso 01 *
Fisso 35 *
Fisso 17 *

dom 30.04.1871
1.35.17.
Esiti:
dom 02.07.1871 al 9 colpo su To Ambo 35.17.

dom 12.01.1890
1.35.17.
Esiti:
dom 23.02.1890 al 6 colpo su To Ambo 1.35.

sab 07.08.1948
1.35.17.
Esiti:
sab 02.10.1948 al 8 colpo su Ba Ambo 35.1.

gio 09.10.2014
1.35.17.
Esiti:
gio 30.10.2014 al 9 colpo su Ba Ambo 35.1.

sab 13.07.2019
1.35.17.
Esiti:
gio 25.07.2019 al 5 colpo su To Ambo 17.1.

sab 26.02.2022
1.35.17.
Esiti:
IN CORSO ...

Data inizio ricerca : dom 08.01.1871
Data fine ricerca   : sab 26.02.2022

Casi esaminati : 6
Casi positivi  : 5
Casi negativi  : 0
Casi in corso  : 1
Casi positivi per ambo     : 5

Vincite totali nei colpi di gioco:

Ambi vinti     : 5

Vincite su Ba  (40%)
Vincite su To  (60%)

 

[fillotto]

Ma no, Marco, io volevo semplicemente che mi si rendesse funzionante lo script di cui al # 14 dove vedi che imposto la giocata chiedo il resoconto ciedo Gioca ma se si fa girare non gioca niente e non mi da nessun resoconto . Perchè sbaglio l'impostazionecon parametri errati, non so se sono stato chiaro !?!?

 

[Marco-elle]

Ma no, Marco, io volevo semplicemente che mi si rendesse funzionante lo script di cui al # 14 dove vedi che imposto la giocata chiedo il resoconto ciedo Gioca ma se si fa girare non gioca niente e non mi da nessun resoconto . Perchè sbaglio l'impostazionecon parametri errati, non so se sono stato chiaro !?!?

Si ho capito la tua richiesta ma a me piace questo tipo di ricerca,perchè ricava pochi casi epocali
ed è quello che serve a me per ricavare previsioni sensate.Ora provo a far girare il secondo script....
il primo lo uso per trovare i terni a passo fisso per poi fare le mie ricerche

 

[i legend]

Ciao Fillotto scrivo da cell e non ho testato se funziona , spero di aver capito cosa chiedi

Imposta giocata non considera le posizioni mi sembra di ricordare ,ma è una funzione che uso raramente quindi potrei sbagliare.
La logica è semplice spero sia quello che ti serve per costruire il tuo script.
Buon lavoro
Call getarraynumeriruota ( idestr,r,ae)
Call ordinamatriceturbo( ae,1)
Bool= false
For p =1 to 3
For p1=p+1 to 4
For p2=p1+1 to 5
If distanza( ae(p),ae(p1))= distanza( ae(p),ae(p1)) then
aNum(1) = ae(p)
aNum(2)= ae(p1)
aNum(3)= ae(p2)
Bool= true
End if
Next
Next
Next
If bool then
Call imposta giocata()
End if
Non ti garantisco che funzioni

 

[Marco-elle]

Ora funziona ma mette in gioco oltre agli estratti della condizione anche gli estratti
tutte le 10 ruote

Sub Main
   Dim Nu(3),Ru(10),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z,a,b,c,d,e,es,r1,k,colpi,comb(5)
   Posta(1) = 1
   colpi = 10
   X = InputBox("Inserire il numero delle estrazioni da controllare: "," tentativo di script di Fillotto ",25)
   Ini = EstrazioneFin - X
   fin = EstrazioneFin
   Scrivi " --------------------------------------------------------------------------------"
   Call Scrivi("  Il metodo consiste nel trovare in una ruota tre numeri equidistanti es:1 .2.3 con la stessa distanza, nell'es ",True,,6,,4)
   Call Scrivi("  dist =1 e rigiocarli nella stessa ruota nelle stesse posiz. anche scambiate .Avremo ,per intenderci un premio ",True,,6,,4)
   Call Scrivi("  netto di 5,88  cioè 55/9 =6,11*92/100 ",True,,6,,4)
   For es = Ini To fin
      For r1 = 1 To 10
         '
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         c = Estratto(es,r1,3)
         d = Estratto(es,r1,4)
         e = Estratto(es,r1,5)
         If Distanza(a,b) = Distanza(b,c) Then '1^ disposizione
            ' ReDim comb(3)
            ' comb(1)
            '               comb(2)
            '               comb(3)
            k = k + 1
            Scrivi String(100,"^") & " Caso n. " & k
            ' ColoreTesto 2
            Call Scrivi("la distanza rilevata è a passo    " & Distanza(a,b) & "  " & " numeri interessati A B C    " & a & "  " & b & "  " & c,True,,4,,3)
            'ColoreTesto 1
            Call Scrivi(GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab,True,,4,,3)
            Call Scrivi(StringaEstratti(es,r1," "),True,,4,,3)
            Scrivi String(100,"-")
            ColoreTesto 0
            ReDim MatriceCaselleDaEvid(3,1)
            '         Primo elemento
            MatriceCaselleDaEvid(1,0) = r1 ' ruota trovata es
            MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
            ' secondo elemento
            MatriceCaselleDaEvid(2,0) = r1 ' ruota trovata es
            MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
            ' terzo elemento
            MatriceCaselleDaEvid(3,0) = r1 ' ruota trovata es
            MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid,,vbBlue) '
         End If
         Ru(1) = r1
         comb(1) = a
         comb(2) = b
         comb(3) = c
         ImpostaGiocata 1,comb,Ru,Posta,colpi,,1
         Gioca es,1
         Scrivi
      Next
   Next
   ScriviResoconto
End Sub

 

[Marco-elle]

Ti ho inserito la vincita con solo ambata determinata sulle posizioni di ricerca

Sub Main
   Dim Nu(3),Ru(10),aN(3),Posta(10),X,pr,nr1,nr2,Y,Z,a,b,c,d,e,es,r1,k,colpi,comb(5)
   Posta(6) = 1
   Posta(7) = 1
   Posta(8) = 1
   colpi = 10
   X = InputBox("Inserire il numero delle estrazioni da controllare: "," tentativo di script di Fillotto ",25)
   Ini = EstrazioneFin - X
   fin = EstrazioneFin
   Scrivi " --------------------------------------------------------------------------------"
   Call Scrivi("  Il metodo consiste nel trovare in una ruota tre numeri equidistanti es:1 .2.3 con la stessa distanza, nell'es ",True,,6,,4)
   Call Scrivi("  dist =1 e rigiocarli nella stessa ruota nelle stesse posiz. anche scambiate .Avremo ,per intenderci un premio ",True,,6,,4)
   Call Scrivi("  netto di 5,88  cioè 55/9 =6,11*92/100 ",True,,6,,4)
   For es = Ini To fin
      For r1 = 1 To 10
         '
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         c = Estratto(es,r1,3)
         d = Estratto(es,r1,4)
         e = Estratto(es,r1,5)
         If Distanza(a,b) = Distanza(b,c) Then '1^ disposizione
            ' ReDim comb(3)
            ' comb(1)
            '               comb(2)
            '               comb(3)
            k = k + 1
            Scrivi String(100,"^") & " Caso n. " & k
            ' ColoreTesto 2
            Call Scrivi("la distanza rilevata è a passo    " & Distanza(a,b) & "  " & " numeri interessati A B C    " & a & "  " & b & "  " & c,True,,4,,3)
            'ColoreTesto 1
            Call Scrivi(GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab,True,,4,,3)
            Call Scrivi(StringaEstratti(es,r1," "),True,,4,,3)
            Scrivi String(100,"-")
            ColoreTesto 0
            ReDim MatriceCaselleDaEvid(3,1)
            '         Primo elemento
            MatriceCaselleDaEvid(1,0) = r1 ' ruota trovata es
            MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
            ' secondo elemento
            MatriceCaselleDaEvid(2,0) = r1 ' ruota trovata es
            MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
            ' terzo elemento
            MatriceCaselleDaEvid(3,0) = r1 ' ruota trovata es
            MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid,,vbBlue) '
         End If
         Ru(1) = r1
         comb(1) = a
         comb(2) = b
         comb(3) = c
         ImpostaGiocata 1,comb,Ru,Posta,colpi,1
         Gioca es,1
         Scrivi
      Next
   Next
   ScriviResoconto
End Sub