Somme e distanze tra estratti isotopi su 2 Ruote a scelta

[Blackmore]

Questo Script mostra somme e distanze tra gli estratti
nella stessa Posizione su 2 ruote a scelta, evidenziando
le somme e le distanze uguali (Ambi Isotopi stessa somma e/o distanza)

Sub Main()
	T = "********* SOMME E DISTANZE TRA GLI ESTRATTI BY BLACKMORE ********"
	Call Scrivi(T,True,,vbBlue,5,5):Scrivi
	Scrivi "Questo Script mostra somme e distanze tra gli estratti",1,,,,3
	Scrivi "nella stessa Posizione su 2 ruote a scelta, evidenziando",1,,,,3
	Scrivi "le somme e le distanze uguali(Ambi Isotopi stessa somma e/o distanza)",1,,,,3 :Scrivi
	ReDim title(15)
	title(1) = " Data "
	title(2) = " 1°Ruota "
	title(3) = " 2°Ruota "
	title(4) = " Estratti 1°Ruota "
	title(5) = " Estratti 2°Ruota "
	title(6) = " Som 1° "
	title(7) = " Som 2° "
	title(8) = " Som 3° "
	title(9) = " Som 4° "
	title(10) = " Som 5° "
	title(11) = " Dis 1° "
	title(12) = " Dis 2° "
	title(13) = " Dis 3° "
	title(14) = " Dis 4° "
	title(15) = " Dis 5° "
	Call InitTabella(title,RGB(251,125,0),,2)
	r1 = CInt(InputBox("SCEGLI  LA  1°  RUOTA  DI  RICERCA",,1))
	r2 = CInt(InputBox("SCEGLI  LA  2°  RUOTA  DI  RICERCA",,2))
	ii = InputBox("QUANTE  ESTRAZIONI  VUOI  ESAMINARE ?",,30)
	fin = EstrazioneFin
	Ini = fin - ii
	For es = Ini To fin
		som1 = Fuori90(Estratto(es,r1,1) + Estratto(es,r2,1))
		som2 = Fuori90(Estratto(es,r1,2) + Estratto(es,r2,2))
		som3 = Fuori90(Estratto(es,r1,3) + Estratto(es,r2,3))
		som4 = Fuori90(Estratto(es,r1,4) + Estratto(es,r2,4))
		som5 = Fuori90(Estratto(es,r1,5) + Estratto(es,r2,5))
		dis1 = Distanza(Estratto(es,r1,1),Estratto(es,r2,1))
		dis2 = Distanza(Estratto(es,r1,2),Estratto(es,r2,2))
		dis3 = Distanza(Estratto(es,r1,3),Estratto(es,r2,3))
		dis4 = Distanza(Estratto(es,r1,4),Estratto(es,r2,4))
		dis5 = Distanza(Estratto(es,r1,5),Estratto(es,r2,5))
		If dis1 = 90 Then dis1 = 0
		If dis2 = 90 Then dis2 = 0
		If dis3 = 90 Then dis3 = 0
		If dis4 = 90 Then dis4 = 0
		If dis5 = 90 Then dis5 = 0
		ReDim Value(15)
		Value(01) = DataEstrazione(es)
		Value(02) = NomeRuota(r1)
		Value(03) = NomeRuota(r2)
		Value(04) = StringaEstratti(es,r1)
		Value(05) = StringaEstratti(es,r2)
		Value(06) = som1
		Value(07) = som2
		Value(08) = som3
		Value(09) = som4
		Value(10) = som5
		Value(11) = Dis1
		Value(12) = Dis2
		Value(13) = Dis3
		Value(14) = Dis4
		Value(15) = Dis5
		Call AddRigaTabella(Value,,,4,,1)
		'Call SetColoreCella(1,Nero_,5)
		Call SetColoreCella(2,RGB(207,207,207))
		Call SetColoreCella(3,RGB(239,239,239))
		Call SetColoreCella(4,RGB(207,207,207))
		Call SetColoreCella(5,RGB(239,239,239))
		Call SetColoreCella(6,vbYellow)
		Call SetColoreCella(7,vbYellow)
		Call SetColoreCella(8,vbYellow)
		Call SetColoreCella(9,vbYellow)
		Call SetColoreCella(10,vbYellow)
		Call SetColoreCella(11,vbCyan)
		Call SetColoreCella(12,vbCyan)
		Call SetColoreCella(13,vbCyan)
		Call SetColoreCella(14,vbCyan)
		Call SetColoreCella(15,vbCyan)
		For x = 6 To 9
			For xx = x + 1 To 10
				If Value(x) = Value(xx) Then Call SetColoreCella((x),RGB(223,0,223),5)
				If Value(xx) = Value(x) Then Call SetColoreCella((xx),RGB(223,0,223),5)
			Next
		Next
		For y = 11 To 14
			For yy = y + 1 To 15
				If Value(y) = Value(yy) Then Call SetColoreCella((y),RGB(150,75,75),5)
				If Value(yy) = Value(y) Then Call SetColoreCella((yy),RGB(150,75,75),5)
			Next
		Next
	Next
	Call CreaTabella()
End Sub

 

[Lanfranco60]

Grazie Blackmore, questo script mi sarà molto utile per capire un pò di più le tabelle
che per ora mi sono ostiche

 

[Rosanna]

E' servito anche a me!! sarà contento qualcuno....

 

[Roby]

Ciao Rosanna, io senz'altro, visto che da te, come da Luigi, Enplein, Ramco ed altri ho sempre appreso
se per una volta posso "servire" io, mi fa enormemente piacere
Ciao

 

[Rosanna]

SpazioMetria ha un sacco di cosucce carine........ che non conosco. Gli esempi sono un colpo di acceleratore per cui grazie...

 

[LuigiB]

io piu di tutti ..sapere che il mio programma è usato mi fa molto piacere e vedere che si usano le funzioni non presenti in altri software mi fa piacere ancora di più ! Ciao