Novità

ricerca script

lottofortune

Advanced Member >PLATINUM<
Messaggi
1.086
Punti reazione
18
Punti
38
Buongiorno a tutti amici, esiste qualche script che mi trovi gli abbinamenti più frequenti con un numero.? Es. Io ho ambata 34 a Bari, esiste lo script che mi mostri i numeri con i quali si è accoppiato più frequentemente? Chiedo scusa..
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
Prova questo

Codice:
Sub Main
Dim n1,n2,anum(2),spia(1),abb(1)
'Dim ruote(1)
'r = InputBox("Quale Ruota",,1)
qn = CInt(InputBox("Quale Capogioco",,15))
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(12)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
atitoli(12) = " Dec ABB "
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
fin = EstrazioneFin
df = fin - Ini
sp = SerieFreq(Ini,fin,spia,ruote,1)
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
Scrivi "presenze del numero Capogioco.... " & sp,1
Messaggio "elaboro... ruota di " '& NomeRuota(r)
Call AvanzamentoElab(1,10,100)
n1 = qn
For n2 = 1 To 90
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
abb(1) = n2
Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
ReDim avalori(12)
avalori(1) = DataEstrazione(fin)
avalori(2) = StringaRuote(ruote)
avalori(3) = StringaNumeri(anum,,1)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
If retesito = "" Then avalori(10) = " -- "
avalori(11) = rit1
avalori(12) = Decina(n2)
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
End If
Next
Call SetTableWidth("100%")
Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
Call Scrivi(" ******* Tabella by Mike58 ******* ",True,True,2,4,4)
End Sub

Ciao
 

solare

Advanced Member >PLATINUM<
Messaggi
1.368
Punti reazione
29
Punti
48
Ciao Mike58, si può avere la possibilità di selezionare quante estrazioni usare per la statistica ?
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
Ciao solare in origine lo script era stato creato con questa caratteristica.
Basta cambiare e attivare la riga "qe" quante estrazioni e ridefinire l'inizio "ini"
le righe sono qui.

Codice:
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(12)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
atitoli(12) = " Dec ABB "
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
 

lottofortune

Advanced Member >PLATINUM<
Messaggi
1.086
Punti reazione
18
Punti
38
va benissimo,era proprio quello che cercavo.GRAZIE mille mike58.:D
 
Ultima modifica:

solare

Advanced Member >PLATINUM<
Messaggi
1.368
Punti reazione
29
Punti
48
Ciao Mike58, facendo la modifica che mi hai indicato nel listato
nella finestra quante estrazioni voglio analizzare "Ho indicato 50" pero alla fine mi riporta statistica dal 14/9/46
ho sbagliato qualcosa ?
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
No non sbagli è solo che l'istruzione inizio era prima della istruzione fine e quindi non potevi fare l'operazione fin-qe.
Ho spostato la fine alla riga prima.

eccoti lo script.

Codice:
Sub Main
 Dim n1,n2,anum(2),spia(1),abb(1)
 'Dim ruote(1)
 'r = InputBox("Quale Ruota",,1)
 qn = CInt(InputBox("Quale Capogioco",,15))
 qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
 ReDim ruote(0)
 'ruote(1) = r
 r = ScegliRuote(ruote)
 ReDim atitoli(12)
 atitoli(1) = " Data "
 atitoli(2) = " Ruota "
 atitoli(3) = " Numero "
 atitoli(4) = " Ritardo "
 atitoli(5) = " Rit Max "
 atitoli(6) = " incr Max "
 atitoli(7) = " frequenza "
 atitoli(8) = " Esito ultimo "
 atitoli(9) = " Tipo esito "
 atitoli(10) = " Data esito "
 atitoli(11) = "Ritardo abbinamento"
 atitoli(12) = " Dec ABB "
 Call InitTabella(atitoli,1,,3,5)
 spia(1) = qn
 fin = EstrazioneFin
 Ini = Fin - qe
 df = fin - Ini
 sp = SerieFreq(Ini,fin,spia,ruote,1)
 Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
 Scrivi "presenze del numero Capogioco.... " & sp,1
 Messaggio "elaboro... ruota di " '& NomeRuota(r)
 Call AvanzamentoElab(1,10,100)
 n1 = qn
 For n2 = 1 To 90
  If n1 <> n2 Then
   anum(1) = n1
   anum(2) = n2
   abb(1) = n2
   Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
   Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
   Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
   ReDim avalori(12)
   avalori(1) = DataEstrazione(fin)
   avalori(2) = StringaRuote(ruote)
   avalori(3) = StringaNumeri(anum,,1)
   avalori(4) = rit
   avalori(5) = ritmax
   avalori(6) = Incrmax
   avalori(7) = freq
   avalori(8) = retestratti
   avalori(9) = retesito
   If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
   If retesito = "" Then avalori(10) = " -- "
   avalori(11) = rit1
   avalori(12) = Decina(n2)
   Call AddRigaTabella(avalori,,,3)
   Call SetColoreCella(4,vbMagenta)
   Call SetColoreCella(3,,1)
   Call SetColoreCella(8,,7)
   Call SetColoreCella(7,vbGreen)
   If rit = 0 Then Call SetColoreCella(10,vbYellow)
  End If
 Next
 Call SetTableWidth("100%")
 Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
 Call Scrivi(" ******* Tabella by Mike58 ******* ",True,True,2,4,4)
End Sub
 

solare

Advanced Member >PLATINUM<
Messaggi
1.368
Punti reazione
29
Punti
48
Perfetto....!!!!!
Grazie come sempre della tua grande gentilezza.
 

dario25

Advanced Member
Messaggi
705
Punti reazione
0
Punti
16
ciao a tutti volevo chiedervi se ce uno script per verificare i numeri da me scelti e mi da i risultati tipo fre rit e ic di convenienza. sia ambate che ambo-
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
prova questo mio vecchio script con inserimento I.C.

Ciao

Codice:
Sub Main()
 Dim num(10),numero(10),ruota(1),sorte

 est = InputBox("Quante estrazioni analizzi",,1000)
 sorte = CInt(InputBox("Quale sorte verificare ",,1))

 ScegliNumeri(num)
 nStart = Timer ' partenza tempo di elaborazione
 Ini = EstrazioneFin-est
 fin = EstrazioneFin
 diff = fin - Ini + 1
 Scrivi"Statistica Veloce su combinazione di Numeri scelti" & "   ",True,False,6,0,3
 Scrivi"  " & StringaNumeri(num) & "  ",True,False,2,4,3
 Scrivi"  Per sorte..." & "   " & NomeSorte(sorte) & "  ",True,True,3,0,3
 Scrivi String(130,"=")
 Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & "  - Estrazioni Totali " & DIFF,1
 Scrivi String(130,"=")
 Scrivi
 '--------- crea tabella---------------
 ReDim atitoli(15)
 atitoli(1) = "   Ruota   "
 'atitoli(2) = "   Combinazione    "
 atitoli(3) = " RD1 "
 atitoli(4) = " RD2 "
 atitoli(5) = " RD3 "
 atitoli(6) = " RD4 "
 atitoli(7) = " RD5 "
 atitoli(8) = "  Ritardo attuale  "
 atitoli(9) = "  Ritardo Storico  "
 atitoli(10) = " incr. storico "
 atitoli(11) = "  Frequenza  "
 atitoli(12) = "   - esito -   "
 atitoli(13) = "   -  stringa Esito  -    "
 atitoli(14) = "    data estraz.uscita     "
 atitoli(15) = " Indice Convenienza "
 ' inizializzo la tabella
 Call InitTabella(atitoli,1,,3,5)
 For r = 1 To 12
  'If r = 11 Then r = 12
  ruota(1) = r
  Call AvanzamentoElab(Ini,fin,n)
  If ScriptInterrotto Then Exit For
  Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
  Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
  ic = Round((freq/diff*rit),2)
  '----- calcolo valori in tabella --------------
  ReDim avalori(15)
  avalori(1) = NomeRuota(r)
  avalori(3) = RitDiPos(num,1,ruota)
  avalori(4) = RitDiPos(num,2,ruota)
  avalori(5) = RitDiPos(num,3,ruota)
  avalori(6) = RitDiPos(num,4,ruota)
  avalori(7) = RitDiPos(num,5,ruota)
  avalori(8) = rit
  avalori(9) = ritmax
  avalori(10) = incrRitMax
  avalori(11) = freq
  avalori(12) = retesito
  avalori(13) = retestratti
  If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
  If retesito = "" Then avalori(14) = " -- "
  avalori(15) = ic
  Call AddRigaTabella(avalori,,,3,,"cambria")
  If r = 11 Then Call SetColoreCella(11,3,1)
  If retidestr = fin Then Call SetColoreCella(14,3,1)
  If ic > 1 Then Call SetColoreCella(15,4,2)
 Next
 Call SetTableWidth("100%")
 Call CreaTabella()
 Scrivi " Script By Mike58 ",1,- 1,6
 nend = Timer
 Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
 ReDim apos(5)
 ReDim aruota(1)
 ReDim anum(1)
 anum(1) = num
 apos(pos) = True
 aruota(1) = ruota
 RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
 'Questa Function trasforma il numero di secondi passato come parametro in una stringa
 ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
 ' s ---> Numero di secondi da formattare
 ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
 Dim hh
 Dim Mm
 Dim Ss
 Dim TimeStr
 hh = s \ 3600
 Mm =(s Mod 3600) \ 60
 Ss = s -((hh * 3600) +(Mm * 60))
 TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
 FormattaSecondi = TimeStr
End Function
 
Ultima modifica:

dario25

Advanced Member
Messaggi
705
Punti reazione
0
Punti
16
Ciao mike58 grazie di avermi risposto, se si poteva scegliere anche le ruote era meglio,perche lui verifica su tutte le ruote a me serve uno specifico su ruote scelte da me , lo provato su spaziometria va bene
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
Prova questa altra tipologia su scelta ruota e con anche altri parametri, il tutto in tabellaOrdinabile.

Codice:
Sub Main
 Dim N(1),T,V,nLiv
 Ini = EstrazioneIni' - 200
 fin = EstrazioneFin
 Tot = fin - Ini
 ReDim R(0)
 Rr = ScegliRuote(R)
 Scrivi "Statistica Numeri Su Ruote di : " & StringaRuote(R),1
 Scrivi
 T = Array(T,"Numero","Ritardo","Storico","Incr","Frequenza","Ind CV ","Peso 36","RitsincLiv","RrCrono")
 Call InitTabella(T,RGB(146,139,126),,3,5)
 For x = 1 To 90
  N(1) = x
  Call StatisticaFormazioneTurbo(N,R,1,Rit,max,Incr,fre,Ini,fin)
  IndCV = Round(fre/Tot*Rit,2)
  liv = RitSincDiLiv(x,R,fin,nLiv)
  Rl = RitPosCrono(x,R,fin)

  '------ elenco ritardi..............
   ReDim rp(37),fr(37)
     Inizio = EstrazioneIni
     fine = EstrazioneFin
     somrit12 = 0
     For z = 1 To 37
      rp(z) = SerieRitardoTurbo(Inizio,fine,N,R,1)
      fr(z) = SerieFreqTurbo(Inizio,fine,N,R,1)
      fine = fine -(rp(z) + 1)
      somrit12 = somrit12 + rp(z) + 1
      Med = Round(somrit12/37,2)
      freq = fr(z) + 1
      Mfr = Round(freq/37,2)
     Next
   '.........................................

  V = Array(V,StringaNumeri(N),Rit,max,Incr,fre,IndCV,somrit12,liv,Rl)
  Call AddRigaTabella(V,,,3,,"Cambria")
 Next
 CreaTabellaOrdinabile(2)
End Sub
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
Oggi sono buono con tutti.

Provate anche questo Frequenza ciclica su cicli di 90 estraz. e ultimo ciclo di 18 estraz.

Codice:
Sub Main
Dim Nu(1),Ru(1),T,V,nCicli,Qcicli
nCicli = 10
Qcicli = 90
r = InputBox("Quale ruota analizzo",,1)
Ini =(EstrazioneFin -(nCicli * Qcicli)) + 1
fin = EstrazioneFin
Tot = fin - Ini + 1
Scrivi "*** Numeri In Frequenza ciclica **** Script & Project By Mike58  *** Forum LottoCed *** ",1,,,1,3,,1
Scrivi
ReDim T(23)'....................................................
T(1) = "Ruota"
T(2) = "Numero"
For x = 3 To 12
T(x) = "C" & x - 2
Next
'T(13) = " Totali "
T(14) = " Tot.Freq "
T(15) = " Ritardo "
T(16) = " RitMax "
For xx = 17 To 21
T(xx) = "C" & xx - 16
Next
T(22) = " Med Freq "
T(23) = " I.C "
Call InitTabella(T)
For y = 1 To 90
Nu(1) = y
Ru(1) = r
ReDim V(23)'...................................................
V(1) = SiglaRuota(Ru(1))
V(2) = StringaNumeri(Nu)
For es = Ini To fin Step Qcicli
k = k + 1
Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,es,es +(Qcicli - 1))

ReDim Preserve freq(k)
freq(k) = fre
som = som + freq(k)
Next
For x = 3 To 12
V(x) = freq(x - 2)
Next
'V(13) = som
Call StatisticaFormazioneTurbo(Nu,Ru,1,rit1,max1,Incr1,fre1,Ini,fin)
ic = Round((fre1/Tot*rit1),2)
V(14) = fre1
V(15) = rit1
V(16) = max1
Inix =(EstrazioneFin -(5 * 18)) + 1
finx = EstrazioneFin
For ess = Inix To finx Step 18
kk = kk + 1
Call StatisticaFormazione(Nu,Ru,1,rit2,max2,Incr2,fre2,ess,ess + 17)
ReDim Preserve freq18(kk)
freq18(kk) = fre2
Next
For xx = 1 To 5
V(xx + 16) = freq18(xx)
Next
V(22) = Round((900/fre1),2)
V(23) = ic
Call AddRigaTabella(V)
k = 0
som = 0
kk = 0
Next
CreaTabellaOrdinabile(12)
End Sub
 

dario25

Advanced Member
Messaggi
705
Punti reazione
0
Punti
16
si questo e meglio solo che non posso scegliere gli numeri, va bene lostesso ti ringrazio buona serata
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
prova cosi con scelta numeri

Codice:
Sub Main
'analisi numerica a ruota con scela numeri e ruote
Dim Inizio,fine
Dim n1,n2,anum
Dim Rit,RitMax,Freq,Indice
ReDim ruota(11)
Dim k,nu(1)
final = InputBox("Da quale estrazione parte l'analisi ? ",,EstrazioneFin)
qt = InputBox("quante estrazioni analizzi ",,200)
'rrtt = CInt(InputBox("QUALE RITARDO",,qt))
Inizio = final - qt
fine = final
idestr = EstrazioniArchivio
Tot = fine - Inizio
If ScegliRuote(ruota) > 0 Then
For k = 1 To UBound(ruota)
If ruota(k) > 0 Then
'
Scrivi NomeRuota(ruota(k)) & " ",True,False,4,0,2
End If
Next
End If
Call Scrivi(" - Tot estrazioni -> " & Tot,True,False,2,0,2)
Call Scrivi(" Range da " & DataEstrazione(Inizio) & " fino a " & DataEstrazione(fine),True,False,3,0,2)
Call Scrivi(" Listed by Mike58 ",True,True,6,0,2)
Scrivi
Call ScegliNumeri(anum)
Scrivi "Numeri Selezionati.... " & StringaNumeri(anum),True,True,,2,3
ReDim atitoli(14)
atitoli(1) = " Numero "
atitoli(2) = " Ritardo "
atitoli(3) = " Ritardo Max "
atitoli(4) = " Frequenza "
atitoli(5) = " I.C. "
atitoli(6) = " ciclo 1-18 "
atitoli(7) = " ciclo 19-36 "
atitoli(8) = " ciclo 37-54 "
atitoli(9) = " ciclo 55-72 "
atitoli(10) = " ciclo 73-90 "
atitoli(11) = " Sfaldato-in corso "
atitoli(12) = " scarto "
atitoli(13) = " ret_estratti "
atitoli(14) = " id "
Call InitTabella(atitoli,1,,3,5)
For x = 1 To UBound(anum)
nu(1) = anum(x)
Call StatisticaFormazione(nu,ruota,1,Rit,RitMax,,Freq,Inizio,fine)
Call VerificaEsito(nu,ruota,fine - Rit,1,0,,esito,colpi,estratti,id)
sf18 = SerieFreq(fine - 18,fine,nu,ruota,1)
sf36 = SerieFreq(fine - 36,fine - 19,nu,ruota,1)
sf54 = SerieFreq(fine - 54,fine - 37,nu,ruota,1)
sf72 = SerieFreq(fine - 72,fine - 55,nu,ruota,1)
sf90 = SerieFreq(fine - 90,fine - 73,nu,ruota,1)
Indr = SerieRitardo(Inizio,fine - 1,nu,ruota,1)
Indrx = SerieStorico(Inizio,fine - 1,nu,ruota,1)
'If ScriptInterrotto Then Exit For
ReDim aval(14)
aval(1) = nu(1)
aval(2) = Rit
aval(3) = RitMax
aval(4) = Freq
aval(5) = Round((Rit/Tot)*Freq,2)
aval(6) = sf18
aval(7) = sf36
aval(8) = sf54
aval(9) = sf72
aval(10) = sf90
If Rit < 10 And Rit > 0 Then
aval(11) = " Sfaldato nei 9 ultimi colpi "
Else
If Rit = 0 Then
aval(11) = " Uscito ultima estraz. "
Else
aval(11) = " in corso "
End If
End If
aval(13) = estratti
aval(14) = DataEstrazione (id)
sc = qt/18*4
sca = aval(4) - sc
aval(12) = Int(sca)
Call AddRigaTabella(aval,,,3)
Call SetColoreCella(5,vbGreen)
Call SetColoreCella(4,vbMagenta)
If Rit = 0 Then
Call SetColoreCella(2,vbGreen)
End If
If Rit < 10 Then Call SetColoreCella(11,vbRed):End If
If Rit > 100 Then Call SetColoreCella(2,vbRed):End If
If Rit = 0 Then Call SetColoreCella(11,vbYellow):End If
If Rit = 0 Then Call SetColoreCella(12,vbYellow):End If
If sf18 = 0 Then Call SetColoreCella(6,vbYellow):End If
If Rit = 0 Then Call SetColoreCella(14,vbYellow):End If



Next
Call SetTableWidth("100%")
Call CreaTabella(4)' ordina tabella per colonna



End Sub
 

Asuniverso

Super member
Messaggi
177
Punti reazione
42
Punti
28
Ciao Mike58 ti chiedo una cortesia, premetto che uso il soft L8+6.1, se fosse possibile creare uno script con le seguenti caratteristiche:

1) Decido io le date inizio-fine per la ricerca

2) Decido io la ruota di ricerca e gioco.

3) Decido io i capogiochi per ambate.

4) Capogiochi da selezione da 1 ad un max di 3.

5) Ricercare i numeri più frequenti da 1 ad un max di 8 che si sono abbinati ai capogiochi selezionati.

6) Ricercare i numeri più ritardatari da 1 ad un max di 8 che si sono abbinate alle ambate selezionate

Colgo l'occasione per salutarti e resto in attesa di un tuo riscontro
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.969
Punti reazione
35
Punti
48
Ciao Asuniverso, premetto che è tanto che non mi diletto con gli script e che uso solo spaziometria in quanto ha codici + performanti, la richiesta mi sembra fattibile.

Devo trovare il tempo e trovare il corretto metodo costrutto da implementare o iter operativo da seguire.

Appena posso vedo quello che è possibile fare (mi hai chiamato in causa quando il mio tempo è limitato causa lavoro notturno).

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90

Ultimi Messaggi

Alto