Novità

X Joe91

solare

solare

Advanced Member >PLATINUM<
Ciao, ti chiedo se possibile una modifica a questo tuo listato
portando in considerazione gli ultimi 54 ritardi sempre per ambo
Ho impostato come data ultima 13/9/16
considerando la ruota di Napoli, come puoi vedere la decina 31.....40 per quanto riguarda l'ambo ha un ritardo attuale 54 e max 54, in effetti quest'ultimo dato si riferisce
al ritardo attuale mentre sarebbe più significativo avere il max relativo al ritardo precedente.
Grazie

Option Explicit




Sub Main




'Ritardo = Colpi di Gioco - 1




Dim Ini,Fin,Es,k,kk




Dim D,N,Nu(10),Ru(1),Rc(12),Sf,So,R,Q




' Nel rigo sottostante esattamente nella Q,= si può variare la quantita di ritardi per la statistica...........ottimo su 4 ritardi
Ini = 7440 : Fin = EstrazioneFin : Q = 54 : So = AMBO_




Scrivi "Ultimi " & Q & " Ritardi di " & NomeSorte(So) & " in Decina Naturale.",True




Scrivi




Riga




Scrivi "DEC|",True,False : Ruote




Scrivi "NAT|",True,False : Colonne




Riga




For D = 0 To 8




k = 0




For N = 1 To 90




If DecinaNaturale(N) = D Then k = k + 1 : Nu(k) = N




Next




Scrivi Space(1) & D & " |",True,False




For R = 1 To 12 : If R = 11 Then R = 12




Ru(1) = R




k = 0 : kk = 0




For Es = Fin To Ini Step - 1




k = k + 1




Sf = SerieFreq(Es,Es,Nu,Ru,1)




If Sf >= So Then




kk = kk + 1 : If kk = 1 Then Rc(R) = k - 1




'Scrivi FormatSpace(kk,3) & DataEstrazione(Es) & " Rc. " & k




ReDim Preserve Rit(kk) : Rit(kk) = k - 1




k = 0




End If




If kk = Q Then Exit For




Next




OrdinaMatrice Rit,False




Scrivi FormatSpace(Rit(1),4,True),True,False




ColoreTesto 2 :Scrivi FormatSpace(Rc(R),4,True),True,False : ColoreTesto 7




Scrivi FormatSpace(Rit(kk),4,True),True,False




ColoreTesto 1 :Scrivi FormatSpace(SerieStoricoTurbo(1,Fin,Nu,Ru,So),4,True),True,False : ColoreTesto 0




Scrivi Space(1) & "|" & Space(0),True,False




Next




Scrivi




Riga




Next




Scrivi "DEC|",True,False : Colonne




Scrivi "NAT|",True,False : Ruote




Riga




Scrivi




Scrivi "Aggiornato al " & DataEstrazione(Fin),True




Scrivi




ColoreTesto 1 : Scrivi "Storico dal 1871" : Scrivi




ColoreTesto 2 : Scrivi "Script By Joe.",True : ColoreTesto 0




End Sub




Sub Ruote




Dim R




For R = 1 To 12 : If R = 11 Then R = 12




Scrivi Space(5) & FormatSpace(NomeRuota(R),12) & "|",True,False




Next




Scrivi




End Sub




Sub Colonne




Dim R




For R = 1 To 12 : If R = 11 Then R = 12




Scrivi FormatSpace(" Min",4,True),True,False




ColoreTesto 2 : Scrivi FormatSpace(" Att",4,True),True,False : ColoreTesto 7




Scrivi FormatSpace(" Max",4,True),True,False




ColoreTesto 1 :Scrivi FormatSpace("Sto",4,True),True,False : ColoreTesto 0




Scrivi Space(1) & "|" & Space(0),True,False




Next




Scrivi




End Sub




Sub Riga




Dim R




Scrivi String(3,"-") & "+",True,False




For R = 1 To 12 : If R = 11 Then R = 12




Scrivi String(17,"-") & "+",True,False




Next




Scrivi




End Sub
 
solare;n2003982 ha scritto:
Ciao, ti chiedo se possibile una modifica a questo tuo listato
portando in considerazione gli ultimi 54 ritardi sempre per ambo
Ho impostato come data ultima 13/9/16
considerando la ruota di Napoli, come puoi vedere la decina 31.....40 per quanto riguarda l'ambo ha un ritardo attuale 54 e max 54, in effetti quest'ultimo dato si riferisce
al ritardo attuale mentre sarebbe più significativo avere il max relativo al ritardo precedente.
Grazie
Clicca per espandere...

Scusa ma 54 vuol dire 45 ?

Ho dato uno sguardo velocemente ma non trovo .. quello che hai descritto.

Se tuttavia ... quello che chiedi è uno storico "formato"

e non "attuale" penso si possa quantificare ... ma non avendo capito.

Non so rispondere.

:)
 
Ciao joe91, provo a spiegarmi meglio.
In data 9/8/16 ed impostando questo valore a 54 "Ini = 7440 : Fin = EstrazioneFin : Q = 54 : So = AMBO_" Ruota di Napoli decina 31....40, ottengo un ritardo attuale per ambo di 30 e max 32.
Se io sposto la ricerca all'estrazione al 13/8/16 ottengo Ritardo attuale 32 e Max 32. Da quest'ultimo momento in poi questi due valori camminano insieme fino alla sortita del successivo ambo.

Invece io penso sia giusto avere come max il rit 32 fino alla sortita dell'ambo in modo tale che mi possa dare un'idea di differenza tra il ritardo attuale e max.
 
Ultima modifica:
Ciao Solare.

Alcune premesse:

A) Lo script è stato sviluppato senza che questo fosse previsto.

B) Non è (era predisposto).

C) E' piuttosto difficile ottenerere quel risultato.

D) Ho cercato di accontetare la tua richiesta ...

E) E' necessario controllare bene e con molta pazienza che queste modifiche funzionino

e che non creino effetti collaterali indesiderati.

Quindi inserisco qui di seguito lo script corretto a questa tua richiesta ...

con la speranza che funzioni e per le opportune e necessarie verifiche (a vostro carico).

Codice: 
Option Explicit
Sub Main
	'Ritardo = Colpi di Gioco - 1
	Dim Ini,Fin,Es,k,kk
	Dim D,N,Nu(10),Ru(1),Rc(12),Sf,So,R,Q
	ReDim Rit(0)
	' Nel rigo sottostante esattamente nella Q,= si può variare la quantita di ritardi per la statistica...........ottimo su 4 ritardi
	Ini = 7440 : Fin = EstrazioneFin : Q = 54 : So = AMBO_
	Scrivi "Ultimi " & Q & " Ritardi di " & NomeSorte(So) & " in Decina Naturale.",True
	Scrivi
	Riga
	Scrivi "DEC|",True,False : Ruote
	Scrivi "NAT|",True,False : Colonne
	Riga
	For D = 0 To 8
		k = 0
		For N = 1 To 90
			If DecinaNaturale(N) = D Then k = k + 1 : Nu(k) = N
		Next
		Scrivi Space(1) & D & " |",True,False
		For R = 1 To 12 : If R = 11 Then R = 12
			Ru(1) = R
			k = 0 : kk = 0
			For Es = Fin To Ini Step - 1
				k = k + 1
				Sf = SerieFreq(Es,Es,Nu,Ru,1)
				If Sf >= So Then
					kk = kk + 1 : If kk = 1 Then Rc(R) = k - 1
					'Scrivi FormatSpace(kk,3) & DataEstrazione(Es) & " Rc. " & k
					If Sf >= So Then ReDim Preserve Rit(kk) : Rit(kk) = k - 1
					k = 0
				End If
				
				If kk = Q Then Exit For
			Next
			OrdinaMatrice Rit,False
			Scrivi FormatSpace(Rit(1),4,True),True,False
			ColoreTesto 2 :Scrivi FormatSpace(Rc(R),4,True),True,False : ColoreTesto 7
			If Rit (kk) = Rc(R) Then Rit(kk) = Rit (kk-1)
			Scrivi FormatSpace(Rit(kk),4,True),True,False
			
			ColoreTesto 1 :Scrivi FormatSpace(SerieStoricoTurbo(1,Fin,Nu,Ru,So),4,True),True,False : ColoreTesto 0
			Scrivi Space(1) & "|" & Space(0),True,False
		'Scrivi : ColoreTesto 2 : Scrivi StringaNumeri   (Rit)  :  ColoreTesto 0	
		Next
		Scrivi
		  
		Riga
	Next
	Scrivi "DEC|",True,False : Colonne
	Scrivi "NAT|",True,False : Ruote
	Riga
	Scrivi
	Scrivi "Aggiornato al " & DataEstrazione(Fin),True
	Scrivi
	ColoreTesto 1 : Scrivi "Storico dal 1871" : Scrivi
	ColoreTesto 2 : Scrivi "Script By Joe.",True : ColoreTesto 0
End Sub
Sub Ruote
	Dim R
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi Space(5) & FormatSpace(NomeRuota(R),12) & "|",True,False
	Next
	Scrivi
End Sub
Sub Colonne
	Dim R
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi FormatSpace(" Min",4,True),True,False
		ColoreTesto 2 : Scrivi FormatSpace(" Att",4,True),True,False : ColoreTesto 7
		Scrivi FormatSpace(" Max",4,True),True,False
		ColoreTesto 1 :Scrivi FormatSpace("Sto",4,True),True,False : ColoreTesto 0
		Scrivi Space(1) & "|" & Space(0),True,False
	Next
	Scrivi
End Sub
Sub Riga
	Dim R
	Scrivi String(3,"-") & "+",True,False
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi String(17,"-") & "+",True,False
	Next
	Scrivi
End Sub

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 maggio 2026
    Bari
    88
    65
    11
    87
    59
    Cagliari
    05
    64
    45
    80
    74
    Firenze
    37
    56
    25
    19
    36
    Genova
    29
    31
    90
    15
    17
    Milano
    73
    61
    45
    85
    48
    Napoli
    21
    85
    29
    48
    77
    Palermo
    40
    02
    66
    87
    51
    Roma
    23
    68
    57
    60
    26
    Torino
    44
    04
    76
    05
    57
    Venezia
    79
    86
    19
    29
    40
    Nazionale
    33
    54
    75
    39
    63
    Estrazione Simbolotto
    Milano
    27
    16
    30
    21
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto