NAZIONALE VINCOLATA

[marinello18]

Metodo algoritmico particolare che si mette in gioco alla
2° del mese sulla NZ.Questo metodo è valido solo
se alla prima estrazione del mese in 1° posizione troviamo un numeretto.
Dalla nascita della ruota NZ abbiamo avuto 15 casi e questo è il 16imo.
Il metodo mette in gioco una ambata e 3 ambi da seguire 15 colpi,
la previsione e gli algoritmi li trovate nello spoiler e man mano inserirò
nuovi metodi vincolati da tenere in collezione....Chi vuole seguire questa
previsione,consiglio di provare il capogioco in 5° posizione che è
scompensata parecchio.

Anticipazione (Spoiler): NZ VINCOLATA

Ruote di gioco: Nz.
Colpi di gioco: 15
Algoritmi/Numeri in gioco:
...
Ambata: 1 di Ba + 5 di Ve + 06 *
Ambo: 4 di Ro - 4 di Na + 66 *
Ambo: 2 di Na + 1 di Nz + 79 *
Ambo: 3 di Na + 2 di Nz + 01 *

sab 02.12.2006
Ambata 87
Abbinamenti per ambo: 45.63.24.
Esiti:
gio 14.12.2006 al 5 colpo su Nz ambata 87
gio 14.12.2006 al 5 colpo su Nz ambo 87 - 45

mar 03.04.2007
Ambata 63
Abbinamenti per ambo: 40.6.61.
Esiti:
sab 21.04.2007 al 8 colpo su Nz ambata 63
sab 21.04.2007 al 8 colpo su Nz ambo 63 - 40

mar 01.04.2008
Ambata 25
Abbinamenti per ambo: 64.22.58.
Esiti:
gio 03.04.2008 al 1 colpo su Nz ambata 25
mar 08.04.2008 al 3 colpo su Nz ambata 25
mar 15.04.2008 al 6 colpo su Nz ambata 25
gio 24.04.2008 al 10 colpo su Nz ambata 25
gio 24.04.2008 al 10 colpo su Nz ambo 25 - 64
sab 26.04.2008 al 11 colpo su Nz ambata 25

mar 02.12.2008
Ambata 68
Abbinamenti per ambo: 5.55.51.
Esiti:
mar 23.12.2008 al 9 colpo su Nz ambata 68
mar 23.12.2008 al 9 colpo su Nz ambo 68 - 55

gio 02.04.2009
Ambata 44
Abbinamenti per ambo: 4.68.14.
Esiti:
mar 07.04.2009 al 2 colpo su Nz ambata 44
mar 07.04.2009 al 2 colpo su Nz ambo 44 - 68

sab 02.01.2010
Ambata 88
Abbinamenti per ambo: 44.4.86.
Esiti:
gio 21.01.2010 al 8 colpo su Nz ambata 88
gio 21.01.2010 al 8 colpo su Nz ambo 88 - 44

mar 02.04.2013
Ambata 51
Abbinamenti per ambo: 82.24.39.
Esiti:
sab 04.05.2013 al 14 colpo su Nz ambata 51
sab 04.05.2013 al 14 colpo su Nz ambo 51 - 82

mar 01.04.2014
Ambata 76
Abbinamenti per ambo: 63.25.84.
Esiti:
mar 15.04.2014 al 6 colpo su Nz ambata 76
mar 15.04.2014 al 6 colpo su Nz ambo 76 - 84

mar 03.06.2014
Ambata 66
Abbinamenti per ambo: 16.6.65.
Esiti:
mar 24.06.2014 al 9 colpo su Nz ambata 66
sab 05.07.2014 al 14 colpo su Nz ambata 66
sab 05.07.2014 al 14 colpo su Nz ambo 66 - 6

mar 01.12.2015
Ambata 45
Abbinamenti per ambo: 42.28.34.
Esiti:
gio 03.12.2015 al 1 colpo su Nz ambata 45
gio 03.12.2015 al 1 colpo su Nz ambo 45 - 42

sab 02.09.2017
Ambata 52
Abbinamenti per ambo: 18.74.13.
Esiti:
mar 05.09.2017 al 1 colpo su Nz ambata 52
mar 05.09.2017 al 1 colpo su Nz ambo 52 - 13

mar 03.05.2022
Ambata 2
Abbinamenti per ambo: 22.15.6.
Esiti:
mar 31.05.2022 al 12 colpo su Nz ambata 2
mar 31.05.2022 al 12 colpo su Nz ambo 2 - 6
mar 31.05.2022 al 12 colpo su Nz ambo 2 - 22

sab 01.04.2023
Ambata 44
Abbinamenti per ambo: 26.71.9.
Esiti:
mar 04.04.2023 al 1 colpo su Nz ambata 44
mar 04.04.2023 al 1 colpo su Nz ambo 44 - 71

sab 01.07.2023
Ambata 40
Abbinamenti per ambo: 6.83.12.
Esiti:
mar 11.07.2023 al 5 colpo su Nz ambata 40
mar 11.07.2023 al 5 colpo su Nz ambo 40 - 12

ven 01.12.2023
Ambata 24
Abbinamenti per ambo: 25.16.23.
Esiti:
gio 28.12.2023 al 15 colpo su Nz ambata 24
gio 28.12.2023 al 15 colpo su Nz ambo 24 - 16

ven 02.01.2026
Ambata 31
Abbinamenti per ambo: 74.85.68.
Esiti:
IN CORSO ...

Data inizio ricerca : dom 08.01.1871
Data fine ricerca : ven 02.01.2026

Casi esaminati : 16
Casi positivi : 15
Casi negativi : 0
Casi in corso : 1
Casi positivi per ambata : 15
Casi positivi per ambo : 15

Vincite totali nei colpi di gioco:

Ambate : 20
Ambi vinti : 16

Estratti in 1 posizione (25%)
Estratti in 2 posizione (25%)
Estratti in 3 posizione (25%)
Estratti in 4 posizione (20%)
Estratti in 5 posizione (5%)

Vincite su Nz (100%)

 

[dorina56]

Metodo algoritmico particolare che si mette in gioco alla
2° del mese sulla NZ.Questo metodo è valido solo
se alla prima estrazione del mese in 1° posizione troviamo un numeretto.
Dalla nascita della ruota NZ abbiamo avuto 15 casi e questo è il 16imo.
Il metodo mette in gioco una ambata e 3 ambi da seguire 15 colpi,
la previsione e gli algoritmi li trovate nello spoiler e man mano inserirò
nuovi metodi vincolati da tenere in collezzione....Chi vuole seguire questa
previsione,consiglio di provare il capogioco in 5° posizione che è
scompensata parecchio.

Anticipazione (Spoiler): NZ VINCOLATA

Ruote di gioco: Nz.
Colpi di gioco: 15
Algoritmi/Numeri in gioco:
...
Ambata: 1 di Ba + 5 di Ve + 06 *
Ambo: 4 di Ro - 4 di Na + 66 *
Ambo: 2 di Na + 1 di Nz + 79 *
Ambo: 3 di Na + 2 di Nz + 01 *

sab 02.12.2006
Ambata 87
Abbinamenti per ambo: 45.63.24.
Esiti:
gio 14.12.2006 al 5 colpo su Nz ambata 87
gio 14.12.2006 al 5 colpo su Nz ambo 87 - 45

mar 03.04.2007
Ambata 63
Abbinamenti per ambo: 40.6.61.
Esiti:
sab 21.04.2007 al 8 colpo su Nz ambata 63
sab 21.04.2007 al 8 colpo su Nz ambo 63 - 40

mar 01.04.2008
Ambata 25
Abbinamenti per ambo: 64.22.58.
Esiti:
gio 03.04.2008 al 1 colpo su Nz ambata 25
mar 08.04.2008 al 3 colpo su Nz ambata 25
mar 15.04.2008 al 6 colpo su Nz ambata 25
gio 24.04.2008 al 10 colpo su Nz ambata 25
gio 24.04.2008 al 10 colpo su Nz ambo 25 - 64
sab 26.04.2008 al 11 colpo su Nz ambata 25

mar 02.12.2008
Ambata 68
Abbinamenti per ambo: 5.55.51.
Esiti:
mar 23.12.2008 al 9 colpo su Nz ambata 68
mar 23.12.2008 al 9 colpo su Nz ambo 68 - 55

gio 02.04.2009
Ambata 44
Abbinamenti per ambo: 4.68.14.
Esiti:
mar 07.04.2009 al 2 colpo su Nz ambata 44
mar 07.04.2009 al 2 colpo su Nz ambo 44 - 68

sab 02.01.2010
Ambata 88
Abbinamenti per ambo: 44.4.86.
Esiti:
gio 21.01.2010 al 8 colpo su Nz ambata 88
gio 21.01.2010 al 8 colpo su Nz ambo 88 - 44

mar 02.04.2013
Ambata 51
Abbinamenti per ambo: 82.24.39.
Esiti:
sab 04.05.2013 al 14 colpo su Nz ambata 51
sab 04.05.2013 al 14 colpo su Nz ambo 51 - 82

mar 01.04.2014
Ambata 76
Abbinamenti per ambo: 63.25.84.
Esiti:
mar 15.04.2014 al 6 colpo su Nz ambata 76
mar 15.04.2014 al 6 colpo su Nz ambo 76 - 84

mar 03.06.2014
Ambata 66
Abbinamenti per ambo: 16.6.65.
Esiti:
mar 24.06.2014 al 9 colpo su Nz ambata 66
sab 05.07.2014 al 14 colpo su Nz ambata 66
sab 05.07.2014 al 14 colpo su Nz ambo 66 - 6

mar 01.12.2015
Ambata 45
Abbinamenti per ambo: 42.28.34.
Esiti:
gio 03.12.2015 al 1 colpo su Nz ambata 45
gio 03.12.2015 al 1 colpo su Nz ambo 45 - 42

sab 02.09.2017
Ambata 52
Abbinamenti per ambo: 18.74.13.
Esiti:
mar 05.09.2017 al 1 colpo su Nz ambata 52
mar 05.09.2017 al 1 colpo su Nz ambo 52 - 13

mar 03.05.2022
Ambata 2
Abbinamenti per ambo: 22.15.6.
Esiti:
mar 31.05.2022 al 12 colpo su Nz ambata 2
mar 31.05.2022 al 12 colpo su Nz ambo 2 - 6
mar 31.05.2022 al 12 colpo su Nz ambo 2 - 22

sab 01.04.2023
Ambata 44
Abbinamenti per ambo: 26.71.9.
Esiti:
mar 04.04.2023 al 1 colpo su Nz ambata 44
mar 04.04.2023 al 1 colpo su Nz ambo 44 - 71

sab 01.07.2023
Ambata 40
Abbinamenti per ambo: 6.83.12.
Esiti:
mar 11.07.2023 al 5 colpo su Nz ambata 40
mar 11.07.2023 al 5 colpo su Nz ambo 40 - 12

ven 01.12.2023
Ambata 24
Abbinamenti per ambo: 25.16.23.
Esiti:
gio 28.12.2023 al 15 colpo su Nz ambata 24
gio 28.12.2023 al 15 colpo su Nz ambo 24 - 16

ven 02.01.2026
Ambata 31
Abbinamenti per ambo: 74.85.68.
Esiti:
IN CORSO ...

Data inizio ricerca : dom 08.01.1871
Data fine ricerca : ven 02.01.2026

Casi esaminati : 16
Casi positivi : 15
Casi negativi : 0
Casi in corso : 1
Casi positivi per ambata : 15
Casi positivi per ambo : 15

Vincite totali nei colpi di gioco:

Ambate : 20
Ambi vinti : 16

Estratti in 1 posizione (25%)
Estratti in 2 posizione (25%)
Estratti in 3 posizione (25%)
Estratti in 4 posizione (20%)
Estratti in 5 posizione (5%)

Vincite su Nz (100%)

Grazie marinelllo. Io la giocherò sicuramente questa anche perché ho convergenza con l'ambo 31-85 e in più avrei ambate 31-33 Ca-Nz per 3 colpi e domani sarebbe il terzo colpo. Speriamo.

 

[Reacher]

Non masticando bene alcuni codici particolari di spaziometria ho tradotto un pò per logica ed intuito il codice scritp di questo metodo, quindi lo vedrete un pò spartano.....meglio di niente però dai. Una sola volta ha dato il terno. Ovviamente togliete gli spazi ..... ( n )

Sub Main()
Dim number(4),ruote(12),ps(2),nz
ps(2) = 2
ruote(12) = 12
For n = 7681 To 10780
nz = Estratto(n,12,1)
If IndiceMensile = 1 And nz <= 9 Then
number(1) = Fuori90(Estratto(n,1,1) + Estratto(n,10,5) + 6)
number(2) = Fuori90(Estratto(n,8,4) - Estratto(n,6,4) + 66)
number(3) = Fuori90(Estratto(n,6,2) + Estratto(n,12,1) + 79)
number(4) = Fuori90(Estratto(n,6,3) + Estratto(n,12,2) + 1)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(12) & " - " & StringaEstratti(es,12) & " - " & SiglaRuota(12) & " -> " & CInt(nz),1
EliminaRipetuti number
ImpostaGiocata 1,number,ruote,ps,15
Gioca n,1
End If
Next
ScriviResoconto
End Sub

 

[marinello18]

Non masticando bene alcuni codici particolari di spaziometria ho tradotto un pò per logica ed intuito il codice scritp di questo metodo, quindi lo vedrete un pò spartano.....meglio di niente però dai. Una sola volta ha dato il terno. Ovviamente togliete gli spazi ..... ( n )

Sub Main()
Dim number(4),ruote(12),ps(2),nz
ps(2) = 2
ruote(12)=12
For n = 7681 To 10780
nz=Estratto(n,12,1)
If IndiceMensile ( n ) = 1 And nz <= 9 Then
number(1) = Fuori90(Estratto(n,1,1) + Estratto(n,10,5) + 6)
number(2) = Fuori90(Estratto(n,8,4) - Estratto(n,6,4) + 66)
number(3) = Fuori90(Estratto(n,6,2) + Estratto(n,12,1) + 79)
number(4) = Fuori90(Estratto(n,6,3) + Estratto(n,12,2) + 1)
ImpostaGiocata 1,number,ruote,ps,15
Gioca n
End If
Next
ScriviResoconto
End Sub

Ciao, immagino che hai semplificato la quartina per convenienza, ma il terno è una fatalità perché gli algoritmi erano nella migliore frequenza, in realtà si devono formulare tre ambi, oppure la quartina se si vuole risparmiare con la consapevolezza che la vincita è minore

 

[Reacher]

No... Infatti ho solo sviluppato i tuoi algoritmi in cui l ambata si accoppia sempre con gli altri numeri.... Il terno è stata una casualità

 

[AMERICA]

Io gioco solo 31.68..lo trovo

 

[Pandit]

Se può andare bene....

Anticipazione (Spoiler)

' Nazionale Vincolata by marinello18
Sub Main()'Pandit
Dim n(4),ruote(12),ps(5),nz
Dim nu(2),pos(2)
k= 15
ps(2) = 1
ps(3) = 1
pos(2) = 1
ruote(12) = 12
For es = EstrazioneFin - 1800 To EstrazioneFin
nz = Estratto(es,12,1)
If IndiceMensile(es) = 1 And nz <= 9 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,10,5) + 6)
n(2) = Fuori90(Estratto(es,8,4) - Estratto(es,6,4) + 66)
n(3) = Fuori90(Estratto(es,6,2) + Estratto(es,12,1) + 79)
n(4) = Fuori90(Estratto(es,6,3) + Estratto(es,12,2) + 1)
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(12) & " - " & StringaEstratti(es,12) & " - " & SiglaRuota(12) & " -> " & CInt(nz),1
nu(1) = n(1)
nu(2) = n(2)
ImpostaGiocata 1,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
ImpostaGiocata 2,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
ImpostaGiocata 3,nu,ruote,pos,k
EliminaRipetuti n
ImpostaGiocata 4,n,ruote,ps,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[Reacher]

si va bene, infatti devo imparare a far visualizzare solo gli ambi.....prenderò spunto.

 

[marinello18]

Se può andare bene....

Anticipazione (Spoiler)

' Nazionale Vincolata by marinello18
Sub Main()'Pandit
Dim n(4),ruote(12),ps(5),nz
Dim nu(2),pos(2)
k= 15
ps(2) = 1
ps(3) = 1
pos(2) = 1
ruote(12) = 12
For es = EstrazioneFin - 1800 To EstrazioneFin
nz = Estratto(es,12,1)
If IndiceMensile(es) = 1 And nz <= 9 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,10,5) + 6)
n(2) = Fuori90(Estratto(es,8,4) - Estratto(es,6,4) + 66)
n(3) = Fuori90(Estratto(es,6,2) + Estratto(es,12,1) + 79)
n(4) = Fuori90(Estratto(es,6,3) + Estratto(es,12,2) + 1)
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(12) & " - " & StringaEstratti(es,12) & " - " & SiglaRuota(12) & " -> " & CInt(nz),1
nu(1) = n(1)
nu(2) = n(2)
ImpostaGiocata 1,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
ImpostaGiocata 2,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
ImpostaGiocata 3,nu,ruote,pos,k
EliminaRipetuti n
ImpostaGiocata 4,n,ruote,ps,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub

Ciao Pandit,ottimo lavoro!
Ho messo un po di pepe al metodo e ho modificato
il conteggio nell'unica sottrazione degli algoritmi
in modo da ottenere sempre il conteggio giusto.
Unica cosa,l'output è falsato con una previsione,
perchè nella condizione quando viè un numero ripetuto....
al ripetuto gli si somma il +1.....sicuramente tu ci arrivi.
io in questo momento ho troppi casini per la testa

Anticipazione (Spoiler): Pandit rivisto

Sub Main()'Pandit
Dim n(7),ruote(12),ps(5),nz
Dim nu(7),pos(3)
k= 15
ps(2) = 1
ps(3) = 1
pos(2) = 1
pos(3) = 1
ruote(12) = 12
For es = EstrazioneFin - 3300 To EstrazioneFin
nz = Estratto(es,12,1)
If IndiceMensile(es) = 1 And nz <= 9 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,10,5) + 6)

n(2) = Fuori90(90+(Estratto(es,8,4)) - Estratto(es,6,4) + 66)
n(3) = Fuori90(Estratto(es,6,2) + Estratto(es,12,1) + 79)
n(4) = Fuori90(Estratto(es,6,3) + Estratto(es,12,2) + 1)
n(5) = Fuori90(Estratto(es,1,3) + Estratto(es,10,3) + 37)
n(6) = Fuori90(Estratto(es,3,2) + Estratto(es,8,2) + 71)
n(7) = Fuori90(Estratto(es,1,4) + Estratto(es,6,4) + 11)
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(12) & " - " & StringaEstratti(es,12) & " - " & SiglaRuota(12) & " -> " & CInt(nz),1
nu(1) = n(1)
nu(2) = n(2)
nu(3)= n(5)
ImpostaGiocata 1,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
nu(3)= n(5)
ImpostaGiocata 2,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
nu(3)= n(5)
ImpostaGiocata 3,nu,ruote,pos,k

nu(1) = n(1)
nu(2) = n(2)
nu(3)= n(6)
ImpostaGiocata 4,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
nu(3)= n(6)
ImpostaGiocata 5,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
nu(3)= n(6)
ImpostaGiocata 6,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(2)
nu(3)= n(7)
ImpostaGiocata 7,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
nu(3)= n(7)
ImpostaGiocata 8,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
nu(3)= n(7)
ImpostaGiocata 9,nu,ruote,pos,k

Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[Pandit]

Probabilmente c'è un metodo migliore, ma al momento ho risolto così:

Anticipazione (Spoiler)

Sub Main()'Pandit
Dim n(7),ruote(12),ps(5),nz
Dim nu(7),pos(3)
k= 15
ps(2) = 1
ps(3) = 1
pos(2) = 1
pos(3) = 1
ruote(12) = 12
For es = EstrazioneFin - 3300 To EstrazioneFin
nz = Estratto(es,12,1)
If IndiceMensile(es) = 1 And nz <= 9 Then
n(1) = Fuori90(Estratto(es,1,1) + Estratto(es,10,5) + 6)

n(2) = Fuori90(90+(Estratto(es,8,4)) - Estratto(es,6,4) + 66)
n(3) = Fuori90(Estratto(es,6,2) + Estratto(es,12,1) + 79)
n(4) = Fuori90(Estratto(es,6,3) + Estratto(es,12,2) + 1)
n(5) = Fuori90(Estratto(es,1,3) + Estratto(es,10,3) + 37)
n(6) = Fuori90(Estratto(es,3,2) + Estratto(es,8,2) + 71)
n(7) = Fuori90(Estratto(es,1,4) + Estratto(es,6,4) + 11)
'EliminaRipetuti n
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(12) & " - " & StringaEstratti(es,12) & " - " & SiglaRuota(12) & " -> " & CInt(nz),1
nu(1) = n(1)
nu(2) = n(2)
nu(3)= n(5)
If nu(1) = nu(2) Or nu(1) = nu(5) Then nu(1)= nu(1) + 1
If nu(2) = nu(5) Then nu(2) = nu(2) + 1
ImpostaGiocata 1,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
nu(3)= n(5)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 2,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
nu(3)= n(5)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 3,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(2)
nu(3)= n(6)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 4,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
nu(3)= n(6)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 5,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
nu(3)= n(6)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 6,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(2)
nu(3)= n(7)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 7,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(3)
nu(3)= n(7)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 8,nu,ruote,pos,k
nu(1) = n(1)
nu(2) = n(4)
nu(3)= n(7)
If nu(1) = nu(2) Or nu(1) = nu(3) Then nu(1)= nu(1) + 1
If nu(2) = nu(3) Then nu(2) = nu(2) + 1
ImpostaGiocata 9,nu,ruote,pos,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[marinello18]

Avrei risolto anch’io in questa maniera e come dici, ci sarà un metodo migliore.
Per fortuna è messo qui…. Perché se
Legge qualcuno della sezione Download
Si mette a ridere e ci cazzia