Occasione per un'ambata in gioco.. manca due colpi !!

[Aldo.G]

Ecco a voi!

Sub Main()
    Dim ruote(1)
    Dim posta(1)
    Dim n(3)
    ruote(1) = 1
    posta(1) = 1
    ini = EstrazioneFin - 180
    fin = EstrazioneFin
    For es = ini To fin
        If IndiceMensile(es+1) = 1  Then
            Num = Estratto(es,CA_ ,2)
            n(1) = Fuori90(Num + 88)
                       ImpostaGiocata 1,n,ruote,posta,10,1
            Gioca es
        End If
    Next
    Scrivi
    ScriviResoconto
End Sub

[jobby73]

Di nuovo grazie...