NEW METODO TERNO SECCO A RUOTA

+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :               80  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :               79  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :          98,75 %  | | BA |   76|  110|    1|     |     | | BA |14,53|54,73|14,29|     |     | | BA | 1505|                       |
| Pronostici totali  :            1.505  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Pronostici vinc.   :              328  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Percentuale pos.   :          21,79 %  | | GE |   66|   91|    6|     |     | | GE |12,62|45,27|85,71|     |     | | GE | 1505|                       |
| Giocate in corso   :                0  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Giocate terminate  :            1.505  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Bollette giocate   :           15.200  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Bollette vincenti  :              329  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
| Attesa media       :                4  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Spesa              :      27.824,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Vincita            :      46.847,95 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Guadagno           :      19.023,95 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :         68,372 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :         930,00 €  |    
| Estratto su ruota  :              523  |                                                                                                                
| Ambo su ruota      :              201  |                                                                                                                
| Terno su ruota     :                7  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+

Sub Main()
  Dim es,Ini,Fin,r1,r2,r3,Isi,Clp,co,a,b,c,d,p,pp,w,y
  Dim ruota(10)
  Dim ruote(10)
  Dim posta(10)
  Dim poste(10)
  Dim n(1),b1(3),b2(3),b3(3),g1(3),g2(3),g3(3)
  posta(1) = 1
  poste(2) = 1
  poste(3) = 1
  r1 = 1
  r2 = 2
  r3 = 4
  'Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
  Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
  Ini = 9648'EstrazioneFin - Isi
  Fin = 9730'EstrazioneFin
  co = 0
  For es = Ini To Fin
     Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
     Call AvanzamentoElab(Ini,Fin,es)
     ruote(1) = r1
     ruote(2) = r3
     ruota(1) = r2
     For p = 1 To 5
        For pp = 1 To 5
           a = Estratto(es,r1,p)
           b = Estratto(es,r2,pp)
           If Figura(a) = Figura(b) Then
              'If p = 1 And pp = 2 Or p = 1 And pp = 3 Or p = 1 And pp = 4 Or p = 2 And pp = 3 Or p = 2 And pp = 4 Or p = 2 And pp = 5 Then
              c = Fuori90(a + b)
              d = Diametrale(c)
              n(1) = d
              b1(1) = d
              b1(2) = 2
              b1(3) = 4
              b2(1) = d
              b2(2) = 8
              b2(3) = 26
              b3(1) = d
              b3(2) = 24
              b3(3) = 86
              g1(1) = d
              g1(2) = 10
              g1(3) = 67
              g2(1) = d
              g2(2) = 51
              g2(3) = 63
              g3(1) = d
              g3(2) = 77
              g3(3) = 81
              ruote(1) = r1
              ruote(2) = r3
              co = co + 1
              Scrivi String(100,"°") & " Caso n°" & co,1
              Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ** " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
              Scrivi "Numeri stessa figura  " & "[ " & Figura(a) & " ] **  " & a & " - " & b & " in " & p & "  e" & " in " & pp & "° Pos.",1
              Scrivi String(100,"°"),1
              ImpostaGiocata 1,n,ruote,posta,Clp,1
              ImpostaGiocata 2,b1,ruote,poste,Clp
              ImpostaGiocata 3,b2,ruote,poste,Clp
              ImpostaGiocata 4,b3,ruote,poste,Clp
              ImpostaGiocata 5,g1,ruote,poste,Clp
              ImpostaGiocata 6,g2,ruote,poste,Clp
              ImpostaGiocata 7,g3,ruote,poste,Clp
              For w = 2 To 7
                 For y = 2 To 7
                    ImpostaInterruzioni w,y,2
                 Next
              Next
              Gioca es,1,,1,1
              If ScriptInterrotto Then Exit For
              'End If
           End If
        Next
     Next
  Next
  Scrivi
  Scrivi String(100,"*")
  ColoreTesto 2
  Scrivi" casi trovati : " & co,1
  ColoreTesto 0
  Scrivi String(100," * ")
  TestoInBandaPassante(" script by circle77 "),1,3,0
  ScriviResoconto
End Sub