Per joe91

[solare]

Ciao, volevo chiedere se possibile fare una modifica a questo tuo listato.
​Così com'è aggiungere la possibilità di visualizzare anche le distanze.
Grazie mille

Sub Main
'Somme Ripetute per lestodante. V.3.0 By Joe. Alba, 07/01/2014.
Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
For Es = Ini To Fin : Scrivi String(21,"=") & " " & DataEstrazione(Es) & " " & String(22,"="),1
For R1 = 1 To 10 : R2 = R1 + 1 : If R2 = 11 Then R2 = 1
Scrivi SiglaRuota(R1) & "+" & SiglaRuota(R2) & " ",1,0
ReDim Nu(90)
For P = 1 To 5
E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
S =(Fuori90(E1 + E2)) : Nu(S) = Nu(S) + 1
Next
For P = 1 To 5
E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
S = Format2(Fuori90(E1 + E2))
If Nu(s) > 1 Then ColoreTesto 2 : Gr = True
Scrivi Format2(E1) & "+" & Format2(E2) & "=" & Format2(S) & " ",Gr,0 : ColoreTesto 0 : Gr = False
Next
Scrivi
Next
Next
Scrivi "RUOTE ",1,0
For P = 1 To 5
Scrivi P & "' Estr. ",1,0
Next
End Sub

 

[Joe91]

Ciao Solare.

Le modifiche per il calcolo che hai richiesto sono semplicissime.

"Aggiungere" non è difficile ... ma conservare una visualizzazione

che rimanga di facile interpretazione (e/o "chiara") non è semplice.

Essa va studiata ... perchè altrimenti poi si rischia di non riuscire a capiirci piu nulla. .

Quindi ho preferito dividere i rislutati ... in due script diversi.

Option Explicit
Sub Main
Dim Ini,Fin,Es,P,R1,R2,E1,E2,S,GR

	'Distanze Ripetute per Solare. V.3.1 By Joe. Alba, 01/05/2016.
	
	Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
	For Es = Ini To Fin : Scrivi String(21,"=") & " " & DataEstrazione(Es) & " " & String(22,"="),1
		For R1 = 1 To 10 : R2 = R1 + 1 : If R2 = 11 Then R2 = 1
			Scrivi SiglaRuota(R1) & "+" & SiglaRuota(R2) & " ",1,0
			ReDim Nu(90)
			For P = 1 To 5
				E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
				S =(Distanza(E1 , E2)) : Nu(S) = Nu(S) + 1
			Next
			For P = 1 To 5
				E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
				S = Format2(Distanza(E1 , E2))
				If Nu(S) > 1 Then ColoreTesto 2 : GR = True
				Scrivi Format2(E1) & "-" & Format2(E2) & "=" & Format2(S) & " ",GR,0 : ColoreTesto 0 : GR = False
			Next
			Scrivi
		Next
	Next
	Scrivi "RUOTE ",1,0
	For P = 1 To 5
		Scrivi P & "' Estr. ",1,0
	Next
End Sub

cordiali saluti.

 

[solare]

Grazie, come sempre gentilissimo....