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
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
Indietro
Alto