4 quartine

[genios]

Avendo 4 matrici di 4 numeri usando la funzione Ritardo Storico come posso fare per trovare quale sia stato il ritardo storico per la sorte di ambo di almeno una quartina delle quattro in questione .

Numeri(1,1) = 1
Numeri(2,1) = 10
Numeri(3,1) = 11
Numeri(4,1) = 19

Numeri(1,2) = 2
Numeri(2,2) = 20
Numeri(3,2) = 22
Numeri(4,2) = 29


Numeri(1,3) = 3
Numeri(2,3) = 30
Numeri(3,3) = 33
Numeri(4,3) = 39


Numeri(1,4) = 6
Numeri(2,4) = 60
Numeri(3,4) = 66
Numeri(4,4) = 69

Saluti Eugenio

 

[claudio8]

quale è la funzione Ritardo Storico, non la trovo nell'help.

 

[genios]

Scusa claudio8 ho sbagliato io la funzione é : SerieStorico

SerieStorico




Function SerieStorico(Inizio, Fine, VetNumeri, vetRuote, Sorte, Optional tipogioco = 0, Optional Jolly = False, Optional idArchivio = 0) As Long




Descrizione

Analizza una determinata combinazione di numeri per una data sorte entro un certo range di estrazioni su una data ruota e torna il ritardo storico per la sorte specificata




Note




Valore di ritorno

torna il ritardo storico per la sorte specificata




Parametri

Inizio	Range Inizio
Fine	Range Fine
VetNumeri	E' il vettore che contiene i numeri da porre in gioco viene utilizzato a partire dall'indice 1
vetRuote	E' il vettore che consente di specificare le ruote interessate. Se la giocata avviene su due ruote può essere definito con Dim vetRuote(2) . e se le ruote in gioco fossero Bari e Venezia andrebbe poi valorizzato con : vetRuote(1) = BA_ vetRuote(2) = VE_
Sorte	Valore numerico che identifica la sorte (o la classe)
Optional tipogioco = 0	Non usato
Optional Jolly = False	Non usato
Optional idArchivio = 0	Indentificativo dell'archivio da usare

 

[claudio8]

Ciao, presumo che tu abbia da inserire questa tua richiesta in uno script e che hai trovato difficoltà nello specifico, perchè non ti sei adeguatamente applicato , questo vuol dire che usi la "canna da pesca" ma che non sei ancora sufficentemente pratico per cui per ora ed in casi simili ti passo il "pescato" per sostenerti nella crescita. (scherzo)

Come forse non hai notato, nella directory degli script c'è ne è una denominata Test, dove troverai il "test_serieEstrStorico", cioè l'esempio di utilizzo della funzione SerieStorico con SerieEstrazioneStorico. ( sappi che ho dovuto fare questo percorso anche io perchè non è semplice avere a memoria tutto ).

Concettualmente dovresti creare una array contenente di volta in volta i 4 numeri che compongono la quartina da analizzare

Dim NU1(4) 'dimensiono la array o vettore che dir si voglia
Dim nu(1) ' idem
ru(1)=1 'BA definiscola ruota
Dim sorte
sorte = 2
NU1(1) = numeri(1,1) ' = 1 definisco i numeri che prendo dalla Martice bidimensionale "numeri(.,.) "
NU1(2) = numeri(2,1) ' = 10
NU1(3) = numeri(3,1) ' = 11
NU1(4) = numeri(4,1) ' = 19
e quindi ad ogni array devo passare i parametri che occorrono di volta in volta che utilizzo la funzione
rs = SerieStorico(8000,9350,NU1,ru,sorte) per poi scrivere in output
Scrivi " ritardo storico ad " & NomeSorte(sorte) & " dei i numeri " & StringaNumeri (NU1,"-") & " a " & SiglaRuota(ru(1))
tutto questo x 4 volte cambiando a NU da 1 a 4 (NU1, NU2,NU3,NU4 con specificati i vari numeri(x,y))

ma esiste un modo + veloce: fare un ciclo For...next per velocizzare il tutto
ti allego il costrutto.

 Sub Main
    Dim numeri(4,4)
    Dim x,rs,y
    Dim NU(4)
    Dim ru(1)
    y = ScegliRuota
    ru(1) = y
    Dim sorte
    sorte = 2
    ''
    numeri(1,1) = 1
    numeri(2,1) = 10
    numeri(3,1) = 11
    numeri(4,1) = 19
    ''
    numeri(1,2) = 2
    numeri(2,2) = 20
    numeri(3,2) = 22
    numeri(4,2) = 29
    ''
    numeri(1,3) = 3
    numeri(2,3) = 30
    numeri(3,3) = 33
    numeri(4,3) = 39
    ''
    numeri(1,4) = 6
    numeri(2,4) = 60
    numeri(3,4) = 66
    numeri(4,4) = 69
    For x = 1 To 4
        NU(1) = numeri(1,x)
        NU(2) = numeri(2,x)
        NU(3) = numeri(3,x)
        NU(4) = numeri(4,x)
        rs = SerieStorico(8000,9350,NU,ru,sorte)
        Scrivi " Ritardo storico ad " & NomeSorte(sorte) & " dei i numeri " & StringaNumeri(NU,"-") & " a " & SiglaRuota(ru(1)) & " è " & rs
    Next
End Sub

Spero di esserti stato utile e di averti aiutato nell'applicare il concetto costruttivo del "costrutto"
Un saluto, ... alla prossima.


PS: ti consiglio di salvarti questo script nella directoty sopra citata con questo nome: "Test_SerieStorico con multi blocchi" in modo che nel futuro potrai riutilizzarlo.

 

[i legend]

Ciao a tutti
Claudio ottimo , ma se posso suggerire , per scrivere meno codice potresti fare un ciclo esterno che scorre la matrice nel caso in cui anziché 4 righe ne avessi 1000 .
ciao

 

[claudio8]

Ciao a tutti
Claudio ottimo , ma se posso suggerire , per scrivere meno codice potresti fare un ciclo esterno che scorre la matrice nel caso in cui anziché 4 righe ne avessi 1000 .
ciao

Fai pure I legend, è tutto ben accetto.

 

[genios]

Grazie Claudio8 dei tuoi insegnamenti e del tuo script . Ma lo script che volevo deduco sia molto più complicato da fare . Grazie anche del consiglio sull' uso della funzione SerieStorico. Ma quello che volevo fare era di conoscere i max raggiunti dalle 4 quartine in questione su tutte le ruote per l' uscita di almeno una delle stesse . Naturalmente non si gioca su tutte le ruote ma solo sulle ruote dove le quartine hanno raggiunto il max ritardo o sono prossime al max ritardo.
Quindi lo script dovrebbe trovare il max storico di :

4 quartine tutte su una ruota . ( 11 combinazioni una per ciascuna delle ruote circa )
3 quartine tutte su una ruota e 1 sulle restanti ruote . ( 110 combinazioni circa )
2 quartine tutte su una ruota e 2 su un altra ruota . ( 110 combinazioni circa )
2 quartine tutte su una ruota e 1 su un altra ruota e 1 su un altra ruota ancora .( 1100 combinazioni circa )
1 quartina su una ruota 1 quartina su altra ruota e 1 su un altra ruota ancora e 1 su un altra ruota ancora ( 70 combinazioni ) .

Ciao Eugenio

 

[genios]

Io pensavo come primo step di applicare dall' inizio dell' archivio lotto il seguente script ( non mi ricordo chi me lo fece una decina di anni fa' ) da me leggermente modificato .

Sub Main()

Dim Numeri(4,4)
Dim c(4)
Dim risultati(44,3)
Dim ruota(1)

Numeri(1,1) = 2
Numeri(2,1) = 20
Numeri(3,1) = 22
Numeri(4,1) = 29

Numeri(1,2) = 2
Numeri(2,2) = 20
Numeri(3,2) = 22
Numeri(4,2) = 29

Numeri(1,3) = 7
Numeri(2,3) = 70
Numeri(3,3) = 77
Numeri(4,3) = 79

Numeri(1,4) = 4
Numeri(2,4) = 40
Numeri(3,4) = 44
Numeri(4,4) = 49

For i = 1 To 4
For j = 1 To 4
c(j) = Numeri(j,i)
Next
For r = 1 To 11
If r=11 Then r=r+1
ruota(1) = r
co = co + 1
risultati(co,1) = StringaNumeri(c)
risultati(co,2) =(r)
risultati(co,3) = SerieRitardo(EstrazioneIni,EstrazioneFin,c,ruota,2)

Next
Next

Scrivi DataEstrazione( EstrazioneFin )&"   "&  EstrazioneFin
Scrivi
Scrivi
OrdinaMatrice risultati,- 1,3
For i = 1 To 44

Scrivi risultati(i,1) & vbTab & risultati(i,2) & vbTab & risultati(i,3) & vbTab
Next

End Sub

Come puoi vedere in out avremmo le prime quattro quartine piu' ritardate nelle varie ruote
ALL' ESTRAZIONE DEL 27.01.2018 9427

 7.70.77.79     1       352      
 4.40.44.49     10      322      
 4.40.44.49     12      245      
 2.20.22.29     1       218

Nell' estrazione successiva cioè la 9428 esce sulla ruota di BA l' ambo 2 20 possiamo quindi dire che le 4 quartine in questione hanno raggiunto un ritardo max per la sorte di una di esse di 218 estrazioni . Quindi io imposterei tale script per ogni estrazione dell' archivio ed avremo le 4 quartine piu' ritardate di ogni estrazione poi applicando la funzione verificaesito o altra funzione avremmo ad esito avvenuto il ritardo minore di caduta di una delle 4 quartine . Applicando tale procedura al susseguirsi delle estrazioni applicando se verifivaesito2 e maggiore di verificaesito1 scrivi il max minore raggiunto dalle quartine è = ad x. Sperando di essere stato chiaro .

Ciao Eugenio

 

[claudio8]

Fermati un attimo, prova con spaziometria qui:
menu' Statistiche -> Su formazioni -> Statistiche veloci.
inserisci il primo blocco di numero, ed elabora, poi inserisci senza cancellare i vecchi l'altro blocco di numeri ed elabora, e così via.
nel frattempo mi guardo il tuo script

 

[genios]

Ho provato ma mi sembra si possa inserire solo una formazione

 

[claudio8]

Genios, per ora usa questo, non ho altro tempo da dedicare, ( cerca di usare la canna da solo altrimenti sei sempre dipendente da altri) se devi apportare modifiche x i tuoi scopi ulteriori fallo, su quello possiamo vedre gli errori e darti una mano teorica.

Sub Main()
    Dim Numeri(4,4)
    Dim c(4)
    Dim risultati(44,5)
    Dim ruota(1)
    Numeri(1,1) = 2
    Numeri(2,1) = 20
    Numeri(3,1) = 22
    Numeri(4,1) = 29
    Numeri(1,2) = 2
    Numeri(2,2) = 20
    Numeri(3,2) = 22
    Numeri(4,2) = 29
    Numeri(1,3) = 7
    Numeri(2,3) = 70
    Numeri(3,3) = 77
    Numeri(4,3) = 79
    Numeri(1,4) = 4
    Numeri(2,4) = 40
    Numeri(3,4) = 44
    Numeri(4,4) = 49
    For i = 1 To 4
        For j = 1 To 4
            c(j) = Numeri(j,i)
        Next
        For r = 1 To 11
            If r = 11 Then r = r + 1
            ruota(1) = r
            co = co + 1
            risultati(co,1) = StringaNumeri(c)
            risultati(co,2) =(r)
            risultati(co,3) = SerieRitardo(EstrazioneIni,EstrazioneFin,c,ruota,2)
            If VerificaEsito(c,ruota,EstrazioneFin + 1,2,EstrazioniArchivio - EstrazioneFin,,,retcolpi,retestratti) Then
                risultati(co,4) = retcolpi
                risultati(co,5) = retestratti
            Else
                risultati(co,4) = ""
                risultati(co,5) = ""
            End If
        Next
    Next
    Scrivi DataEstrazione(EstrazioneFin) & "   " & EstrazioneFin
    Scrivi "   Numeri  Ruo  Rit  Clp    estratti"  
    Scrivi
    OrdinaMatrice risultati,- 1,3
    For i = 1 To 44
        Scrivi risultati(i,1) & vbTab & SiglaRuota(risultati(i,2)) & vbTab & risultati(i,3) & vbTab & risultati(i,4) & vbTab & risultati(i,5) & vbTab
    Next
End Sub

CIAO

 

[claudio8]

Ho provato ma mi sembra si possa inserire solo una formazione

Insersci la prima formazione ed elabora. senza cancellare niente inserisci la seconda ed elabora, idem x tutte le formazioni che vuoi.
( smanetta sulla tastiera prima di darti per sconfitto).

 

[claudio8]

Testando velocemente, lo script con un'altra estrazione precedente ha rilevato:

con range finale = 30.11.2017 9402
Numeri Ruo Rit Clp estratti
7.70.77.79 BA 327
4.40.44.49 VE 297
4.40.44.49 NZ 220
2.20.22.29 BA 193 26 BA .. .. 02 20 ..
mentre
con range finale = 27.01.2018 9427
Numeri Ruo Rit Clp estratti
7.70.77.79 BA 352
4.40.44.49 VE 322
4.40.44.49 NZ 245
2.20.22.29 BA 218 1 BA .. .. 02 20 ..

Questo significa che se ti fossi giocato le prime 4 quartine, solo oggi avresti ottenuto l'esito della quartina x BA.
La avresti dovuta giocare x 26 colpi x azzeccarla (1 su 4) in data 30.01.2018
Praticamente questo ultimo rit.max è un parametro non utilizzabile.
Una ipotesi potrbbe essere quella di utilizzare il predente ritMax e dopo che viene avvicinato o superato portare in gioco la quartina scelta, controllando l'esito. ( per lo script devi provare a fare da solo).
Ho già spiegato in questo post come funziona il rit.max

https://forum.lottoced.com/forum/lo...94838-richiesta-listato?p=2097862#post2097862

ciao

 

[genios]

Giocavo solo da 3 estrazioni spesa 45 vincita 92 . Questione di fortuna .

 

[genios]

Usando l' opzione statistica veloce di spaziometria non da l' indicazioni che volevo ma da solo il ritardo storico di una quartina e non il ritardo storico minore giocando 4 quartine per la sorte di una .

Modificando il tuo script nella riga

For i = 1 To 44
        Scrivi risultati(i,1) & vbTab & SiglaRuota(risultati(i,2)) & vbTab & risultati(i,3) & vbTab & risultati(i,4) & vbTab & risultati(i,5) & vbTab
    Next

con

 For i = 1 To 4
        Scrivi risultati(i,1) & vbTab & SiglaRuota(risultati(i,2)) & vbTab & risultati(i,3) & vbTab & risultati(i,4) & vbTab & risultati(i,5) & vbTab
    Next

ho in out

30.01.2018 9428

Numeri Ruo Rit Clp estratti

7.70.77.79 BA 353
4.40.44.49 VE 323
4.40.44.49 NZ 246
4.40.44.49 NA 181

Potresti inserire nel tuo script un ciclo sulle estrazioni in modo che per ogni estrazioni mi dia le prime 4 quartine piu' in riatrdo . Cosi impazzisco un po' ma cerco di fare una ricerca visuale .

Ciao Eugenio

 

[claudio8]

Giocavo solo da 3 estrazioni spesa 45 vincita 92 . Questione di fortuna .

Questo vuol dire che tu non hai bisogno di script poichè possiedi il fattore K...

Possibile che non riesci a creare un ciclo per le estrazioni ? Va bene..

Sub Main()
    Dim Numeri(4,4)
    Dim c(4)
    Dim risultati(44,6)
    Dim ruota(1)
    Dim es
    For es = 9000 To EstrazioneFin
        co = 0
        Numeri(1,1) = 2
        Numeri(2,1) = 20
        Numeri(3,1) = 22
        Numeri(4,1) = 29
        Numeri(1,2) = 2
        Numeri(2,2) = 20
        Numeri(3,2) = 22
        Numeri(4,2) = 29
        Numeri(1,3) = 7
        Numeri(2,3) = 70
        Numeri(3,3) = 77
        Numeri(4,3) = 79
        Numeri(1,4) = 4
        Numeri(2,4) = 40
        Numeri(3,4) = 44
        Numeri(4,4) = 49
        For i = 1 To 4
            For j = 1 To 4
                c(j) = Numeri(j,i)
            Next
            For r = 1 To 11
                If r = 11 Then r = r + 1
                ruota(1) = r
                co = co + 1
                risultati(co,1) = StringaNumeri(c)
                risultati(co,2) =(r)
                risultati(co,3) = SerieRitardo(EstrazioneIni,es,c,ruota,2) 'rit Attuale
                risultati(co,4) = RitardoCombinazione(ruota,c,2,es - risultati(co,3) - 1) 'rit precedente all'attuale
                If VerificaEsito(c,ruota,es + 1,2,EstrazioniArchivio - es,,,retcolpi,retestratti) Then
                    risultati(co,5) = retcolpi
                    risultati(co,6) = retestratti
                Else
                    risultati(co,5) = ""
                    risultati(co,6) = ""
                End If
            Next
        Next
        Scrivi DataEstrazione(es) & "   " & es
        Scrivi "   Numeri  Ruo  RAatt  RAttprec Clp    estratti"
        Scrivi
        OrdinaMatrice risultati,- 1,3
        For i = 1 To 4 '4
            Scrivi risultati(i,1) & vbTab & SiglaRuota(risultati(i,2)) & vbTab & risultati(i,3) & vbTab & risultati(i,4) & vbTab & risultati(i,5) & vbTab & risultati(i,6)' vbTab
        Next
        Scrivi " ........................................"
    Next
End Sub

approfondendo la funzione con spaziometria ho verificato che la funzione serieritardo, restituisce il rit attuale non quello max storico.
( vedi Statistiche elenco ritardi )

 

[genios]

Bene ci siamo quasi .
Mi sono permesso di modificarlo per quanto posso tenendo conto di tutte e 8 le quartine radicali .

Sub Main()
    Dim Numeri(4,8)
    Dim c(4)
    Dim risultati(88,6)
    Dim ruota(1)
    Dim es
    For es = 5567 To EstrazioneFin
        co = 0
        Numeri(1,1) = 1
        Numeri(2,1) = 10
        Numeri(3,1) = 11
        Numeri(4,1) = 19
        Numeri(1,2) = 2
        Numeri(2,2) = 20
        Numeri(3,2) = 22
        Numeri(4,2) = 29
        Numeri(1,3) = 3
        Numeri(2,3) = 30
        Numeri(3,3) = 33
        Numeri(4,3) = 39
        Numeri(1,4) = 4
        Numeri(2,4) = 40
        Numeri(3,4) = 44
        Numeri(4,4) = 49
        Numeri(1,5) = 5
        Numeri(2,5) = 50
        Numeri(3,5) = 55
        Numeri(4,5) = 59
        Numeri(1,6) = 6
        Numeri(2,6) = 60
        Numeri(3,6) = 66
        Numeri(4,6) = 69
        Numeri(1,7) = 7
        Numeri(2,7) = 70
        Numeri(3,7) = 77
        Numeri(4,7) = 79
        Numeri(1,8) = 8
        Numeri(2,8) = 80
        Numeri(3,8) = 88
        Numeri(4,8) = 89

        For i = 1 To 8
            For j = 1 To 4
                c(j) = Numeri(j,i)
            Next
            For r = 1 To 11
                If r = 11 Then r = r + 1
                ruota(1) = r
                co = co + 1
                risultati(co,1) = StringaNumeri(c)
                risultati(co,2) =(r)
                risultati(co,3) = SerieRitardo(EstrazioneIni,es,c,ruota,2) 'rit Attuale
                risultati(co,4) = RitardoCombinazione(ruota,c,2,es - risultati(co,3) - 1) 'rit precedente all'attuale
                If VerificaEsito(c,ruota,es + 1,2,EstrazioniArchivio - es,,,retcolpi,retestratti) Then
                    risultati(co,5) = retcolpi
                    risultati(co,6) = retestratti
                Else
                    risultati(co,5) = ""
                    risultati(co,6) = ""
                End If
            Next
        Next
        Scrivi DataEstrazione(es) & "   " & es
        Scrivi "   Numeri  Ruo  RAatt  RAttprec Clp    estratti"
        Scrivi
        OrdinaMatrice risultati,- 1,3
        For i = 1 To 4 '4
            Scrivi risultati(i,1) & vbTab & SiglaRuota(risultati(i,2)) & vbTab & risultati(i,3) & vbTab & risultati(i,4) & vbTab & risultati(i,5) & vbTab & risultati(i,6)' vbTab
        Next
        Scrivi " ........................................"
    Next
End Sub

Da quanto ho cominciato a vedere occorre iniziare a giocare quando il ritardo minore del gruppo di 4 quartine e sulle 220 estrazioni.

Un parametro secondo me importante è la somma dei ritardi delle 4 quartine .Potresti implementarlo ?

Con RAttprec Clp ed estratti cosa indichi ?

Grazie ottimo script da approfondire .

Ciao Eugenio

 

[claudio8]

Numeri della quartina, Ruota RitardoAattuale RitardoAttualeprecedente Colpo di esito Estratti azzeccati

 

[genios]

Ok

 

[genios]

per quale motivo mi da errore in questa riga :

risultati(co,4) = RitardoCombinazione(ruota,c,2,es - risultati(co,3) - 1) 'rit precedente all'attuale

Dove sbaglio ?

Sub Main()


Dim Numeri(5,26)
Dim c(5)
Dim risultati(286,3)
Dim ruota(1)




Dim es
For es = 5567 To EstrazioneFin
co = 0




Numeri(1,1) = 12
Numeri(2,1) = 21
Numeri(3,1) = 11
Numeri(4,1) = 22
Numeri(5,1) = 58

Numeri(1,2) = 13
Numeri(2,2) = 31
Numeri(3,2) = 11
Numeri(4,2) = 33
Numeri(5,2) = 47

Numeri(1,3) = 14
Numeri(2,3) = 41
Numeri(3,3) = 11
Numeri(4,3) = 44
Numeri(5,3) = 36

Numeri(1,4) = 15
Numeri(2,4) = 51
Numeri(3,4) = 11
Numeri(4,4) = 55
Numeri(5,4) = 25

Numeri(1,5) = 16
Numeri(2,5) = 61
Numeri(3,5) = 11
Numeri(4,5) = 66
Numeri(5,5) = 14

Numeri(1,6) = 17
Numeri(2,6) = 71
Numeri(3,6) = 11
Numeri(4,6) = 77
Numeri(5,6) = 3

Numeri(1,7) = 18
Numeri(2,7) = 81
Numeri(3,7) = 11
Numeri(4,7) = 88
Numeri(5,7) = 82

Numeri(1,8) = 23
Numeri(2,8) = 32
Numeri(3,8) = 22
Numeri(4,8) = 33
Numeri(5,8) = 36

Numeri(1,9) = 24
Numeri(2,9) = 42
Numeri(3,9) = 22
Numeri(4,9) = 44
Numeri(5,9) = 25

Numeri(1,10) = 25
Numeri(2,10) = 52
Numeri(3,10) = 22
Numeri(4,10) = 55
Numeri(5,10) = 14

Numeri(1,11) = 26
Numeri(2,11) = 62
Numeri(3,11) = 22
Numeri(4,11) = 66
Numeri(5,11) = 71

Numeri(1,12) = 34
Numeri(2,12) = 43
Numeri(3,12) = 33
Numeri(4,12) = 44
Numeri(5,12) = 14

Numeri(1,13) = 35
Numeri(2,13) = 53
Numeri(3,13) = 33
Numeri(4,13) = 55
Numeri(5,13) = 3

Numeri(1,14) = 36
Numeri(2,14) = 63
Numeri(3,14) = 33
Numeri(4,14) = 66
Numeri(5,14) = 82

Numeri(1,15) = 37
Numeri(2,15) = 73
Numeri(3,15) = 33
Numeri(4,15) = 77
Numeri(5,15) = 71

Numeri(1,16) = 38
Numeri(2,16) = 83
Numeri(3,16) = 33
Numeri(4,16) = 88
Numeri(5,16) = 60

Numeri(1,17) = 45
Numeri(2,17) = 54
Numeri(3,17) = 44
Numeri(4,17) = 55
Numeri(5,17) = 82


Numeri(1,18) = 58
Numeri(2,18) = 85
Numeri(3,18) = 55
Numeri(4,18) = 88
Numeri(5,18) = 38


Numeri(1,19) = 46
Numeri(2,19) = 64
Numeri(3,19) = 44
Numeri(4,19) = 66
Numeri(5,19) = 71

Numeri(1,20) = 47
Numeri(2,20) = 74
Numeri(3,20) = 44
Numeri(4,20) = 77
Numeri(5,20) = 60

Numeri(1,21) = 48
Numeri(2,21) = 84
Numeri(3,21) = 44
Numeri(4,21) = 88
Numeri(5,21) = 49

Numeri(1,22) = 56
Numeri(2,22) = 65
Numeri(3,22) = 55
Numeri(4,22) = 66
Numeri(5,22) = 60

Numeri(1,23) = 57
Numeri(2,23) = 75
Numeri(3,23) = 55
Numeri(4,23) = 88
Numeri(5,23) = 38

Numeri(1,24) = 67
Numeri(2,24) = 76
Numeri(3,24) = 66
Numeri(4,24) = 77
Numeri(5,24) = 38

Numeri(1,25) = 68
Numeri(2,25) = 86
Numeri(3,25) = 66
Numeri(4,25) = 88
Numeri(5,25) = 27

Numeri(1,26) = 78
Numeri(2,26) = 87
Numeri(3,26) = 77
Numeri(4,26) = 88
Numeri(5,26) = 16




For i = 1 To 26
For j = 1 To 5
c(j) = Numeri(j,i)
Next
For r = 1 To 11
If r = 11 Then r = r + 1
ruota(1) = r
co = co + 1
risultati(co,1) = StringaNumeri(c)
risultati(co,2) =(r)
risultati(co,3) = SerieRitardo(EstrazioneIni,es,c,ruota,2) 'rit Attuale
risultati(co,4) = RitardoCombinazione(ruota,c,2,es - risultati(co,3) - 1) 'rit precedente all'attuale
If VerificaEsito(c,ruota,es + 1,2,EstrazioniArchivio - es,,,retcolpi,retestratti) Then
risultati(co,5) = retcolpi
risultati(co,6) = retestratti
Else
risultati(co,5) = ""
risultati(co,6) = ""
End If
Next
Next
Scrivi DataEstrazione(es) & "   " & es
Scrivi "   Numeri  Ruo  RAatt  RAttprec Clp    estratti"
Scrivi
OrdinaMatrice risultati,- 1,3
For i = 1 To 4 '4
Scrivi risultati(i,1) & vbTab & SiglaRuota(risultati(i,2)) & vbTab & risultati(i,3) & vbTab & risultati(i,4) & vbTab & risultati(i,5) & vbTab & risultati(i,6)' vbTab
Next
Scrivi " ........................................"
Next
End Sub