Novità

Per AntonioQuagliozzi

salvo50

Advanced Member >PLATINUM PLUS<
Script richiesto da AntonioQuagliozzi

Codice:
 ' 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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 ottobre 2025
    Bari
    03
    66
    37
    18
    61
    Cagliari
    26
    22
    85
    20
    43
    Firenze
    29
    61
    85
    67
    75
    Genova
    40
    63
    74
    19
    78
    Milano
    43
    80
    34
    54
    70
    Napoli
    18
    78
    89
    15
    27
    Palermo
    38
    84
    88
    06
    62
    Roma
    60
    14
    40
    84
    43
    Torino
    51
    62
    58
    65
    52
    Venezia
    07
    61
    48
    63
    87
    Nazionale
    60
    36
    11
    28
    31
    Estrazione Simbolotto
    29
    02
    24
    03
    37

Ultimi Messaggi

Indietro
Alto