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 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
Indietro
Alto