Gentilmente a chi ne sa' piu' di me

Venuslotto · 8 Febbraio 2025

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

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

Lottopython · 8 Febbraio 2025

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
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

Venuslotto · 8 Febbraio 2025

Lottopython ha scritto:
dovrebbe andare bene aggiungendo :

rr2 = CInt(InputBox(" Scegli la 3° ruota ", , 3))
If rr2 = "" Then Exit Sub

Ci provo grazie Lottopython

Venuslotto · 8 Febbraio 2025

Venuslotto ha scritto:
Ci provo grazie Lottopython

Non mi funziona,mi da' sempre 2 ruote. Ho aggiunto la riga come mi hai detto.

Lottopython · 8 Febbraio 2025

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

Venuslotto · 8 Febbraio 2025

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

Sei un fenomeno grazie Lottopython

Cerca

Cerca

Gentilmente a chi ne sa' piu' di me

Venuslotto

Super Member >PLATINUM<

Lottopython

Advanced Member

Venuslotto

Super Member >PLATINUM<

Venuslotto

Super Member >PLATINUM<

Lottopython

Advanced Member

Venuslotto

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi