Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

xJoe91

zetrix

Premium Member
Codice:
Option Explicit
Sub Main
   Dim k
   For k = EstrazioneFin - 20 To EstrazioneFin
      If IsUltimaDelMese(k) Then
         Call Scrivi("L'estrazione " & GetInfoEstrazione(k) & " è l'ultima del mese",True,,vbRed)
      Else
         Call Scrivi("L'estrazione " & GetInfoEstrazione(k) & " non è l'ultima del mese")
      End If
   Next
End Sub
Function IsUltimaDelMese(idEstr)
   Dim sData,sDataNew
   Dim idGiornoSettimana
   Dim gMancanti
   Dim nMeseCorr
   sData = Replace(DataEstrazione(idEstr),".","/")
   nMeseCorr = Month(sData)
   idGiornoSettimana = WeekDay(sData)
   Select Case idGiornoSettimana
   Case vbTuesday ' martedi
      gMancanti = 2
   Case vbThursday ' giovedi
      gMancanti = 2
   Case vbSaturday ' sabato
      gMancanti = 3
   End Select
   sDataNew = DateAdd("d",gMancanti,sData)
   If Month(sDataNew) <> nMeseCorr Then
      IsUltimaDelMese = True
   Else
      IsUltimaDelMese = False
   End If
End Function


ciao Joe una volta mi avevi fatto un listato con i sommativi che calcolavano solo i giorni
della settimana mar-gio-sab ma questo listato non lo trovo piu nella cartella mi puoi fare
uno script per poter mettere i sommativi..
 

joe

Advanced Member >PLATINUM<
Ciao zetrix,

Non so cosa mi stai chiedendo.

La funzione presente nello script adesso è inutile.

E' stata scritta quando spaziometria non l'aveva ancora integrata

nelle istruzioni del suo basic.

Ad oggi serve solo per rendere compatibili gli script che la richiedono.

:)
 
Ultima modifica:

zetrix

Premium Member
Codice:
Sub Main
  
Scrivi  "1 Ambata su BA Alla 1° Estr. del Mese",0,1,7,4,4

Scrivi

Dim rt(1),pt(5)
Dim anum(5)

pt(1) = 1 ' -> per estratto
'pt(2) = 1 ' -> per ambo
'pt(3) = 1 ' -> per terno
'pt(4) = 1 ' -> per quaterna
'pt(5) = 1 ' -> per cinquina


co = 1 '-> colpi di gioco
rt(1) = BA_ '-> ruota di gioco

ini = EstrazioneFin - 20
fin = EstrazioneFin

For es = ini To fin



Messaggio(es)
If IndiceMensile(es) = 1 Then ' ->1 estrazione del mese

'Scrivi String(70,"-")

        

anum(1) = Fuori90(Estratto(es,BA_,2) + 20)  ' -> ruota di calcolo


Scrivi GetInfoEstrazione(es) & Space(3) & "2°" & SiglaRuota(BA_) & "" & " + " & "20" & "",0,1,1,4,4

Scrivi
Scrivi
                          

ImpostaGiocata 1,anum,rt,pt,co,0
Gioca es,1,,1
End If


Next

End Sub

ciao Joe scusami non avevo messo il listato quello che vorrei e che in questo script
ho degli algoritmi che devo metterli nei soli giorni di mar- o gio -o sab--
tutto qui purtroppo non so come si mettono questi giorni mar-gio-sab
questo listato lavora solo con gli IF degli indici mensili
una volta tempo fa mi avevo fatto il listato con i giorni delle est mar-gio-sab
ma non so dove ho messo il listato se puoi farmi questa cortesia perche ho degli
algoritmi di gioco che le devo mettere nei giorni di mar-gio-sab-
 

zetrix

Premium Member
ciao Joe ho risolto lo script grazie lo stesso della tua disponibilità
adesso posso mettere tutti gli algoritmi che voglio e in qualsiasi est mar-gio-sab-

ciao
 

joe

Advanced Member >PLATINUM<
Ciao zetrix,

quello script non è mio.

L'ho modificato e dovrebbe fare cosa hai richiesto.

Codice:
Option Explicit
Sub Main
'https://forum.lottoced.com/threads/xjoe91.2198973/#post-2312351
'Rev By Joe
  Dim Ini,Fin,Es,G,I
  Dim rt(1),pt(5),co
  Dim anum(5)
  G = Array("","martedì","giovedì","sabato")
  I = CInt(InputBox("1 = Martedì" & Chr(13) & "2 = Giovedì" & Chr(13) & "3 = Sabato","SCEGLI ESTRAZIONE",1))
  Scrivi "1 Ambata su BA nel giorno di " & G(I),0,1,7,4,4
  Scrivi
  pt(1) = 1 ' -> per estratto
  'pt(2) = 1 ' -> per ambo
  'pt(3) = 1 ' -> per terno
  'pt(4) = 1 ' -> per quaterna
  'pt(5) = 1 ' -> per cinquina
  co = 1 '-> colpi di gioco
  rt(1) = BA_ '-> ruota di gioco
  Ini = EstrazioneFin - 155
  Fin = EstrazioneFin
  For Es = Ini To Fin
    Messaggio(Es)
    If Left(DataEstrazione(Es,True),5) = Left(G(I),5) Then '-< Estrazione settimanale
      'Scrivi String(70,"-")
      anum(1) = Fuori90(Estratto(Es,BA_,2) + 20) ' -> ruota di calcolo
      Scrivi GetInfoEstrazione(Es) & Space(3) & "2°" & SiglaRuota(BA_) & "" & " + " & "20" & "",0,1,1,4,4
      Scrivi
      Scrivi
      ImpostaGiocata 1,anum,rt,pt,co,0
      Gioca Es,1,,1
    End If
  Next
End Sub

:)
 
Ultima modifica:

zetrix

Premium Member
Codice:
Sub Main
  
Scrivi : ColoreTesto 1 : Scrivi "1 Ambata su BA per Estr.x Sabato",0,1,7,4,4
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(5)
Dim anum(5)

pt(1) = 1 ' -> per estratto
'pt(2) = 1 ' -> per ambo
'pt(3) = 1 ' -> per terno
'pt(4) = 1 ' -> per quaterna
'pt(5) = 1 ' -> per cinquina


co = 4 '-> colpi di gioco
rt(1) = BA_ '-> ruota di gioco

ini = EstrazioneFin - 21
fin = EstrazioneFin

For es = ini To fin Step 3



Messaggio(es)
'If IndiceMensile(es) = 1 Then ' ->1 estrazione del mese


      
anum(1) = Fuori90(Estratto(es,GE_,5) + 32)



Scrivi DataEstrazione((es),1) & Space(3) & "5°" & SiglaRuota(GE_) & "" & " +" & "32" & "",0,1,1,4,4

Scrivi
Scrivi
                          

ImpostaGiocata 1,anum,rt,pt,co,0
Gioca es,1,,1
'End If


Next

End Sub

ciao Joe grz dello script io ho risolto in altro modo con step 3

:)
 

joe

Advanced Member >PLATINUM<
Si, ma a passo 3, non si allinea alla richiesta e non da la possibilità di scegliere il giorno dell'estrazione.

Cioè prosegue con uno dei 3 uguale al primo (o l'ultimo (se ne sei sicuro)) ... che non si sa quale sia.

:)
 

zetrix

Premium Member
ini = EstrazioneFin - 21
fin = EstrazioneFin

Joe bisogna scalare le est di una per calcolare le est di mar e scalare di un altra per le est x gio

ini = EstrazioneFin - 20
fin = EstrazioneFin

martedì, feb 16 2021 5°GE +..

ini = EstrazioneFin - 19
fin = EstrazioneFin

giovedì, feb 18 2021 5°GE +..


:)
 
Ultima modifica:

joe

Advanced Member >PLATINUM<
Si ma lo sai solo tu oltre qualche accorto addetto ai lavori

che sia bravo nel gestire i limiti dei cicli for-next.

Giusto avere e ricordare "l'avvertenza" da te proposta.

:)
 

zetrix

Premium Member
Codice:
Sub Main
 
Scrivi : ColoreTesto 1 : Scrivi "1 Ambo su TT per Estr.martedi",0,1,7,4,4
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(5),R,es
Dim anum1(5),anum2(5)
Dim aRetAbb
Dim k,x,z,a


pt(1) = 1 ' -> per estratto
'pt(2) = 1 ' -> per ambo
'pt(3) = 1 ' -> per terno
'pt(4) = 1 ' -> per quaterna
'pt(5) = 1 ' -> per cinquina


co = 9 '-> colpi di gioco
rt(1) = TT_ '-> ruota di gioco

ini = EstrazioneFin - 21
fin = EstrazioneFin

For es = ini To fin Step 3



Messaggio(es)
'If IndiceMensile(es) = 1 Then ' ->1 estrazione del mese

'Scrivi String(70,"-")

       

anum1(1) = Fuori90(Estratto(es,NA_,2) + 9)

Scrivi DataEstrazione((es),1) & Space(3) & "2°" & SiglaRuota(NA_) & "" & " +" & "9" & "",0,1,1,4,4
Scrivi
Scrivi
                         

ImpostaGiocata 1,anum1,rt,pt,co,0
Gioca es,1,,1
                               
                               
'ImpostaGiocata 1,anum2,rt,pt,co,0
'Gioca es,1,,1
                                           
                               

Next

End Sub


ciao Joe puoi vedere se riesci te a risolvere questo script
vorrei inserire questo codice RetAbb nello listato che ho
allegato qui e mi dovrebbe scrivere quali sono i numeri
che si sono abbinati piu spesso con l'ambata
metto un esempio il 9 si e abbinato 4 volte con tutte le ambate
gli algoritmi sono di prova come anche i colpi di gioco
ho provato a inserire questo codice RetAbb nello
script ma ho combinato un pasticcio e mi da sempre errore
lo script...



For z = 1 To 10

Call Abbinamenti(a,aRetAbb,EstrazioneIni,EstrazioneFin,z,0)
For k = 1 To 5
Scrivi aRetAbb(k,1) & " ---> con presenze " & aRetAbb(k,2) & " ",0,0,1,4

Scrivi

Next


Scrivi
Scrivi("" & a & " " & SiglaRuota(z) & "") & " ",0,0,1,4,7
Scrivi
Scrivi

Next
 

joe

Advanced Member >PLATINUM<
Continuo a non capire.

L'esempio che hai copiato dagli esempi, di per sé funziona, (funzionerebbe) ma non ho idea di cosa tu voglia fare.

E poi ... con delle somme, come quelle qui presenti, preferisco non averci a che fare,

per evitare di portare altra acqua al mulino del banco.

Codice:
Sub Main
   Scrivi : ColoreTesto 1 : Scrivi "1 Ambo su TT per Estr.martedi",0,1,7,4,4
   Scrivi : ColoreTesto 0 : Scrivi
   Dim rt(1),pt(5),R,es
   Dim anum1(5),anum2(5)
   Dim aRetAbb
   Dim k,x,z,a
   pt(1) = 1 ' -> per estratto
   'pt(2) = 1 ' -> per ambo
   'pt(3) = 1 ' -> per terno
   'pt(4) = 1 ' -> per quaterna
   'pt(5) = 1 ' -> per cinquina
   co = 9 '-> colpi di gioco
   rt(1) = TT_ '-> ruota di gioco
   ini = EstrazioneFin - 21
   fin = EstrazioneFin
   For es = ini To fin Step 3
      Messaggio(es)
      'If IndiceMensile(es) = 1 Then ' ->1 estrazione del mese
      'Scrivi String(70,"-")
      anum1(1) = Fuori90(Estratto(es,NA_,2) + 9)
      Scrivi DataEstrazione((es),1) & Space(3) & "2°" & SiglaRuota(NA_) & "" & " +" & "9" & "",0,1,1,4,4
      Scrivi
      Scrivi
      Call Abbina(anum1(1),Ini,fin)
      ImpostaGiocata 1,anum1,rt,pt,co,0
      Gioca es,1,,1
      'ImpostaGiocata 1,anum2,rt,pt,co,0
      'Gioca es,1,,1
   Next
End Sub
Sub Abbina(a,Ini,fin)
   Dim aRetAbb
   For z = 1 To 10
      Call Abbinamenti(a,aRetAbb,Ini,fin,z,0)
      For k = 1 To 5
         Scrivi aRetAbb(k,1) & " ---> con presenze " & aRetAbb(k,2) & " ",0,0,1,4
         Scrivi
      Next
      Scrivi
      Scrivi("" & A & " " & SiglaRuota(z) & "") & " ",0,0,1,4,7
      Scrivi
      Scrivi
   Next
End Sub
 

zetrix

Premium Member
09871 [ 4 - 09/01/2021] [76.42.84.61.85]
09872 [ 5 - 12/01/2021] [42.47.36.15.53]
09874 [ 7 - 16/01/2021] [42.34.14.21.44]
09874 [ 7 - 16/01/2021] [42.86.57.71.45]
09878 [ 11 - 26/01/2021] [21.55.01.42.88]
09878 [ 11 - 26/01/2021] [87.65.76.42.54]

Joe forse non avevo spiegato bene quello che vorrei che facesse lo script
e scrivere quale e il num che si e abbinato piu spesso
non mi interessa l'ambata ma gli abb e sono questi pacchetti dove ce l'ambata
lo script dovrebbe scrivere quale e il num che si e abbinato di piu
degli altri e deve conteggiare in totale tutti i pacchetti dove ce l'ambata e scrivere il numero
che si e abbinato di piu degli altri...esempio il 19 si e abbinato di piu con tutte le ambate
 
Ultima modifica:

joe

Advanced Member >PLATINUM<
Direi che ... ci vuole un esperto in divinazione, per separare gli

gli ingredienti del paciugo che hai per la mente.

Cioè hai uno script che ti verifica, i risultati di un addizionale.

Cioè di un estratto su tutte,

di cui, nei suoi possibili risultati vorresti sapere quali

sono gli ambi più frequenti che si sono verificati con quel capogioco .

Dove per realizzare (forse) questo, hai proposto

script incomprensibili e pezzi di funzioni resi non funzionanti.

Sono più o meno questi gli ingredienti del polpettone indigesto ?

:) Fammi sapere.
 

zetrix

Premium Member
Joe lo script mi deve fare una lista cosi in out dello script

41----->presenze 9 volte
15----->presenze 7 volte
19----->presenze 3 volte
89----->presenze 2 volte

questi numeri li deve leggere in questi pacchetti dove e ce l'ambata [76.42.84.61.85]
adesso non so se si deve usare un altro codice so che si puo usare anche seriefreq
vedi tu se riesci a mettere un codice che sia aRetAbb oppure va meglio seriefreq
lo script deve scrivere tutte le presenze dei numeri che ci sono in questi pacchetti
dove e presente anche l'ambata e quindi calcolerà anche l'ambata insieme agli altri
se poi la puoi escludere l'ambata e meglio in modo che non la conteggia insieme
altri numeri estratti che sono usciti ma va bene lo stesso l'importante e che scriva
una lista completa con tutte le presenze dei numeri e in tutti i pacchetti dei cinque numeri
estratti nei 5 colpi di gioco..
ho provato con seriefreq ma ho combinato un minestrone di numeri

:)
 
Ultima modifica:

joe

Advanced Member >PLATINUM<
Devo pensare al "come", perché ci sono diverse soluzioni.

La tabella dei dati in cui cercare è questa ?

Codice:
42 FI 76.42.84.61.85
42 TO 42.47.36.15.53
42 CA 42.34.14.21.44
42 PA 42.86.57.71.45
42 BA 21.55.01.42.88
42 NA 87.65.76.42.54
25 NA 84.41.81.25.04
25 BA 53.48.56.25.03
25 TO 56.29.25.09.67
25 TO 25.21.69.74.46
35 NA 29.35.79.04.65
35 FI 53.63.35.90.83
35 TO 35.83.53.81.11
35 CA 35.07.52.72.77
35 FI 19.25.58.65.35
35 FI 06.63.64.35.44
74 RO 64.74.60.86.18
74 TO 25.21.69.74.46
74 TO 17.74.66.12.30
74 FI 67.31.75.74.29
74 RO 61.49.11.56.74
40 MI 85.68.11.62.40
40 FI 41.90.78.63.40
40 GE 40.45.26.76.89
10 CA 65.10.07.56.34
10 PA 03.71.57.74.10
10 FI 10.37.82.17.63
10 PA 90.68.10.29.13
40 FI 41.90.78.63.40
40 GE 40.45.26.76.89

Lo script è quello presente al msg #10 ?

:)
 

zetrix

Premium Member
si Joe lo script è quello presente al msg #10

i colpi di gioco ci mettiamo 5 colpi
ma cmq questa deve essere una mia scelta
ma 5 colpi di gioco sono piu che sufficienti
e in questi 5 colpi di gioco lo script ci deve dire
quale e il num. che a piu presenze rispetto ad altri
con l'ambata algoritma sommativa
Joe gli algoritmi dell'ambata nell'esempio sono di prova quindi non sono quelli
per l'algoritmo dell'ambata la devo calcolare con un
altro script che fa questo lavoro..
 
Ultima modifica:

joe

Advanced Member >PLATINUM<
Come ti ho scritto, so con certezza che non ne ricaverai niente di buono,

Quindi, non ho nessun interesse a sapere come, cosa, quando, dove e quanto aggiungi.

Il problema è che quanto ho fatto "lavora su dei dati".

Senza dati ... non c'è niente su cui lavorare.

Ciò premesso se i dati erano quelli che ho proposto i risultati potrebbero essere questi:

63 5
21 4
29 4
53 4
56 4
65 4
76 4
90 4
11 3
41 3
45 3
03 2
04 2
07 2
17 2
25 2
26 2
34 2

Ed in essi sono esclusi dal conteggio i vari capigioco, di volta in volta, presenti pro-tempore.

Se no ... come ho scritto un ipotetico ed eventuale script non può lavorare "in astratto".

Mentre invece, esso, deve essere molto "concreto", nell'estrarre i dati necessari al calcolo da quelli

che erano e che sono i meta-risultati dello script stesso cioè quello presente al post #10.

:)
 
Ultima modifica:

zetrix

Premium Member
Joe quindi non si puo fare niente ma non so perche lo script deve lavorare in astratto
se gli estratti ce la con l'ambata e vero che ci sono altre condizioni che sono in corso perche
devono finire il ciclo delle 5 estr. forse e questo il motivo perche non si puo fare..
comunque si potrebbe mettere un range piu indietro e vedere tutti i cicli che hanno
terminato le 5 estr. e magari lo script puo lavorare meglio e dire quale sono i numeri
che sono usciti di piu rispetto agli altri numeri..

63 5
21 4
29 4
53 4
56 4
65 4
76 4
90 4
11 3
41 3
45 3
03 2
04 2
07 2
17 2
25 2
26 2
34 2

questa lista che ai fatto quanti cicli di gioco sono 5 o 9 cicli di gioco
 

joe

Advanced Member >PLATINUM<
Non ho guardato ...

Se hai ri-proposto lo script ho pensato che tu volessi fosse "utilizzato" quello.

Così ho fatto.

Dunque è il risultato per lo script del messaggio #10,

di cui ho ti ho chiesto, ed è la ragione della mia domanda

alla quale non ho avuto risposta.

In sintesi c'erano 2 domande (mie):

Ad una hai risposto si.

Ad una non hai risposto.

Quello che ho fatto dunque lavora "dopo" quello script cioè è fatto per quello.

In una sorta di run-time-differito. (Nel "tempo di recupero" per scriverla alla quelli del calcio)

Se usi un altro script come hai scritto ... non si può usare,

Perché probabilmente quest'altro script differente calcola il "sommativo"

ma, non calcola i risultati di questo script-metodo che mi hai proposto.

Comunque sia vedo che i colpi sono 9.

co = 9.

Anche in questo caso se proponi 9 per dire che possono essere 5 ...

... sono una quantità variabile casualmente decisa dall'utente.

Considera che chi traduce in script osserva e si attiene alla descrizione ricevuta,

cioè legge quello che legge, per lo scritto che è scritto.

E ... 5 e/o 9 ... sono la stessa cosa.

Non considerata perché era scritto 9.

:)
 
Ultima modifica:

zetrix

Premium Member
Codice:
Sub Main
   Scrivi : ColoreTesto 1 : Scrivi "1 Ambo su TT per Estr.martedi",0,1,7,4,4
   Scrivi : ColoreTesto 0 : Scrivi
   Dim rt(1),pt(5),R,es
   Dim anum1(5),anum2(5)
   Dim aRetAbb
   Dim k,x,z,a
   pt(1) = 1 ' -> per estratto
   'pt(2) = 1 ' -> per ambo
   'pt(3) = 1 ' -> per terno
   'pt(4) = 1 ' -> per quaterna
   'pt(5) = 1 ' -> per cinquina
   co = 5 '-> colpi di gioco
   rt(1) = TT_ '-> ruota di gioco
   ini = EstrazioneFin - 21
   fin = EstrazioneFin
   For es = ini To fin Step 3
      Messaggio(es)
      'If IndiceMensile(es) = 1 Then ' ->1 estrazione del mese
      'Scrivi String(70,"-")
      anum1(1) = Fuori90(Estratto(es,NA_,2) + 9)
      Scrivi DataEstrazione((es),1) & Space(3) & "2°" & SiglaRuota(NA_) & "" & " +" & "9" & "",0,1,1,4,4
      Scrivi
      Scrivi
      Call Abbina(anum1(1),Ini,fin)
      ImpostaGiocata 1,anum1,rt,pt,co,0
      Gioca es,1,,1
      'ImpostaGiocata 1,anum2,rt,pt,co,0
      'Gioca es,1,,1
   Next
End Sub
Sub Abbina(a,Ini,fin)
   Dim aRetAbb
   For z = 1 To 10
      Call Abbinamenti(a,aRetAbb,Ini,fin,z,0)
      For k = 1 To 5
         Scrivi aRetAbb(k,1) & " ---> con presenze " & aRetAbb(k,2) & " ",0,0,1,4
         Scrivi
      Next
 
   Next
End Sub

Joe ma questo script che ai fatto con Call Abbina ma che numeri calcola


55 ---> con presenze 1
23 ---> con presenze 1
65 ---> con presenze 1
37 ---> con presenze 1
33 ---> con presenze 1
44 ---> con presenze 1
21 ---> con presenze 1
14 ---> con presenze 1
34 ---> con presenze 1
62 ---> con presenze
84 ---> con presenze 2
76 ---> con presenze 1
85 ---> con presenze 1
71 ---> con presenze 1
61 ---> con presenze 1
70 ---> con presenze 1
20 ---> con presenze 1
89 ---> con presenze 1
1 ---> con presenze 1
62 ---> con presenze
60 ---> con presenze
61 ---> con presenze
59 ---> con presenze
57 ---> con presenze
58 ---> con presenze
87 ---> con presenze 1
54 ---> con presenze 1
76 ---> con presenze 1
65 ---> con presenze 1
60 ---> con presenze
86 ---> con presenze 1
57 ---> con presenze 1
71 ---> con presenze 1
45 ---> con presenze 1
58 ---> con presenze
60 ---> con presenze
61 ---> con presenze
59 ---> con presenze
57 ---> con presenze
58 ---> con presenze
15 ---> con presenze 2
30 ---> con presenze 1
53 ---> con presenze 1
43 ---> con presenze 1
76 ---> con presenze 1
82 ---> con presenze 1
39 ---> con presenze 1
23 ---> con presenze 1
78 ---> con presenze 1
61 ---> con presenze

Estrazione generatrice del pronostico 09869 [ 2 - 05/01/2021]
G 0001 Numeri in gioco : 42 su TT per Estratto

V N. [42 ] [TT] [FI][.. 42 .. .. ..] C. 2 Estratto 09871 [ 4 - 09/01/2021] [76.42.84.61.85]
V N. [42 ] [TT] [TO][42 .. .. .. ..] C. 3 Estratto 09872 [ 5 - 12/01/2021] [42.47.36.15.53]
V N. [42 ] [TT] [CA][42 .. .. .. ..] C. 5 Estratto 09874 [ 7 - 16/01/2021] [42.34.14.21.44]
V N. [42 ] [TT] [PA][42 .. .. .. ..] C. 5 Estratto 09874 [ 7 - 16/01/2021] [42.86.57.71.45]
Interrotta per raggiunta durata


lo script dovrebbe fare solo una lista e scrivere tutti i numeri che si sono ripetuti piu volte
in tutti gli estratti dove se verificata l'ambata di calcolo, se vuoi puoi lavorare con questo
script per me va bene i cicli di gioco sono 5 colpi avevo messo 9 colpi ma era una prova
ho visto che lo script fa tante liste e invece ne deve fare solo una con tutti gli estratti
ma ordinati con ordine di presenze spero che non sia difficile forse si RetAbb non va bene
forse si deve usare seriefreturbo ho usato questo codice ma e stato un turbo di minestroni
di numeri

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41
Alto