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 08 novembre 2025
    Bari
    47
    72
    08
    22
    76
    Cagliari
    56
    51
    36
    17
    53
    Firenze
    21
    11
    71
    89
    19
    Genova
    90
    32
    12
    80
    01
    Milano
    10
    57
    72
    21
    17
    Napoli
    59
    01
    76
    09
    61
    Palermo
    75
    10
    80
    24
    25
    Roma
    87
    86
    09
    32
    17
    Torino
    55
    21
    23
    46
    30
    Venezia
    18
    20
    13
    32
    84
    Nazionale
    19
    18
    05
    86
    08
    Estrazione Simbolotto
    Torino
    42
    29
    30
    11
    09
Indietro
Alto