METODO SOMMA ruota Cagliari Aggiornato.

Imaging · 26 Febbraio 2021

Imaging ha scritto:
Vedi l'allegato 2211310

giuing · 26 Febbraio 2021

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
***********

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?

markito · 26 Febbraio 2021

Imaging ha scritto:
Vedi l'allegato 2211311

mi sono sempre chiesto il perche postate le cedole vincenti coprendo importo e codice , è solo una mia curiosità

Imaging · 26 Febbraio 2021

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?

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.

Imaging · 26 Febbraio 2021

markito ha scritto:
mi sono sempre chiesto il perche postate le cedole vincenti coprendo importo e codice , è solo una mia curiosità

Scusa ma è un questione di privatizzazione. Massima disponibilità in bocca al lupo.

giuing · 27 Febbraio 2021

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.

ok ora ho capito grazie

spike · 27 Febbraio 2021

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
***********

ci ha bugerato Bari

kira · 27 Febbraio 2021

......64-79 bari 1°cp.....pazienza sarà x la prossima

Sheena · 27 Febbraio 2021

Peccato

alla prox

Imaging · 27 Febbraio 2021

kira ha scritto:
......64-79 bari 1°cp.....pazienza sarà x la prossima

Ci saranno nuove vincite

Imaging · 27 Febbraio 2021

Sheena ha scritto:
Peccato alla prox

Ci saranno nuove vincite

Imaging · 27 Febbraio 2021

Ci saranno nuove vincite

bubù · 27 Febbraio 2021

Imaging ha scritto:
Ci saranno nuove vincite

Il Metodo è buono ma se provate a giocare a BARI & CAGLIARI vedrai che aumentano le Vincite . Grazie

GioRyuKen72 · 27 Febbraio 2021

gabby ha scritto:
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.

Imaging · 27 Febbraio 2021

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

Imaging · 27 Febbraio 2021

bubù ha scritto:
Il Metodo è buono ma se provate a giocare a BARI & CAGLIARI vedrai che aumentano le Vincite . Grazie

Ottimo il consiglio ma lo scopo è giocare poco e centrare la vincita......

Imaging · 27 Febbraio 2021

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.

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.

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 · 27 Febbraio 2021

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.

Ah ok, mi sono perso questa indicazione..
Si la correzione è giusta, provvedo a modificare il listato.

Gio.

Imaging · 27 Febbraio 2021

GioRyuKen72 ha scritto:
Ah ok, mi sono perso questa indicazione..
Si la correzione è giusta, provvedo a modificare il listato.

Gio.

Rinnovo i complimenti fammi sapere del listato corretto, BRAVISSIMO

Imaging · 27 Febbraio 2021

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.

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.

METODO SOMMA ruota Cagliari Aggiornato.

Advanced Member >PLATINUM<

Junior Member

Junior Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Junior Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<