Aiuto per un listato

[solare]

Ciao, cerco un listato che mi visualizzi un ambo in decina di distanza 5 visualizzando anche la ruota dove è sortito grazie a chiunque si adoperi per questa richiesta.​ se è possibile visualizzare la situazione delle ultime 5 estrazioni. altrimenti ok solo l'ultima estrazione

 

[Joe91]

Ciao solare.


Prova questo:

Option Explicit
Sub Main
Dim Es,R,A,B,N,M,T
	For Es = EstrazioneFin - 4 To EstrazioneFin
		For R = 1 To 10
			For A = 1 To 4
				For B = A + 1 To 5
					N = Estratto(Es,R,A) : M = Estratto(Es,R,B)
					If N = DiametraleD(M) Then
					T = True
						Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R) & Space(1),True,False
						Scrivi Format2(N) & "." & Format2(M),True
					End If
				Next
			Next
		Next
		If T Then Scrivi String (19,"="),True : T = False
	Next
End Sub

 

[solare]

Grazie joe91 come sempre gentilissimo

 

[solare]

Ciao Joe91,Se non chiedo troppo puoi fare in modo che venga scritta l'intera cinquina evidenziando l'ambo trovato ?

 

[i legend]

Ciao solare di fianco a
Siglaruota ( r ) & space ( 1 )
Scrivi
&stringaestratti ( es, r)&space (1)
Poi lasci
,true, false
Dovrebbe andare altrimenti ci pensa joe
Ciao

 

[Joe91]

Sub Main
Dim Es,R,A,B,N,M,T
For Es = EstrazioneFin - 4 To EstrazioneFin
	For R = 1 To 10
		ReDim P(5)
		For A = 1 To 4
			For B = A + 1 To 5
				N = Estratto(Es,R,A) : M = Estratto(Es,R,B)
				If N = DiametraleD(M) Then
					T = True : P(A) = True : P(B) = True
				End If
			Next
		Next
		If T = True Then
			Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(R) & Space(1),True,False
			For A = 1 To 5
				Scrivi FormatSpace(Estratto(Es,R,A),3,True),Iif(P(A),True,False),False,,Iif(P(A),2,0)
			Next
			Scrivi : T = False
		End If
	Next
Next
End Sub

 

[solare]

Grazie ancora Joe..