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
    sabato 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto