Novità

4 quartine

G

genios

Advanced Member >PLATINUM<
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
Clicca per espandere...

Saluti Eugenio
 
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


[TABLE="border: 0, cellpadding: 1, cellspacing: 2"]
[TR]
[TD="align: center"]Inizio[/TD]
[TD="align: center"]Range Inizio[/TD]
[/TR]
[TR]
[TD="align: center"]Fine[/TD]
[TD="align: center"]Range Fine[/TD]
[/TR]
[TR]
[TD="align: center"]VetNumeri[/TD]
[TD="align: center"]E' il vettore che contiene i numeri da porre in gioco viene utilizzato a partire dall'indice 1[/TD]
[/TR]
[TR]
[TD="align: center"]vetRuote[/TD]
[TD="align: center"]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_[/TD]
[/TR]
[TR]
[TD="align: center"]Sorte[/TD]
[TD="align: center"]Valore numerico che identifica la sorte (o la classe)[/TD]
[/TR]
[TR]
[TD="align: center"]Optional tipogioco = 0[/TD]
[TD="align: center"]Non usato[/TD]
[/TR]
[TR]
[TD="align: center"]Optional Jolly = False[/TD]
[TD="align: center"]Non usato[/TD]
[/TR]
[TR]
[TD="align: center"]Optional idArchivio = 0[/TD]
[TD="align: center"]Indentificativo dell'archivio da usare[/TD]
[/TR]
[/TABLE]
Clicca per espandere...
 
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 :mad::mad::mad::mad:).

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 ;):p;):D:cool:
ti allego il costrutto.
Codice: 
 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.
 
Ultima modifica:
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 :)
 
i legend;n2098994 ha scritto:
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 :)
Clicca per espandere...

Fai pure I legend, è tutto ben accetto.
 
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
 
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 .
Codice: 
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
Codice: 
 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
 
Ultima modifica:
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, 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.

Codice: 
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
 
genios;n2099127 ha scritto:
Ho provato ma mi sembra si possa inserire solo una formazione
Clicca per espandere...

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).
 
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
 
Ultima modifica:
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


Codice: 
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

Codice: 
 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


HTML: 
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
 
genios;n2099147 ha scritto:
Giocavo solo da 3 estrazioni spesa 45 vincita 92 . Questione di fortuna .
Clicca per espandere...

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..


Codice: 
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 )
 
Bene ci siamo quasi .
Mi sono permesso di modificarlo per quanto posso tenendo conto di tutte e 8 le quartine radicali .

Codice: 
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
 
per quale motivo mi da errore in questa riga :

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

Dove sbaglio ?
Codice:
Codice: 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto