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
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto