x joe91

[Settenario]

ciao joe91 è possibile evidenziare e verificare gli esiti dei primi tre numeri ritardatari ,di ogni ruota, dalla tabella che viene creata dallo script seguente:

Sub Main
'Ritardi Medi Minori di Kondor13 Script di Mike58 Rev 2.0. By Joe. Alba 18/10/2014
	Dim Ru(1),Nu(1),Rit(10)
	tr = CInt(InputBox("Quale ritardo inferiore a ",,36))
	Scrivi Space(4) & "Considera Ritardi Inferiori di " & tr & " (in tutte le 10 Ruote)" & Space(4),1,1,2,4,3
	Scrivi
	Ini = EstrazioneFin - 250 : Fin = EstrazioneFin
	ColoreTesto 2 : Scrivi "NU" & Space(2),1,0 : ColoreTesto 0
	For R = 1 To 10
		Scrivi SiglaRuota(R) & Space(2),1,0
	Next
	Scrivi "SOMMA MEDIA" & Space(3),1,0
	ColoreTesto 1 : Scrivi "MIN" & Space(2),1,0
	ColoreTesto 2 : Scrivi "MAG" & Space(2),1,0
	ColoreTesto 0 : Scrivi "R U O T E",1
	For X = 1 To 90
	K = 0 : SRT = 0 : Min = 0
		For R = 1 To 10
			Ru(1) = R
			Nu(1) = X
			Sr = SerieRitardo(Ini,Fin,Nu,Ru,1)
			Rit(R) = Sr
			If Sr <= tr Then
				SRT = SRT + Sr
				SRM = Round((SRT/10),1)
				K = K + 1
			End If
		Next
		If K = 10 Then
			Scrivi Format2(X) & Space(2),1,0,,2,2
			For R = 1 To 10
				If Min < Rit(R) And Rit(R) < SRM Then Min = Rit(R)
				Scrivi Format2(Rit(R)) & Space(2),0,0
			Next
			Scrivi FormatSpace(SRT,4,1) & FormatSpace(FormattaStringa(SRM,"###.0"),7,1) & Space(3),1,0
			Mag = TR
			For R = 1 To 10
				For RMax = 0 To Tr
					If(Rit(R) < Mag) And(Rit(R) > SRM) Then Mag = Rit(R)
				Next
			Next
			ColoreTesto 1 : Scrivi FormatSpace(Min,3,1) & Space(2),1,0
			ColoreTesto 2 : Scrivi FormatSpace(Mag,3,1) & Space(2),1,0
			For RR = 1 To 10
				If Rit(RR) = SRM Then ColoreTesto 0 : Scrivi SiglaRuota(RR) & " ",1,0 : Min = 0 : Mag = 0
			Next
			For RR = 1 To 10
				If Rit(RR) = Min Then ColoreTesto 1 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
			Next
			For RR = 1 To 10
				If Rit(RR) = Mag Then ColoreTesto 2 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
			Next
			Scrivi
		End If
	Next
End Sub

es del 18-10-2014:
BA 02(rit 29), 31( rit27), 72(rit 20) esito: 6° colpo 2
CA 01(rit 29), 09(rit 35), 38(rit 38) esito: 1° colpo 9
ecc...ecc

Vedi l'allegato 13715


grazie anticipatamente

Alberto

 

[Joe91]

Ciao Alberto,

non riesco a vedere l'allegato però ho estratto la seguente Tabella:

BA  02 (Rit 29)   31 (Rit 27)   72 (Rit 20)  
CA  09 (Rit 35)   38 (Rit 32)   01 (Rit 29)  
FI  25 (Rit 27)   55 (Rit 27)   19 (Rit 19)  
GE  09 (Rit 29)   18 (Rit 29)   55 (Rit 28)  
MI  19 (Rit 21)   65 (Rit 20)   48 (Rit 19)  
NA  09 (Rit 19)   78 (Rit 18)   48 (Rit 17)  
PA  72 (Rit 27)   33 (Rit 23)   40 (Rit 21)  
RO  48 (Rit 36)   25 (Rit 29)   69 (Rit 28)  
TO  39 (Rit 35)   31 (Rit 25)   38 (Rit 20)  
VE  52 (Rit 33)   02 (Rit 32)   65 (Rit 31)

Con questa, non dovrebbe essere un problema, verificare gli esiti nelle estrazioni a seguire.

Cordiali saluti.

 

[Settenario]

....il riepilogo è perfetto ti ringrazio ancora per la disponibilita'.

Alberto

 

[Joe91]

Ok ... allora

Proviamo così:

Sub Main
	'Ritardi Medi Minori di Kondor13 Script di Mike58 Rev 3.0. By Joe. Alba 11/11/2014
	Dim Ru(1),Nu(1),Rit(10),Mem(90,10)
	TR = 36 : TR = CInt(InputBox("Quale ritardo inferiore a ",,TR)) 'Taglia a Ritardo TR
	Scrivi Space(4) & "Considera Ritardi Inferiori di " & TR & " (in tutte le 10 Ruote)" & Space(4),1,1,2,4,3
	Scrivi
	Ini = EstrazioneFin - 250 : Fin = EstrazioneFin
	ColoreTesto 2 : Scrivi "NU" & Space(2),1,0 : ColoreTesto 0
	For R = 1 To 10
		Scrivi SiglaRuota(R) & Space(2),1,0
	Next
	Scrivi "SOMMA MEDIA" & Space(3),1,0
	ColoreTesto 1 : Scrivi "MIN" & Space(2),1,0
	ColoreTesto 2 : Scrivi "MAG" & Space(2),1,0
	ColoreTesto 0 : Scrivi "R U O T E",1
	For X = 1 To 90
		K = 0 : SRT = 0 : Min = 0
		For R = 1 To 10
			Ru(1) = R
			Nu(1) = X
			Sr = SerieRitardo(Ini,Fin,Nu,Ru,1)
			Rit(R) = Sr
			If Sr <= tr Then
				SRT = SRT + Sr
				SRM = Round((SRT/10),1)
				K = K + 1
			End If
		Next
		If K = 10 Then
			Scrivi Format2(X) & Space(2),1,0,,2,2
			For R = 1 To 10
				If Min < Rit(R) And Rit(R) < SRM Then Min = Rit(R)
				Scrivi Format2(Rit(R)) & Space(2),0,0
				Mem(X,R) = Rit(R)
			Next
			Scrivi FormatSpace(SRT,4,1) & FormatSpace(FormattaStringa(SRM,"###.0"),7,1) & Space(3),1,0
			Mag = TR
			For R = 1 To 10
				For RMax = 0 To Tr
					If(Rit(R) < Mag) And(Rit(R) > SRM) Then Mag = Rit(R)
				Next
			Next
			ColoreTesto 1 : Scrivi FormatSpace(Min,3,1) & Space(2),1,0
			ColoreTesto 2 : Scrivi FormatSpace(Mag,3,1) & Space(2),1,0
			For RR = 1 To 10
				If Rit(RR) = SRM Then ColoreTesto 0 : Scrivi SiglaRuota(RR) & " ",1,0 : Min = 0 : Mag = 0
			Next
			For RR = 1 To 10
				If Rit(RR) = Min Then ColoreTesto 1 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
			Next
			For RR = 1 To 10
				If Rit(RR) = Mag Then ColoreTesto 2 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
			Next
			Scrivi
		End If
	Next
	Scrivi
	For R = 1 To 10 : K = 0 : ReDim RG(1),NG(10)
		Scrivi SiglaRuota(R) & " ",1,0 : RG(1) = R
		For X = Tr To 0 Step - 1
			For N = 1 To 90
				If Mem(N,R) = x Then
					K = K + 1
					Scrivi FormatSpace(Format2(N),3,1),1,0 : NG(K) = N
					Scrivi " (Rit" & FormatSpace(X,3,1) & ")  ",0,0
				End If
			Next
			
			If K >= 3 Then 
				Scrivi 	
				If EstrazioniArchivio > Fin Then
				Lim = EstrazioniArchivio
				If EstrazioniArchivio - Fin >= 9 Then Lim = 9
				Scrivi String (60," "),0,0 : ColoreTesto 1
					VerificaEsito NG,RG,Fin+1,1,Lim,,Ris,Clp,Est
					If RIS <> "" Then
						Scrivi Est & " " & Left(Ris,4) & " " & Clp & "° C.",1
					Else
						ColoreTesto 2 : Scrivi SiglaRuota (R) & " .. .. NULLA .. .." & Space(3) & Clp & "° C.",1 
					End If
				End If
				ColoreTesto 0    
				Exit For
			End If
		Next
	Next
	Scrivi : Scrivi "Elaborato alla data del " & DataEstrazione(Fin),1
End Sub

Buona Giornata a tutte/i.

 

[Settenario]

ciao joe91, lo script è perfetto....ancora un grazie infinito. Se qualcuno volesse approfondire il discorso di questa tabella ben venga, in quanto mostra il fianco per tantissime interpretazioni.

Alberto