Per AntonioQuagliozzi

[salvo50]

Script richiesto da AntonioQuagliozzi

 ' Proposto da alien
' Script by Salvo50

Option Explicit
Sub Main
    Dim Ambata1,Ambata2,Ambata3,Ambata4,Ambata5,Ambo1,Ambo2,Ambo3,Ambo4,Ambo5,Terno1,Terno2,Terno3,Terno4,Terno5
    Dim num1(3),num2(3),num3(3),num4(3),num5(3),ruota(2),Posta1(1),Posta2(2),Posta3(3)
    Dim Es,Fin,Esq,Clp1,Clp2,Clp3,Col,Esqcol,caso,Ind,ambata6
    Posta1(1) = 1
    Posta2(2) = 1
    Posta3(3) = 1
    Fin = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,7000)
    Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
    Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,13)
    Clp3 = InputBox("Per quanti colpi vuoi giocare il terno?",,13)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,1000))
    Ind = CInt(InputBox(" Quale indice mensile?  ",,5))
    Esqcol = Esq + Col
    If Esqcol > Fin Then Esqcol = Fin
    For Es = Esq To Esqcol
        Messaggio Es
        AvanzamentoElab Esq,Esqcol,Es
        If IndiceMensile(Es) = Ind Then
            ruota(1) = BA_
            ruota(2) = CA_
            Ambata1 = Fuori90(Estratto(Es,6,3) + Estratto(Es,9,3) + 3)
            Ambo1 = Fuori90(Estratto(Es,6,1) + Estratto(Es,12,1) + 1) : Ambo1 = 90 - Ambo1
            Terno1 = Fuori90(Estratto(Es,2,5) + Estratto(Es,9,1) + 49) : Terno1 = 90 - Terno1
            '-----------------------------------------------------------------------------
            Ambata2 = Diametrale(Fuori90(Estratto(Es,6,3) + Estratto(Es,9,5) + 48))
            Ambo2 = Fuori90(Decina(Estratto(Es,1,1)) + Estratto(Es,10,3) + 1)
            Terno2 = Diametrale(Fuori90(Estratto(Es,3,1) + Estratto(Es,4,2) + 50))
            '-----------------------------------------------------------------------------
            Ambata3 = Fuori90(Estratto(Es,3,2) + Estratto(Es,6,5) + 4)
            Ambo3 = Fuori90(Decina(Estratto(Es,7,4)) + Estratto(Es,10,1) + 4)
            Terno3 = Diametrale(Fuori90(Estratto(Es,1,4) + Estratto(Es,7,4) + 4))
            '-----------------------------------------------------------------------------
            Ambata4 = Diametrale(Fuori90(Estratto(Es,3,5) + Estratto(Es,4,1) + 7))
            Ambo4 = Fuori90(Estratto(Es,8,1) + Estratto(Es,9,1) + 3) : Ambo4 = 90 - Ambo4
            Terno4 = Fuori90(Estratto(Es,1,5) + Estratto(Es,2,4) + 5) : Terno4 = 90 - Terno4
            '-----------------------------------------------------------------------------
            Ambata5 = Diametrale(Decina(Fuori90(Estratto(Es,4,2)) + Estratto(Es,9,2) + 34))
            Ambo5 = Fuori90(Cadenza(Estratto(Es,4,1)) + Estratto(Es,8,3) + 30)
            Terno5 = Fuori90(Estratto(Es,4,2) + Estratto(Es,5,2) + 5)
            '-----------------------------------------------------------------------------
            caso = caso + 1
            ColoreTesto 1
            Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(caso,"0000")
            ColoreTesto 0
            num1(1) = Ambata1
            ImpostaGiocata 1,num1,ruota,Posta1,Clp1,1
            num1(2) = Ambo1
            ImpostaGiocata 2,num1,ruota,Posta2,Clp2,2
            num1(3) = Terno1
            EliminaRipetuti num1
            ImpostaGiocata 3,num1,ruota,Posta3,Clp3,3
            '--------------------------------------
            num2(1) = Ambata2
            ImpostaGiocata 4,num2,ruota,Posta1,Clp1,1
            num2(2) = Ambo2
            ImpostaGiocata 5,num2,ruota,Posta2,Clp2,2
            num2(3) = Terno2
            EliminaRipetuti num2
            ImpostaGiocata 6,num2,ruota,Posta3,Clp3,3
            '--------------------------------------
            num3(1) = Ambata3
            ImpostaGiocata 7,num3,ruota,Posta1,Clp1,1
            num3(2) = Ambo3
            ImpostaGiocata 8,num3,ruota,Posta2,Clp2,2
            num3(3) = Terno3
            EliminaRipetuti num3
            ImpostaGiocata 9,num3,ruota,Posta3,Clp3,3
            '--------------------------------------
            num4(1) = Ambata4
            ImpostaGiocata 10,num4,ruota,Posta1,Clp1,1
            num4(2) = Ambo4
            ImpostaGiocata 11,num4,ruota,Posta2,Clp2,2
            num4(3) = Terno4
            EliminaRipetuti num4
            ImpostaGiocata 12,num4,ruota,Posta3,Clp3,3
            '--------------------------------------
            num5(1) = Ambata5
            ImpostaGiocata 13,num5,ruota,Posta1,Clp1,1
            num5(2) = Ambo5
            ImpostaGiocata 14,num5,ruota,Posta2,Clp2,2
            num5(3) = Terno5
            EliminaRipetuti num5
            ImpostaGiocata 15,num5,ruota,Posta3,Clp3,3
            Gioca Es
            Erase num1
            Erase num2
            Erase num3
            Erase num4
            Erase num5
        End If
    Next
    ScriviResoconto
End Sub