Novità

Funzione FOR - NEXT - Quadrato Intellettuale

salvo50;n2051293 ha scritto:
Solo adesso ho fatto caso a quello che hai scritto, gli ambi che si formano con 90 numeri sono 4005, quell'8010 che hai ottenuto devi dividerlo per 2, perchè per esempio prendi un ambo qualsiasi 35 - 48 e uguale a 48 - 35.
Solo in questo caso delle piramidi calcoliamo 8010 perchè abbiamo visto che non dà lo stesso risultato
Clicca per espandere...

ciao

NUMERI 35 48---- 58 58 58

NUMERI 48 35---- 6 6 6

come vedi non solo uguali
 
Ultima modifica:
ed è quello che ho scritto io, come risultato delle piramidi non sono uguali , ma come ambi sono uguali, perchè se tu vai a giocarli sono la stessa cosa, gli ambi che si formano con 90 numeri sono 4005, trovo strano che tu dici che sono 8010.
 
i legend;n2051288 ha scritto:
Ciao a tutti
X salvo
ho lanciato il tuo script molto veloce (bravo :)),
ho esportato i dati in un foglio di calcolo
L ultima colonna per intenderci
i tuoi risultati coincidono con i miei , ma sono diversi da quelli di avio , in parte coincidono con quelli di nelson 1331
ossia I numeri rilevati ma non le presenze dei numeri
non so quale script sia corretto
Bisognerebbe che ci fossero piu dati per un riscontro certo

Ciao a tutti ;)
Clicca per espandere...

Grazie e scusami non l'avevo visto
 
Ciao a Tutti!

Ho fatto uno script, sempre basato sulle piramidi, dove si può decidere il numero dell'estrazione, e quanti numeri da far uscire nel pronostico da 2 a 20, che sono i 5 numeri normali, poi ho aggiunto i rimanenti 5 ambi, infatti con 5 numeri si formano 10 ambi, formula 5 x 4 / 2 e poi ho aggiunto anche gli inversi di queste 10 coppie, l'avevo fatto con la ricerca ma poi glielo tolta, perche con un prostico di numeri superiore a 10, lo script va in tilt, probabilmente perchè nel programma di spaziometria ci sarà impostato che massimo puoi mettere 10 numeri, dato che non ho fatto la ricerca l'ho fatto per tutte le ruote, ecco il codice

Codice: 
Option Explicit
Sub Main
    Dim qes,estraz
    Dim k1,r1,a(6),es,fin,riga,nu,B,de,ca,Ini
    Dim anum,bnum,cnum,dnum,nnum
    Dim P1,P2,P3,P4,P5,P6,P7,np(22),fig(3)
    ReDim num(3),num2(3),num3(5)
    fin = EstrazioneFin
    qes = InputBox("In quale estrazione vuoi fare il pronostico?",estraz,9000)
    nnum = InputBox("Per quanti numeri vuoi fare il pronostico? (2 - 20) ",,10)
    For es = qes To qes
        For r1 = 1 To 12
            If r1 = 11 Then r1 = 12
            Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
            Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
            Scrivi
            ColoreTesto 1
            Scrivi "       Pronostico "
            ColoreTesto 0
            Scrivi
            'Messaggio es
            'AvanzamentoElab Ini,fin,es
            a(1) = Estratto(es,r1,1)
            a(2) = Estratto(es,r1,2)
            a(3) = Estratto(es,r1,3)
            a(4) = Estratto(es,r1,4)
            a(5) = Estratto(es,r1,5)
            For k1 = 1 To nnum
                If k1 = 1 Then : num(1) = a(1) : num(3) = a(2): End If
                If k1 = 2 Then : num(1) = a(2) : num(3) = a(3): End If
                If k1 = 3 Then : num(1) = a(3) : num(3) = a(4): End If
                If k1 = 4 Then : num(1) = a(4) : num(3) = a(5): End If
                If k1 = 5 Then : num(1) = a(5) : num(3) = a(1): End If
                If k1 = 6 Then : num(1) = a(1) : num(3) = a(3): End If
                If k1 = 7 Then : num(1) = a(1) : num(3) = a(4): End If
                If k1 = 8 Then : num(1) = a(2) : num(3) = a(4): End If
                If k1 = 9 Then : num(1) = a(2) : num(3) = a(5): End If
                If k1 = 10 Then : num(1) = a(3) : num(3) = a(5): End If
                If k1 = 11 Then : num(1) = a(2) : num(3) = a(1): End If
                If k1 = 12 Then : num(1) = a(3) : num(3) = a(2): End If
                If k1 = 13 Then : num(1) = a(4) : num(3) = a(3): End If
                If k1 = 14 Then : num(1) = a(5) : num(3) = a(4): End If
                If k1 = 15 Then : num(1) = a(1) : num(3) = a(5): End If
                If k1 = 16 Then : num(1) = a(3) : num(3) = a(1): End If
                If k1 = 17 Then : num(1) = a(4) : num(3) = a(1): End If
                If k1 = 18 Then : num(1) = a(4) : num(3) = a(2): End If
                If k1 = 19 Then : num(1) = a(5) : num(3) = a(2): End If
                If k1 = 20 Then : num(1) = a(5) : num(3) = a(3): End If
                fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
                If fig(1) = 1 Then num(2) = 35
                If fig(1) = 2 Then num(2) = 57
                If fig(1) = 3 Then num(2) = 79
                If fig(1) = 4 Then num(2) = 92
                If fig(1) = 5 Then num(2) = 24
                If fig(1) = 6 Then num(2) = 46
                If fig(1) = 7 Then num(2) = 68
                If fig(1) = 8 Then num(2) = 81
                If fig(1) = 9 Then num(2) = 13
                P1 = StringaNumeri(num,"",True)
                np(4) = Piramide(P1,4)
                ' CALCOLI PIRAMIDI 2 E 3
                fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
                P2 = fig(2)*100 + num(1)
                np(5) = Piramide(P2,1)
                P3 = fig(2)*100 + num(3)
                np(6) = Piramide(P3,1)
                ' CALCOLI PIRAMIDI 4 E 5
                P4 = np(4)*100 + np(5)
                np(8) = Piramide(P4,2)
                P5 = np(4)*100 + np(6)
                np(10) = Piramide(P5,2)
                ' CALCOLI PIRAMIDI 6
                num2(1) = np(8)
                num2(3) = np(10)
                fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
                If fig(3) = 1 Then num2(2) = 35
                If fig(3) = 2 Then num2(2) = 57
                If fig(3) = 3 Then num2(2) = 79
                If fig(3) = 4 Then num2(2) = 92
                If fig(3) = 5 Then num2(2) = 24
                If fig(3) = 6 Then num2(2) = 46
                If fig(3) = 7 Then num2(2) = 68
                If fig(3) = 8 Then num2(2) = 81
                If fig(3) = 9 Then num2(2) = 13
                P6 = StringaNumeri(num2,"",True)
                np(14) = Piramide(P6,4)
                'CALCOLI PIRAMIDE 7
                anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
                bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
                cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
                dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
                num3(1) = np(14)
                num3(2) = np(4)
                num3(3) = anum & bnum
                num3(4) = np(4)
                num3(5) = cnum & dnum
                P7 = StringaNumeri(num3,"",True)
                np(22) = Piramide(P7,8)
                de = Decina(np(22))
                ca = Cadenza(np(22))
                If de = 9 Then de = 0
                np(22) = de & ca
                riga = riga & " " & Format2(np(22)) & " "
            Next
            Scrivi riga,2
            Scrivi:Scrivi:Scrivi:Scrivi
            riga = Null
        Next
    Next
End Sub
 
Ultima modifica:
nelson1331;n2051004 ha scritto:
Quindi per un criterio di probabilita', non e' possibile applicare in questo contesto le piramidi con il metodo summenzionato ma, poiche' sono mancanti ben 63 numeri, la logica matematica mi suggerisce che i numeri ricavati, siano da utilizzare in altri modi.
Clicca per espandere...

Mi stò accorgendo che è così, grazie per i preziosi consigli che ci hai dato
 
Ciao a Tutti!

Seguendo i suggerimenti di Nelson1331 mi è venuta l'idea, che in qualche modo con quei 27 numeri che vengono fuori dal sistema di Pico, dovevo trovare i mancanti 63 numeri, ho fatto 27x3= 81+ i 9 zerati = 90, e seguendo una certa logica mi è venuto fuori questo:

01 02 03
04 05 06
07 08 09
11 12 13
14 15 16
17 18 19
21 22 23
24 25 26
27 28 29
31 32 33
34 35 36
37 38 39
41 42 43
44 45 46
47 48 49
51 52 53
54 55 56
57 58 59
61 62 63
64 65 66
67 68 69
71 72 73
74 75 76
77 78 79
81 82 83
84 85 86
87 88 89

in rosso ci sono tutti e 27 i numeri che vengono fuori col sistema delle piramidi, ed in nero gli altri 54 numeri = 81 numeri, quindi ho fatto uno script, dove per ogni numero uscito gli aggrego i due vicini, in qesto modo la previone è composta da 15 numeri, poco male se escono, però lo script non fà la ricerca perchè come ho già scritto, con quantità di numeri superiori a 10 lo script va in tilt, quindi l'ho fatto in questo modo, in rosso c,è l'estrazione dove si calcola il pronostico , in nero il pronostico ed in blu l'estrazione successiva, quindi un colpo solo, però a guardare a vista è stressante, mi chiedevo se potevate darmi qualche suggerimento per poterlo fare in automatico, ecco il codice.

Codice: 
Option Explicit
Sub Main
    Dim qes,estraz,clp
    Dim k1,r1,a(6),es,fin,riga,nu,de,ca,Ini
    Dim anum,bnum,cnum,dnum,nnum
    Dim P1,P2,P3,P4,P5,P6,P7,np(22),fig(3)
    ReDim num(3),num2(3),num3(5),xnp3(3)
    fin = EstrazioneFin
    qes = InputBox("Quante estrazioni controllare",estraz,20)
    r1 = InputBox("Inserisci numero ruota ( 1 - 10 - NAZ 12)",es,6)
    es = fin - qes

    Scrivi

    Scrivi
    For es = es To fin
        Messaggio es
        AvanzamentoElab es,fin,es
        a(1) = Estratto(es,r1,1)
        a(2) = Estratto(es,r1,2)
        a(3) = Estratto(es,r1,3)
        a(4) = Estratto(es,r1,4)
        a(5) = Estratto(es,r1,5)
        For k1 = 1 To 5
            If k1 = 1 Then : num(1) = a(1) : num(3) = a(2)
            If k1 = 2 Then : num(1) = a(2) : num(3) = a(3)
            If k1 = 3 Then : num(1) = a(3) : num(3) = a(4)
            If k1 = 4 Then : num(1) = a(4) : num(3) = a(5)
            If k1 = 5 Then : num(1) = a(5) : num(3) = a(1)
            fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
            If fig(1) = 1 Then num(2) = 35
            If fig(1) = 2 Then num(2) = 57
            If fig(1) = 3 Then num(2) = 79
            If fig(1) = 4 Then num(2) = 92
            If fig(1) = 5 Then num(2) = 24
            If fig(1) = 6 Then num(2) = 46
            If fig(1) = 7 Then num(2) = 68
            If fig(1) = 8 Then num(2) = 81
            If fig(1) = 9 Then num(2) = 13
            P1 = StringaNumeri(num,"",True)
            np(4) = Piramide(P1,4)
            ' CALCOLI PIRAMIDI 2 E 3
            fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
            P2 = fig(2)*100 + num(1)
            np(5) = Piramide(P2,1)
            P3 = fig(2)*100 + num(3)
            np(6) = Piramide(P3,1)
            ' CALCOLI PIRAMIDI 4 E 5
            P4 = np(4)*100 + np(5)
            np(8) = Piramide(P4,2)
            P5 = np(4)*100 + np(6)
            np(10) = Piramide(P5,2)
            ' CALCOLI PIRAMIDI 6
            num2(1) = np(8)
            num2(3) = np(10)
            fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
            If fig(3) = 1 Then num2(2) = 35
            If fig(3) = 2 Then num2(2) = 57
            If fig(3) = 3 Then num2(2) = 79
            If fig(3) = 4 Then num2(2) = 92
            If fig(3) = 5 Then num2(2) = 24
            If fig(3) = 6 Then num2(2) = 46
            If fig(3) = 7 Then num2(2) = 68
            If fig(3) = 8 Then num2(2) = 81
            If fig(3) = 9 Then num2(2) = 13
            P6 = StringaNumeri(num2,"",True)
            np(14) = Piramide(P6,4)
            'CALCOLI PIRAMIDE 7
            anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
            bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
            cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
            dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
            num3(1) = np(14)
            num3(2) = np(4)
            num3(3) = anum & bnum
            num3(4) = np(4)
            num3(5) = cnum & dnum
            P7 = StringaNumeri(num3,"",True)
            np(22) = Piramide(P7,8)
            de = Decina(np(22))
            ca = Cadenza(np(22))
            If de = 9 Then de = 0
            np(22) = de & ca
            If np(22) = 03 Then xnp3(1) = 01:xnp3(2) = 02 :xnp3(3) = 03
            If np(22) = 06 Then xnp3(1) = 04:xnp3(2) = 05 :xnp3(3) = 06
            If np(22) = 09 Then xnp3(1) = 07:xnp3(2) = 08 :xnp3(3) = 09
            If np(22) = 11 Then xnp3(1) = 11:xnp3(2) = 12 :xnp3(3) = 13
            If np(22) = 14 Then xnp3(1) = 14:xnp3(2) = 15 :xnp3(3) = 16
            If np(22) = 17 Then xnp3(1) = 17:xnp3(2) = 18 :xnp3(3) = 19
            If np(22) = 22 Then xnp3(1) = 21:xnp3(2) = 22 :xnp3(3) = 23
            If np(22) = 25 Then xnp3(1) = 24:xnp3(2) = 25 :xnp3(3) = 26
            If np(22) = 28 Then xnp3(1) = 27:xnp3(2) = 28 :xnp3(3) = 29
            If np(22) = 33 Then xnp3(1) = 31:xnp3(2) = 32 :xnp3(3) = 33
            If np(22) = 36 Then xnp3(1) = 34:xnp3(2) = 35 :xnp3(3) = 36
            If np(22) = 39 Then xnp3(1) = 37:xnp3(2) = 38 :xnp3(3) = 39
            If np(22) = 41 Then xnp3(1) = 41:xnp3(2) = 42 :xnp3(3) = 43
            If np(22) = 44 Then xnp3(1) = 44:xnp3(2) = 45 :xnp3(3) = 46
            If np(22) = 47 Then xnp3(1) = 47:xnp3(2) = 48 :xnp3(3) = 49
            If np(22) = 52 Then xnp3(1) = 51:xnp3(2) = 52 :xnp3(3) = 53
            If np(22) = 55 Then xnp3(1) = 54:xnp3(2) = 55 :xnp3(3) = 56
            If np(22) = 58 Then xnp3(1) = 57:xnp3(2) = 58 :xnp3(3) = 59
            If np(22) = 63 Then xnp3(1) = 61:xnp3(2) = 62 :xnp3(3) = 63
            If np(22) = 66 Then xnp3(1) = 64:xnp3(2) = 65 :xnp3(3) = 66
            If np(22) = 69 Then xnp3(1) = 67:xnp3(2) = 68 :xnp3(3) = 69
            If np(22) = 71 Then xnp3(1) = 71:xnp3(2) = 72 :xnp3(3) = 73
            If np(22) = 74 Then xnp3(1) = 74:xnp3(2) = 75 :xnp3(3) = 76
            If np(22) = 77 Then xnp3(1) = 77:xnp3(2) = 78 :xnp3(3) = 79
            If np(22) = 82 Then xnp3(1) = 81:xnp3(2) = 82 :xnp3(3) = 83
            If np(22) = 85 Then xnp3(1) = 84:xnp3(2) = 85 :xnp3(3) = 86
            If np(22) = 88 Then xnp3(1) = 87:xnp3(2) = 88 :xnp3(3) = 89
            riga = riga & Format2(xnp3(1)) & " " & Format2(xnp3(2)) & " " & Format2(xnp3(3)) & " "
        Next
        Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1
        Scrivi
        Scrivi "   Estrazione                   Pronostico                      estraz.successiva"


        ColoreTesto 2
        Scrivi Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),0,0
        ColoreTesto 0
        Scrivi " " & riga & " ",0,0
        ColoreTesto 1
        Scrivi StringaEstratti(es + 1,r1),9
        ColoreTesto 0
        Scrivi "------------------------------------------------------------------------------",1
        Scrivi:Scrivi
        riga = Null
    Next
End Sub
 
Ultima modifica:
Ciao Vinci!

L'ultimo script che ho postato, quello dei 15 pronostici, se si potrebbe fare una statistica, per vedere se ogni 8 colpi esce almeno un terno, non sarebbe male, ci vorrebbe un controllo a tabelle, in questo campo penso che Mike58 sia un mago.
 
Ultima modifica:
Ciao a tutti!

In un vecchio post, Mike58 suggeriva a chi volesse fare una ricerca con più di 10 numeri, di usare la funzione - verificaesito - , e poi faceva uno script di esempio, quindi ho preso con il copia e incolla tutto quello che mi serviva (a parer mio) e l'ho inserito in questo script ed ho eliminato le righe che non servivano più e ne ho inserite altre, tutto bene non dà errore, però non appare niente, cosa c'è ancora da inserire?

Grazie!

Codice: 
 Option Explicit
Sub Main
    Dim qes,estraz,clp
    Dim k1,r1,a(6),es,fin,riga,nu,de,ca,Ini,c1
    Dim anum,bnum,cnum,dnum,nnum,z,ruote(1)
    Dim P1,P2,P3,P4,P5,P6,P7,np(22),fig(3)
    ReDim num(3),num2(3),num3(5),xnp3(3),av(8)
    Dim retesito,retcolpi,retestratti,retid,numeri(15)
    fin = EstrazioneFin
    qes = CInt(InputBox("Quante estrazioni controllare",estraz,15))
    r1 = InputBox("Inserisci numero ruota ( 1 - 10 - NAZ 12)",es,6)
    es = fin - qes
    ruote(1) = r1
    Scrivi
    ReDim at(8)
    at(1) = " data estraz. INIZIO  "
    at(2) = " Ruota "
    at(3) = " Numeri in Gioco "
    at(4) = " Conta Num "
    at(5) = " Esito "
    at(6) = " Colpo "
    at(7) = " Estratti "
    at(8) = " Data estraz. Fine "
    Call InitTabella(at,1,,3,5)
    Scrivi
    For es = es To fin
        Messaggio es
        AvanzamentoElab es,fin,es
        a(1) = Estratto(es,r1,1)
        a(2) = Estratto(es,r1,2)
        a(3) = Estratto(es,r1,3)
        a(4) = Estratto(es,r1,4)
        a(5) = Estratto(es,r1,5)
        For k1 = 1 To 5
            If k1 = 1 Then : num(1) = a(1) : num(3) = a(2)
            If k1 = 2 Then : num(1) = a(2) : num(3) = a(3)
            If k1 = 3 Then : num(1) = a(3) : num(3) = a(4)
            If k1 = 4 Then : num(1) = a(4) : num(3) = a(5)
            If k1 = 5 Then : num(1) = a(5) : num(3) = a(1)
            fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
            If fig(1) = 1 Then num(2) = 35
            If fig(1) = 2 Then num(2) = 57
            If fig(1) = 3 Then num(2) = 79
            If fig(1) = 4 Then num(2) = 92
            If fig(1) = 5 Then num(2) = 24
            If fig(1) = 6 Then num(2) = 46
            If fig(1) = 7 Then num(2) = 68
            If fig(1) = 8 Then num(2) = 81
            If fig(1) = 9 Then num(2) = 13
            P1 = StringaNumeri(num,"",True)
            np(4) = Piramide(P1,4)
            ' CALCOLI PIRAMIDI 2 E 3
            fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
            P2 = fig(2)*100 + num(1)
            np(5) = Piramide(P2,1)
            P3 = fig(2)*100 + num(3)
            np(6) = Piramide(P3,1)
            ' CALCOLI PIRAMIDI 4 E 5
            P4 = np(4)*100 + np(5)
            np(8) = Piramide(P4,2)
            P5 = np(4)*100 + np(6)
            np(10) = Piramide(P5,2)
            ' CALCOLI PIRAMIDI 6
            num2(1) = np(8)
            num2(3) = np(10)
            fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
            If fig(3) = 1 Then num2(2) = 35
            If fig(3) = 2 Then num2(2) = 57
            If fig(3) = 3 Then num2(2) = 79
            If fig(3) = 4 Then num2(2) = 92
            If fig(3) = 5 Then num2(2) = 24
            If fig(3) = 6 Then num2(2) = 46
            If fig(3) = 7 Then num2(2) = 68
            If fig(3) = 8 Then num2(2) = 81
            If fig(3) = 9 Then num2(2) = 13
            P6 = StringaNumeri(num2,"",True)
            np(14) = Piramide(P6,4)
            'CALCOLI PIRAMIDE 7
            anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
            bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
            cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
            dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
            num3(1) = np(14)
            num3(2) = np(4)
            num3(3) = anum & bnum
            num3(4) = np(4)
            num3(5) = cnum & dnum
            P7 = StringaNumeri(num3,"",True)
            np(22) = Piramide(P7,8)
            de = Decina(np(22))
            ca = Cadenza(np(22))
            If de = 9 Then de = 0
            np(22) = de & ca
            If np(22) = 03 Then xnp3(1) = 01:xnp3(2) = 02 :xnp3(3) = 03
            If np(22) = 06 Then xnp3(1) = 04:xnp3(2) = 05 :xnp3(3) = 06
            If np(22) = 09 Then xnp3(1) = 07:xnp3(2) = 08 :xnp3(3) = 09
            If np(22) = 11 Then xnp3(1) = 11:xnp3(2) = 12 :xnp3(3) = 13
            If np(22) = 14 Then xnp3(1) = 14:xnp3(2) = 15 :xnp3(3) = 16
            If np(22) = 17 Then xnp3(1) = 17:xnp3(2) = 18 :xnp3(3) = 19
            If np(22) = 22 Then xnp3(1) = 21:xnp3(2) = 22 :xnp3(3) = 23
            If np(22) = 25 Then xnp3(1) = 24:xnp3(2) = 25 :xnp3(3) = 26
            If np(22) = 28 Then xnp3(1) = 27:xnp3(2) = 28 :xnp3(3) = 29
            If np(22) = 33 Then xnp3(1) = 31:xnp3(2) = 32 :xnp3(3) = 33
            If np(22) = 36 Then xnp3(1) = 34:xnp3(2) = 35 :xnp3(3) = 36
            If np(22) = 39 Then xnp3(1) = 37:xnp3(2) = 38 :xnp3(3) = 39
            If np(22) = 41 Then xnp3(1) = 41:xnp3(2) = 42 :xnp3(3) = 43
            If np(22) = 44 Then xnp3(1) = 44:xnp3(2) = 45 :xnp3(3) = 46
            If np(22) = 47 Then xnp3(1) = 47:xnp3(2) = 48 :xnp3(3) = 49
            If np(22) = 52 Then xnp3(1) = 51:xnp3(2) = 52 :xnp3(3) = 53
            If np(22) = 55 Then xnp3(1) = 54:xnp3(2) = 55 :xnp3(3) = 56
            If np(22) = 58 Then xnp3(1) = 57:xnp3(2) = 58 :xnp3(3) = 59
            If np(22) = 63 Then xnp3(1) = 61:xnp3(2) = 62 :xnp3(3) = 63
            If np(22) = 66 Then xnp3(1) = 64:xnp3(2) = 65 :xnp3(3) = 66
            If np(22) = 69 Then xnp3(1) = 67:xnp3(2) = 68 :xnp3(3) = 69
            If np(22) = 71 Then xnp3(1) = 71:xnp3(2) = 72 :xnp3(3) = 73
            If np(22) = 74 Then xnp3(1) = 74:xnp3(2) = 75 :xnp3(3) = 76
            If np(22) = 77 Then xnp3(1) = 77:xnp3(2) = 78 :xnp3(3) = 79
            If np(22) = 82 Then xnp3(1) = 81:xnp3(2) = 82 :xnp3(3) = 83
            If np(22) = 85 Then xnp3(1) = 84:xnp3(2) = 85 :xnp3(3) = 86
            If np(22) = 88 Then xnp3(1) = 87:xnp3(2) = 88 :xnp3(3) = 89
            If k1 = 1 Then
                numeri(1) =(xnp3(1))
                numeri(2) =(xnp3(2))
                numeri(3) =(xnp3(3))
            End If
            If k1 = 2 Then
                numeri(4) =(xnp3(1))
                numeri(5) =(xnp3(2))
                numeri(6) =(xnp3(3))
            End If
            If k1 = 3 Then
                numeri(7) =(xnp3(1))
                numeri(8) =(xnp3(2))
                numeri(9) =(xnp3(3))
            End If
            If k1 = 4 Then
                numeri(10) =(xnp3(1))
                numeri(11) =(xnp3(2))
                numeri(12) =(xnp3(3))
            End If
            If k1 = 5 Then
                numeri(13) =(xnp3(1))
                numeri(14) =(xnp3(2))
                numeri(15) =(xnp3(3))
            End If
        Next
        EliminaRipetuti(numeri)
        c1 = 15

        Call VerificaEsito(numeri,ruote,es + 1,2,qes,Nothing,retesito,retcolpi,retestratti,retid)
        ReDim av(8)
        av(1) = DataEstrazione(es)
        av(2) = NomeRuota(r1)
        av(3) = StringaNumeri(numeri)
        av(4) = c1
        av(5) = retesito
        av(6) = retcolpi
        av(7) = retestratti
        If retesito = "" Then av(8) = " esito non verificato "
        If retesito <> "" Then av(8) = DataEstrazione(retid)
        Call AddRigaTabella(av,,,3)
    Next
Call CreaTabella


End Sub
 
Ultima modifica:
Ciao.

Giusto quanto scrive ilegend,

devi aggiungere CreaTabella subito prima di End Sub.

Poi c1= (numeri) ... dopo EliminaRipetuti (numeri)

è difficile da capire cosa dovrebbe/vorrebbe fare.

Somunque sia per evitare l'errore di "tipo non corrispondente"

bisogna remmare av(4) = C1

e dovrebbe "funzionare" un pochino meglio.

:)
 
Ciao Joe!

Grazie, avevo dimenticato - CreaTabella - quel c1 dovrebbe essere la quantità dei numeri rimasti dopo - elimina ripetuti - adesso io ho messo 15, pero non va bene, non lo sò se esiste una funzione che mi dice la quantità di numeri che ci sono in una stringa.
 
Ultima modifica:
Ciao si,

Ubound (numeri) ti restituisce il numero di numeri.

Però se tu hai dichiarato che sono 15 ... ti restituisce 15.

Quini il Redim Numeri (15) ... iniziale

lo devi spostare all'inizio di ogni ciclo e non "una-tantum"

come sarebbe dov'è.

Dopo ave raccolto i 15 numeri (3 x 5) ...

... usi EliminaRipetuti, meglio, con il parametro ",True"

e così dovrebbe funzionare.

:)
 
Joe
Allora ho messo redim numeri(15), all'inizio, poi l'ho messo anche all'inizio del ciclo k1, ho inserito il true in EliminaRipetuti, e in uscita avevo solo 3 numeri, ho fatto una marea di prove spostando alcuni parametri, variabili, ecc... ma non ho concluso niente, poi mi sono ricordato che LuigiB propio in questo topic più o meno nelle prime pagine aveva detto che se non si sapeva a priori quanti erano i numeri bisognava mettere - Preserve - quindi ho rimesso tutto come avevi suggerito tu ed all'inizio del ciclo k1, ho messo anche - Preserve - ed adesso funziona bene, c'è solo un qualcosina che non va, la data del 18-05-17 appare due volte, ma poi lo guardo in seguito, rimetto il codice,

Codice: 
Option Explicit
Sub Main
    Dim qes,estraz,clp
    Dim k1,r1,a(6),es,fin,nu,de,ca,Ini,c1
    Dim anum,bnum,cnum,dnum,nnum,z,ruote(1)
    Dim P1,P2,P3,P4,P5,P6,P7,np(22),fig(3)
    ReDim num(3),num2(3),num3(5),xnp3(3),av(8),numeri(15)
    Dim retesito,retcolpi,retestratti,retid',
    fin = EstrazioneFin
    qes = CInt(InputBox("Quante estrazioni controllare",estraz,20))
    r1 = InputBox("Inserisci numero ruota ( 1 - 10 - NAZ 12)",es,6)
    es = fin - qes
    ruote(1) = r1
    Scrivi
    ReDim at(8)
    at(1) = " data estraz. INIZIO  "
    at(2) = " Ruota "
    at(3) = " Numeri in Gioco "
    at(4) = " Conta Num "
    at(5) = " Esito "
    at(6) = " Colpo "
    at(7) = " Estratti "
    at(8) = " Data estraz. Fine "
    Call InitTabella(at,1,,3,5)
    Scrivi
    For es = es To fin
        Messaggio es
        AvanzamentoElab es,fin,es
        a(1) = Estratto(es,r1,1)
        a(2) = Estratto(es,r1,2)
        a(3) = Estratto(es,r1,3)
        a(4) = Estratto(es,r1,4)
        a(5) = Estratto(es,r1,5)
        For k1 = 1 To 5
            ReDim Preserve numeri(15)
            If k1 = 1 Then : num(1) = a(1) : num(3) = a(2)
            If k1 = 2 Then : num(1) = a(2) : num(3) = a(3)
            If k1 = 3 Then : num(1) = a(3) : num(3) = a(4)
            If k1 = 4 Then : num(1) = a(4) : num(3) = a(5)
            If k1 = 5 Then : num(1) = a(5) : num(3) = a(1)
            fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
            If fig(1) = 1 Then num(2) = 35
            If fig(1) = 2 Then num(2) = 57
            If fig(1) = 3 Then num(2) = 79
            If fig(1) = 4 Then num(2) = 92
            If fig(1) = 5 Then num(2) = 24
            If fig(1) = 6 Then num(2) = 46
            If fig(1) = 7 Then num(2) = 68
            If fig(1) = 8 Then num(2) = 81
            If fig(1) = 9 Then num(2) = 13
            P1 = StringaNumeri(num,"",True)
            np(4) = Piramide(P1,4)
            ' CALCOLI PIRAMIDI 2 E 3
            fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
            P2 = fig(2)*100 + num(1)
            np(5) = Piramide(P2,1)
            P3 = fig(2)*100 + num(3)
            np(6) = Piramide(P3,1)
            ' CALCOLI PIRAMIDI 4 E 5
            P4 = np(4)*100 + np(5)
            np(8) = Piramide(P4,2)
            P5 = np(4)*100 + np(6)
            np(10) = Piramide(P5,2)
            ' CALCOLI PIRAMIDI 6
            num2(1) = np(8)
            num2(3) = np(10)
            fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
            If fig(3) = 1 Then num2(2) = 35
            If fig(3) = 2 Then num2(2) = 57
            If fig(3) = 3 Then num2(2) = 79
            If fig(3) = 4 Then num2(2) = 92
            If fig(3) = 5 Then num2(2) = 24
            If fig(3) = 6 Then num2(2) = 46
            If fig(3) = 7 Then num2(2) = 68
            If fig(3) = 8 Then num2(2) = 81
            If fig(3) = 9 Then num2(2) = 13
            P6 = StringaNumeri(num2,"",True)
            np(14) = Piramide(P6,4)
            'CALCOLI PIRAMIDE 7
            anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
            bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
            cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
            dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
            num3(1) = np(14)
            num3(2) = np(4)
            num3(3) = anum & bnum
            num3(4) = np(4)
            num3(5) = cnum & dnum
            P7 = StringaNumeri(num3,"",True)
            np(22) = Piramide(P7,8)
            de = Decina(np(22))
            ca = Cadenza(np(22))
            If de = 9 Then de = 0
            np(22) = de & ca
            If np(22) = 03 Then xnp3(1) = 01:xnp3(2) = 02 :xnp3(3) = 03
            If np(22) = 06 Then xnp3(1) = 04:xnp3(2) = 05 :xnp3(3) = 06
            If np(22) = 09 Then xnp3(1) = 07:xnp3(2) = 08 :xnp3(3) = 09
            If np(22) = 11 Then xnp3(1) = 11:xnp3(2) = 12 :xnp3(3) = 13
            If np(22) = 14 Then xnp3(1) = 14:xnp3(2) = 15 :xnp3(3) = 16
            If np(22) = 17 Then xnp3(1) = 17:xnp3(2) = 18 :xnp3(3) = 19
            If np(22) = 22 Then xnp3(1) = 21:xnp3(2) = 22 :xnp3(3) = 23
            If np(22) = 25 Then xnp3(1) = 24:xnp3(2) = 25 :xnp3(3) = 26
            If np(22) = 28 Then xnp3(1) = 27:xnp3(2) = 28 :xnp3(3) = 29
            If np(22) = 33 Then xnp3(1) = 31:xnp3(2) = 32 :xnp3(3) = 33
            If np(22) = 36 Then xnp3(1) = 34:xnp3(2) = 35 :xnp3(3) = 36
            If np(22) = 39 Then xnp3(1) = 37:xnp3(2) = 38 :xnp3(3) = 39
            If np(22) = 41 Then xnp3(1) = 41:xnp3(2) = 42 :xnp3(3) = 43
            If np(22) = 44 Then xnp3(1) = 44:xnp3(2) = 45 :xnp3(3) = 46
            If np(22) = 47 Then xnp3(1) = 47:xnp3(2) = 48 :xnp3(3) = 49
            If np(22) = 52 Then xnp3(1) = 51:xnp3(2) = 52 :xnp3(3) = 53
            If np(22) = 55 Then xnp3(1) = 54:xnp3(2) = 55 :xnp3(3) = 56
            If np(22) = 58 Then xnp3(1) = 57:xnp3(2) = 58 :xnp3(3) = 59
            If np(22) = 63 Then xnp3(1) = 61:xnp3(2) = 62 :xnp3(3) = 63
            If np(22) = 66 Then xnp3(1) = 64:xnp3(2) = 65 :xnp3(3) = 66
            If np(22) = 69 Then xnp3(1) = 67:xnp3(2) = 68 :xnp3(3) = 69
            If np(22) = 71 Then xnp3(1) = 71:xnp3(2) = 72 :xnp3(3) = 73
            If np(22) = 74 Then xnp3(1) = 74:xnp3(2) = 75 :xnp3(3) = 76
            If np(22) = 77 Then xnp3(1) = 77:xnp3(2) = 78 :xnp3(3) = 79
            If np(22) = 82 Then xnp3(1) = 81:xnp3(2) = 82 :xnp3(3) = 83
            If np(22) = 85 Then xnp3(1) = 84:xnp3(2) = 85 :xnp3(3) = 86
            If np(22) = 88 Then xnp3(1) = 87:xnp3(2) = 88 :xnp3(3) = 89
            If k1 = 1 Then
                numeri(1) =(xnp3(1))
                numeri(2) =(xnp3(2))
                numeri(3) =(xnp3(3))
            End If
            If k1 = 2 Then
                numeri(4) =(xnp3(1))
                numeri(5) =(xnp3(2))
                numeri(6) =(xnp3(3))
            End If
            If k1 = 3 Then
                numeri(7) =(xnp3(1))
                numeri(8) =(xnp3(2))
                numeri(9) =(xnp3(3))
            End If
            If k1 = 4 Then
                numeri(10) =(xnp3(1))
                numeri(11) =(xnp3(2))
                numeri(12) =(xnp3(3))
            End If
            If k1 = 5 Then
                numeri(13) =(xnp3(1))
                numeri(14) =(xnp3(2))
                numeri(15) =(xnp3(3))
            End If
        Next
        EliminaRipetuti(numeri),True
        c1 = UBound(numeri)
        Call VerificaEsito(numeri,ruote,es + 1,2,qes,Nothing,retesito,retcolpi,retestratti,retid)
        ReDim av(8)
        av(1) = DataEstrazione(es)
        av(2) = NomeRuota(r1)
        av(3) = StringaNumeri(numeri)
        av(4) = c1
        av(5) = retesito
        av(6) = retcolpi
        av(7) = retestratti
        If retesito = "" Then av(8) = " esito non verificato "
        If retesito <> "" Then av(8) = DataEstrazione(retid)
        Call AddRigaTabella(av,,,3)
    Next
    Call CreaTabella
End Sub
 
Ultima modifica:
Ciao Salvo.

Intendevo un qualcosa di un pò diverso,

ed ammetto che mi è difficile capire e/o poter affermare se è + giusto ... o meno.

Dunque ho modificato un pochino il tuo script per rendere esplicito quanto detto. lasciando evidenziate le modifiche.

Codice: 
Option Explicit
Sub Main
	Dim qes,estraz,clp
	Dim k1,r1,a(6),es,fin,nu,de,ca,Ini,c1
	Dim anum,bnum,cnum,dnum,nnum,z,ruote(1)
	Dim P1,P2,P3,P4,P5,P6,P7,np(22),fig(3)
	ReDim num(3),num2(3),num3(5),xnp3(3),av(8),numeri(15)
	Dim retesito,retcolpi,retestratti,retid',
	fin = EstrazioneFin
	qes = CInt(InputBox("Quante estrazioni controllare",estraz,20))
	r1 = InputBox("Inserisci numero ruota ( 1 - 10 - NAZ 12)",es,6)
	es = fin - qes
	ruote(1) = r1
	Scrivi
	ReDim at(8)
	at(1) = " data estraz. INIZIO  "
	at(2) = " Ruota "
	at(3) = " Numeri in Gioco "
	at(4) = " Conta Num "
	at(5) = " Esito "
	at(6) = " Colpo "
	at(7) = " Estratti "
	at(8) = " Data estraz. Fine "
	Call InitTabella(at,1,,3,5)
	Scrivi
	For es = es To fin
		Messaggio es
		AvanzamentoElab es,fin,es
		ReDim numeri(15) '<<<<<<<<<<<<<<<
		a(1) = Estratto(es,r1,1)
		a(2) = Estratto(es,r1,2)
		a(3) = Estratto(es,r1,3)
		a(4) = Estratto(es,r1,4)
		a(5) = Estratto(es,r1,5)
		For k1 = 1 To 5
			'ReDim Preserve numeri(15)
			If k1 = 1 Then : num(1) = a(1) : num(3) = a(2)
			If k1 = 2 Then : num(1) = a(2) : num(3) = a(3)
			If k1 = 3 Then : num(1) = a(3) : num(3) = a(4)
			If k1 = 4 Then : num(1) = a(4) : num(3) = a(5)
			If k1 = 5 Then : num(1) = a(5) : num(3) = a(1)
			fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
			If fig(1) = 1 Then num(2) = 35
			If fig(1) = 2 Then num(2) = 57
			If fig(1) = 3 Then num(2) = 79
			If fig(1) = 4 Then num(2) = 92
			If fig(1) = 5 Then num(2) = 24
			If fig(1) = 6 Then num(2) = 46
			If fig(1) = 7 Then num(2) = 68
			If fig(1) = 8 Then num(2) = 81
			If fig(1) = 9 Then num(2) = 13
			P1 = StringaNumeri(num,"",True)
			np(4) = Piramide(P1,4)
			' CALCOLI PIRAMIDI 2 E 3
			fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
			P2 = fig(2)*100 + num(1)
			np(5) = Piramide(P2,1)
			P3 = fig(2)*100 + num(3)
			np(6) = Piramide(P3,1)
			' CALCOLI PIRAMIDI 4 E 5
			P4 = np(4)*100 + np(5)
			np(8) = Piramide(P4,2)
			P5 = np(4)*100 + np(6)
			np(10) = Piramide(P5,2)
			' CALCOLI PIRAMIDI 6
			num2(1) = np(8)
			num2(3) = np(10)
			fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
			If fig(3) = 1 Then num2(2) = 35
			If fig(3) = 2 Then num2(2) = 57
			If fig(3) = 3 Then num2(2) = 79
			If fig(3) = 4 Then num2(2) = 92
			If fig(3) = 5 Then num2(2) = 24
			If fig(3) = 6 Then num2(2) = 46
			If fig(3) = 7 Then num2(2) = 68
			If fig(3) = 8 Then num2(2) = 81
			If fig(3) = 9 Then num2(2) = 13
			P6 = StringaNumeri(num2,"",True)
			np(14) = Piramide(P6,4)
			'CALCOLI PIRAMIDE 7
			anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
			bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
			cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
			dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
			num3(1) = np(14)
			num3(2) = np(4)
			num3(3) = anum & bnum
			num3(4) = np(4)
			num3(5) = cnum & dnum
			P7 = StringaNumeri(num3,"",True)
			np(22) = Piramide(P7,8)
			de = Decina(np(22))
			ca = Cadenza(np(22))
			If de = 9 Then de = 0
			np(22) = de & ca
			If np(22) = 03 Then xnp3(1) = 01:xnp3(2) = 02 :xnp3(3) = 03
			If np(22) = 06 Then xnp3(1) = 04:xnp3(2) = 05 :xnp3(3) = 06
			If np(22) = 09 Then xnp3(1) = 07:xnp3(2) = 08 :xnp3(3) = 09
			If np(22) = 11 Then xnp3(1) = 11:xnp3(2) = 12 :xnp3(3) = 13
			If np(22) = 14 Then xnp3(1) = 14:xnp3(2) = 15 :xnp3(3) = 16
			If np(22) = 17 Then xnp3(1) = 17:xnp3(2) = 18 :xnp3(3) = 19
			If np(22) = 22 Then xnp3(1) = 21:xnp3(2) = 22 :xnp3(3) = 23
			If np(22) = 25 Then xnp3(1) = 24:xnp3(2) = 25 :xnp3(3) = 26
			If np(22) = 28 Then xnp3(1) = 27:xnp3(2) = 28 :xnp3(3) = 29
			If np(22) = 33 Then xnp3(1) = 31:xnp3(2) = 32 :xnp3(3) = 33
			If np(22) = 36 Then xnp3(1) = 34:xnp3(2) = 35 :xnp3(3) = 36
			If np(22) = 39 Then xnp3(1) = 37:xnp3(2) = 38 :xnp3(3) = 39
			If np(22) = 41 Then xnp3(1) = 41:xnp3(2) = 42 :xnp3(3) = 43
			If np(22) = 44 Then xnp3(1) = 44:xnp3(2) = 45 :xnp3(3) = 46
			If np(22) = 47 Then xnp3(1) = 47:xnp3(2) = 48 :xnp3(3) = 49
			If np(22) = 52 Then xnp3(1) = 51:xnp3(2) = 52 :xnp3(3) = 53
			If np(22) = 55 Then xnp3(1) = 54:xnp3(2) = 55 :xnp3(3) = 56
			If np(22) = 58 Then xnp3(1) = 57:xnp3(2) = 58 :xnp3(3) = 59
			If np(22) = 63 Then xnp3(1) = 61:xnp3(2) = 62 :xnp3(3) = 63
			If np(22) = 66 Then xnp3(1) = 64:xnp3(2) = 65 :xnp3(3) = 66
			If np(22) = 69 Then xnp3(1) = 67:xnp3(2) = 68 :xnp3(3) = 69
			If np(22) = 71 Then xnp3(1) = 71:xnp3(2) = 72 :xnp3(3) = 73
			If np(22) = 74 Then xnp3(1) = 74:xnp3(2) = 75 :xnp3(3) = 76
			If np(22) = 77 Then xnp3(1) = 77:xnp3(2) = 78 :xnp3(3) = 79
			If np(22) = 82 Then xnp3(1) = 81:xnp3(2) = 82 :xnp3(3) = 83
			If np(22) = 85 Then xnp3(1) = 84:xnp3(2) = 85 :xnp3(3) = 86
			If np(22) = 88 Then xnp3(1) = 87:xnp3(2) = 88 :xnp3(3) = 89
			If k1 = 1 Then
				numeri(1) =(xnp3(1))
				numeri(2) =(xnp3(2))
				numeri(3) =(xnp3(3))
			End If
			If k1 = 2 Then
				numeri(4) =(xnp3(1))
				numeri(5) =(xnp3(2))
				numeri(6) =(xnp3(3))
			End If
			If k1 = 3 Then
				numeri(7) =(xnp3(1))
				numeri(8) =(xnp3(2))
				numeri(9) =(xnp3(3))
			End If
			If k1 = 4 Then
				numeri(10) =(xnp3(1))
				numeri(11) =(xnp3(2))
				numeri(12) =(xnp3(3))
			End If
			If k1 = 5 Then
				numeri(13) =(xnp3(1))
				numeri(14) =(xnp3(2))
				numeri(15) =(xnp3(3))
			End If
		Next
		Call EliminaRipetuti(numeri,True)
		c1 = UBound(numeri)
		Call VerificaEsito(numeri,ruote,es + 1,2,qes,Nothing,retesito,retcolpi,retestratti,retid)
		ReDim av(8)
		av(1) = DataEstrazione(es)
		av(2) = NomeRuota(r1)
		av(3) = StringaNumeri(numeri,,True)
		av(4) = c1
		av(5) = retesito
		av(6) = retcolpi
		av(7) = retestratti
		If retesito = "" Then av(8) = " esito non verificato "
		If retesito <> "" Then av(8) = DataEstrazione(retid)
		Call AddRigaTabella(av,,,3)
	Next
	Call CreaTabella
