Aiuto e chiarimento Raddoppio giocate

[Sakti]

Per cortesia, mi potreste spiegare perchè lo script mi raddoppia le giocate?
Se spiegate anche il perchè con una correzione vi ringrazio in anticipo...

Anticipazione (Spoiler)

Sub Main()
Dim nu(10),ruote(12),poste(5)
poste(2)= 1
poste(3) = 1
fin = EstrazioneFin
ini = fin - 52
For es = ini To fin
For r1 = 1 To 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = 1 To 12
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
ds1 = Distanza(n1,n3)
ds2 = Distanza(n2,n4)
If ds1 = 45 And ds2 = 45 Then
casi = casi + 1
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo distanza < " & Format2(ds1) & " >" & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo distanza < " & Format2(ds2) & " >" & Format2(n3) & "." & Format2(n4) & " >"
ColoreTesto 1:Scrivi String(70,152) & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:ruote(3) = 11
k = 11
co = 0
nu(1) = 18
nu(2) = 26
nu(3) = 45
nu(4) = 90
ImpostaGiocata 1,nu,ruote,poste,k
Gioca es,1
co = co + 1
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub

 

[joe]

Perché i 2 cicli nidificati da 12 ruote, trovano riscontro doppio

prima ruota_a con ruota_b

e poi

ruota-b con ruota_a

 

[Sakti]

Grazie mille Joe, grande come sempre, è un po di tempo che non scrivo più e oltretutto non ero gran che neppure prima, ma come risolvo?
E Tu Salvo non ridere.....

 

[joe]

Ciao, r2 deve essere mantenuto maggiore di r1,

per non raccogliere nuovamente i casi già trovati.

For r1 = 1 to 10

E poi

For r2 = r1 + 1 to 12

If r2 = 11 then r2 = 12

 

[Sakti]

Grazie mille sempre er mejjo !!!!

 

[Alien.]

Ciao Sakti che per caso puoi mettere lo script corretto" con un grappino" lo trovo interessante, grazie.

 

[Sakti]

Per il Carissimo Alien, perdona il ritardo, ma sono appena rientrato e solo ora leggo la Tua richiesta.... non è solo interessante, ma si presta ad usi diversi.....

Anticipazione (Spoiler)

Sub Main()
Dim nu(10),ruote(12),poste(5)
poste(2)= 1
poste(3) = 1
fin = EstrazioneFin
ini = fin - 52
For es = ini To fin
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 = 11 then r2 = 12
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
ds1 = Distanza(n1,n3)
ds2 = Distanza(n2,n4)
If ds1 = 45 And ds2 = 45 Then
casi = casi + 1
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo distanza < " & Format2(ds1) & " >" & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo distanza < " & Format2(ds2) & " >" & Format2(n3) & "." & Format2(n4) & " >"
ColoreTesto 1:Scrivi String(70,152) & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:ruote(3) = 11
k = 11
co = 0
nu(1) = 18
nu(2) = 26
nu(3) = 45
nu(4) = 90
ImpostaGiocata 1,nu,ruote,poste,k
Gioca es,1
co = co + 1
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub

 

[Alien.]

TOC TOC CHI È : Sakti son qua.......