Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Script di MIKE58

Marcorun

Advanced Member
Sub Main()
'presenze su cicli di 5 estrazioni"
Dim ruote(1)
Dim nm(1)
r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,16)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
ruote(1) = r
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & NomeRuota(ruote(1)),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
ritardatario = PiuRitardatario(ultima,ruote(1))
rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
ColoreTesto 2
Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub


questo bellissimo script che MIKE58 mi (ci) ha regalato .......chiedevo se x caso fosse possibile modificarlo x elaborare le superfrequenze non solo su ruota (così com'è) ma su 2 ruote a scelta.....e se non chiedo troppo un'altro modificato in modo che elaborasse le estrazioni 1 del martedi...2 del giovedi..3 del sabato ,GRAZIE...
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Script molto datato, ho fatto al volo la modifica di scelta + ruote devi poi scegliere tu il range di ciclo + adatto.



Sub Main()
'presenze su cicli di 5 estrazioni"
ReDim ruote(0)
Dim nm(1)
'r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,12)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
'ruote(1) = r
ScegliRuote(ruote)
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & StringaRuote(ruote),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
'Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
'rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
'rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
rit = SerieRitardo(Inizio,fine,nm,ruote,1)
rs = SerieStorico(Inizio,fine,nm,ruote,1)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
'ritardatario = PiuRitardatari(ultima,r)
'rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
'ColoreTesto 2
'Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub


 

Mike58

Advanced Member >PLATINUM PLUS<
Codice:
Sub Main()
'presenze su cicli di 5 estrazioni"
ReDim ruote(0)
Dim nm(1)
'r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,12)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
'ruote(1) = r
ScegliRuote(ruote)
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & StringaRuote(ruote),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
'Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
'rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
'rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
rit = SerieRitardo(Inizio,fine,nm,ruote,1)
rs = SerieStorico(Inizio,fine,nm,ruote,1)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
'ritardatario = PiuRitardatari(ultima,r)
'rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
'ColoreTesto 2
'Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub
 

Marcorun

Advanced Member
Disponibile come sempre....GRAZIE...sarà anche datato il tuo script,ma bello ci lavoro moltissimo...e con questo modificato avrò ancora più da divertirmi...:))
Per quanto riguarda la scelta dei giorni della settimana,ho provato ad impostare l'archivio nei vari giorni ma non funziona bene....credo che debba essere scritto nello script il giorno....GRAZIE ancora..CIAO
 

vincenzo4221

Advanced Member >PLATINUM<
PER MIKE sarebbe possibile modificare questi script per ottenere i dati di cui al mio post "diagramma delle frequenze", mi sembra di capire che si dovrebbe solo fare in modo che si possano ottenere più dei 5 cicli che si formano con quello attuale...tutto il resto sembra che vada bene , anzi integra con nuovi dati ....ciao
 

Mike58

Advanced Member >PLATINUM PLUS<
Raga,il tempo manca per concentrarsi negli script (stasera turno notte)

Per Marcorun per filtrare le estrazioni del girono potrebbe essere usato un If then con il codice giorno(es) = a ???
ma dovrei verificarlo.

Per Vincenzo tutto si può fare con indicazioni precise, ma ora mi manca il tempo e la lucidità se trovo queste... magari posso provare.

Ciao
 

vincenzo4221

Advanced Member >PLATINUM<
marco è soddisfatto bene x lui .....io invece a quanto pare chiedo cose difficili da farsi...parlo anche in merito ad altre richieste al sito.. non soddisfatte ...si preferisce perder tempo con teorie caballistiche ed altre fregnacce invece di lavorare sulla statistica seria...boh???
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao ILegend , un grazie per l'apprezzamento, lo stesso vale per te.

Per Marcorun, lo script in cicli in esame è abbastanza rigido e fine a se stesso ossia i 5 cicli stabiliti con range e ultimo ciclo ridimensionato di 1/3, per il filtraggio dei giorni purtroppo è più complicato, bisogna creare una routine allo scopo, ma in questo script ha poca valenza.

Ti posto un altro mio script che stabilito un numero verifica quante uscite per giorno di estrazione.
Cosi puoi vedere come devono agire i codici date e giorni, per poi utilizzali alle occasioni volute.

Codice:
Sub Main()
   'Sabato, martedi, giovedi
   Dim nu(1),ru(1)
   num = InputBox("Quale numero cercare ",,90)
   rt = InputBox("Quale ruota ",,1)
   et = CInt(InputBox("Quante estrazioni",,300))
   nu(1) = num
   ru(1) = rt
   For Es = EstrazioneFin - et To EstrazioneFin
      aps = Posizione(es,rt,num)
      If Sabato(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            sab = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & aps
            co = co + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co & " Volte al Sabato " & " è Ritarda da... " & sab,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apg = Posizione(es,rt,num)
      If giovedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            gio = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apg
            co1 = co1 + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co1 & " Volte al giovedì" & " è Ritarda da... " & gio,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apm = Posizione(es,rt,num)
      If martedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            mar = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apm
            co2 = co2 + 1
            sr = SerieRitardo(es,EstrazioneFin,nu,ru,1)
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co2 & " Volte al martedì " & " è Ritarda da... " & mar,1
   ColoreTesto 0
   Scrivi
   tt = co + co1 + co2
   ColoreTesto 2
   Scrivi "Totali di volte uscito.... " & tt & " Ritarda da... " & sr & " Dalla data ultima... " & DataEstrazione(EstrazioneFin - sr,1),1
   ColoreTesto 0
End Sub
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Function giovedi(Es)
   giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then giovedi = True
End Function
Function martedi(Es)
   martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then martedi = True
End Function
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Vincenzo, posso capire che molte volte le richieste passano inosservate e non evase, ma devi anche capire che sono pochi quelli che si dilettano a fare script e non sempre si trova il tempo, la voglia e soprattutto la via per il giusto costrutto.
Come ti dicevo nell'altro trhend a me stuzzicano un pochetto gli script statistici e come hai visto avevo simulato la schermata postata, ma poi lo script e la richiesta cambia direzione e si vuole tutto un altro script ed un altro costrutto il chè rimetterci le mani nella logica stessa del costrutto diventa complicato.

Il tutto per dire che la tua richiesta è fattibile basta avere pazienza e lavorarci insieme ad un determinato progetto.
I modi di costrutti sono diversi e tanti basta prendere l giusta direzione.



Abbi pazienza nessuno e contro nessuno e noi appassionati che ci delettiamo a fare script facciamo quello che il tempo a la voglia ci porta a fare.


P.s cancellato script di ilegend ( come richiesta sottostante)

ciao
 
Ultima modifica:

i legend

Advanced Member >PLATINUM PLUS<
Ciao Mike hai riesumato uno script datatissimo ahahahaha,
era fatto su richiesta di un utente,pertanto una statistica particolare di una sua personale interpretazione , a mio avviso non è corretta. potresti toglierlo per favore?
 

Marcorun

Advanced Member
GRAZIE MIKE58 .........

saluto anche Vincenzo ,del lotto ,script,statistiche,numeri casuali,fregnacce.....apprezzo tutto...tanto che mi son messo anche in gioco senza paura nella gara ambate............................ciao,buono studio a tutti!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 13 aprile 2021
    Bari
    51
    83
    12
    48
    64
    Cagliari
    07
    47
    19
    78
    34
    Firenze
    35
    75
    02
    12
    46
    Genova
    36
    48
    67
    77
    87
    Milano
    68
    49
    15
    79
    73
    Napoli
    32
    39
    60
    78
    66
    Palermo
    22
    75
    25
    78
    82
    Roma
    42
    49
    90
    27
    84
    Torino
    15
    85
    78
    24
    44
    Venezia
    01
    22
    82
    55
    61
    Nazionale
    90
    38
    27
    86
    55
    Estrazione Simbolotto
    Genova
    13
    15
    28
    42
    18

Ultimi Messaggi

Alto