Novità

Buon anno a tutti

  • Creatore Discussione Creatore Discussione steel
  • Data di inizio Data di inizio
Buon anno a tutti....:)

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

242h0zn.png
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45
Indietro
Alto