Script CA VE

[jure]

Metodino di diversi anni Fa.
da riprovare.
Fare la figura del 1° e 5° estratto Di CA e VE poi unirli.
es. 11/05
CA 1° estratto 19 = fig.1= 5° estratto 31 fig.4 numero trovato accoppiandoli il 14
VE 1° estratto 71 = fig. 8 = 5° estratto 59 fig. 5 numero trovato accoppiandoli 85
Ambo e Ambetto da Giocare
CA VE 14 85 al 3° colpo a Cagliari
es. 11/05
CA 1° estratto 70 = fig. 7 = 5° estratto 66 = fig.3 = Accoppiati 73
VE 1° estratto 62 = fig. 8 = 5° estratto 44 = fig. 8 Accoppiati 88
Ambo e Ambetto da Giocare
CA VE 73 88 al 10° a VE
Cosi' per tutte le estrazioni.

 

[Sakti]

Spero che un listato sul tuo metodo venga fatto al più presto, perchè molto interessante anche per altre applicazioni.
Grazie...

 

[Oscar]

Si ma nelle estrazioni successive non è più uscito nessun Ambo al lotto si vincerebbe anche (se la giocata non si pagasse ) altrimenti NISBA

 

[lotto_tom75]

'Option Explicit
Sub Main
   'Metodino di diversi anni Fa richiesto da jure
   'Fare la Figura del 1° e 5° Estratto Di CA e VE poi unirli.
   'es. 11/05
   'CA 1° Estratto 19 = fig.1= 5° Estratto 31 fig.4 numero trovato accoppiandoli il 14
   'VE 1° Estratto 71 = fig. 8 = 5° Estratto 59 fig. 5 numero trovato accoppiandoli 85
   'Ambo e Ambetto da Giocare
   'CA VE 14 85 al 3° colpo a Cagliari
   'es. 11/05
   'CA 1° Estratto 70 = fig. 7 = 5° Estratto 66 = fig.3 = Accoppiati 73
   'VE 1° Estratto 62 = fig. 8 = 5° Estratto 44 = fig. 8 Accoppiati 88
   'Ambo e Ambetto da Giocare
   'CA VE 73 88 al 10° a VE
   'Cosi' per tutte le estrazioni.
   Dim es
   estrazionivolute = InputBox("estrazioni","estrazioni",180)
   fin = EstrazioneFin
   Ini = EstrazioneFin - estrazionivolute
   P1 = 1
   P5 = 5
   For es = Ini To fin
      For R1 = 2 To 2
         For R2 = 10 To 10
            A = Estratto(es,R1,P1)
            B = Estratto(es,R1,P5)
            C = Estratto(es,R2,P1)
            D = Estratto(es,R2,P5)
           
            Dim Valori
           
            xambata1a = A 
            xambata1b = B 
            xambata2a = C
            xambata2b = D
            ReDim ambataingioco(2)
            ambataingioco(1) = xambata1a
            ambataingioco(2) = xambata1b
            ReDim ambataingioco2(2)
            ambataingioco2(1) = xambata2a
            ambataingioco2(2) = xambata2b
            Scrivi ambataingioco(1) & "-" & ambataingioco(2)
            Scrivi "fig relative " & Figura(ambataingioco(1)) & "-" & Figura(ambataingioco(2))
            Scrivi "ambata relativa al loro accostamento " & Figura(ambataingioco(1)) & Figura(ambataingioco(2))
            Scrivi "ambata numerica relativa al loro accostamento " & Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2)))
            Scrivi "ambata numerica con fuori 90 relativa al loro accostamento " & Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            Scrivi ambataingioco2(1) & "-" & ambataingioco2(2)
            Scrivi "fig relative " & Figura(ambataingioco2(1)) & "-" & Figura(ambataingioco2(2))
            Scrivi "ambata relativa al loro accostamento " & Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))
            Scrivi "ambata numerica relativa al loro accostamento " & Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2)))
            Scrivi "ambata numerica con fuori 90 relativa al loro accostamento " & Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingioco(2)
            ambatafinaleingioco(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingioco(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ruote(2)
            ruote(1) = R1
            ruote(2) = R2
            colpi = 10
            ReDim poste(1)
            poste(1) = 1
            ImpostaGiocata 1,ambatafinaleingioco,ruote,poste,colpi
            Gioca es,1
            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next
   Call ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10")
End Sub

Eventuali errori a parte...

Ciao

 

[jure]

Grazie Lotto_tom75.

 

[Sakti]

Bel lavoro lotto_tom75, sopratutto molto dettagliato, Grazie...

 

[jure]

29/05/2021
1° CA 56 = 02 - 5° CA 82 = 1
1° VE 85 = 4 - 5° VE = 53 = 8
Previsione CA VE 21 48
il 19/06/2021 uscito a
VE 21 48

nel listato potrebbe essere visualizzato
se possibile anche l'Ambetto.

 

[lotto_tom75]

29/05/2021
1° CA 56 = 02 - 5° CA 82 = 1
1° VE 85 = 4 - 5° VE = 53 = 8
Previsione CA VE 21 48
il 19/06/2021 uscito a
VE 21 48

nel listato potrebbe essere visualizzato
se possibile anche l'Ambetto.

Prova a vedere se ti va bene così

'Option Explicit
Sub Main
   'Metodino di diversi anni Fa richiesto da jure
   'Fare la Figura del 1° e 5° Estratto Di CA e VE poi unirli.
   'es. 11/05
   'CA 1° Estratto 19 = fig.1= 5° Estratto 31 fig.4 numero trovato accoppiandoli il 14
   'VE 1° Estratto 71 = fig. 8 = 5° Estratto 59 fig. 5 numero trovato accoppiandoli 85
   'Ambo e Ambetto da Giocare
   'CA VE 14 85 al 3° colpo a Cagliari
   'es. 11/05
   'CA 1° Estratto 70 = fig. 7 = 5° Estratto 66 = fig.3 = Accoppiati 73
   'VE 1° Estratto 62 = fig. 8 = 5° Estratto 44 = fig. 8 Accoppiati 88
   'Ambo e Ambetto da Giocare
   'CA VE 73 88 al 10° a VE
   'Cosi' per tutte le estrazioni.
   Dim es
   estrazionivolute = InputBox("estrazioni","estrazioni",180)
   fin = EstrazioneFin
   Ini = EstrazioneFin - estrazionivolute
   P1 = 1
   P5 = 5
   For es = Ini To fin
      For R1 = 2 To 2
         For R2 = 10 To 10
            A = Estratto(es,R1,P1)
            B = Estratto(es,R1,P5)
            C = Estratto(es,R2,P1)
            D = Estratto(es,R2,P5)
           
            Dim Valori
           
            xambata1a = A
            xambata1b = B
            xambata2a = C
            xambata2b = D
            ReDim ambataingioco(2)
            ambataingioco(1) = xambata1a
            ambataingioco(2) = xambata1b
            ReDim ambataingioco2(2)
            ambataingioco2(1) = xambata2a
            ambataingioco2(2) = xambata2b
            Scrivi ambataingioco(1) & "-" & ambataingioco(2)
            Scrivi "fig relative " & Figura(ambataingioco(1)) & "-" & Figura(ambataingioco(2))
            Scrivi "ambata relativa al loro accostamento " & Figura(ambataingioco(1)) & Figura(ambataingioco(2))
            Scrivi "ambata numerica relativa al loro accostamento " & Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2)))
            Scrivi "ambata numerica con fuori 90 relativa al loro accostamento " & Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            Scrivi ambataingioco2(1) & "-" & ambataingioco2(2)
            Scrivi "fig relative " & Figura(ambataingioco2(1)) & "-" & Figura(ambataingioco2(2))
            Scrivi "ambata relativa al loro accostamento " & Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))
            Scrivi "ambata numerica relativa al loro accostamento " & Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2)))
            Scrivi "ambata numerica con fuori 90 relativa al loro accostamento " & Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingioco(2)
            ambatafinaleingioco(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingioco(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingiococomeambetto1(2)
            ambatafinaleingiococomeambetto1(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2)))+1)
            ambatafinaleingiococomeambetto1(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingiococomeambetto2(2)
            ambatafinaleingiococomeambetto2(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2)))-1)
            ambatafinaleingiococomeambetto2(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingiococomeambetto3(2)
            ambatafinaleingiococomeambetto3(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingiococomeambetto3(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2)))+1)
            ReDim ambatafinaleingiococomeambetto4(2)
            ambatafinaleingiococomeambetto4(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingiococomeambetto4(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2)))-1)
            '---------------
            ReDim ambatafinaleingiococomeambetto5(2)
            ambatafinaleingiococomeambetto5(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingiococomeambetto5(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingiococomeambetto6(2)
            ambatafinaleingiococomeambetto6(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingiococomeambetto6(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingiococomeambetto7(2)
            ambatafinaleingiococomeambetto7(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingiococomeambetto7(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ambatafinaleingiococomeambetto8(2)
            ambatafinaleingiococomeambetto8(1) = Fuori90(Int(Figura(ambataingioco(1)) & Figura(ambataingioco(2))))
            ambatafinaleingiococomeambetto8(2) = Fuori90(Int(Figura(ambataingioco2(1)) & Figura(ambataingioco2(2))))
            ReDim ruote(2)
            ruote(1) = R1
            ruote(2) = R2
            colpi = 10
            ReDim poste(1)
            poste(1) = 1
            ImpostaGiocata 1,ambatafinaleingioco,ruote,poste,colpi
            ImpostaGiocata 2,ambatafinaleingiococomeambetto1,ruote,poste,colpi
            ImpostaGiocata 3,ambatafinaleingiococomeambetto2,ruote,poste,colpi
            ImpostaGiocata 4,ambatafinaleingiococomeambetto3,ruote,poste,colpi
            ImpostaGiocata 5,ambatafinaleingiococomeambetto4,ruote,poste,colpi
    
           
            Gioca es,1
            Gioca es,2
            Gioca es,3
            Gioca es,4
            Gioca es,5

            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next
   Call ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10")
End Sub

Ciao

 

[boris]

buona sera, ho aperto il metodo mi da errore

estrazion1volute = InputBox("estrazioni","estrazioni",180)
come posso correggere grazie Boris

 

[sax71]

Funziona benissimo! Ottimo lavoro lotto_tom75

 

[lotto_tom75]

buona sera, ho aperto il metodo mi da errore

estrazion1volute = InputBox("estrazioni","estrazioni",180)
come posso correggere grazie Boris

Ciao boris visto che agli altri sembra funzionare credo si tratti solo di questa tua piccola svista di trascrizione del code relativo che ti evidenzio qui sotto in rosso...

estrazion1volute

Prova a sostituire l'1 con la i di estrazioni e ti dovrebbe funzionare...

Ciao

 

[joe]

Buon giorno a tutte/i.

Sono piuttosto stupito, da questa giusta diagnosi.

Trascrivendo manualmente diventa possibile commettere molti(ssimi) errori.

Cioè diventa possibile che quello sia solo il primo.

Molto meglio copiare e poi incollare il testo.

 

[joe]

Prova a cercare questo con Google:

watch?v=yiuFdnujDpc

Buona giornata a tutte/i.

 

[i legend]

estrazionivolute = cint(InputBox("estrazioni","estrazioni",180))
Forse così?

 

[boris]

ringrazio per i Vs. consigli, ho provato i tre modi mi da l'errore
evidenziando estrazionivolute va bene così vuoldire che
faccio il calcolo a mano che non è difficile

 

[joe]

Ciao, Boris.

Ho provato lo script e come confermano anche altri, con Spaziometria 1.6.34, funziona.

ERRORE è un termine troppo generico per poter consigliare qualcosa di specifico.

Penso che esso sia riferibile al nome di una variabile non definito ed Opzionato Esplicitamente .

Se così fosse devi cancellare Option Explicit (che rende necessaria e pretesa la dichiarazione delle variabili).

Cioè cancelli la prima linea dello script (se Option Explicit è presente con lo stesso colore delle altre istruzioni).

 

[boris]

buongiorno joe, avendo copiato senza Explicit Sub Main come tante volte funziona questa volta serve un appostrofo
ora funziona perfettamente, ringrazio per il consiglio gentilissimo saluti Boris

 

[joe]

Ok.

L'errore è non aver copiato l'apostrofo prima di Option Explicit.

Di conseguenza non era stato incollato, e l'istruzione non cancellata, era attiva.

Cioè con Option Explicit attivo lo script non funzionava.

Perché è una istruzione che ha una suo significato ed una sua ragion d' essere.

È come dire: "Comprati un gelato".

Se comprato, portato davanti la bocca e lasciato lì a se stesso,

non mangiato, diventa uno sbrodolatore.

Dunque giustamente hai fatto quanto ti ho consigliato

quell'apostrofo equivale a trasformare in commento il contenuto di quella linea.

Cioè la "cancella" dall'essere una istruzione rendendola "inattiva".

Potevi, ed era più giusto, cancellare quella riga.

 

[boris]