Novità

x joe91

Settenario

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

HTML:
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
 
Ultima modifica:
Ciao Alberto,

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

Codice:
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.
 
Ultima modifica:
Ok ... allora

Proviamo così:

Codice:
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.
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 23 maggio 2025
    Bari
    39
    64
    33
    15
    03
    Cagliari
    06
    77
    64
    63
    30
    Firenze
    37
    88
    61
    14
    10
    Genova
    73
    18
    41
    07
    80
    Milano
    70
    78
    77
    79
    52
    Napoli
    33
    44
    39
    01
    22
    Palermo
    25
    45
    15
    39
    73
    Roma
    04
    15
    82
    41
    06
    Torino
    30
    09
    18
    13
    10
    Venezia
    15
    61
    84
    52
    64
    Nazionale
    66
    71
    61
    35
    80
    Estrazione Simbolotto
    Milano
    02
    30
    44
    07
    31
Indietro
Alto