Richiesta script

Lady Oscar · 19 Maggio 2012

Ok, mi arrendo!!! Avete vinto!

LuigiB · 19 Maggio 2012

ciao Lady ecco la banale modifica che ti serve.
Sostituisci la sub con quest'altra

Codice:

Sub AlimentaCoppieRuote(coll)
	Dim k ,kk
	Dim clsCoppia
	Set coll = GetNewCollection
	For k = 1 To 9
		for kk = k +1 to 10
			Set clsCoppia = New clsCoppiaRuote
			clsCoppia.sRelazione = "Qualsiasi"
			clsCoppia.r1 = k
			clsCoppia.r2 = kk
			coll.add clsCoppia
		next

	Next
	
End Sub

Lady Oscar · 19 Maggio 2012

Buongiorno Luigi. Lo sapevo che alla fine solo tu mi avresti aiutato. Pero da impedita quale sono... non riesco a fare girare lo script. L'ho modificato cosi... ma quando deve elborare e darmi i risutlati..... si impalla:

Codice:

Option
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Explicit[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
Class
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]clsCoppiaRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Public[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r1[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Public[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Public[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sRelazione[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Function[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]IsPresentiZerati[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0[/SIZE]
[SIZE=2]
		
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0[/SIZE]
[SIZE=2]
		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 5[/SIZE]
[SIZE=2]
			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Mod[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 10 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]				
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2]
				
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
				
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Mod[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 10 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]				
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2]
				
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
				
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]IsPresentiZerati[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]And[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]q2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Function[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	

[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Class[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
Sub
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]coll[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]bEsci[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTestoInfo[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nScelti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nColpi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aNum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](0)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nScelti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScegliNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aNum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScegliEsito[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nColpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Int[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Colpi di gioco[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,10))[/SIZE]
[SIZE=2]
	

	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0[/SIZE]
[SIZE=2]
	

	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nScelti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]And[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]And[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nColpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]AlimentaCoppieRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]coll[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneIni[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Each[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]In[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]coll[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]				
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] clsCoppia.IsPresentiZerati([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]					
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GiocaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Zerati[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTestoInfo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]						
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GestioneGioca[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTestoInfo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aNum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nColpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
					
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]				
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]				

			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]bEsci[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Exit[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriviResoconto[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
Sub
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]AlimentaCoppieRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]coll[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]kk[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Set[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]coll[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetNewCollection[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 9[/SIZE]
[SIZE=2]
		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]kk[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 10[/SIZE]
[SIZE=2]
			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Set[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]New[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]clsCoppiaRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			clsCoppia.sRelazione 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Qualsiasi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
			clsCoppia.r1 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			clsCoppia.r2 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]kk[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			coll.add 
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][/B][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	

	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'For k = 1 To 9 Step 3[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Set clsCoppia = New clsCoppiaRuote[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'clsCoppia.sRelazione = "Consecutive"[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'clsCoppia.r1 = k[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'clsCoppia.r2 = k + 1[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'coll.add clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Next[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'For k = 1 To 5[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Set clsCoppia = New clsCoppiaRuote[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'clsCoppia.sRelazione = "Gemelle"[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'clsCoppia.r1 = k[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'clsCoppia.r2 = 11 - k[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'coll.add clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Next[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'For k = 1 To 5[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'	Set clsCoppia = New clsCoppiaRuote[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'	clsCoppia.sRelazione = "Diametrali"[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'	clsCoppia.r1 = k[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'	clsCoppia.r2 = 5 + k[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'	coll.add clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Next[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
Function
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GiocaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sCondizione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Nell'estrazione [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetInfoEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] si è verificata la condizione [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sCondizione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbCrLf[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Ruote [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](clsCoppia.r1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] - [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](clsCoppia.r2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbCrLf[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Le ruote sono [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] clsCoppia.sRelazione [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbCrLf[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](clsCoppia.r1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Num [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] pos [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbCrLf[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](clsCoppia.r2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Num [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] pos [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]p2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbCrLf[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GiocaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]True[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Function[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
Sub
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]GestioneGioca[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]clsCoppia[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTestoInfo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aNum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nColpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPoste[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](5)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]String[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](80,"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]=[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"))[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]sTestoInfo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],,,,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbBlue[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]String[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](80,"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]=[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"))[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPoste[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] clsCoppia.r1[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] clsCoppia.r2[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ImpostaGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nGiocata[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aNum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aPoste[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nColpi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Gioca[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]idEstr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
　

　
[/SIZE][/B][SIZE=2][/SIZE]

LuigiB · 19 Maggio 2012

Anche se da come hai incollato lo script non ci si capisce nulla sembrerebeb che tu abbia miracolosamente fatto bene

si impalla perche sta lavorando e mi sono scordato di gestire la barra di avanzamento ..percio ti sembra impallato ..aspetta che deve fare un bel po' di lavoro ..in quanto le condizioni del metodo sono molto frequenti figuraimoci quante ne escono analizzando per ogni estrazione 45 coppie di ruote al limite usa meno estrazioni ...
Ciao ...

P.S.
Devi diventare pure un po' cultrice dell'aspetto tecnico se vuoi diventare una cultrice del lotto completa

Lady Oscar · 19 Maggio 2012

Caspita! hai ragione..... ho lasciato la data di partenza dal 1945!!! E te credo che si è impallato!!!

E già mi sa che mi devo mettere a studiare sti benedetti script, altrimenti .. .. .. che cultrice sono!!! Grazie sempre Luigi!!! Certo che c'hai na pazienza!!!

Roby · 19 Maggio 2012

Ciao Lady Oscar
ho preso lo script che hai postato (usa l'icona a forma di cancelletto per postare il listati se no non vengono formattati a dovere) ed ho inserito l'inputbox per scegliere quante estrazioni analizzare, l'avanzamento della barra per vedere a che punto è lo script, e la possibilità di interromperlo
Per il resto c'ho capito ben poco, gli script di Luigi sono dei capolavori, ma per gli apprendisti scripter come il sottoscritto sono ancora troppo complicati....
PS: spero di non aver fatto un casino hihihihihi

Codice:

Option Explicit
Class clsCoppiaRuote
	Public r1
	Public r2
	Public sRelazione
	Function IsPresentiZerati(idEstr,n1,n2,p1,p2)
		Dim k,q1,q2
		q1 = 0
		q2 = 0
		For k = 1 To 5
			If Estratto(idEstr,r1,k) Mod 10 = 0 Then
				q1 = q1 + 1
				n1 = Estratto(idEstr,r1,k)
				p1 = k
			End If
			If Estratto(idEstr,r2,k) Mod 10 = 0 Then
				q2 = q2 + 1
				n2 = Estratto(idEstr,r2,k)
				p2 = k
			End If
		Next
		IsPresentiZerati =(q1 = 1 And q2 = 1)
	End Function
	Function IsPresentiGemelli(idEstr,n1,n2,p1,p2)
		Dim k,q1,q2
		q1 = 0
		q2 = 0
		For k = 1 To 5
			If Gemello(Estratto(idEstr,r1,k)) Then
				q1 = q1 + 1
				n1 = Estratto(idEstr,r1,k)
				p1 = k
			End If
			If Gemello(Estratto(idEstr,r2,k)) Then
				q2 = q2 + 1
				n2 = Estratto(idEstr,r2,k)
				p2 = k
			End If
		Next
		IsPresentiGemelli =(q1 = 1 And q2 = 1)
	End Function
	Function IsPresentiConsecutivi(idEstr,n1,n2,p1,p2)
		Dim k,kk,q
		q = 0
		For k = 1 To 5
			For kk = 1 To 5
				If Estratto(idEstr,r2,kk) - Estratto(idEstr,r1,k) = 1 Then
					n1 = Estratto(idEstr,r1,k)
					n2 = Estratto(idEstr,r2,kk)
					p1 = k
					p2 = kk
					q = q + 1
				End If
			Next
		Next
		IsPresentiConsecutivi =(q = 1)
	End Function
	Function IsDecinaUguale(idEstr,pp1,pp2,n1,n2,p1,p2)
		Dim d1,d2
		n1 = Estratto(idEstr,r1,pp1)
		p1 = pp1
		n2 = Estratto(idEstr,r2,pp2)
		p2 = pp2
		d1 = Int(n1/10)
		d2 = Int(n2/10)
		IsDecinaUguale =(d1 = d2)
	End Function
End Class
Sub Main
	Dim coll
	Dim idEstr
	Dim clsCoppia
	Dim n1,n2,p1,p2
	Dim bEsci
	Dim nGiocata
	Dim sTestoInfo
	Dim nScelti,nSorte , nColpi , idinizio, analizzaestrazioni
	ReDim aNum(0)
	nScelti = ScegliNumeri(aNum)
	nSorte = ScegliEsito
	nColpi = Int (InputBox("Colpi di gioco" , ,10))
	analizzaestrazioni = InputBox("Inserisci le estrazioni da analizzare" , ,50)'--> da cambiare a proprio piacimento 
	nGiocata = 0
	 
	If nScelti > 0 And nSorte > 0 And nColpi >0  Then
		Call AlimentaCoppieRuote(coll)
		idinizio = EstrazioneFin - analizzaestrazioni
		For idEstr = idinizio To EstrazioneFin
		AvanzamentoElab idinizio,EstrazioneFin,idEstr
			For Each clsCoppia In coll
				If clsCoppia.IsPresentiZerati(idEstr,n1,n2,p1,p2) Then
					If GiocaNumeri(idEstr,clsCoppia,"Zerati",n1,n2,p1,p2,sTestoInfo) Then
						Call GestioneGioca(clsCoppia,idEstr,nGiocata,sTestoInfo,aNum,nSorte, nColpi)
					End If
				End If
				If clsCoppia.IsPresentiGemelli(idEstr,n1,n2,p1,p2) Then
					If GiocaNumeri(idEstr,clsCoppia,"Gemelli",n1,n2,p1,p2,sTestoInfo) Then
						Call GestioneGioca(clsCoppia,idEstr,nGiocata,sTestoInfo,aNum,nSorte, nColpi)
					End If
				End If
				If clsCoppia.IsPresentiConsecutivi(idEstr,n1,n2,p1,p2) Then
					If GiocaNumeri(idEstr,clsCoppia,"Consecutivi",n1,n2,p1,p2,sTestoInfo) Then
						Call GestioneGioca(clsCoppia,idEstr,nGiocata,sTestoInfo,aNum,nSorte , nColpi)
					End If
				End If
				If clsCoppia.IsDecinaUguale(idEstr,1,5,n1,n2,p1,p2) Then
					If GiocaNumeri(idEstr,clsCoppia,"Decine uguali in pos I° e V°",n1,n2,p1,p2,sTestoInfo) Then
						Call GestioneGioca(clsCoppia,idEstr,nGiocata,sTestoInfo,aNum,nSorte, nColpi)
					End If
				End If
				If clsCoppia.IsDecinaUguale(idEstr,5,1,n1,n2,p1,p2) Then
					If GiocaNumeri(idEstr,clsCoppia,"Decine uguali in pos V° e 1°",n1,n2,p1,p2,sTestoInfo) Then
						Call GestioneGioca(clsCoppia,idEstr,nGiocata,sTestoInfo,aNum,nSorte, nColpi)
					End If
				End If
			Next
			If bEsci Then Exit For
			If ScriptInterrotto Then Exit For
		Next
		Call ScriviResoconto
	End If
End Sub
'Sub AlimentaCoppieRuote(coll)
	'Dim k
	'Dim clsCoppia
	'Set coll = GetNewCollection
	'For k = 1 To 9 Step 3
		'Set clsCoppia = New clsCoppiaRuote
		'clsCoppia.sRelazione = "Consecutive"
		'clsCoppia.r1 = k
		'clsCoppia.r2 = k + 1
		'coll.add clsCoppia
	'Next
	'For k = 1 To 5
		'Set clsCoppia = New clsCoppiaRuote
		'clsCoppia.sRelazione = "Gemelle"
		'clsCoppia.r1 = k
		'clsCoppia.r2 = 11 - k
		'coll.add clsCoppia
	'Next
	'For k = 1 To 5
		'Set clsCoppia = New clsCoppiaRuote
		'clsCoppia.sRelazione = "Diametrali"
		'clsCoppia.r1 = k
		'clsCoppia.r2 = 5 + k
		'coll.add clsCoppia
	'Next
'End Sub
Sub AlimentaCoppieRuote(coll)
	Dim k ,kk
	Dim clsCoppia
	Set coll = GetNewCollection
	For k = 1 To 9
		For kk = k +1 To 10
			Set clsCoppia = New clsCoppiaRuote
			clsCoppia.sRelazione = "Qualsiasi"
			clsCoppia.r1 = k
			clsCoppia.r2 = kk
			coll.add clsCoppia
		Next

	Next
	
End Sub
Function GiocaNumeri(idEstr,clsCoppia,sCondizione,n1,n2,p1,p2,sTesto)
	sTesto = "Nell'estrazione " & GetInfoEstrazione(idEstr) & " si è verificata la condizione " & sCondizione & vbCrLf
	sTesto = sTesto & "Ruote " & SiglaRuota(clsCoppia.r1) & " - " & SiglaRuota(clsCoppia.r2) & vbCrLf
	sTesto = sTesto & "Le ruote sono " & clsCoppia.sRelazione & vbCrLf
	sTesto = sTesto & SiglaRuota(clsCoppia.r1) & " Num " & n1 & " pos " & p1 & vbCrLf
	sTesto = sTesto & SiglaRuota(clsCoppia.r2) & " Num " & n2 & " pos " & p2 & vbCrLf
	GiocaNumeri = True
End Function
Sub GestioneGioca(clsCoppia,idEstr,nGiocata,sTestoInfo,aNum,nSorte,nColpi)
	ReDim aPoste(5)
	ReDim aRuote(2)
	Call Scrivi(String(80,"="))
	Call Scrivi(sTestoInfo,,,,vbBlue)
	Call Scrivi(String(80,"="))
	Call Scrivi
	nGiocata = nGiocata + 1
	aPoste(nSorte) = 1
	aRuote(1) = clsCoppia.r1
	aRuote(2) = clsCoppia.r2
	Call ImpostaGiocata(nGiocata,aNum,aRuote,aPoste,nColpi,nSorte)
	Call Gioca(idEstr)
End Sub

Lady Oscar · 19 Maggio 2012

Ciao Blackmore! Grazieeee per la modifica, io non capisco molto di script ma Luigi è statao davvero paziente e gentile. Stavolta hai ritardato a soccorrermi.

Di solito l'arduo ocmpito è tuo!

Sto provando a dividere le condizioni in diversi script.... visto che l'output diventa enorme a furia di cercare ttutte quelle condizioni.

Cerca

Cerca

Richiesta script

Lady Oscar

Super Member >PLATINUM<

LuigiB

Guest

Lady Oscar

Super Member >PLATINUM<

LuigiB

Guest

Lady Oscar

Super Member >PLATINUM<

Roby

Guest

Lady Oscar

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi