Novità

xMIKE58

Zetrix

Zetrix

Advanced Premium Member
MIKE dovrei sistemare uno script con le equazioni dell'algebra
lo script lo quasi completato però i calcoli non sono scritti bene nella tabella

7225.PNG

Mike provo a spiegare meglio con questa tabella
allora nella 1 riga abbiamo i numeri estratti
nella 2 riga abbiamo i segni - + ---> e - + la condizione e esatta or se inversa con i segni + e - / + e - /
adesso il problema e nella 3 riga e nella 4 riga perche i calcoli non sono esatti
esempio nella 3 riga dovremmo avere -64+79=+15
se metto lo script riesci a risolvere queste equazioni scritte nel modo esatto
-64+79=+15 ...........+79-14=+65 ...........-14+15=+1
ho usato abs ma non so come scrivere nel modo giusto
N5 = Abs(N1 - N2)
N6 = Abs(N2 - N3)
N7 = Abs(N3 - N4)
i segni - e + sono scritti al contrario ho combinato un pasticcio
MIKE se mi da ok ti metto lo script senza che lo devi fare da inizio
dovresti soltanto sistemare i segni - e + nella tabella

7226.PNG

Mike ho provato a invertire i segni ma sulla 3 riga -55+50 = -5 e invece scrive +5
con l'algebra delle equazioni si possono fare tanti giochi
 
Ultima modifica:
Codice: 
Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7
   Dim A,B,C,D,E,X,Y,R
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
   Dim A2,B2,C2,D2
   Dim S1,S2,S3
   '
   'rk = InputBox("1numero")
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For R = 1 To 10
         '
         A = Estratto(es,R,1)
         B = Estratto(es,R,2)
         C = Estratto(es,R,3)
         D = Estratto(es,R,4)
         E = Estratto(es,R,5)
         '
         '---------------------------------
         ReDim MatriceCaselleDaEvid(5,1)
         '
         MatriceCaselleDaEvid(1,0) = R
         MatriceCaselleDaEvid(1,1) = 1
         '
         MatriceCaselleDaEvid(2,0) = R
         MatriceCaselleDaEvid(2,1) = 2
         '
         MatriceCaselleDaEvid(3,0) = R
         MatriceCaselleDaEvid(3,1) = 3
         '
         MatriceCaselleDaEvid(4,0) = R
         MatriceCaselleDaEvid(4,1) = 4
         '
         MatriceCaselleDaEvid(5,0) = R
         MatriceCaselleDaEvid(5,1) = 5
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
         '
         T1 = Array(T1,"  ","  ","  ","  ","  ","  ","  ","  ")
         'Call InitTabella(T1)
         '-------------------------------
         '-------------------------------
         T1 = Array(T1,Format2(A)," ",Format2(B)," ",Format2(C)," ",Format2(D)," ",Format2(E))
         Call InitTabella(T1)
         Call SetColoreCella(1,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(0,0,255),RGB(255,255,255))
         '-------------------------------
         '---------
         N1 = Abs(A - B)
         N2 = Abs(B - C)
         N3 = Abs(C - D)
         N4 = Abs(D - E)
         '---------------------------------
         If A < B And B > C And C < D And D > E Then
            T2 = Array(T2,"  ",("+" & N1)," ",("-" & N2)," ",("+" & N3)," ",("-" & N4)," ")
            Call AddRigaTabella(T2)
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Else
            If A > B And B < C And C > D And D < E Then
               T2 = Array(T2,"  ",("-" & N1)," ",("+" & N2)," ",("-" & N3)," ",("+" & N4)," ")
               Call AddRigaTabella(T2)
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            End If
         End If
         '--------------------------------
         '-------------------------------
         '---------
         N5 = Abs(N1 - N2)
         N6 = Abs(N2 - N3)
         N7 = Abs(N3 - N4)
         '---------------------------------
         If N1 < N2 And N2 < N3 And N3 < N4 Then
            T3 = Array(T3,"  ","  ",("-" & N5),"  ",("-" & N6),"  ","  ",("-" & N7)," ")
            Call AddRigaTabella(T3)
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Else
            '--------------------------------
            T3 = Array(T3,"  ","  ",("+" & N5),"  ",("+" & N6),"  ",("+" & N7)," "," ")
            Call AddRigaTabella(T3)
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         End If
         '---------
         N8 = Abs(N5 + N6)
         N9 = Abs(N6 + N7)
         '---------------------------------
         If N5 < N6 And N6 < N7 Then
            T4 = Array(T4,"  ","  "," ",("-" & N8),"  ",("-" & N9),"  ","  "," ")
            Call AddRigaTabella(T4)
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         Else
            T4 = Array(T4,"  ","  "," ",("+" & N8),"  ",("+" & N9),"  "," "," ")
            Call AddRigaTabella(T4)
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         End If
         '---------------------------------------------
         N10 = Abs(N8 + N9)
         '
         '
         If N8 > N9 Then
            '---------------------------------
            T5 = Array(T5," "," "," "," ",("+" & N10)," "," "," "," ")
            Call AddRigaTabella(T5)
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         Else
            T5 = Array(T5," "," "," "," ",("-" & N10)," "," "," "," ")
            Call AddRigaTabella(T5)
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         End If
         '
         '---------------------------------
         T6 = Array(T6," "," "," "," "," "," "," "," "," ")
         Call AddRigaTabella(T6)
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         Call SetTableWidth("19%")
         CreaTabella
      Next
   Next
End Sub

MIKE questo e lo script che ho fatto vedi tu se riesci a sistemare meglio i segni + e -
nella tabella
 
zetrix , forzando tutto si può scrivere, così come tu li vuoi bisogna forzarli.
abs è una differenza e ritorna un numero positivo se ad esempio e -17 ritorna 17 e non va bene...
ad ogni modo devi ingegnarti e forzarli.... poi se vuoi scrivere anche operatore logico tutto è più complesso.
comunque ecco la mia variante forzata.
Codice: 
Sub Main
   Dim T,Nu(5)
   fin = EstrazioneFin
   T = Array(T,"E1","-","E2","-","E3","-","E4","-","E5"," -- ")
   Call InitTabella(T)
   r = 2
   For p = 1 To 5
      Nu(p) = Estratto(fin,r,p)
   Next
   T = Array(T,Nu(1),".",Nu(2),".",Nu(3),".",Nu(4),".",Nu(5),".")
   AddRigaTabella(T)
   n1 = Nu(2) - Nu(1) : If n1 > 0 Then n1 = "+" & n1
   n2 = Nu(3) - Nu(2) : If n2 > 0 Then n2 = "+" & n2
   n3 = Nu(4) - Nu(3) : If n3 > 0 Then n3 = "+" & n3
   n4 = Nu(5) - Nu(4) : If n4 > 0 Then n4 = "+" & n4
   T = Array(T,".",n1,".",n2,".",n3,".",n4,".",".")
   Call AddRigaTabella(T)
   nn1 = n2 + n1 : If nn1 > 0 Then nn1 = "+" & nn1
   nn2 = n3 + n2 : If nn2 > 0 Then nn2 = "+" & nn2
   nn3 = n4 + n3 : If nn3 > 0 Then nn3 = "+" & nn3
   T = Array(T,".",".",(nn1),".",nn2,".",nn3,".",".",".")
   Call AddRigaTabella(T)
   n5 = nn2 - nn1 : If n5 > 0 Then n5 = "+" & n5
   n6 =(n4 + n3) +(n3 + n2) : If n6 > 0 Then n6 = "+" & n6
   'If nn3 > 0 And nn2 > 0 Then n6 = nn2+nn3 : nn6 = n6+n6
   T = Array(T,".",".",".",n5,".",(n6),".",".",".",".")
   Call AddRigaTabella(T)
   n7 =(nn2 - nn1) + n6 : If n7 > 0 Then n7 = "+" & n7
   T = Array(T,".",".",".",".",n7,".",".",".",".",".")
   Call AddRigaTabella(T)
   CreaTabella
End Sub

E1​
-​
E2​
-​
E3​
-​
E4​
-​
E5​
--​
86​
.​
31​
.​
81​
.​
71​
.​
84​
.​
.​
-55​
.​
+50​
.​
-10​
.​
+13​
.​
.​
.​
.​
-5​
.​
+40​
.​
+3​
.​
.​
.​
.​
.​
.​
+45​
.​
+43​
.​
.​
.​
.​
.​
.​
.​
.​
+88​
.​
.​
.​
.​
.​
 
zetrix cerca di capire il mio di schema, qualche tuo schema può non funzionare e va forzato.
 
grazie Mike ma a quanto ho visto non e semplice scrivere quella formula con i segni - e +
ma sembra che ci sono degli errori nella 3 riga -5+40=+35 e invece scrive +45
mi sembra che non si puo fare il calcolo che vorrei scrivere nella tabella


7226.PNG

Mike la tabella completa mi serve per un altro studio
se vuoi avere un ambata fai questo calcolo sulla 1 riga
-55 e -10 = -65 somma prima i due numeri con il segno -
e somma gli altri due numeri con il segno +
+50 e +13 = +63
-65+63=-2
se il risultato a il segno - si addiziona +90
-2+90=88 (ambata)

comunque a quanto ho visto e troppo difficile scrivere i segni - e + in modo corretto
sulla 1 riga non e un problema e la continuazione della tabella che diventa piu difficile
intanto grazie per lo script poi vedrò se riesco a modificare il mio script..
comunque il risultato finale della tabella da 88 allora puo darsi che va bene anche cosi..

ciao

Mike questa tabella e solo un aperitivo ho scritto piu di una decina di script con l'algebra..
 
Ultima modifica:
Zetrix, purtroppo i numeri raccolti sono stati adattati come formula, ma non rappresentano un numero ma una stringa con operatore + - .
Adattare, Rappresentare è una cosa , avere una formula algebrica che dia un risultato True è altra cosa.
Secondo me devi togliere l'operatore "+" e provare le formule senza necessariamente quell'operatore.
 
7227.PNG

Mike ho fatto una modifica al mio script questa tabella i segni + e - sono corretti
ma in altre tabelle no..
 
Mike58 ha scritto:
Zetrix, purtroppo i numeri raccolti sono stati adattati come formula, ma non rappresentano un numero ma una stringa con operatore + - .
Adattare, Rappresentare è una cosa , avere una formula algebrica che dia un risultato True è altra cosa.
Secondo me devi togliere l'operatore "+" e provare le formule senza necessariamente quell'operatore.
Clicca per espandere...

ok Mike non sarà facile ma ci provo con la programmazione sugli script non e che riesco a fare tanto
ho fatto queste tabelle grazie al tuo aiuto che ai messo nel forum..
ma sto imparando un po alla volta ma sto imparando e ne ho scritti piu di una decina di tabelle con l'algebra

7224.PNG

Mike ci sono dei programmi che fanno questo lavoro ma io li ho scritti in spaziometria
questa e un altra espressione che si fa con l'algebra

14.10.2023
Bari 67 06 66 33 49

17.10.2023
Bari 69 47 83 53 19
 
Ultima modifica:
Zetrix se vedi questo altro esempio, i calcoli sono più accessibili e veritieri nelle formule.
Io le ho messi in riga ma nulla vieta poi di scriverli in NumeriVettori singoli.
Ti devi aiutare con gli if then se il 1° numero è negativo devi fare la somma , se è positivo devi fare la sottrazione.


Codice: 
Sub Main
Dim Nu(5),d(4),dd(3),ddd(2)
  fin = EstrazioneFin
  r = 2
  For p = 1 To 5
   Nu(p) = Estratto(fin,r,p)
   Next
   d(1) = Nu(2)-Nu(1)
   d(2) = Nu(3)-Nu(2)
   d(3) = Nu(4)-Nu(3)
   d(4) = Nu(5)-Nu(4)
   For x = 1 To UBound(d)
   riga = riga & Format2(d(x)) & " "
   Next
   dd(1) = d(1)+d(2)
   dd(2) = d(2)+d(3)
   dd(3) = d(3)+d(4)
   For xx = 1 To UBound(dd)
   riga2 = riga2 & Format2(dd(xx)) & " "
   Next
   ddd(1) = dd(2)-dd(1)
   ddd(2) = dd(3)+dd(2)
   For y = 1 To UBound(ddd)
   riga3 = riga3 & Format2(ddd(y)) & " "
   Next
   riga4 = ddd(1)+ddd(2)
   Scrivi StringaNumeri(Nu,,1)
   Scrivi riga
   Scrivi " " & riga2
   Scrivi "   " & riga3
   Scrivi "     " & riga4
 
End Sub
86.31.81.71.84
-55 50 -10 13
-05 40 03
45 43
88
 
7228.png

Mike vedi cosa sono riuscito a fare con le tabelle su ogni ruota posso vedere tutte le quadrature
e di queste tabelle ne ho scritto diverse anche su due ruote
 
Questa lo so che è la tua abilità non demordere nel capire anche gli escamotage nel linguaggio scriptico.
Ciao
 
7230.PNG

Mike ho tolto i segni + e - nello script e ho scritto una altra formula
ma ho notato che il segno + non lo scrive in tabella e questo e un problema
l'espressione algebrica e -19+39=+20 invece nella tabella scrive solo il 20
invece i segni - li scrive ma non so perche non scrive pure il segno +
se fai la stessa espressione nella calcolatrice scrive 20 e non +20
quindi dovrei scrivere il segno + nella tabella..

N5 =(- N1 + N2)
N6 =(+ N2 - N3)
N7 =(- N3 + N4)
Else
N5 =(+ N1 - N2)
N6 =(- N2 + N3)
N7 =(+ N3 - N4)

come vedi ho tolto anche l'abs ma forse dovrò usare un altra formula..
la 4 e 5 riga la devo ancora sistemare perche la formula non e esatta
 
Ultima modifica:
7235.PNG

Mike sono riuscito a scrivere nella tabella l'espressione algebrica esatta nella tabella
quindi i cinque estratti a BA da questa espressione algebrica -114
adesso usando una calcolarice a nastro vediamo i seguenti calcoli..

Codice: 
62 +
43 +
82 +
10 +
14 +
--------------------------
211 =
 
114 -
--------------------------
97 =
 
------------------------------------------------------------------------

114 -
90 +
--------------------------
-24 =
 
90 +
--------------------------
66 =

Mike queste sono delle prove dovremmo vedere se nelle prossime estr
a BA esce il 7 o il 66 or tutti e due in ambo
il 7 sembra interessante a BA E uscito il nr 82 e il suo complemento a 89



Codice: 
numeri a complemento 89

01-88     
04-85   
07-82     
10-79   
13-76           
16-73   
19-70   
22-67   
25-64   
28-61   
31-58   
34-55   
37-52   
40-49   
43-46
---------------------- 
 89


7236.PNG

Codice: 
19 -
39 +
72 -
4 +
--------------------------
-48 =
 
90 +
--------------------------
42 =
 


20 +
33 -
68 -
--------------------------
-81 =
 
90 +
--------------------------
9 =
 



13 -
101 -
--------------------------
-114 =
 
90 +
--------------------------
-24 =
 
90 +
--------------------------
66 =
 
Ultima modifica:
7240.png

Mike se devi giocare a BA fai attenzione al 72
l'estratto determinato vedi la tabella dei rit..
questa e una ambata algebrica ideata da me..

per ambo prova il 72 49
72:2=36:9=4+45=49
4x9=36x2=72

ciao

Codice: 
61 -
60 +
33 -
16 +
--------------------------
-18 =
 
90 +
--------------------------
72 =
 
Ultima modifica:
7249.png

Mike se no prova a fare uno script simile a questa tabella
esempio calcoliamo sui numeri estratti invece che con i segni + e -
1 e 3 = + 20 ...... 2 e 4 = -33 ....... 3 e 5= -68
1 e 4= -52 ...... 2 e 5= -29
1 e 5 = -48
90-62=28+82=110 fuori90 (+20)

If A > C Then
N5 =(A - C)
Else
N5 = Fuori90(90 - A + C)
End If


7246.PNG
 
Ultima modifica:
Mike se no prova a vedere questo mio script forse ho sbagliato qualcosa
alcune tabelle non sono scritte in modo corretto..


Codice: 
Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7
   Dim A,B,C,D,E,X,Y,R
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
   Dim A2,B2,C2,D2
   Dim S1,S2,S3
   '
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For R = 1 To 10
         '
         A = Estratto(es,R,1)
         B = Estratto(es,R,2)
         C = Estratto(es,R,3)
         D = Estratto(es,R,4)
         E = Estratto(es,R,5)
         '
         '---------------------------------
         ReDim MatriceCaselleDaEvid(5,1)
         '
         MatriceCaselleDaEvid(1,0) = R
         MatriceCaselleDaEvid(1,1) = 1
         '
         MatriceCaselleDaEvid(2,0) = R
         MatriceCaselleDaEvid(2,1) = 2
         '
         MatriceCaselleDaEvid(3,0) = R
         MatriceCaselleDaEvid(3,1) = 3
         '
         MatriceCaselleDaEvid(4,0) = R
         MatriceCaselleDaEvid(4,1) = 4
         '
         MatriceCaselleDaEvid(5,0) = R
         MatriceCaselleDaEvid(5,1) = 5
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
         '
         T1 = Array(T1,"  ","  ","  ","  ","  ","  ","  ","  ")
         'Call InitTabella(T1)
         '-------------------------------
         '-------------------------------
         T1 = Array(T1,Format2(A)," ",Format2(B)," ",Format2(C)," ",Format2(D)," ",Format2(E))
         Call InitTabella(T1)
         Call SetColoreCella(1,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(0,0,255),RGB(255,255,255))
         '-------------------------------
         '---------
         N1 = Abs(A - B)
         N2 = Abs(B - C)
         N3 = Abs(C - D)
         N4 = Abs(D - E)
         '---------------------------------
         If A < B And B > C And C < D And D > E Then
            T2 = Array(T2,"  ",("+" & N1)," ",("-" & N2)," ",("+" & N3)," ",("-" & N4)," ")
            Call AddRigaTabella(T2)
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Else
            If A > B And B < C And C > D And D < E Then
               T2 = Array(T2,"  ",("-" & N1)," ",("+" & N2)," ",("-" & N3)," ",("+" & N4)," ")
               Call AddRigaTabella(T2)
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            End If
         End If
         '--------------------------------
         '-------------------------------
         '---------
         '---------------------------------
         If A > C Then
            N5 =(A - C)
         Else
            N5 = Fuori90(90 - A + C)
         End If
         If B > D Then
            N6 =(B - D)
         Else
            N6 = Fuori90(90 - B + D)
         End If
         If C > E Then
            N7 =(C - E)
         Else
            N7 = Fuori90(90 - C + E)
         End If
         '--------------------------------
         T3 = Array(T3,"  ","  ",("+" & N5),"  ",("-" & N6),"  ",("-" & N7)," "," ")
         Call AddRigaTabella(T3)
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         If A > D And B > E Then
            N8 =(A - D)
            N9 =(B - E)
            '---------
            '---------------------------------
            T4 = Array(T4,"  ","  ","  ",("-" & N8),"  ",("-" & N9),"  ","  "," ")
            Call AddRigaTabella(T4)
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         End If
         '---------------------------------------------
         '
         If A > E Then
            N10 =(A - E)
            '
            '---------------------------------
            T5 = Array(T5," "," "," "," ",("-" & N10)," "," "," "," ")
            Call AddRigaTabella(T5)
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         Else
            N10 = Fuori90(90 - A + E)
            '
            T5 = Array(T5," "," "," "," ",("+" & N10)," "," "," "," ")
            Call AddRigaTabella(T5)
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            '--------------------------------
         End If
         '
         '---------------------------------
         T6 = Array(T6," "," "," "," "," "," "," "," "," ")
         Call AddRigaTabella(T6)
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         Call SetTableWidth("19%")
         CreaTabella
      Next
   Next
End Sub
 
Zetrix, mi spiace ma non ci capisco nulla, gli intrecci li fai tu e li forzi tu, anche a leggerlo mi perdo.
Mi spiace ma devi provare e riprovare.
Comunque anche nella tabella cruciverba non mettere gli spazi vuoti " " altrimenti non vengono scritti, usa un carattere negli spazi " -- ".
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 gennaio 2025
    Bari
    47
    06
    65
    72
    48
    Cagliari
    75
    33
    52
    59
    73
    Firenze
    08
    05
    35
    74
    81
    Genova
    33
    59
    68
    27
    07
    Milano
    68
    12
    60
    51
    65
    Napoli
    49
    17
    10
    71
    87
    Palermo
    31
    64
    45
    04
    47
    Roma
    18
    84
    43
    28
    31
    Torino
    14
    23
    33
    16
    84
    Venezia
    39
    41
    08
    02
    86
    Nazionale
    63
    41
    58
    16
    01
    Estrazione Simbolotto
    Bari
    45
    03
    38
    41
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto