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
    martedì 16 giugno 2026
    Bari
    50
    42
    62
    52
    07
    Cagliari
    41
    18
    67
    64
    79
    Firenze
    64
    10
    21
    20
    84
    Genova
    15
    12
    37
    74
    08
    Milano
    10
    44
    88
    20
    58
    Napoli
    34
    15
    47
    23
    60
    Palermo
    36
    44
    51
    03
    84
    Roma
    61
    16
    29
    26
    63
    Torino
    40
    70
    06
    73
    01
    Venezia
    18
    19
    17
    44
    27
    Nazionale
    26
    79
    22
    04
    90
    Estrazione Simbolotto
    Napoli
    11
    06
    05
    34
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto