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 16 maggio 2026
    Bari
    84
    57
    09
    22
    60
    Cagliari
    52
    58
    80
    57
    76
    Firenze
    50
    15
    63
    58
    60
    Genova
    08
    30
    61
    75
    55
    Milano
    82
    68
    29
    16
    10
    Napoli
    86
    46
    15
    33
    65
    Palermo
    46
    29
    73
    74
    37
    Roma
    30
    15
    02
    87
    52
    Torino
    15
    62
    82
    52
    67
    Venezia
    58
    85
    40
    35
    48
    Nazionale
    16
    51
    56
    71
    17
    Estrazione Simbolotto
    Milano
    18
    07
    27
    32
    12

Ultimi Messaggi

Indietro
Alto