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
    martedì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40
Indietro
Alto