End Sub

:)
 
Ciao Joe!
Pensa che quando io ho visto che non andava bene ed ho iniziato a spostare - redim numeri (15) - un po dappertutto avevo pensato di metterlo anche dove l'hai messo tu, ma poi l'ho scartato perchè, anche adesso mi sembra impossibile che messo fuori del ciclo k1, funzioni, comunque funziona bene anche così.
 
Ultima modifica:
ciao

se ti servono altri QUADRATO INTELLETTUALE

91 12 23 34 45 56 67 78 89
92 13 24 35 46 57 68 79 81
93 14 25 36 47 58 69 71 82
94 15 26 37 48 59 61 72 83
95 16 27 38 49 51 62 73 84
96 17 28 39 41 52 63 74 85
97 18 29 31 42 53 64 75 86
98 19 21 32 43 54 65 76 87
99 11 22 33 44 55 66 77 88
 
Ultima modifica:
avio;n2066695 ha scritto:
ciao

se ti servono altri QUADRATO INTELLETTUALE

91 12 23 34 45 56 67 78 89
92 13 24 35 46 57 68 79 81
93 14 25 36 47 58 69 71 82
94 15 26 37 48 59 61 72 83
95 16 27 38 49 51 62 73 84
96 17 28 39 41 52 63 74 85
97 18 29 31 42 53 64 75 86
98 19 21 32 43 54 65 76 87
99 11 22 33 44 55 66 77 88
Clicca per espandere...

Ciao a Tutti!

Qualche mese fa anch'io avevo cercato tutte le combinazioni QUADRATO INTELLETTUALE quindi quando hai postato questi, ho pensato,guarda anche Avio ha avuto la mia stessa idea, però guardandoli attentamente mi sono accorto che non è così, io quando ho fatto tutte le combinazioni, ho cercato di farli il più possibile con le caratteristiche dell'originale, cioè si vede che tra un numero e quello successivo c'è una distanza di 22, in un solo passaggio c'è la distanza di 13 , se i nove numeri si mettono in circolo e si segnano solo le distanze, la distanza 13 appare una sola volta insieme alle distanze 22, invece tu l'hai unificato tutte con distanza 11, quindi è ottimo anche quello che hai fatto tu, però non rispetta l'originale di Pico Della Mirandola, avevo messo anche gli zerati ed è l'unica combinazione che non rispetta le distanze sopra citate, con gli zerati c'è solo la distanza 20.


[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 272"]
[TR]
[TD="width: 21, align: right"]31[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]53[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]75[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]97[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]29[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]42[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]64[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]86[/TD]
[TD="width: 21"] [/TD]
[TD="width: 21, align: right"]18[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]32[/TD]
[TD] [/TD]
[TD="align: right"]54[/TD]
[TD] [/TD]
[TD="align: right"]76[/TD]
[TD] [/TD]
[TD="align: right"]98[/TD]
[TD] [/TD]
[TD="align: right"]21[/TD]
[TD] [/TD]
[TD="align: right"]43[/TD]
[TD] [/TD]
[TD="align: right"]65[/TD]
[TD] [/TD]
[TD="align: right"]87[/TD]
[TD] [/TD]
[TD="align: right"]19[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]33[/TD]
[TD] [/TD]
[TD="align: right"]55[/TD]
[TD] [/TD]
[TD="align: right"]77[/TD]
[TD] [/TD]
[TD="align: right"]99[/TD]
[TD] [/TD]
[TD="align: right"]22[/TD]
[TD] [/TD]
[TD="align: right"]44[/TD]
[TD] [/TD]
[TD="align: right"]66[/TD]
[TD] [/TD]
[TD="align: right"]88[/TD]
[TD] [/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]34[/TD]
[TD] [/TD]
[TD="align: right"]56[/TD]
[TD] [/TD]
[TD="align: right"]78[/TD]
[TD] [/TD]
[TD="align: right"]91[/TD]
[TD] [/TD]
[TD="align: right"]23[/TD]
[TD] [/TD]
[TD="align: right"]45[/TD]
[TD] [/TD]
[TD="align: right"]67[/TD]
[TD] [/TD]
[TD="align: right"]89[/TD]
[TD] [/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]35[/TD]
[TD] [/TD]
[TD="align: right"]57[/TD]
[TD] [/TD]
[TD="align: right"]79[/TD]
[TD] [/TD]
[TD="align: right"]92[/TD]
[TD] [/TD]
[TD="align: right"]24[/TD]
[TD] [/TD]
[TD="align: right"]46[/TD]
[TD] [/TD]
[TD="align: right"]68[/TD]
[TD] [/TD]
[TD="align: right"]81[/TD]
[TD="class: xl65"] [/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD="class: xl66"] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]36[/TD]
[TD="class: xl66"] [/TD]
[TD="align: right"]58[/TD]
[TD] [/TD]
[TD="align: right"]71[/TD]
[TD] [/TD]
[TD="align: right"]93[/TD]
[TD="class: xl66"] [/TD]
[TD="align: right"]25[/TD]
[TD] [/TD]
[TD="align: right"]47[/TD]
[TD] [/TD]
[TD="align: right"]69[/TD]
[TD] [/TD]
[TD="align: right"]82[/TD]
[TD] [/TD]
[TD="align: right"]14[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]37[/TD]
[TD] [/TD]
[TD="class: xl68, align: right"]59[/TD]
[TD] [/TD]
[TD="align: right"]72[/TD]
[TD] [/TD]
[TD="align: right"]94[/TD]
[TD] [/TD]
[TD="align: right"]26[/TD]
[TD] [/TD]
[TD="align: right"]48[/TD]
[TD] [/TD]
[TD="align: right"]61[/TD]
[TD] [/TD]
[TD="align: right"]83[/TD]
[TD] [/TD]
[TD="align: right"]15[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD="class: xl67"] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]38[/TD]
[TD] [/TD]
[TD="align: right"]51[/TD]
[TD] [/TD]
[TD="align: right"]73[/TD]
[TD] [/TD]
[TD="class: xl68, align: right"]95[/TD]
[TD] [/TD]
[TD="align: right"]27[/TD]
[TD] [/TD]
[TD="align: right"]49[/TD]
[TD] [/TD]
[TD="align: right"]62[/TD]
[TD] [/TD]
[TD="align: right"]84[/TD]
[TD] [/TD]
[TD="align: right"]16[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]39[/TD]
[TD] [/TD]
[TD="align: right"]52[/TD]
[TD] [/TD]
[TD="align: right"]74[/TD]
[TD] [/TD]
[TD="align: right"]96[/TD]
[TD] [/TD]
[TD="align: right"]28[/TD]
[TD] [/TD]
[TD="align: right"]41[/TD]
[TD] [/TD]
[TD="align: right"]63[/TD]
[TD] [/TD]
[TD="align: right"]85[/TD]
[TD] [/TD]
[TD="align: right"]17[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[TD="class: xl66"]*[/TD]
[/TR]
[TR]
[TD="align: right"]30[/TD]
[TD] [/TD]
[TD="align: right"]50[/TD]
[TD] [/TD]
[TD="align: right"]70[/TD]
[TD] [/TD]
[TD="align: right"]90[/TD]
[TD] [/TD]
[TD="align: right"]20[/TD]
[TD="class: xl65"] [/TD]
[TD="align: right"]40[/TD]
[TD] [/TD]
[TD="align: right"]60[/TD]
[TD] [/TD]
[TD="align: right"]80[/TD]
[TD] [/TD]
[TD="align: right"]10[/TD]
[/TR]
[/TABLE]
 
Ciao a Tutti!
Dato che, più o meno, sono riuscito con l'aiuto di Joe e di Mike a usare le tabelle, ho deciso di fare la ricerca con 20 numeri, questi 20 numeri sono: 10 numeri ricavati dai 10 ambi che si formano con 5 numeri, più altri 10 numeri ricavati con i primi 10 ambi invertiti, che come abbiamo già constatato invertendo i numeri dell'ambo, il numero risultante cambia, nello script ho messo i numeri del QUADRATO INTELLETTUALE, ma ciunque abbia voglia e tempo, potrebbe cambiarli con le sequenze diverse trovate da Avio oppure con le mie.

Codice: 
Option Explicit
Dim fig(3),num(3)
Sub Main
    Dim ruote(1),qes,estraz
    Dim k1,r1,a(6),es,fin,B,de,ca,Ini,k2
    Dim anum,bnum,cnum,dnum
    Dim P1,P2,P3,P4,P5,P6,P7,np(22)
    Dim c1,retesito,retcolpi,retestratti,retid
    ReDim num2(3),nu(20),num3(5)
    fin = EstrazioneFin
    qes = InputBox("Quante estrazioni controllare",estraz,400)
    r1 = InputBox("Inserisci numero ruota ( 1 - 10 - NAZ 12)",es,3)
    ruote(1) = r1
    Ini = fin - qes
    ReDim at(8)
    at(1) = " data estraz. INIZIO  "
    at(2) = " Ruota "
    at(3) = " Numeri in Gioco "
    at(4) = " Conta Num "
    at(5) = " Esito "
    at(6) = " Colpo "
    at(7) = " Estratti "
    at(8) = " Data estraz. Fine "
    Call InitTabella(at,1,,3,5)
    Scrivi
    For es = Ini To fin
        Messaggio es
        AvanzamentoElab Ini,fin,es
        a(1) = Estratto(es,r1,1)
        a(2) = Estratto(es,r1,2)
        a(3) = Estratto(es,r1,3)
        a(4) = Estratto(es,r1,4)
        a(5) = Estratto(es,r1,5)
        ReDim nu(20)
        For k1 = 1 To 20
            If k1 = 1 Then : num(1) = a(1) : num(3) = a(2)
            If k1 = 2 Then : num(1) = a(1) : num(3) = a(3)
            If k1 = 3 Then : num(1) = a(1) : num(3) = a(4)
            If k1 = 4 Then : num(1) = a(1) : num(3) = a(5)
            If k1 = 5 Then : num(1) = a(2) : num(3) = a(3)
            If k1 = 6 Then : num(1) = a(2) : num(3) = a(4)
            If k1 = 7 Then : num(1) = a(2) : num(3) = a(5)
            If k1 = 8 Then : num(1) = a(3) : num(3) = a(4)
            If k1 = 9 Then : num(1) = a(3) : num(3) = a(5)
            If k1 = 10 Then : num(1) = a(4) : num(3) = a(5)
            If k1 = 11 Then : num(1) = a(2) : num(3) = a(1)
            If k1 = 12 Then : num(1) = a(3) : num(3) = a(1)
            If k1 = 13 Then : num(1) = a(4) : num(3) = a(1)
            If k1 = 14 Then : num(1) = a(5) : num(3) = a(1)
            If k1 = 15 Then : num(1) = a(3) : num(3) = a(2)
            If k1 = 16 Then : num(1) = a(4) : num(3) = a(2)
            If k1 = 17 Then : num(1) = a(5) : num(3) = a(2)
            If k1 = 18 Then : num(1) = a(4) : num(3) = a(3)
            If k1 = 19 Then : num(1) = a(5) : num(3) = a(3)
            If k1 = 20 Then : num(1) = a(5) : num(3) = a(4)
            fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
            fig(2) = fig(1)
            Secondonumero
            P1 = StringaNumeri(num,"",True)
            np(4) = Piramide(P1,4)
            ' CALCOLI PIRAMIDI 2 E 3
            fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
            P2 = fig(2)*100 + num(1)
            np(5) = Piramide(P2,1)
            P3 = fig(2)*100 + num(3)
            np(6) = Piramide(P3,1)
            ' CALCOLI PIRAMIDI 4 E 5
            P4 = np(4)*100 + np(5)
            np(8) = Piramide(P4,2)
            P5 = np(4)*100 + np(6)
            np(10) = Piramide(P5,2)
            ' CALCOLI PIRAMIDI 6
            num2(1) = np(8)
            num2(3) = np(10)
            fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
            fig(2) = fig(3)
            Secondonumero
            P6 = StringaNumeri(num2,"",True)
            np(14) = Piramide(P6,4)
            'CALCOLI PIRAMIDE 7
            anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
            bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
            cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
            dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
            num3(1) = np(14)
            num3(2) = np(4)
            num3(3) = anum & bnum
            num3(4) = np(4)
            num3(5) = cnum & dnum
            P7 = StringaNumeri(num3,"",True)
            np(22) = Piramide(P7,8)
            de = Decina(np(22))
            ca = Cadenza(np(22))
            If de = 9 Then de = 0
            np(22) = de & ca
            For k2 = k1 To k1
                nu(k2) = np(22)
            Next
        Next
        EliminaRipetuti(nu),True
        c1 = UBound(nu)
        Call VerificaEsito(nu,ruote,es + 1,2,qes,Nothing,retesito,retcolpi,retestratti,retid)
        ReDim av(8)
        av(1) = DataEstrazione(es)
        av(2) = NomeRuota(r1)
        av(3) = StringaNumeri(nu)
        av(4) = c1
        av(5) = retesito
        av(6) = retcolpi
        av(7) = retestratti
        If retesito = "" Then av(8) = " esito non verificato "
        If retesito <> "" Then av(8) = DataEstrazione(retid)
        Call AddRigaTabella(av,,,3)
    Next
    Call CreaTabella
End Sub
Function Secondonumero
    If fig(2) = 1 Then num(2) = 35
    If fig(2) = 2 Then num(2) = 57
    If fig(2) = 3 Then num(2) = 79
    If fig(2) = 4 Then num(2) = 92
    If fig(2) = 5 Then num(2) = 24
    If fig(2) = 6 Then num(2) = 46
    If fig(2) = 7 Then num(2) = 68
    If fig(2) = 8 Then num(2) = 81
    If fig(2) = 9 Then num(2) = 13
End Function
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto