Buon anno a tutti

[anto59]

Grazie

 

[nuovadimensione]

grazie o provato o preso ambo in cinquina

 

[Roby]

Buon anno a tutti....

Sub Main() ColoreTesto 1    Scrivi
    Scrivi "5 QUARTINE SU' TO-VE ALLA 6° ESTRAZIONE MENSILE",1
    Scrivi
    Scrivi
    Scrivi " METODO E LIST BY Steel",1
    Scrivi
    ColoreTesto 0
    Dim ruote(10)
    Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(4)
    poste(2) = 1.5
    poste(3) = 1
    poste(4) = .50
    klp = 9
    ini = 8000
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        If IndiceMensile(es) = 6 Then
            ruote(1) = 9
            ruote(2) = 10
            casi = casi + 1
            co = co + 1
            ColoreTesto 2:Scrivi String(100,"#") & " Caso n° " & casi,1
            ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
            ColoreTesto 0
            nn1(1) = Fuori90(Estratto(es,2,1) + 32)
            nn1(2) = Fuori90(Estratto(es,2,5) + 64)
            nn1(3) = Fuori90(Estratto(es,1,2) + 32)
            nn1(4) = Fuori90(Estratto(es,2,1) + 89)
            ImpostaGiocata 1,nn1,ruote,poste,klp
            nn2(1) = Fuori90(Estratto(es,2,1) * 7)
            nn2(2) = Fuori90(Estratto(es,3,3) + 39)
            nn2(3) = Fuori90(Estratto(es,2,1) * 32)
            nn2(4) = Fuori90(Estratto(es,2,1) * 11)
            ImpostaGiocata 2,nn2,ruote,poste,klp
            nn3(1) = Fuori90(Estratto(es,2,1) + 1)
            nn3(2) = Fuori90(Estratto(es,12,3) * 7)
            nn3(3) = Fuori90(Estratto(es,1,1) + 15)
            nn3(4) = Fuori90(Estratto(es,1,4) + 11)
            ImpostaGiocata 3,nn3,ruote,poste,klp
            nn4(1) = Fuori90(Estratto(es,2,1) * 78)
            nn4(2) = Fuori90(Estratto(es,2,2) * 31)
            nn4(3) = Fuori90(Estratto(es,4,1) + 11)
            nn4(4) = Fuori90(Estratto(es,3,1) * 55)
            ImpostaGiocata 4,nn4,ruote,poste,klp
            nn5(1) = Fuori90(Estratto(es,2,1) * 48)
            nn5(2) = Fuori90(Estratto(es,4,4) + 85)
            nn5(3) = Fuori90(Estratto(es,2,1) + 45)
            nn5(4) = Fuori90(Estratto(es,1,1) + 43)
            ImpostaGiocata 5,nn5,ruote,poste,klp
            Gioca es,1
        End If
    Next
    Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub

 

[keeper]

mizzica e come fruzzicano