Script Metodo Sommativo

[Turbo]

Codice: Seleziona tutto

Sub Main()
   Dim ruota(1)
   Dim ambata(1)
   Dim am(5)
   Dim cinquina(5)
   Dim posta(1)
   Dim poste(5)
   posta(1) = 1
   poste(2) = 1
   poste(3) = 0.90
   poste(4) = 0.10
   ind = CInt(InputBox("Indice Mensile",,4))
   r = InputBox("Ruota di Gioco",,6)
   clp = InputBox("Colpi di Gioco",,10)
   ini = InputBox("Estrazione di partenza",,EstrazioneIni)
   fin = CInt(InputBox("Estrazione finale",,EstrazioneFin))
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio " METODO E SCRIPT DI TURBO "
      If Indicemensile(es) = ind Then
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,NA_,p1)
               b = Estratto(es,NA_,p2)
               If a = 60 Or a = 66 Or a = 69 Then
                  If b = 60 Or b = 66 Or b = 69 Then
                     If a <> b Then
                        casi = casi + 1
                        ColoreTesto 1:Scrivi String(105,"x") & " Caso n° " & Format2(casi),1 :ColoreTesto 0
                        Scrivi DataEstrazione(es) & "   " & FormatSpace(NomeRuota(r),7) & "   " & FormatSpace(StringaEstratti(es,r),17) & " Ambo Spia " & a & "-" & b,1
                        ruota(1) = r
                        '------------------------------------------------------------------------------------------------> Metodo
                        am(1) = Fuori90(Decina(Estratto(es,NA_,2)) + Cadenza(Estratto(es,NA_,2)) + Estratto(es,TO_,2) + 23)
                        am(2) = Fuori90(Estratto(es,MI_,1) + Estratto(es,VE_,4) + 42)
                        am(3) = Fuori90(Diametrale(Estratto(es,MI_,1)) + Estratto(es,VE_,4) + 87)
                        am(4) = Fuori90(Diametrale(Estratto(es,GE_,5)) + Estratto(es,VE_,5) + 01)
                        am(5) = Fuori90(Cadenza(Estratto(es,BA_,1)) + Estratto(es,RO_,2) + 03)
                        'se 1 o più numeri della cinquina sono ripetuti si fa il + 1
                        rip = 0
                        If NumeriRipetuti(am) Then
                           rip = 1
                           While NumeriRipetuti(am)
                              For x = 1 To 4
                                 For y = x + 1 To 5
                                    If am(x) = am(y) Then am(y) = Fuori90(am(y) + 1)
                                 Next
                              Next
                           Wend
                        End If
               
                        ambata(1) = am(1)
                        ImpostaGiocata 1,ambata,ruota,posta,clp
                        cinquina(1) = am(1)
                        cinquina(2) = am(2)
                        cinquina(3) = am(3)
                        cinquina(4) = am(4)
                        cinquina(5) = am(5)
                        ImpostaGiocata 2,cinquina,ruota,poste,clp,3
                        Gioca es
                     End If
                  End If
               End If
            Next
         Next
      End If
   Next
   Scrivi
   ScriviResoconto
End Sub