X Joe91

[solare]

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

 

[Joe91]

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

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.

 

[solare]

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.

 

[Joe91]

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).

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

 

[solare]

Grazie joe91, Perfetto...!!