Novità

METODO SOMMA ruota Cagliari Aggiornato.

G

giuing

Junior Member
Imaging ha scritto:
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
***********
Clicca per espandere...
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

Imaging

Advanced Member >PLATINUM<
giuing ha scritto:
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?
Clicca per espandere...
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.
 
G

giuing

Junior Member
Imaging ha scritto:
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.
Clicca per espandere...
ok ora ho capito grazie
 
S

spike

Advanced Member >PLATINUM<
Imaging ha scritto:
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
***********
Clicca per espandere...
ci ha bugerato Bari
 
Imaging

Imaging

Advanced Member >PLATINUM<
Sheena ha scritto:
Peccato 😓 alla prox
Clicca per espandere...
Ci saranno nuove vincite
😉
😘
👋
 
GioRyuKen72

GioRyuKen72

Advanced Member >PLATINUM PLUS<
gabby ha scritto:
x metodo somma 15 cagliari serve script,grazie
Clicca per espandere...
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

Imaging

Advanced 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

Imaging

Advanced Member >PLATINUM<
GioRyuKen72 ha scritto:
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)
Clicca per espandere...

GioRyuKen72 ha scritto:
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)
Clicca per espandere...
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

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Imaging ha scritto:
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. 🤩🥳👋
Clicca per espandere...
Ah ok, mi sono perso questa indicazione..
Si la correzione è giusta, provvedo a modificare il listato.

Gio.
 
Imaging

Imaging

Advanced Member >PLATINUM<
GioRyuKen72 ha scritto:
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)
Clicca per espandere...
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.
 
Devi accedere o registrarti per poter rispondere.

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
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto