Novità

Listato vincente

  • Creatore Discussione Creatore Discussione Oscar
  • Data di inizio Data di inizio
O

Oscar

Guest
Lunedì parto per le ferie mi servirebbe un listato che mi faccia vincere tanti soldi al Lotto e subito
 
mmmm difficile per ora auguro buone ferie a tutti divertiamoci e rimandiamo tutto a settembre , magari come per incanto uscirà veramente un metodo che ci farà vincere qualcosa
 
Ultima modifica di un moderatore:
E con gli auguri, in regalo un mio listato spero vincente.

Codice:
Scrivi "Prima della conclusione della cinquina (Cinzia)"&Chr(10)
ColoreTesto 6
Scrivi String(80,"*")
ColoreTesto 0
Sub Main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),ru(1),nu(5),nr(5)
Dim s(5)
fin=EstrazioneFin
ini=9800
Scrivi "Estrazione finale "&Fin:Scrivi
For es=ini To fin

Messaggio(es)
For r=1 To 11
If r=11 Then r=12
 
ru(1)=r

n1(1)=Estratto(es,r,1)
n2(1)=Estratto(es,r,2)
n3(1)=Estratto(es,r,3)
n4(1)=Estratto(es,r,4)
n5(1)=Estratto(es,r,5)
nr(1)=n1(1)
nr(2)=n2(1)
nr(3)=n3(1)
nr(4)=n4(1)
nr(5)=n5(1)
fra=SerieFreq(es+1,fin-1,nr,ru,1)
'If fra>15 Then
ex=es+1
If ex<=fin Then
s(1)=SeriePrima(ex,fin-1,n1,ru,1)
s(2)=SeriePrima(ex,fin-1,n2,ru,1)
s(3)=SeriePrima(ex,fin-1,n3,ru,1)
s(4)=SeriePrima(ex,fin-1,n4,ru,1)
s(5)=SeriePrima(ex,fin-1,n5,ru,1)
OrdinaMatrice s,1
If s(1)=0 And  s(2)>0   Then
'If s(5)=0 Or s(4)=0 Or s(3)=0  Or s(2)=0 Or s(1)=0  Then
rt=fin-es
Scrivi es&" "&SiglaRuota(r)&"  "& StringaEstratti (es,r)&"  "&FormatSpace(rt,4,1)&" ---> ",0,0
frr1=SerieFreq(es+1,fin-1,n1,ru,1)
frr2=SerieFreq(es+1,fin-1,n2,ru,1)
frr3=SerieFreq(es+1,fin-1,n3,ru,1)
frr4=SerieFreq(es+1,fin-1,n4,ru,1)
frr5=SerieFreq(es+1,fin-1,n5,ru,1)
If frr1>0 Then Scrivi Format2(n1(1))&" ",0,0
If frr2>0 Then Scrivi Format2(n2(1))&" ",0,0
If frr3>0 Then Scrivi Format2(n3(1))&" ",0,0
If frr4>0 Then Scrivi Format2(n4(1))&" ",0,0
If frr5>0 Then Scrivi Format2(n5(1))&" ",0,0

fr1=SerieFreq(fin,fin,n1,ru,1)
fre1=SerieFreq(es+1,fin-1,n1,ru,1)
If fr1>0 And fre1=0 Then usc=usc+1: ColoreTesto 2:Scrivi " "&Format2(n1(1))&" ",1,0
If fr1>0 And fre1>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&Format2(n1(1))&" ",0,0
 
fr2=SerieFreq(fin,fin,n2,ru,1)
fre2=SerieFreq(es+1,fin-2,n1,ru,1)
If fr2>0 And fre1=0 Then usc=usc+1:ColoreTesto 2:Scrivi " "&Format2(n2(1))&" ",1,0
If fr2>0 And fre1>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&Format2(n2(1))&" ",0,0

fr3=SerieFreq(fin,fin,n3,ru,1)
fre3=SerieFreq(es+1,fin-1,n3,ru,1)
If fr3>0 And fre3=0 Then usc=usc+1:ColoreTesto 2:Scrivi " "&Format2(n3(1))&" ",1,0
If fr3>0 And fre3>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&Format2(n3(1))&" ",0,0

fr4=SerieFreq(fin,fin,n4,ru,1)
fre4=SerieFreq(es+1,fin-1,n4,ru,1)
If fr4>0 And fre4=0 Then usc=usc+1:ColoreTesto 2:Scrivi " "&Format2(n4(1))&" ",1,0
If fr4>0 And fre4>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&Format2(n4(1))&" ",0,0

fr5=SerieFreq(fin,fin,n5,ru,1)
fre5=SerieFreq(es+1,fin-1,n5,ru,1)
If fr5>0 And fre5=0 Then usc=usc+1:ColoreTesto 2:Scrivi " "&Format2(n5(1))&" ",1,0
If fr5>0 And fre5>0 Then usc=usc+1:ColoreTesto 0:Scrivi " "&Format2(n5(1))&" ",0,0
ColoreTesto 0:
Scrivi
End If
End If
'End If
Next
Next
Scrivi usc

End Sub
 
Grazie anche al Signor Toon

Ciao, Alien.
Si tratta di cinquine che non hanno ancora visto estrarre tutti e 5 i loro estratti.
4 le ipotesi che si verificano
1-Quando vedi un numero o dei numeri a fianco in nero significa che sono usciti uno o più estratti della cinquina non conclusa
2-Quando vedi un numero o dei numeri a fianco uno dei quali rosso, quello rosso è il 5° che doveva essere estratto, quello in nero un numero della cinquina già estratto
3-Quando vedi un solo numero a fianco rosso, è il 5° che doveva essere estratto
3-Quando vedi ...niente non è uscito niente.

In tutti i casi in cui compare il numero rosso, la cinquina interessata sparirà alla prossima estrazione
 
A chi può interessare ... non è proprio lo stesso, neppure una convergenza, né una lacuna.

al ritardo 61 ci sono 5 singoli numeri rimasti soli dopo che i 4 loro compari sono caduti.

Sono:

Rit Ru Nu

61 CA 40
61 FI 14
61 GE 14
61 MI 35
61 NZ 53


:)
 
Ciao Cinzia , scusami tanto , ma all'atto pratico dalla prossima estrazione cosa si dovrebbe giocare. Grazie.
Ciao, K2020. Questo listato è nato da una mia curiosità. Di solito si vuole sapere quando esce l' ultimo estratto di una cinquina sincrona, ma non ci si domanda cosa avviene prima che questo estratto esca. I 4 numeri già estratti continuano a ballare;
è vero, per lo più esce un numero alla volta ma non raramente ne escono due.
Un ambo in quartina su ruota non è da buttare. Già, ma quale quartina scegliere?
Se si considera poi il 5° estratto, alcune volte esso non esce da solo ma proprio accompagnato da uno o più dei 4 estratti gia usciti, fungendo da capogioco dei suoi 4 coi quali si è visto l' ultima volta.
E' un argomento da approfondire.
 
Ciao, K2020. Questo listato è nato da una mia curiosità. Di solito si vuole sapere quando esce l' ultimo estratto di una cinquina sincrona, ma non ci si domanda cosa avviene prima che questo estratto esca. I 4 numeri già estratti continuano a ballare;
è vero, per lo più esce un numero alla volta ma non raramente ne escono due.
Un ambo in quartina su ruota non è da buttare. Già, ma quale quartina scegliere?
Se si considera poi il 5° estratto, alcune volte esso non esce da solo ma proprio accompagnato da uno o più dei 4 estratti gia usciti, fungendo da capogioco dei suoi 4 coi quali si è visto l' ultima volta.
E' un argomento da approfondire.
Ciao Cinzia... come sempre attenta ai dati statistici e ben afferrata con i sincronismi!
Questo è stato un argomento affrontato parecchio tempo fa (credo proprio con te, ma non ricordo), e devo dire che andrebbe sviluppato e approfondito come giustamente dici, c'è molta curiosità nell'interpretare questi dati.
"A memoria"... individuato l'ultimo rimasto della cinquina, i quattro già sortiti generano spesso sortite di ambo, e un dato che pareva interessante era la media dei ritardi dei singoli combinata con la media ritardo di ambo nella quartina, tutto relazionato ad un range contenuto <dalla sortita della cinquina> al momento in cui rimane l'ultimo...
Non so se questo ti muova qualcosa...
 
Ciao, Ramco.
Mi fa molto piacere ritrovarti.
Se è stato un argomento già affrontato magari da altri, chiedo scusa, non ricordo o mi è sfuggito.
Puoi esplicitare questo passaggio ?
"un dato che pareva interessante era la media dei ritardi dei singoli combinata con la media ritardo di ambo nella quartina"
Come la si combina la media dei ritardi dei singoli con la media ritardo ambo, puoi fare un esempio ?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
Indietro
Alto