Ciao a tutti;
Qui di seguito lo script corretto:
Sub Main()
'
Dim ruote(10),ruota(10),n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n19,n15,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(2) = 1
fin = EstrazioneFin
Ini = 10055
For es = Ini To fin
n0 = 0
n15 = 1 ' Unica riga da correggere !!
AvanzamentoElab Ini,fin,es
r1 = 1
r2 = 2
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,2)
n3 = Estratto(es,r1,3)
n4 = Estratto(es,r1,4)
n5 = Estratto(es,r1,5)
n6 = Estratto(es,r2,1)
n7 = Estratto(es,r2,2)
n8 = Estratto(es,r2,3)
n9 = Estratto(es,r2,4)
n10 = Estratto(es,r2,5)
If Distanza(n1,n2) = 8 Then n0 = 8
If Distanza(n1,n3) = 8 Then n0 = 8
If Distanza(n1,n4) = 8 Then n0 = 8
If Distanza(n1,n5) = 8 Then n0 = 8
If Distanza(n2,n3) = 8 Then n0 = 8
If Distanza(n2,n4) = 8 Then n0 = 8
If Distanza(n2,n5) = 8 Then n0 = 8
If Distanza(n3,n4) = 8 Then n0 = 8
If Distanza(n3,n5) = 8 Then n0 = 8
If Distanza(n4,n5) = 8 Then n0 = 8
If Distanza(n6,n7) = 8 Then n15 = 8
If Distanza(n6,n8) = 8 Then n15 = 8
If Distanza(n6,n9) = 8 Then n15 = 8
If Distanza(n6,n10) = 8 Then n15 = 8
If Distanza(n7,n8) = 8 Then n15 = 8
If Distanza(n7,n9) = 8 Then n15 = 8
If Distanza(n7,n10) = 8 Then n15 = 8
If Distanza(n8,n9) = 8 Then n15 = 8
If Distanza(n8,n10) = 8 Then n15 = 8
If Distanza(n9,n10) = 8 Then n15 = 8
ok = 0
If n0 = n15 Then
x1 = Fuori90(Estratto(es,8,1) + 5)
x2 = Fuori90(Estratto(es,8,1) + 67)
x3 = Fuori90(Estratto(es,6,1) + 89)
x4 = Fuori90(Estratto(es,3,3) + 80)
x5 = Fuori90(Estratto(es,5,2) + 57)
x6 = Fuori90(Estratto(es,5,5) + 67)
x7 = Fuori90(Estratto(es,2,2) + 11)
x8 = Fuori90(Estratto(es,2,2) + 74)
x9 = Fuori90(Estratto(es,2,4) + 69)
x10 = Fuori90(Estratto(es,6,2) + 85)
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1)
Scrivi
ruota(1) = r1
ruota(2) = r2
k = 9
' co = 0 Non viene utilizzata !
nu2(1) = x1
nu2(2) = x2
nu2(3) = x3
nu2(4) = x4
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x1
nu2(2) = x2
nu2(3) = x5
nu2(4) = x6
ImpostaGiocata 2,nu2,ruota,poste,k
nu2(1) = x1
nu2(2) = x2
nu2(3) = x9
nu2(4) = x10
ImpostaGiocata 3,nu2,ruota,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
E i risultati:
mar 15.03.2022
mar 15.03.2022 [10055]
G 1: A 45.17.73.81 Ba Ca 9/9
A 45.17 su Ba 4° colpo [10059/24.03.2022]
A 17.73 su Ca 4° colpo [10059/24.03.2022]
G 2: A 45.17.60.44 Ba Ca 9/9
A 45.17 su Ba 4° colpo [10059/24.03.2022]
G 3: A 45.17.57.18 Ba Ca 9/9
A 45.17 su Ba 4° colpo [10059/24.03.2022]
=========================================================================== caso n° 2
mar 22.03.2022
mar 22.03.2022 [10058]
G 1: A 62.34.14 Ba Ca 9/9
negativo
G 2: A 62.34.44.07 Ba Ca 9/9
negativo
G 3: A 62.34.46.70 Ba Ca 9/9
negativo
=========================================================================== caso n° 3
gio 24.03.2022
gio 24.03.2022 [10059]
G 1: A 04.66.25.89 Ba Ca 9/9
A 89.04 su Ba 2° colpo [10061/29.03.2022]
A 25.66 su Ba 7° colpo [10066/09.04.2022]
A 04.25 su Ca 8° colpo [10067/12.04.2022]
G 2: A 04.66.90.42 Ba Ca 9/9
A 90.66 su Ba 7° colpo [10066/09.04.2022]
G 3: A 04.66.86.53 Ba Ca 9/9
negativo
=========================================================================== caso n° 4
sab 23.04.2022
sab 23.04.2022 [10072]
G 1: A 90.62.44.24 Ba Ca 9/9
A 44.62 su Ba 9° colpo [10081/14.05.2022]
G 2: A 90.62.67.46 Ba Ca 9/9
A 62.67 su Ca 4° colpo [10076/03.05.2022]
G 3: A 90.62.47.49 Ba Ca 9/9
A 47.90 su Ba 3° colpo [10075/30.04.2022]
A 49.90 su Ba 7° colpo [10079/10.05.2022]
A 47.62 su Ba 9° colpo [10081/14.05.2022]
=========================================================================== caso n° 5
ven 03.06.2022
ven 03.06.2022 [10089]
G 1: A 39.11.66.34 Ba Ca 9/9
A 34.39 su Ba 5° colpo [10094/14.06.2022]
A 11.34 su Ba 6° colpo [10095/16.06.2022]
G 2: A 39.11.14.04 Ba Ca 9/9
A 39.04 su Ba 5° colpo [10094/14.06.2022]
A 04.11 su Ba 6° colpo [10095/16.06.2022]
G 3: A 39.11.51.57 Ba Ca 9/9
negativo
=========================================================================== caso n° 6
sab 17.09.2022
sab 17.09.2022 [10135]
G 1: A 84.56.62.67 Ba Ca 9/9
negativo
G 2: A 84.56.29 Ba Ca 9/9
negativo
G 3: A 84.56.17.21 Ba Ca 9/9
negativo
=========================================================================== caso n° 7
gio 13.10.2022
gio 13.10.2022 [10146]
G 1: A 29.01.51.63 Ba Ca 9/9
negativo
G 2: A 29.01.11.85 Ba Ca 9/9
A 29.11 su Ba 2° colpo [10148/18.10.2022]
G 3: A 29.01.44.86 Ba Ca 9/9
A 29.44 su Ba 2° colpo [10148/18.10.2022]
=========================================================================== caso n° 8
sab 10.12.2022
sab 10.12.2022 [10171]
G 1: A 44.16.50.66 Ba Ca 9/9
A 50.44 su Ca 2° colpo [10173/15.12.2022]
G 2: A 44.16.78.49 Ba Ca 9/9
negativo
G 3: A 44.16.20.23 Ba Ca 9/9
negativo
=========================================================================== caso n° 9
mar 27.12.2022
mar 27.12.2022 [10178]
G 1: A 55.27.04.75 Ba Ca 9/9
A 55.27 su Ca 3° colpo [10181/03.01.2023]
G 2: A 55.27.21.29 Ba Ca 9/9
A 55.27 su Ca 3° colpo [10181/03.01.2023]
G 3: A 55.27.03.35 Ba Ca 9/9
A 55.27 su Ca 3° colpo [10181/03.01.2023]
=========================================================================== caso n° 10
mar 18.07.2023
mar 18.07.2023 [10267]
G 1: A 31.03.56.88 Ba Ca 9/9
A 03.31.56 su Ca 8° colpo [10275/01.08.2023]
G 2: A 31.03.63.04 Ba Ca 9/9
A 03.31 su Ca 8° colpo [10275/01.08.2023]
G 3: A 31.03.33.44 Ba Ca 9/9
A 03.31 su Ca 8° colpo [10275/01.08.2023]
=========================================================================== caso n° 11
mar 07.11.2023
mar 07.11.2023 [10331]
G 1: A 26.88.27.81 Ba Ca 9/9
negativo
G 2: A 26.88.72.62 Ba Ca 9/9
negativo
G 3: A 26.88.49.87 Ba Ca 9/9
A 87.88 su Ba 4° colpo [10335/14.11.2023]
=========================================================================== caso n° 12
gio 28.12.2023
gio 28.12.2023 [10360]
G 1: A 05.67.62.19 Ba Ca 9/9
A 67.19 su Ca 7° colpo [10367/09.01.2024]
G 2: A 05.67.09.65 Ba Ca 9/9
A 05.65 su Ba 1° colpo [10361/29.12.2023]
G 3: A 05.67.49.25 Ba Ca 9/9
A 25.67 su Ca 7° colpo [10367/09.01.2024]
=========================================================================== caso n° 13
sab 08.06.2024
sab 08.06.2024 [10454]
G 1: A 48.20.46.50 Ba Ca 9/9
negativo
G 2: A 48.20.01 Ba Ca 9/9
negativo
G 3: A 48.20.05.23 Ba Ca 9/9
negativo
=========================================================================== caso n° 14
ven 02.08.2024
ven 02.08.2024 [10485]
G 1: A 62.34.35.37 Ba Ca 9/9
A 35.34 su Ba 3° colpo [10488/08.08.2024]
G 2: A 62.34.56.87 Ba Ca 9/9
negativo
G 3: A 62.34.80.02 Ba Ca 9/9
negativo
=========================================================================== caso n° 15
ven 09.08.2024
ven 09.08.2024 [10489]
G 1: A 62.34.36.79 Ba Ca 9/9
negativo
G 2: A 62.34.32.10 Ba Ca 9/9
negativo
G 3: A 62.34.30.21 Ba Ca 9/9
negativo
=========================================================================== caso n° 16
ven 30.08.2024
ven 30.08.2024 [10501]
G 1: A 64.36.27.90 Ba Ca 9/9
A 27.36 su Ba 5° colpo [10506/07.09.2024]
G 2: A 64.36.79.48 Ba Ca 9/9
negativo
G 3: A 64.36.85.76 Ba Ca 9/9
A 85.36 su Ba 5° colpo [10506/07.09.2024]
=========================================================================== caso n° 17
sab 23.11.2024
sab 23.11.2024 [10550]
G 1: A 17.79.19.48 Ba Ca 9/9
A 17.48 su Ca 9° colpo [10559/10.12.2024]
G 2: A 17.79.25.15 Ba Ca 9/9
A 79.15 su Ba 8° colpo [10558/07.12.2024]
A 79.15 su Ba 9° colpo [10559/10.12.2024]
G 3: A 17.79.74.77 Ba Ca 9/9
negativo
=========================================================================== caso n° 18
mar 26.11.2024
mar 26.11.2024 [10551]
G 1: A 38.10.90.06 Ba Ca 9/9
negativo
G 2: A 38.10.44.50 Ba Ca 9/9
negativo
G 3: A 38.10.60.45 Ba Ca 9/9
negativo
=========================================================================== caso n° 19
mar 10.12.2024
mar 10.12.2024 [10559]
G 1: A 36.08.16.25 Ba Ca 9/9
A 25.36 su Ca 6° colpo [10565/20.12.2024]
G 2: A 36.08.22.21 Ba Ca 9/9
negativo
G 3: A 36.08.32.64 Ba Ca 9/9
A 08.64 su Ca 2° colpo [10561/13.12.2024]
=========================================================================== caso n° 20
sab 11.01.2025
sab 11.01.2025 [10578]
G 1: A 83.55.10.08 Ba Ca 9/9
negativo
G 2: A 83.55.64.56 Ba Ca 9/9
negativo
G 3: A 83.55.71.84 Ba Ca 9/9
negativo
=========================================================================== caso n° 21
gio 03.04.2025
gio 03.04.2025 [10624]
G 1: A 25.87.88.41 Ba Ca 9/9
negativo
G 2: A 25.87.36.20 Ba Ca 9/9
A 36.87 su Ca 2° colpo [10626/05.04.2025]
A 20.36 su Ca 4° colpo [10628/10.04.2025]
G 3: A 25.87.07.17 Ba Ca 9/9
negativo
=========================================================================== caso n° 22
ven 11.04.2025
ven 11.04.2025 [10629]
G 1: A 17.79.27.89 Ba Ca 9/9
A 89.79 su Ca 1° colpo [10630/12.04.2025]
A 17.27 su Ca 5° colpo [10634/19.04.2025]
G 2: A 17.79.28.48 Ba Ca 9/9
negativo
G 3: A 17.79.44.74 Ba Ca 9/9
negativo
=========================================================================== caso n° 23
sab 02.08.2025
sab 02.08.2025 [10694]
G 1: A 85.57.19.73 Ba Ca 9/9
negativo
G 2: A 85.57.55 Ba Ca 9/9
negativo
G 3: A 85.57.07.24 Ba Ca 9/9
A 57.24 su Ba 1° colpo [10695/05.08.2025]
=========================================================================== caso n° 24
mar 12.08.2025
mar 12.08.2025 [10699]
G 1: A 60.32.11 Ba Ca 9/9
A 11.60 su Ca 2° colpo [10701/16.08.2025]
A 32.11 su Ba 3° colpo [10702/18.08.2025]
A 11.32 su Ca 9° colpo [10708/28.08.2025]
G 2: A 60.32.11 Ba Ca 9/9
A 11.60 su Ca 2° colpo [10701/16.08.2025]
A 32.11 su Ba 3° colpo [10702/18.08.2025]
A 11.32 su Ca 9° colpo [10708/28.08.2025]
G 3: A 60.32.11 Ba Ca 9/9
A 11.60 su Ca 2° colpo [10701/16.08.2025]
A 32.11 su Ba 3° colpo [10702/18.08.2025]
A 11.32 su Ca 9° colpo [10708/28.08.2025]
=========================================================================== caso n° 25
ven 21.11.2025
ven 21.11.2025 [10757]
G 1: A 06.68.55.73 Ba Ca 9/9
A 06.73 su Ba 2° colpo [10759/25.11.2025]
G 2: A 06.68.04.47 Ba Ca 9/9
negativo
G 3: A 06.68.83.69 Ba Ca 9/9
negativo
=========================================================================== caso n° 26
mar 17.02.2026
mar 17.02.2026 [10807]
G 1: A 70.42.29.43 Ba Ca 9/9
A 70.29.42 su Ca 7° colpo [10814/28.02.2026]
G 2: A 70.42.88.36 Ba Ca 9/9
A 70.42 su Ca 7° colpo [10814/28.02.2026]
G 3: A 70.42.06.04 Ba Ca 9/9
A 70.42 su Ca 7° colpo [10814/28.02.2026]
=========================================================================== caso n° 27
gio 07.05.2026
gio 07.05.2026 [10852]
G 1: A 49.21.72.62 Ba Ca 9/9
negativo
G 2: A 49.21.81.29 Ba Ca 9/9
A 29.49 su Ca 4° colpo [10856/14.05.2026]
G 3: A 49.21.02 Ba Ca 9/9
negativo
=========================================================================== caso n° 28
gio 18.06.2026
gio 18.06.2026 [10876]
G 1: A 70.42.11.04 Ba Ca 7/9
A 42.70 su Ba 3° colpo [10879/23.06.2026]
in corso (7° su 9)
G 2: A 70.42.01.80 Ba Ca 7/9
A 42.70 su Ba 3° colpo [10879/23.06.2026]
in corso (7° su 9)
G 3: A 70.42.22.63 Ba Ca 7/9
A 42.70 su Ba 3° colpo [10879/23.06.2026]
A 42.63 su Ba 6° colpo [10882/27.06.2026]
in corso (7° su 9)
=========================================================================== caso n° 29
mar 30.06.2026
mar 30.06.2026 [10883]
G 1: A 64.36.80.31 Ba Ca 0/9
i.c. (9 colpi)
G 2: A 64.36.12.20 Ba Ca 0/9
i.c. (9 colpi)
G 3: A 64.36.08.09 Ba Ca 0/9
i.c. (9 colpi)
