Chiedo aiuto per un listato

[Roby]

Buongiorno,
chi sarebbe cosi' gentile da aiutarmi,
avrei bisogno di un listato,
le condizioni di ricerca sono:
si ricerca uno stesso numero su 2 ruote e nelle stesse bisogna rintracciare altri 2 numeri la cui somma sia identica al medesimo numero
ES:
NA 45-62
TO 62-17
i numeri estratti hanno che la somma 45+17=62
genera lo stesso risultato 62 è presente sulle 2 ruote
Spero sia stata chiara[:I]
Grazie

 

[Thauk]

Ciao, Debora73, vedi se così può andare bene.
Non avevi specificato se dovessero essere isotopi o meno. Nel listato trovi entrambi, basta togliere l'apice dove indicato.

Sub main()

ex=InputBox("Quante estrazioni controllo?",,50) 

ini=EstrazioneFin-ex
fin=EstrazioneFin
For es=ini To fin
Messaggio es

For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
For r2=r1+1 To 10
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
'If p1=p3 And p2=p4 Then	'<=== per l'isotopia togliere l'apice
If (a=d And Fuori90(b+c)=a) Or (b=c And Fuori90(a+d)=b) Then

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&"	"& SiglaRuota(r1)&" - "& Format2(a) &"."& Format2(b)&" ("&p1&"°-"&p2&"° estratto)",1
Scrivi DataEstrazione(es)&"	"& SiglaRuota(r2)&" - "& Format2(c) &"."& Format2(d)&" ("&p3&"°-"&p4&"° estratto)",1
Scrivi

'End If	'<=== per l'isotopia togliere l'apice
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi "Casi totali ("&casi&")",1
End Sub

ciauz


Fortuna non omnibus aeque.

 

[Debora73]

quote:Originally posted by Thauk

Ciao, Debora73, vedi se così può andare bene.
Non avevi specificato se dovessero essere isotopi o meno. Nel listato trovi entrambi, basta togliere l'apice dove indicato.

Sub main()

ex=InputBox("Quante estrazioni controllo?",,50) 

ini=EstrazioneFin-ex
fin=EstrazioneFin
For es=ini To fin
Messaggio es

For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
For r2=r1+1 To 10
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
'If p1=p3 And p2=p4 Then	'<=== per l'isotopia togliere l'apice
If (a=d And Fuori90(b+c)=a) Or (b=c And Fuori90(a+d)=b) Then

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&"	"& SiglaRuota(r1)&" - "& Format2(a) &"."& Format2(b)&" ("&p1&"°-"&p2&"° estratto)",1
Scrivi DataEstrazione(es)&"	"& SiglaRuota(r2)&" - "& Format2(c) &"."& Format2(d)&" ("&p3&"°-"&p4&"° estratto)",1
Scrivi

'End If	'<=== per l'isotopia togliere l'apice
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi "Casi totali ("&casi&")",1
End Sub

ciauz


Fortuna non omnibus aeque.

Grazie Thauk,
sei stato veramente molto gentile,
ottimo lavoro,era proprio quello che cercavo,
vorrei continuare con il procedimento ma non so se posso,visto che non è un metodo mio.
Se posso,vorrei approfittare ancora della tua gentilezza per chiederti ancora un altro listato,passo subito ad un es
4/9/2010
BA 23-44
FI 46-67
se calcoliamo questi 4 numeri troviamo:
somma 23 + 44= 67
somma 46 + 67= 113 - 90= 23
Abbiamo i medesimi numeri di partenza INCROCIATI e composti dal n° MAGGIORE e dal n° MINORE
Grazie ancora