Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

METODO SOMMA ruota Cagliari Aggiornato.

giuing

Junior Member
Metodo Somma ***************AGGIORNATO Estrazione del 23-02-2021.*******************
Data inizio Ricerca: 5/1/2000
Data fine Ricerca: 23/2/2021
Condizione di gioco: sortita ambo di somma 15
Ruota/e di ricerca condizione: Ca
Ruota/e di Gioco: Ca
Colpi di Gioco: 9


Operazioni da eseguire:

Calcolo Capogioco:
Capogioco: 1° To - 83

Calcolo Abbinamenti per ambo:
Abbinamento 1: 4° Pa X 5° Ba
Abbinamento 2: 3° Fi X 4° Pa


Statistiche delle Vincite

Casi esaminati: 318
Previsioni Vincenti: 161(50,63%)
Previsioni Negative: 155(49,37%)
Previsioni in Gioco: 2

Ambate vincenti: 161 (100%)
Ambi secchi vincenti: 30 (18,6%)

Tempo Medio di Attesa per il gioco di ambata e ambo: 4,7


- Per i numeri doppi si è fatto il + 1
- Tutte le operazioni matematiche prevedono il fuori 90

Previsione n° 1
Condizione rilevata: Ca (41 64)
Ruota/e di Gioco: Ca
Ambata/Capogioco: 64.
Abbinamenti per Ambo: 38. 79
*********** *************A Piacere seguiamo una previsione ,
Previsione n° 2 in alternativa le due previsioni.
Condizione rilevata: Ca (72 33)
Ruota/e di Gioco: Ca
Ambata/Capogioco: 48.
Abbinamenti per Ambo: 34. 35
***********
scusa non ho capito il metodo, come fa ad essere il capo gioco 48 su cagliari se si calcola il 1° di torino meno 83? il primo di torino è il 41 meno 83 come può uscire il 48?
 

Imaging

Super Member >PLATINUM<
scusa non ho capito il metodo, come fa ad essere il capo gioco 48 su cagliari se si calcola il 1° di torino meno 83? il primo di torino è il 41 meno 83 come può uscire il 48?
Ciao, buona serata quanto il N° base è inferiore, al N° inferiore si addiziona il N°90 Quindi il calcolo da eseguire è
41+90=131-83=48 appunto Estratto capo gioco che ieri sera insieme con il 35 vince Ambo secco e
L' Estratto o Ambata come si preferisce
grazie sempre disponibile in bocca al lupo.
 

giuing

Junior Member
Ciao, buona serata quanto il N° base è inferiore, al N° inferiore si addiziona il N°90 Quindi il calcolo da eseguire è
41+90=131-83=48 appunto Estratto capo gioco che ieri sera insieme con il 35 vince Ambo secco e
L' Estratto o Ambata come si preferisce
grazie sempre disponibile in bocca al lupo.
ok ora ho capito grazie
 

spike

Advanced Member >PLATINUM<
Metodo Somma ***************AGGIORNATO Estrazione del 23-02-2021.*******************
Data inizio Ricerca: 5/1/2000
Data fine Ricerca: 23/2/2021
Condizione di gioco: sortita ambo di somma 15
Ruota/e di ricerca condizione: Ca
Ruota/e di Gioco: Ca
Colpi di Gioco: 9


Operazioni da eseguire:

Calcolo Capogioco:
Capogioco: 1° To - 83

Calcolo Abbinamenti per ambo:
Abbinamento 1: 4° Pa X 5° Ba
Abbinamento 2: 3° Fi X 4° Pa


Statistiche delle Vincite

Casi esaminati: 318
Previsioni Vincenti: 161(50,63%)
Previsioni Negative: 155(49,37%)
Previsioni in Gioco: 2

Ambate vincenti: 161 (100%)
Ambi secchi vincenti: 30 (18,6%)

Tempo Medio di Attesa per il gioco di ambata e ambo: 4,7


- Per i numeri doppi si è fatto il + 1
- Tutte le operazioni matematiche prevedono il fuori 90

Previsione n° 1
Condizione rilevata: Ca (41 64)
Ruota/e di Gioco: Ca
Ambata/Capogioco: 64.
Abbinamenti per Ambo: 38. 79
*********** *************A Piacere seguiamo una previsione ,
Previsione n° 2 in alternativa le due previsioni.
Condizione rilevata: Ca (72 33)
Ruota/e di Gioco: Ca
Ambata/Capogioco: 48.
Abbinamenti per Ambo: 34. 35
***********
ci ha bugerato Bari
 

Imaging

Super Member >PLATINUM<
Peccato 😓 alla prox
Ci saranno nuove vincite
😉
😘
👋
 

GioRyuKen72

Advanced Member
x metodo somma 15 cagliari serve script,grazie
eccolo qui:
Codice:
Sub Main
   ' https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/
   ColoreTesto 0
   Scrivi "                            Metodo SOMMA15 di IMAGING -- listato GioRyuKen72                              ",1,,2,5
   Scrivi "https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/",1
   Scrivi
   ColoreTesto 0
   Dim R1,ruo(3),RuoABT(1),Nn(2),E1,E2,P1,P2,P5,P6,a,b,Cap,Abb1,Abb2
   Dim Terzina1(3),ambo1(2),ambo2(2),PostaA(2),PostaABT(1),PostaT(3),ambata1(2)
   Dim Somma15,To1,Pa4,Fi3,Ba5
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
    For es = ini To fin
      Messaggio es
      For R1 = 2 To 2
         If R1 = 11 Then r2 = 12
         For P1 = 1 To 4 : For P2 = P1 + 1 To 5
            a = Estratto(es,R1,P1) : b = Estratto(es,R1,P2)
            Nn(1) = a
            Nn(2) = b
            Somma15 = Fuori90(Nn(1) + Nn(2))
            To1 = Estratto(es,TO_,1)
            Pa4 = Estratto(es,PA_,4)
            Fi3 = Estratto(es,FI_,3)
            Ba5 = Estratto(es,BA_,5)
            '______________________________________
            If Somma15 = 15 Then
               Cap = Fuori90((90 + To1) - 83)
               Abb1 = Fuori90(Pa4*Ba5)
               Abb2 = Fuori90(Fi3*Pa4)
               If Abb1 = Cap Then Abb1 = Abb1 + 1
               If Abb2 = Cap Then Abb2 = Abb2 + 1
               If Abb2 = Abb1 Then Abb2 = Abb2 + 1
               RuoABT(1) = R1
               ruo(1) = R1
               ruo(2) = TT_
               'ruo(3) = NZ_
               PostaABT(1) = 1
               PostaA(2) = 1
               PostaT(2) = 0.8
               PostaT(3) = 0.2
               k = 17
               ambata1(1) = Cap
               ImpostaGiocata 1,ambata1,RuoABT,PostaABT,k,1
               ambo1(1) = Cap
               ambo1(2) = Abb1
               ImpostaGiocata 2,ambo1,ruo,PostaA,k
               ambo2(1) = Cap
               ambo2(2) = Abb2
               ImpostaGiocata 3,ambo2,ruo,PostaA,k
               Terzina1(1) = Cap
               Terzina1(2) = Abb1
               Terzina1(3) = Abb2
               ImpostaGiocata 4,Terzina1,ruo,PostaT,k,3
               caso = 0
               casi = casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  If E1 = Nn(1) Or E1 = Nn(2) Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(70,"-"),1
               ColoreTesto 1
               Scrivi "CONDIZIONE RILEVATA: " & Format2(Nn(1)) & "  +  " & Format2(Nn(2)) & "  =   " & Format2(Somma15),1,0
               ColoreTesto 0
               Scrivi
               Scrivi String(70,"-"),1
               Scrivi "Capigioco  : " & Format2(Cap),1
               Scrivi "Abbinamenti: " & Format2(Abb1) & " e " & Format2(Abb2),1
                ColoreTesto 0 : Scrivi String(70,"-"),1
               Scrivi
               Gioca es,True,,1
            End If
         Next
      Next
   Next
'Next
'End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante " *****  Metodo SOMMA15 di IMAGING -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub

controllare vari ed eventuali errori di scrittura codice.

Gio. (y)
 
Ultima modifica:

Imaging

Super Member >PLATINUM<
Notare che a Cagliari è sortito 22-55 il metodo postato ieri, somma spia 38 vince ambetto al 1° colpo con 22-56
 

Imaging

Super Member >PLATINUM<
eccolo qui:
Codice:
Sub Main
   ' https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/
   ColoreTesto 0
   Scrivi "                            Metodo SOMMA15 di IMAGING -- listato GioRyuKen72                              ",1,,2,5
   Scrivi "https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/",1
   Scrivi
   ColoreTesto 0
   Dim R1,ruo(3),RuoABT(1),Nn(2),E1,E2,P1,P2,P5,P6,a,b,Cap,Abb1,Abb2
   Dim Terzina1(3),ambo1(2),ambo2(2),PostaA(2),PostaABT(1),PostaT(3),ambata1(2)
   Dim Somma15,To1,Pa4,Fi3,Ba5
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
    For es = ini To fin
      Messaggio es
      For R1 = 1 To 10
         If R1 = 11 Then r2 = 12
         For P1 = 1 To 4 : For P2 = P1 + 1 To 5
            a = Estratto(es,R1,P1) : b = Estratto(es,R1,P2)
            Nn(1) = a
            Nn(2) = b
            Somma15 = Fuori90(Nn(1) + Nn(2))
            To1 = Estratto(es,TO_,1)
            Pa4 = Estratto(es,PA_,4)
            Fi3 = Estratto(es,FI_,3)
            Ba5 = Estratto(es,BA_,5)
            '______________________________________
            If Somma15 = 15 Then
               Cap = Fuori90((90 + To1) - 83)
               Abb1 = Fuori90(Pa4*Ba5)
               Abb2 = Fuori90(Fi3*Pa4)
               If Abb1 = Cap Then Abb1 = Abb1 + 1
               If Abb2 = Cap Then Abb2 = Abb2 + 1
               If Abb2 = Abb1 Then Abb2 = Abb2 + 1
               RuoABT(1) = R1
               ruo(1) = R1
               ruo(2) = TT_
               'ruo(3) = NZ_
               PostaABT(1) = 1
               PostaA(2) = 1
               PostaT(2) = 0.8
               PostaT(3) = 0.2
               k = 17
               ambata1(1) = Cap
               ImpostaGiocata 1,ambata1,RuoABT,PostaABT,k,1
               ambo1(1) = Cap
               ambo1(2) = Abb1
               ImpostaGiocata 2,ambo1,ruo,PostaA,k
               ambo2(1) = Cap
               ambo2(2) = Abb2
               ImpostaGiocata 3,ambo2,ruo,PostaA,k
               Terzina1(1) = Cap
               Terzina1(2) = Abb1
               Terzina1(3) = Abb2
               ImpostaGiocata 4,Terzina1,ruo,PostaT,k,3
               caso = 0
               casi = casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  If E1 = Nn(1) Or E1 = Nn(2) Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(70,"-"),1
               ColoreTesto 1
               Scrivi "CONDIZIONE RILEVATA: " & Format2(Nn(1)) & "  +  " & Format2(Nn(2)) & "  =   " & Format2(Somma15),1,0
               ColoreTesto 0
               Scrivi
               Scrivi String(70,"-"),1
               Scrivi "Capigioco  : " & Format2(Cap),1
               Scrivi "Abbinamenti: " & Format2(Abb1) & " e " & Format2(Abb2),1
                ColoreTesto 0 : Scrivi String(70,"-"),1
               Scrivi
               Gioca es,True,,1
            End If
         Next
      Next
   Next
'Next
'End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante " *****  Metodo SOMMA15 di IMAGING -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub

controllare vari ed eventuali errori di scrittura codice.

Gio. (y)

eccolo qui:
Codice:
Sub Main
   ' https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/
   ColoreTesto 0
   Scrivi "                            Metodo SOMMA15 di IMAGING -- listato GioRyuKen72                              ",1,,2,5
   Scrivi "https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/",1
   Scrivi
   ColoreTesto 0
   Dim R1,ruo(3),RuoABT(1),Nn(2),E1,E2,P1,P2,P5,P6,a,b,Cap,Abb1,Abb2
   Dim Terzina1(3),ambo1(2),ambo2(2),PostaA(2),PostaABT(1),PostaT(3),ambata1(2)
   Dim Somma15,To1,Pa4,Fi3,Ba5
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
    For es = ini To fin
      Messaggio es
      For R1 = 1 To 10
         If R1 = 11 Then r2 = 12
         For P1 = 1 To 4 : For P2 = P1 + 1 To 5
            a = Estratto(es,R1,P1) : b = Estratto(es,R1,P2)
            Nn(1) = a
            Nn(2) = b
            Somma15 = Fuori90(Nn(1) + Nn(2))
            To1 = Estratto(es,TO_,1)
            Pa4 = Estratto(es,PA_,4)
            Fi3 = Estratto(es,FI_,3)
            Ba5 = Estratto(es,BA_,5)
            '______________________________________
            If Somma15 = 15 Then
               Cap = Fuori90((90 + To1) - 83)
               Abb1 = Fuori90(Pa4*Ba5)
               Abb2 = Fuori90(Fi3*Pa4)
               If Abb1 = Cap Then Abb1 = Abb1 + 1
               If Abb2 = Cap Then Abb2 = Abb2 + 1
               If Abb2 = Abb1 Then Abb2 = Abb2 + 1
               RuoABT(1) = R1
               ruo(1) = R1
               ruo(2) = TT_
               'ruo(3) = NZ_
               PostaABT(1) = 1
               PostaA(2) = 1
               PostaT(2) = 0.8
               PostaT(3) = 0.2
               k = 17
               ambata1(1) = Cap
               ImpostaGiocata 1,ambata1,RuoABT,PostaABT,k,1
               ambo1(1) = Cap
               ambo1(2) = Abb1
               ImpostaGiocata 2,ambo1,ruo,PostaA,k
               ambo2(1) = Cap
               ambo2(2) = Abb2
               ImpostaGiocata 3,ambo2,ruo,PostaA,k
               Terzina1(1) = Cap
               Terzina1(2) = Abb1
               Terzina1(3) = Abb2
               ImpostaGiocata 4,Terzina1,ruo,PostaT,k,3
               caso = 0
               casi = casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  If E1 = Nn(1) Or E1 = Nn(2) Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(70,"-"),1
               ColoreTesto 1
               Scrivi "CONDIZIONE RILEVATA: " & Format2(Nn(1)) & "  +  " & Format2(Nn(2)) & "  =   " & Format2(Somma15),1,0
               ColoreTesto 0
               Scrivi
               Scrivi String(70,"-"),1
               Scrivi "Capigioco  : " & Format2(Cap),1
               Scrivi "Abbinamenti: " & Format2(Abb1) & " e " & Format2(Abb2),1
                ColoreTesto 0 : Scrivi String(70,"-"),1
               Scrivi
               Gioca es,True,,1
            End If
         Next
      Next
   Next
'Next
'End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante " *****  Metodo SOMMA15 di IMAGING -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub

controllare vari ed eventuali errori di scrittura codice.

Gio. (y)
Buona Sera CIAO, Nulla da obiettare un bellissimo listato personalmente ne vado Matto. Complimenti, il listato calcola la previsione su ogni ruota, secondo il metodo la previsione si calcola su Ca quanto si presenta un ambo somma 15 ottimo su TT, Quindi il listato deve fare il calcolo su Cagliari e giocare anche su TT come già funziona. Personalmente se si corregge con :
For R1 = 2 To 2 non so fare i listati chiedo.... la previsione avviene su Ca. 🤩🥳👋
 

GioRyuKen72

Advanced Member
Buona Sera CIAO, Nulla da obiettare un bellissimo listato personalmente ne vado Matto. Complimenti, il listato calcola la previsione su ogni ruota, secondo il metodo la previsione si calcola su Ca quanto si presenta un ambo somma 15 ottimo su TT, Quindi il listato deve fare il calcolo su Cagliari e giocare anche su TT come già funziona. Personalmente se si corregge con :
For R1 = 2 To 2 non so fare i listati chiedo.... la previsione avviene su Ca. 🤩🥳👋
Ah ok, mi sono perso questa indicazione..
Si la correzione è giusta, provvedo a modificare il listato.

Gio.
 

Imaging

Super Member >PLATINUM<
eccolo qui:
Codice:
Sub Main
   ' https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/
   ColoreTesto 0
   Scrivi "                            Metodo SOMMA15 di IMAGING -- listato GioRyuKen72                              ",1,,2,5
   Scrivi "https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/",1
   Scrivi
   ColoreTesto 0
   Dim R1,ruo(3),RuoABT(1),Nn(2),E1,E2,P1,P2,P5,P6,a,b,Cap,Abb1,Abb2
   Dim Terzina1(3),ambo1(2),ambo2(2),PostaA(2),PostaABT(1),PostaT(3),ambata1(2)
   Dim Somma15,To1,Pa4,Fi3,Ba5
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
    For es = ini To fin
      Messaggio es
      For R1 = 2 To 2
         If R1 = 11 Then r2 = 12
         For P1 = 1 To 4 : For P2 = P1 + 1 To 5
            a = Estratto(es,R1,P1) : b = Estratto(es,R1,P2)
            Nn(1) = a
            Nn(2) = b
            Somma15 = Fuori90(Nn(1) + Nn(2))
            To1 = Estratto(es,TO_,1)
            Pa4 = Estratto(es,PA_,4)
            Fi3 = Estratto(es,FI_,3)
            Ba5 = Estratto(es,BA_,5)
            '______________________________________
            If Somma15 = 15 Then
               Cap = Fuori90((90 + To1) - 83)
               Abb1 = Fuori90(Pa4*Ba5)
               Abb2 = Fuori90(Fi3*Pa4)
               If Abb1 = Cap Then Abb1 = Abb1 + 1
               If Abb2 = Cap Then Abb2 = Abb2 + 1
               If Abb2 = Abb1 Then Abb2 = Abb2 + 1
               RuoABT(1) = R1
               ruo(1) = R1
               ruo(2) = TT_
               'ruo(3) = NZ_
               PostaABT(1) = 1
               PostaA(2) = 1
               PostaT(2) = 0.8
               PostaT(3) = 0.2
               k = 17
               ambata1(1) = Cap
               ImpostaGiocata 1,ambata1,RuoABT,PostaABT,k,1
               ambo1(1) = Cap
               ambo1(2) = Abb1
               ImpostaGiocata 2,ambo1,ruo,PostaA,k
               ambo2(1) = Cap
               ambo2(2) = Abb2
               ImpostaGiocata 3,ambo2,ruo,PostaA,k
               Terzina1(1) = Cap
               Terzina1(2) = Abb1
               Terzina1(3) = Abb2
               ImpostaGiocata 4,Terzina1,ruo,PostaT,k,3
               caso = 0
               casi = casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  If E1 = Nn(1) Or E1 = Nn(2) Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(70,"-"),1
               ColoreTesto 1
               Scrivi "CONDIZIONE RILEVATA: " & Format2(Nn(1)) & "  +  " & Format2(Nn(2)) & "  =   " & Format2(Somma15),1,0
               ColoreTesto 0
               Scrivi
               Scrivi String(70,"-"),1
               Scrivi "Capigioco  : " & Format2(Cap),1
               Scrivi "Abbinamenti: " & Format2(Abb1) & " e " & Format2(Abb2),1
                ColoreTesto 0 : Scrivi String(70,"-"),1
               Scrivi
               Gioca es,True,,1
            End If
         Next
      Next
   Next
'Next
'End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante " *****  Metodo SOMMA15 di IMAGING -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub

controllare vari ed eventuali errori di scrittura codice.

Gio. (y)
Grazie per il lavoro che hai fatto Bravissimo ripeto per i listati IO NE SONO MATTO ottimo lavoro, buona serat in bocca al lupo con stima.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 10 aprile 2021
    Bari
    56
    82
    66
    18
    11
    Cagliari
    49
    20
    83
    38
    22
    Firenze
    36
    68
    83
    66
    32
    Genova
    42
    34
    85
    17
    26
    Milano
    53
    17
    14
    80
    60
    Napoli
    70
    85
    57
    81
    90
    Palermo
    82
    43
    89
    85
    52
    Roma
    30
    43
    02
    61
    80
    Torino
    51
    55
    89
    81
    23
    Venezia
    70
    29
    54
    32
    27
    Nazionale
    50
    21
    69
    43
    73
    Estrazione Simbolotto
    Genova
    36
    07
    31
    03
    43
Alto