Novità

Gentilmente a chi ne sa' piu' di me

Venuslotto

Super Member >GOLD<
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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto