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
    martedì 06 ottobre 2026
    Bari
    50
    20
    35
    06
    04
    Cagliari
    22
    56
    17
    89
    74
    Firenze
    44
    41
    61
    08
    02
    Genova
    55
    90
    74
    42
    52
    Milano
    03
    80
    84
    33
    87
    Napoli
    27
    30
    50
    80
    87
    Palermo
    61
    31
    40
    48
    42
    Roma
    79
    58
    44
    52
    51
    Torino
    46
    05
    40
    39
    52
    Venezia
    39
    22
    68
    21
    27
    Nazionale
    54
    84
    43
    06
    12
    Estrazione Simbolotto
    36
    45
    21
    43
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto