Novità

aiuto per script complicato

ghio

Super Member >PLATINUM<
quello di ieri mi sembra ottimo , se come detto ieri riuscissimo ad elaborare un insieme di 8o9
Sviluppa Lunga in classe",,2
senza che dia errore come dicevi tu ieri e in minore tempo sarebbe il top
 
R

Rubino

Guest
Ghio ti chiedo scusa se mi sono fermato
sto facendo dei lavori in casa.
 
Ultima modifica di un moderatore:
R

Rubino

Guest
aggiornamento

script "P.ghio.04" (provvisorio o bozza)

per elaborazione ambi 1 minuto circa
per elaborazione terzine per ambo o terno 16 minuti circa

ho effettuato dei controlli formali per l'esattezza dei dati esposti, e sembra a prima vista che sia esatto,
ma potrebbero esserci imperfezioni da qualche parte nell'output o nell'elaborazione.


soggetto a nuove idee per perfezionare il metodo, quindi e parziale indicazione nel contesto e non nello specifico.

Codice:
Option Explicit
Sub Main
   Dim aruote(10),uscite2(4950,2),uscite3(484950,2)
   Dim listapd,es,Inizio,I,RU,P,ES1,ES2,RU2,P2,ritardo,selx,sel,R,fine,Poru,Popo,g,ambi,terni,P1,N1,R1,P3,R3,N3,N2,R2,RU1,RU3
   Dim lunga,q,e,nu,ct,Classe,coltot,acol,num,sorte,Retestratti,retidestr,a,b,key,key2,key3,c,nu1,nu2,nu3,cts,det,ctt,retesito,cst
   fine = InputBox("Situazione all'estrazione ",,9659)
   es = CInt(InputBox("Quante estrazioni vuoi controllare ?",,100))
   Classe = InputBox("Sviluppa Lunga in classe",,2)
   sorte = InputBox("Sorte 2,3",,2)
   det = InputBox("Vuoi elenco dettagliato S/N ",,"N")
   Inizio = fine + 1 - es
   Scrivi " P.ghio.04      PERIODO Estrazioni Esaminate " & Inizio & "  :  " & fine,1
   For R = 1 To 10
      aruote(R) = R
   Next
   '''ciclo
   For es = Inizio To fine
      ct = ct + 1
      num = 0 : I = 0
      Messaggio(es)
      ReDim nuMERI(50),anum(50)
      For RU = 1 To 10
         For P = 1 To 5
            nu = Estratto(es,RU,P)
            num = num + 1
            nuMERI(num) = Format2(nu)
            anum(num) = num
         Next
      Next
      lunga = "": q = 0
      For e = 1 To 50
         If nuMERI(e) > 0 Then
            q = q + 1
            lunga = lunga & Format2(nuMERI(e)) & "."
         End If
      Next
'      ColoreTesto(0)
'      Scrivi es & "  qt." & q & "   " & lunga,1
      ReDim acol2(Classe)
      coltot = InitSviluppoIntegrale(anum,Classe)
      If coltot > 0 Then
         Do While GetCombSviluppo(acol) = True
            For g = 1 To Classe
               acol2(g) = nuMERI(acol(g))
            Next
            I = I + 1
            Messaggio(es & " / " & I)
            Call VerificaEsitoTurbo(acol2,aruote,es + 1,sorte,1,,,,Retestratti,retidestr)
            If Retestratti <> "" Then
               If Classe = 2 Then
                  key = Format2(acol(1)) & Format2(acol(2))
                  uscite2(key,1) = uscite2(key,1) + 1
                  uscite2(key,2) = key
               End If
               '''
               If Classe = 3 Then
                  key = Format2(acol(1)) & Format2(acol(2)) & Format2(acol(3))
                  uscite3(key,1) = uscite3(key,1) + 1
                  uscite3(key,2) = key
               End If
               If det = "s" Then
               ColoreTesto(1)
               Scrivi retidestr & " Pos." & Format2(acol(1)) & " " & Format2(acol(2)) & "  Nr. " & StringaNumeri(acol2," ") & "  colpo n. " & retidestr - es & "   " & Retestratti
               ColoreTesto(0)
               End If
            End If
         Loop
      End If
   Next
   Scrivi "Esaminate n.estr." & ct,1
   ''''''''' per elaborazione coppie o ambi
   If Classe = 2 Then
   Call OrdinaMatrice(uscite2,- 1,1)
      For a = 1 To 4950
         If uscite2(a,1) > 0 Then
            '''''decodifica ed intercetta nuove in gioco
            N1 = "" : N3 = "":RU1 = "" : RU3 = ""
            P1 = Int(Left(uscite2(a,2),2)) : P3 = Int(Right(uscite2(a,2),2))
            Call ambiattuali(fine,P1,P3,nu1,nu2,RU1,RU3,N1,N3)
            '''
            Scrivi uscite2(a,2) & "    " & uscite2(a,1) & "   >>>>  " & RU1 & "..." & Format2(N1) & "   " & RU3 & "..." & Format2(N3) & "  //   " & fine & "  ..   " & Format2(nu1) & "." & Format2(nu2)
            ReDim aN(2),aRT(10)
            aN(1) = nu1 : aN(2) = nu2 : aRT(1) = 11
            Call VerificaEsitoTurbo(aN,aRT,fine + 1,2,,,retesito,,Retestratti,retidestr)
            If Retestratti <> "" Then
               cts = cts + 1
               ColoreTesto(2)
               Scrivi "--------->>> " & retidestr & "  COLPO N." & retidestr - fine & "..." & Retestratti & "    " & retesito,1
               ColoreTesto(0)
            End If
            ambi = ambi + 1
         End If
      Next
   End If
   ''''   per elaborazione terzine
   If Classe = 3 Then
   Call OrdinaMatrice(uscite3,- 1,1)
      For a = 1 To 484950
         If uscite3(a,1) > 0 Then
                     '''''decodifica ed intercetta nuove in gioco
            N1 = "" : N2 = "" : N3 = "":R1 = "" : R2 = "" : R3 = ""
            P1 = Int(Left(uscite3(a,2),2)) : P2 = Mid(uscite3(a,2),3,2) : P3 = Int(Right(uscite3(a,2),2))
            Call terniattuali(fine,P1,P2,P3,nu1,nu2,nu3,R1,R2,R3,N1,N2,N3)
            '''
            Scrivi uscite3(a,2) & "    " & uscite3(a,1) & "   >>>>  " & R1 & ".." & Format2(N1) & "  " & R2 & ".." & Format2(N2) & "  " & R3 & ".." & Format2(N3) & "  //   " & fine & "  ..   " & Format2(nu1) & "." & Format2(nu2) & "." & Format2(nu3)
            ReDim aN(3),aRT(10)
            aN(1) = nu1 : aN(2) = nu2 : aN(3) = nu3 : aRT(1) = 11
            Call VerificaEsitoTurbo(aN,aRT,fine + 1,sorte,,,retesito,,Retestratti,retidestr)
            If Retestratti <> "" Then
            If sorte = 2 Then ctt = ctt + 1
            If sorte = 3 Then cst = cst + 1
               ColoreTesto(2)
               Scrivi "--------->>> " & retidestr & "  COLPO N." & retidestr - fine & "..." & Retestratti & "...." & retesito,1
               ColoreTesto(0)
            End If
            Scrivi uscite3(a,2) & "    " & uscite3(a,1)
            terni = terni + 1
         End If
      Next
   End If
   ColoreTesto(1)
   Scrivi "Totale ambi  " & ambi,1
   Scrivi "Ambi Usciti a Tutte negli ultimi 13 concorsi " & cts,1
   Scrivi
   Scrivi "Totale Terni " & terni,1
   Scrivi "Terzine Uscite a Tutte negli ultimi 13 concorsi " & ctt,1
   Scrivi "Terni   Usciti a Tutte negli ultimi 13 concorsi " & cst,1
   Scrivi
   Scrivi "Richiesta classe sviluppo " & Classe,1
   Scrivi "Richiesta per la sorte    " & sorte,1
   Scrivi TempoTrascorso,1
End Sub
Function ambiattuali(fine,P1,P3,nu1,nu2,ru1,ru3,N1,N3)
   Dim MatriceEstrRitorno,r1,pos,x
   Dim cinquanta(50)
   nu1 = "":nu2 = "":pos = 0:x = 0
   '''
   Call GetEstrazioneCompleta(fine,MatriceEstrRitorno)
   For r1 = 1 To 10
      For pos = 1 To 5
         x = x + 1
         cinquanta(x) = MatriceEstrRitorno(r1,pos)
      Next
   Next
   nu1 = cinquanta(P1)
   nu2 = cinquanta(P3)
   If P1 < 6 Then
      ru1 = SiglaRuota(1)
      N1 = P1
   Else
      ru1 = SiglaRuota(Int((P1/5) + 1))
      If ru1 = "TT" Then ru1 = "VE"
      If Int(Right(P1,1)) > 5 Then
         N1 = Int(Right(P1,1)) - 5
      Else
         N1 = Int(Right(P1,1))
      End If
      If N1 = 0 Then N1 = 5
   End If
   If P3 < 6 Then
      ru3 = SiglaRuota(1)
      N3 = P3
   Else
      ru3 = SiglaRuota(Int((P3/5) + 1))
      If ru3 = "TT" Then ru3 = "VE"
      If Int(Right(P3,1)) > 5 Then
         N3 = Int(Right(P3,1)) - 5
      Else
         N3 = Int(Right(P3,1))
      End If
      If N3 = 0 Then N3 = 5
   End If
End Function
Function terniattuali(fine,P1,P2,P3,nu1,nu2,nu3,R1,R2,R3,N1,N2,N3)
   Dim MatriceEstrRitorno,Rx1,pos,x
   Dim cinquanta(50)
   nu1 = "":nu2 = "":nu3 = "" : pos = 0:x = 0
   '''
   Call GetEstrazioneCompleta(fine,MatriceEstrRitorno)
   For Rx1 = 1 To 10
      For pos = 1 To 5
         x = x + 1
         cinquanta(x) = MatriceEstrRitorno(Rx1,pos)
      Next
   Next
   nu1 = cinquanta(P1)
   nu2 = cinquanta(P2)
   nu3 = cinquanta(P3)
   If P1 < 6 Then
      R1 = SiglaRuota(1)
      N1 = P1
   Else
      R1 = SiglaRuota(Int((P1/5) + 1))
      If R1 = "TT" Then R1 = "VE"
      If Int(Right(P1,1)) > 5 Then
         N1 = Int(Right(P1,1)) - 5
      Else
         N1 = Int(Right(P1,1))
      End If
      If N1 = 0 Then N1 = 5
   End If
   ''''
   If P2 < 6 Then
      R2 = SiglaRuota(1)
      N2 = P2
   Else
      R2 = SiglaRuota(Int((P2/5) + 1))
      If R2 = "TT" Then R2 = "VE"
      If Int(Right(P2,1)) > 5 Then
         N2 = Int(Right(P2,1)) - 5
      Else
         N2 = Int(Right(P2,1))
      End If
      If N2 = 0 Then N2 = 5
   End If
''''
   If P3 < 6 Then
      R3 = SiglaRuota(1)
      N3 = P3
   Else
      R3 = SiglaRuota(Int((P3/5) + 1))
      If R3 = "TT" Then R3 = "VE"
      If Int(Right(P3,1)) > 5 Then
         N3 = Int(Right(P3,1)) - 5
      Else
         N3 = Int(Right(P3,1))
      End If
      If N3 = 0 Then N3 = 5
   End If
End Function
 
R

Rubino

Guest
non e proprio cosi
la modifica attuale e' stata decodificare le posizioni
in ambi o terni alla estrazione che si vuole fare un controlli
da quella estrazione
fare il verifica esiti nell arco dei 13 colpi successivi
vedere dove escono su quale ruota e a tutte
contarli e sapere se e quanti risulterebbero

Giusti

ora bisogna solo scremarli un po o ridurne il numero
oppure raggrupparli per gruppi controllati
Che vanno a segno sempre nei 13 colpi.
e provare.
 
R

Rubino

Guest
sempre stesso tempo di elaborazione 1 minuto circa per sorte ambo

Riepilogo dei gruppi di somma dall'estrazione n.9673 del 24.08.2019

Somma..05...qt.comb.001 Esiti..
Somma..06...qt.comb.002 Esiti..
Somma..07...qt.comb.007 Esiti..
Somma..08...qt.comb.012 Esiti..
Somma..09...qt.comb.023 Esiti..
Somma..10...qt.comb.030 Esiti..
Somma..11...qt.comb.041 Esiti..
Somma..12...qt.comb.046 Esiti..
Somma..13...qt.comb.053 Esiti..
Somma..14...qt.comb.051 Esiti..
Somma..15...qt.comb.064 Esiti..
Somma..16...qt.comb.064 Esiti..
Somma..17...qt.comb.073 Esiti..
Somma..18...qt.comb.074 Esiti..
Somma..19...qt.comb.082 Esiti..
Somma..20...qt.comb.081 Esiti..
Somma..21...qt.comb.071 Esiti..
Somma..22...qt.comb.058 Esiti..
Somma..23...qt.comb.060 Esiti..
Somma..24...qt.comb.048 Esiti..
Somma..25...qt.comb.038 Esiti..
Somma..26...qt.comb.033 Esiti..
Somma..27...qt.comb.030 Esiti..
Somma..28...qt.comb.024 Esiti..
Somma..29...qt.comb.016 Esiti..
Somma..30...qt.comb.006 Esiti..
Somma..31...qt.comb.009 Esiti..
Somma..32...qt.comb.003 Esiti..

Totale ambi 1100
 
Ultima modifica di un moderatore:
R

Rubino

Guest
in specifico il risultato è questo


Riepilogo Gruppi di Somma all'estrazione n.9673
Somma..05 MI...qt.comb.001
--
Somma..06 TO...qt.comb.001
Somma..06 VE...qt.comb.001
--
Somma..07 MI...qt.comb.004
Somma..07 RO...qt.comb.003
--
Somma..08 BA...qt.comb.002
Somma..08 MI...qt.comb.003
Somma..08 NA...qt.comb.002
Somma..08 TO...qt.comb.003
Somma..08 VE...qt.comb.002
--
Somma..09 BA...qt.comb.005
Somma..09 CA...qt.comb.001
Somma..09 FI...qt.comb.001
Somma..09 GE...qt.comb.002
Somma..09 MI...qt.comb.002
Somma..09 NA...qt.comb.003
Somma..09 PA...qt.comb.001
Somma..09 RO...qt.comb.008
--
Somma..10 BA...qt.comb.006
Somma..10 CA...qt.comb.001
Somma..10 FI...qt.comb.003
Somma..10 GE...qt.comb.005
Somma..10 MI...qt.comb.002
Somma..10 NA...qt.comb.003
Somma..10 RO...qt.comb.003
Somma..10 TO...qt.comb.005
Somma..10 VE...qt.comb.002
--
Somma..11 BA...qt.comb.007
Somma..11 CA...qt.comb.005
Somma..11 FI...qt.comb.006
Somma..11 GE...qt.comb.007
Somma..11 MI...qt.comb.002
Somma..11 NA...qt.comb.004
Somma..11 PA...qt.comb.003
Somma..11 RO...qt.comb.006
Somma..11 TO...qt.comb.001
--
Somma..12 BA...qt.comb.008
Somma..12 CA...qt.comb.007
Somma..12 FI...qt.comb.011
Somma..12 GE...qt.comb.004
Somma..12 MI...qt.comb.002
Somma..12 NA...qt.comb.006
Somma..12 PA...qt.comb.005
Somma..12 TO...qt.comb.003
--
Somma..13 BA...qt.comb.014
Somma..13 CA...qt.comb.006
Somma..13 FI...qt.comb.008
Somma..13 GE...qt.comb.005
Somma..13 MI...qt.comb.004
Somma..13 NA...qt.comb.006
Somma..13 PA...qt.comb.002
Somma..13 RO...qt.comb.004
Somma..13 TO...qt.comb.004
--
Somma..14 BA...qt.comb.010
Somma..14 CA...qt.comb.006
Somma..14 FI...qt.comb.008
Somma..14 GE...qt.comb.005
Somma..14 MI...qt.comb.008
Somma..14 NA...qt.comb.004
Somma..14 PA...qt.comb.006
Somma..14 RO...qt.comb.002
Somma..14 TO...qt.comb.002
--
Somma..15 BA...qt.comb.008
Somma..15 CA...qt.comb.009
Somma..15 FI...qt.comb.011
Somma..15 GE...qt.comb.003
Somma..15 MI...qt.comb.011
Somma..15 NA...qt.comb.004
Somma..15 PA...qt.comb.007
Somma..15 RO...qt.comb.003
Somma..15 TO...qt.comb.005
Somma..15 VE...qt.comb.003
--
Somma..16 BA...qt.comb.015
Somma..16 CA...qt.comb.007
Somma..16 FI...qt.comb.011
Somma..16 GE...qt.comb.008
Somma..16 MI...qt.comb.008
Somma..16 NA...qt.comb.003
Somma..16 PA...qt.comb.005
Somma..16 RO...qt.comb.007
--
Somma..17 BA...qt.comb.019
Somma..17 CA...qt.comb.007
Somma..17 FI...qt.comb.009
Somma..17 GE...qt.comb.014
Somma..17 MI...qt.comb.006
Somma..17 NA...qt.comb.004
Somma..17 PA...qt.comb.005
Somma..17 RO...qt.comb.002
Somma..17 TO...qt.comb.005
Somma..17 VE...qt.comb.002
--
Somma..18 BA...qt.comb.016
Somma..18 CA...qt.comb.010
Somma..18 FI...qt.comb.014
Somma..18 GE...qt.comb.013
Somma..18 MI...qt.comb.008
Somma..18 NA...qt.comb.005
Somma..18 PA...qt.comb.004
Somma..18 RO...qt.comb.004
--
Somma..19 BA...qt.comb.014
Somma..19 CA...qt.comb.015
Somma..19 FI...qt.comb.018
Somma..19 GE...qt.comb.008
Somma..19 MI...qt.comb.010
Somma..19 NA...qt.comb.008
Somma..19 PA...qt.comb.005
Somma..19 RO...qt.comb.001
Somma..19 TO...qt.comb.002
Somma..19 VE...qt.comb.001
--
Somma..20 BA...qt.comb.017
Somma..20 CA...qt.comb.015
Somma..20 FI...qt.comb.012
Somma..20 GE...qt.comb.011
Somma..20 MI...qt.comb.005
Somma..20 NA...qt.comb.011
Somma..20 PA...qt.comb.004
Somma..20 RO...qt.comb.004
Somma..20 TO...qt.comb.002
--
Somma..21 BA...qt.comb.018
Somma..21 CA...qt.comb.006
Somma..21 FI...qt.comb.011
Somma..21 GE...qt.comb.007
Somma..21 MI...qt.comb.011
Somma..21 NA...qt.comb.007
Somma..21 PA...qt.comb.007
Somma..21 RO...qt.comb.003
Somma..21 TO...qt.comb.001
--
Somma..22 BA...qt.comb.013
Somma..22 CA...qt.comb.009
Somma..22 FI...qt.comb.003
Somma..22 GE...qt.comb.011
Somma..22 MI...qt.comb.010
Somma..22 NA...qt.comb.004
Somma..22 PA...qt.comb.003
Somma..22 RO...qt.comb.003
Somma..22 TO...qt.comb.002
--
Somma..23 BA...qt.comb.005
Somma..23 CA...qt.comb.014
Somma..23 FI...qt.comb.013
Somma..23 GE...qt.comb.011
Somma..23 MI...qt.comb.006
Somma..23 NA...qt.comb.005
Somma..23 PA...qt.comb.006
--
Somma..24 BA...qt.comb.010
Somma..24 CA...qt.comb.005
Somma..24 FI...qt.comb.012
Somma..24 GE...qt.comb.008
Somma..24 MI...qt.comb.004
Somma..24 NA...qt.comb.002
Somma..24 PA...qt.comb.003
Somma..24 RO...qt.comb.002
Somma..24 TO...qt.comb.001
Somma..24 VE...qt.comb.001
--
Somma..25 BA...qt.comb.011
Somma..25 CA...qt.comb.007
Somma..25 FI...qt.comb.005
Somma..25 GE...qt.comb.005
Somma..25 MI...qt.comb.004
Somma..25 NA...qt.comb.003
Somma..25 PA...qt.comb.002
Somma..25 RO...qt.comb.001
--
Somma..26 BA...qt.comb.008
Somma..26 CA...qt.comb.005
Somma..26 FI...qt.comb.003
Somma..26 GE...qt.comb.005
Somma..26 MI...qt.comb.005
Somma..26 NA...qt.comb.004
Somma..26 PA...qt.comb.003
--
Somma..27 BA...qt.comb.004
Somma..27 CA...qt.comb.006
Somma..27 FI...qt.comb.002
Somma..27 GE...qt.comb.006
Somma..27 MI...qt.comb.005
Somma..27 NA...qt.comb.004
Somma..27 RO...qt.comb.003
--
Somma..28 BA...qt.comb.003
Somma..28 CA...qt.comb.006
Somma..28 FI...qt.comb.005
Somma..28 GE...qt.comb.005
Somma..28 MI...qt.comb.002
Somma..28 NA...qt.comb.003
--
Somma..29 BA...qt.comb.006
Somma..29 FI...qt.comb.002
Somma..29 GE...qt.comb.005
Somma..29 NA...qt.comb.001
Somma..29 PA...qt.comb.001
Somma..29 RO...qt.comb.001
--
Somma..30 BA...qt.comb.003
Somma..30 CA...qt.comb.002
Somma..30 MI...qt.comb.001
--
Somma..31 CA...qt.comb.003
Somma..31 GE...qt.comb.002
Somma..31 MI...qt.comb.002
Somma..31 NA...qt.comb.002
--
Somma..32 GE...qt.comb.002
Somma..32 NA...qt.comb.001

Totale ambi 1100
 
R

Rubino

Guest
prova per ambo secco

validità 13 colpi max


torino e Tutte

ambi secchi 69 80 - 77 27 - 66 65 - 57 65 - 84 65 - 87 80 - 39 65
 
R

Rubino

Guest
26-08-2019, 20:18


prova per ambo secco

validità 13 colpi max


torino e Tutte

ambi secchi 69 80 - 77 27 - 66 65 - 57 65 - 84 65 - 87 80 - 39 65


a colpo esce l'ambo 65 84 a TUTTE (MILANO)

Cattura.GIF


info:
su un Totale ambi 1118 Ambi Usciti a Tutte a colpo 79

x ghio
somma sta per somma numeretti che compongono l'ambo

somma 32 NAPOLI c'era un errore 79 79, adesso ho scartato i numeri ricavati uguali
 
Ultima modifica di un moderatore:
R

Rubino

Guest
Codice:
Somma  25   79.23.13    79.23.13//
Somma  25   71.13.49    71.13.49//
Somma  25   21.56.65    21.56.65//
Somma  25   52.84.06    52.84.06//

Somma  25   76.21.27    76.21.27//
Somma  25   29.73.13    29.73.13//
Somma  25   69.06.40    69.06.40//
Somma  25   19.27.06    19.27.06//
Somma  25   53.06.65    53.06.65//
Somma  25   39.16.06    39.16.06//
Somma  25   39.40.27    39.40.27//
Somma  25   52.39.06    52.39.06//
Somma  25   24.69.13    24.69.13//
Somma  25   57.27.13    57.27.13//
Somma  25   24.67.06    24.67.06//
Somma  24   76.52.13    76.52.13//
Somma  24   69.23.13    69.23.13//
Somma  24   77.13.06    77.13.06//
Somma  24   52.27.80    52.27.80//
Somma  24   40.79.13    40.79.13//
Somma  24   87.14.13    87.14.13//
Somma  24   19.23.27    19.23.27//
Somma  24   81.40.65    81.40.65//
Somma  24   76.23.06    76.23.06//
Somma  24   67.23.06    67.23.06//
Somma  24   53.52.27    53.52.27//
Somma  24   52.13.49    52.13.49//
Somma  24   52.65.06    52.65.06//
Somma  24   69.23.13    69.23.13//
Somma  24   81.16.80    81.16.80//
Somma  24   76.52.13    76.52.13//
Somma  24   16.06.65    16.06.65//
Somma  24   66.71.13    66.71.13//
Somma  24   55.80.06    55.80.06//
Somma  24   32.69.13    32.69.13//

salvo errori.
forse è meglio ordinare i numeri in output dal piu piccolo al piu' grande

comunque sia
verifica di questi
36 terni secchi su Torino e/o Tutte
 
Ultima modifica di un moderatore:
R

Rubino

Guest
AMBI dalla 9674
1 COLPO 1 AMBO
2 COLPO 0
3 COLPO 2 ambi su ruota fissa to 69 80 e tutte le ruote
4 COLPO 0
5 COLPO 0
6 COLPO 0



TERNI dalla 9675
1 COLPO 0
2 COLPO 0
3 COLPO 0
4 COLPO 0
5 COLPO 0
6 COLPO 0
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 aprile 2024
    Bari
    49
    10
    76
    62
    26
    Cagliari
    42
    80
    16
    39
    65
    Firenze
    58
    22
    11
    86
    40
    Genova
    79
    14
    36
    51
    44
    Milano
    25
    27
    16
    77
    79
    Napoli
    70
    04
    51
    49
    71
    Palermo
    61
    65
    76
    53
    43
    Roma
    70
    86
    68
    80
    47
    Torino
    17
    71
    64
    72
    40
    Venezia
    22
    42
    39
    72
    30
    Nazionale
    83
    37
    81
    57
    78
    Estrazione Simbolotto
    Genova
    10
    14
    28
    18
    15

Ultimi Messaggi

Alto