Lasciamolo lavorare in pace

[steel]

Lanciate il list e beveteve na birretta

Sub Main() ColoreTesto 1    Scrivi
    Scrivi "5 CINQUINE SU' BA-MI-NA-VE  ALLA 1° ESTRAZIONE MENSILE",1
    Scrivi
    Scrivi
    Scrivi " METODO E LIST BY  Marco²(Steel)",1
    Scrivi
    ColoreTesto 0
    Dim ruote(10)
    Dim cinquina1(5): Dim cinquina2(5) : Dim cinquina3(5) : Dim cinquina4(5) : Dim cinquina5(5): Dim poste(5)
    poste(2) = 1
    poste(3) = 1
    poste(4) = 2
    poste(5) = 2
    klp = 10
    ini = 6500
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        If IndiceMensile(es) = 1 Then
            ruote(1) = 1
            ruote(2) = 5
            ruote(3) = 6
            ruote(4) = 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
            cinquina1(1) = Fuori90(Estratto(es,12,1) + 34)
            cinquina1(2) = Fuori90(Estratto(es,5,2) * 21)
            cinquina1(3) = Fuori90(Estratto(es,12,1) + 4)
            cinquina1(4) = Fuori90(Estratto(es,1,1) + 82)
            cinquina1(5) = Fuori90(Estratto(es,12,1) + 5)
            ImpostaGiocata 1,cinquina1,ruote,poste,klp
            cinquina2(1) = Fuori90(Estratto(es,12,1) + 9)
            cinquina2(2) = Fuori90(Estratto(es,6,3) + 46)
            cinquina2(3) = Fuori90(Estratto(es,3,3) + 55)
            cinquina2(4) = Fuori90(Estratto(es,1,2) + 44)
            cinquina2(5) = Fuori90(Estratto(es,10,5) + 86)
            ImpostaGiocata 2,cinquina2,ruote,poste,klp
            cinquina3(1) = Fuori90(Estratto(es,12,1) + 78)
            cinquina3(2) = Fuori90(Estratto(es,9,3) * 16)
            cinquina3(3) = Fuori90(Estratto(es,3,4) + 51)
            cinquina3(4) = Fuori90(Estratto(es,1,1) + 63)
            cinquina3(5) = Fuori90(Estratto(es,12,1) + 42)
            ImpostaGiocata 3,cinquina3,ruote,poste,klp
            cinquina4(1) = Fuori90(Estratto(es,12,1) + 48)
            cinquina4(2) = Fuori90(Estratto(es,2,4) + 66)
            cinquina4(3) = Fuori90(Estratto(es,4,5) + 12)
            cinquina4(4) = Fuori90(Estratto(es,12,2) + 55)
            cinquina4(5) = Fuori90(Estratto(es,4,2) + 70)
            ImpostaGiocata 4,cinquina4,ruote,poste,klp
            cinquina5(1) = Fuori90(Estratto(es,12,1) + 44)
            cinquina5(2) = Fuori90(Estratto(es,5,2) + 22)
            cinquina5(3) = Fuori90(Estratto(es,1,3) + 23)
            cinquina5(4) = Fuori90(Estratto(es,2,2) + 8)
            cinquina5(5) = Fuori90(Estratto(es,4,5) + 88)
            ImpostaGiocata 5,cinquina5,ruote,poste,klp
            Gioca es,1
        End If
    Next
    Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub

 

[keeper]

steel ho fatto appena in tempo a stappare

 

[Roby]

 

[Alien.]

Ecco bene ,tradotto in excel come si fanno i calcoli?grazie.

 

[Alien.]

Ecco bene in excel i calcoli non si fanno......

 

[Y10]

Ciao steel , è un gioco oneroso , ma i risultati tentano. Complimenti.

 

[prometeo7071]

Ciao Steel, scusa e non ridere della mia ignoranza, come si fa a lanciare il list? Grazie.

 

[desperaux]

Ciao Steel,caricato in Spaziometria mi da errore
che devo fare?

 

[Antonin]

Ciao cancella la scritta evidenziata (SCRIVI).

 

[desperaux]

grazie Antonio1 tutto ok ora