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
    giovedì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02

Ultimi Messaggi

Indietro
Alto