Novità

Gentilmente a chi ne sa' piu' di me

VenusLotto

VenusLotto

Advanced Member
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
 
Venuslotto ha scritto:
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
Clicca per espandere...
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
 
Lottopython ha scritto:
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
Clicca per espandere...
Sei un fenomeno grazie Lottopython
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 luglio 2026
    Bari
    86
    66
    30
    01
    25
    Cagliari
    14
    36
    79
    07
    51
    Firenze
    89
    41
    87
    30
    23
    Genova
    29
    11
    35
    57
    66
    Milano
    19
    28
    31
    27
    47
    Napoli
    03
    23
    61
    12
    65
    Palermo
    61
    90
    47
    56
    34
    Roma
    22
    26
    48
    50
    44
    Torino
    62
    75
    23
    15
    13
    Venezia
    80
    25
    84
    49
    61
    Nazionale
    23
    76
    80
    55
    46
    Estrazione Simbolotto
    Nazionale
    37
    44
    16
    05
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto