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ì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto