Novità

Gentilmente a chi ne sa' piu' di me

Venuslotto

Super Member >PLATINUM<
Chi mi potrebbe aggiungere una terza ruota a questo script.
Grazie anticipatamente.

Sub Main()
Dim ambi(4005,18),n(2),n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),ru(2)

rr = CInt(InputBox(" Scegli la 1° ruota ",,1))
If rr = "" Then Exit Sub

rr1 = CInt(InputBox(" Scegli la 2° ruota ",,2))
If rr1 = "" Then Exit Sub


cg = CInt(InputBox(" Scegli il 1° capogioco ",,36))
If rr = "" Then Exit Sub

cg1 = CInt(InputBox(" Scegli il 2° capogioco ",,63))
If cg1 = "" Then Exit Sub

yyy = CInt(InputBox(" Quanti abbinamenti cercare? ",,10))
If cg1 = "" Then Exit Sub


ru(1) = rr
ru(2) = rr1
ru(2) = rr2

co = 0


ini = 7000'500
fin = EstrazioneFin
Scrivi
co = 0

For y = 1 To 90
If cg <> y Then
If cg1 <> y Then

co = co + 1
n(1) = cg'<<<<<
n(2) = y
n1(1) = cg1'<<<<
n1(2) = y


ambi(co,1) = co
ambi(co,2) = SiglaRuota(rr)
ambi(co,3) = SiglaRuota(rr1)
ambi(co,4) = StringaNumeri(n)
ambi(co,5) = StringaNumeri(n1)

fr = SerieFreq(ini,fin,n,ru,2)
fr1 = SerieFreq(ini,fin,n1,ru,2)

fre = fr + fr1


ambi(co,6) = fre
End If
End If
Next

OrdinaMatrice ambi,- 1,6

For xx = 1 To yyy

Scrivi Space(2) & ambi(xx,2) & "." & ambi(xx,3) & " " & ambi(xx,4) & " " & ambi(xx,5) & " " & ambi(xx,6)
Next


End Sub
 
Chi mi potrebbe aggiungere una terza ruota a questo script.
Grazie anticipatamente.

Sub Main()
Dim ambi(4005,18),n(2),n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),ru(2)

rr = CInt(InputBox(" Scegli la 1° ruota ",,1))
If rr = "" Then Exit Sub

rr1 = CInt(InputBox(" Scegli la 2° ruota ",,2))
If rr1 = "" Then Exit Sub


cg = CInt(InputBox(" Scegli il 1° capogioco ",,36))
If rr = "" Then Exit Sub

cg1 = CInt(InputBox(" Scegli il 2° capogioco ",,63))
If cg1 = "" Then Exit Sub

yyy = CInt(InputBox(" Quanti abbinamenti cercare? ",,10))
If cg1 = "" Then Exit Sub


ru(1) = rr
ru(2) = rr1
ru(2) = rr2

co = 0


ini = 7000'500
fin = EstrazioneFin
Scrivi
co = 0

For y = 1 To 90
If cg <> y Then
If cg1 <> y Then

co = co + 1
n(1) = cg'<<<<<
n(2) = y
n1(1) = cg1'<<<<
n1(2) = y


ambi(co,1) = co
ambi(co,2) = SiglaRuota(rr)
ambi(co,3) = SiglaRuota(rr1)
ambi(co,4) = StringaNumeri(n)
ambi(co,5) = StringaNumeri(n1)

fr = SerieFreq(ini,fin,n,ru,2)
fr1 = SerieFreq(ini,fin,n1,ru,2)

fre = fr + fr1


ambi(co,6) = fre
End If
End If
Next

OrdinaMatrice ambi,- 1,6

For xx = 1 To yyy

Scrivi Space(2) & ambi(xx,2) & "." & ambi(xx,3) & " " & ambi(xx,4) & " " & ambi(xx,5) & " " & ambi(xx,6)
Next


End Sub
dovrebbe andare bene aggiungendo :

rr2 = CInt(InputBox(" Scegli la 3° ruota ", , 3))
If rr2 = "" Then Exit Sub
 
Codice:
Sub Main()
    Dim ambi(4005, 18), n(2), n1(2), n2(2), n3(2), n4(2), n5(2), n6(2), n7(2), ru(3)

    rr = CInt(InputBox(" Scegli la 1° ruota ", , 1))
    If rr = "" Then Exit Sub

    rr1 = CInt(InputBox(" Scegli la 2° ruota ", , 2))
    If rr1 = "" Then Exit Sub

    rr2 = CInt(InputBox(" Scegli la 3° ruota ", , 3))  ' Nuova input per la terza ruota
    If rr2 = "" Then Exit Sub

    cg = CInt(InputBox(" Scegli il 1° capogioco ", , 36))
    If cg = "" Then Exit Sub

    cg1 = CInt(InputBox(" Scegli il 2° capogioco ", , 63))
    If cg1 = "" Then Exit Sub

    yyy = CInt(InputBox(" Quanti abbinamenti cercare? ", , 10))
    If yyy = "" Then Exit Sub

    ru(1) = rr
    ru(2) = rr1
    ru(3) = rr2  ' Assegniamo il valore della terza ruota

    co = 0

    ini = 7000 '500
    fin = EstrazioneFin
    Scrivi
    co = 0

    For y = 1 To 90
        If cg <> y Then
            If cg1 <> y Then
                
                ' Abbinamenti per le tre ruote
                n(1) = cg
                n(2) = y
                n1(1) = cg1
                n1(2) = y
                n2(1) = "" ' Placeholder per terzo capogioco (eventuale utilizzo futuro)
                n2(2) = y

                ambi(co, 1) = co
                ambi(co, 2) = SiglaRuota(rr)
                ambi(co, 3) = SiglaRuota(rr1)
                ambi(co, 4) = SiglaRuota(rr2)  ' Aggiunta della terza ruota
                ambi(co, 5) = StringaNumeri(n)
                ambi(co, 6) = StringaNumeri(n1)
                ambi(co, 7) = StringaNumeri(n2)  ' Aggiunta della terza capogioco

                fr = SerieFreq(ini, fin, n, ru, 2)
                fr1 = SerieFreq(ini, fin, n1, ru, 2)
                fr2 = SerieFreq(ini, fin, n2, ru, 2)  ' Calcolo frequenza per la terza ruota

                fre = fr + fr1 + fr2  ' Somma delle frequenze delle tre ruote
                ambi(co, 8) = fre
                co = co + 1 ' Incremento del contatore
            End If
        End If
    Next

    OrdinaMatrice ambi, -1, 8

    For xx = 1 To yyy
        Scrivi Space(2) & ambi(xx, 2) & "." & ambi(xx, 3) & " " & ambi(xx, 4) & " " & ambi(xx, 5) & " " & ambi(xx, 6) & " " & ambi(xx, 7) & " " & ambi(xx, 8)
    Next

End Sub
 
Codice:
Sub Main()
    Dim ambi(4005, 18), n(2), n1(2), n2(2), n3(2), n4(2), n5(2), n6(2), n7(2), ru(3)

    rr = CInt(InputBox(" Scegli la 1° ruota ", , 1))
    If rr = "" Then Exit Sub

    rr1 = CInt(InputBox(" Scegli la 2° ruota ", , 2))
    If rr1 = "" Then Exit Sub

    rr2 = CInt(InputBox(" Scegli la 3° ruota ", , 3))  ' Nuova input per la terza ruota
    If rr2 = "" Then Exit Sub

    cg = CInt(InputBox(" Scegli il 1° capogioco ", , 36))
    If cg = "" Then Exit Sub

    cg1 = CInt(InputBox(" Scegli il 2° capogioco ", , 63))
    If cg1 = "" Then Exit Sub

    yyy = CInt(InputBox(" Quanti abbinamenti cercare? ", , 10))
    If yyy = "" Then Exit Sub

    ru(1) = rr
    ru(2) = rr1
    ru(3) = rr2  ' Assegniamo il valore della terza ruota

    co = 0

    ini = 7000 '500
    fin = EstrazioneFin
    Scrivi
    co = 0

    For y = 1 To 90
        If cg <> y Then
            If cg1 <> y Then
               
                ' Abbinamenti per le tre ruote
                n(1) = cg
                n(2) = y
                n1(1) = cg1
                n1(2) = y
                n2(1) = "" ' Placeholder per terzo capogioco (eventuale utilizzo futuro)
                n2(2) = y

                ambi(co, 1) = co
                ambi(co, 2) = SiglaRuota(rr)
                ambi(co, 3) = SiglaRuota(rr1)
                ambi(co, 4) = SiglaRuota(rr2)  ' Aggiunta della terza ruota
                ambi(co, 5) = StringaNumeri(n)
                ambi(co, 6) = StringaNumeri(n1)
                ambi(co, 7) = StringaNumeri(n2)  ' Aggiunta della terza capogioco

                fr = SerieFreq(ini, fin, n, ru, 2)
                fr1 = SerieFreq(ini, fin, n1, ru, 2)
                fr2 = SerieFreq(ini, fin, n2, ru, 2)  ' Calcolo frequenza per la terza ruota

                fre = fr + fr1 + fr2  ' Somma delle frequenze delle tre ruote
                ambi(co, 8) = fre
                co = co + 1 ' Incremento del contatore
            End If
        End If
    Next

    OrdinaMatrice ambi, -1, 8

    For xx = 1 To yyy
        Scrivi Space(2) & ambi(xx, 2) & "." & ambi(xx, 3) & " " & ambi(xx, 4) & " " & ambi(xx, 5) & " " & ambi(xx, 6) & " " & ambi(xx, 7) & " " & ambi(xx, 8)
    Next

End Sub
Sei un fenomeno grazie Lottopython
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34
Indietro
Alto