Novità

METODO QUESTI NUMERETTI !!!!!

Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruota,poste,k
                     ImpostaGiocata 2,ambo2,ruota,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruota,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,1
End Sub

imaging ho fatto questo script vedi se e esatto..
 
IL listato che hai scritto è una bomba i calcoli sembrano giusti semplicemente bello......:)(y)
 
Non lo so è una sciocchezza di osservazione ma la ruota della Nazionale non fa parte del metodo ??? Cosi.........
 
la nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
stasera sono inca. perche ho cambiato una previsione..
e stasera e uscita proprio quella previsione che ho cambiata..
 
Zetrix ha scritto:
la nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
Clicca per espandere...
Ci sono troppi rompi cogl.......sono con te ma specifico per chi giocherà il metodo Quindi quando si presenta cosiESTR Met.JPGESTR. METODO1.JPG
si faranno i calcoli a mano O... NO ;)
 
Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 11
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
               '
               If r2 = 11 Then r2 = 12 End If
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruota,poste,k
                     ImpostaGiocata 2,ambo2,ruota,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruota,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,1
End Sub

prova questo script ho aggiunto anche la nazionale vedi se i calcoli sono esatti..
 
Buongiorno per quanti colpi si giocano le previsioni? dallo script ho visto che non ci sono dei colpi stabiliti.... grazie
 
Zetrix ha scritto:
la nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
stasera sono inca. perche ho cambiato una previsione..
e stasera e uscita proprio quella previsione che ho cambiata..
Clicca per espandere...
Escono sempre quando non si giocano strano caso.....
 
Solo per una piccola riflessione con la previsione questi Numeretti VE-NZ. 1.6.43 al 2° colpo terno secco TT.(MI):unsure::unsure::unsure:
 
kalat ha scritto:
ciao, come posso scaricare questo script. grazie
Clicca per espandere...
ciao questi script non si scaricano non sono programmi che si scaricano e poi si installano
si deve copiare lo script e poi incollarlo nello spazio elabora script di spaziometria
per default nello spazio elabora script ci sono queste scritte queste si devono cancellare
non ci deve stare scritto niente poi si puo incollare lo script e spaziometria elabora lo script..

Option Explicit
Sub Main

End Sub
 
3808.png
7_______8_________?
___(+1)____(+1)____

Numeri in gioco 09 su BA CA FI per Estratto
[BA] [09 .. .. .. ..] C.3 Estratto [19/07/2022] [09.58.51.77.18]
[FI] [.. 09 .. .. ..] C.10 Estratto [04/08/2022] [61.09.67.28.58]

-------------------------------------------------------
Numeri in gioco 09.67 su TT per Ambo
[FI][.. 09 67 .. ..] C.10 Ambo [04/08/2022] [61.09.67.28.58]

Numeri in gioco 09.77 su TT per Ambo
[BA][09 .. .. 77 ..] C.3 Ambo [19/07/2022] [09.58.51.77.18]

-------------------------------------------------------
 
Ultima modifica:
Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 11
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  If r2 = 11 Then r2 = 12 End If
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruote,poste,k
                     ImpostaGiocata 2,ambo2,ruote,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruote,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,1,5,4,4,8
   Scrivi "richiesta di Imaging",0,1,1,5,4,4,8
End Sub

scusa Imaging non avevo messo il gioco a tutte
adesso lo script evidenzia il terno 1 6 43 a MI (TT)
 
Ultima modifica:
Zetrix ha scritto:
Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 11
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  If r2 = 11 Then r2 = 12 End If
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruote,poste,k
                     ImpostaGiocata 2,ambo2,ruote,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruote,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,1,5,4,4,8
   Scrivi "richiesta di Imaging",0,1,1,5,4,4,8
End Sub

scusa Imaging non avevo messo il gioco a tutte
adesso lo script evidenzia il terno 1 6 43 a MI (TT)
Clicca per espandere...
Non ci sono scuse ;)(y)era già tutto a posto !!!!!!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 09 maggio 2026
    Bari
    65
    02
    64
    85
    33
    Cagliari
    28
    76
    58
    69
    64
    Firenze
    15
    87
    69
    64
    22
    Genova
    36
    34
    40
    55
    52
    Milano
    66
    27
    36
    11
    56
    Napoli
    51
    75
    66
    38
    24
    Palermo
    28
    41
    02
    40
    44
    Roma
    38
    34
    07
    36
    16
    Torino
    54
    62
    73
    64
    30
    Venezia
    81
    41
    84
    64
    89
    Nazionale
    05
    56
    68
    71
    31
    Estrazione Simbolotto
    Milano
    32
    27
    22
    20
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto