Novità

Lasciamolo lavorare in pace

  • Creatore Discussione Creatore Discussione steel
  • Data di inizio Data di inizio
S

steel

Guest
Lanciate il list e beveteve na birretta:cool:

Codice:
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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto