Per joe91 o mike55 se si può

[solare]

Ciao, chiedo con cortesia se possibile realizzare questo listato: Analizzare le decine naturali con l'esito del ritardo attuale,storico e frequenza. Nb- il ritardo da considerare è solo relativo agli ultimi 15 ritardi per ambo/terno ecc della decina.
Spero di essere stato chiaro
Grazie infinite

 

[Joe91]

Ciao Solare.

Non ho capito e senza un esempio (anche solo di fantasia)

non so valutare il da farsi e/o la possibilità di realizzarlo.

Cordiali saluti.

 

[solare]

Ciao Joe91, intanto grazie della risposta.
Quello che chiedo io è avere una statistica delle decine naturali in questo modo.
Analizzare le decine naturali es. 1....10/ 11.....20 per la ruota da noi selezionata ecc. ed avere il resoconto considerando gli ultimi 30 volte il relativo ritardo per ambo che ha avuto quella decina.
Considerando tutti i 30 ritardi ottenuti dalla decina si può avere il ritardo min e max.
Es. considerando la decina 1.........10 a Bari ed analizzando le ultime 30 volte il rit x ambo .....25-37-105-110....ecc Rit min 25 max 110 Tutto qua

 

[Joe91]

Ciao Solare.

No so se è prorio ciò che hai richiesto,

dunque allego una tabella per le opportune verifiche.

BA 1.2.3.4.5.6.7.8.9.10 X Ambo

1  23.08.2016 Rc. 7
2  09.08.2016 Rc. 6
3  21.07.2016 Rc. 8
4  25.06.2016 Rc. 11
5  09.06.2016 Rc. 7
6  21.05.2016 Rc. 8
7  14.04.2016 Rc. 16
8  12.01.2016 Rc. 40
9  29.12.2015 Rc. 6
10 24.12.2015 Rc. 2
11 26.11.2015 Rc. 12
12 03.11.2015 Rc. 10
13 24.10.2015 Rc. 4
14 17.10.2015 Rc. 3
15 08.10.2015 Rc. 4
16 01.10.2015 Rc. 3
17 29.09.2015 Rc. 1
18 24.09.2015 Rc. 2
19 15.09.2015 Rc. 4
20 22.08.2015 Rc. 10
21 13.08.2015 Rc. 4
22 11.08.2015 Rc. 1
23 06.08.2015 Rc. 2
24 04.08.2015 Rc. 1
25 28.07.2015 Rc. 3
26 23.07.2015 Rc. 2
27 19.05.2015 Rc. 28
28 07.05.2015 Rc. 5
29 21.04.2015 Rc. 7
30 31.03.2015 Rc. 9

Min 1
Max 40

 

[solare]

Perfetto Joe91, non so se è possibile elencare le 9 decine per ogni ruota avendo come tuo esempio per ogni decina rit min e max.....
scusami joe mi sono dimenticato di dirti "se possibile" oltre il rit min -max anche il rit attuale....Grazie ancora

 

[solare]

Ciao Joe91, si hai ragione, il primo ritardo si riferisce a quello corrente "Ok va bene così"
Per quanto riguarda i ritardi min e max ok il "+1"
Il max "specie di storico" va bene così
Grazie ancora e buona giornata

 

[Joe91]

Buon Giorno a tutte/i.

Ho rimosso lo script inizialmente allegato a questo messaggio ...

per la necessità di eliminare errori e di inserire piccole correzioni.

La versione aggiornata è presente al messaggio successivo.

 

[solare]

Ciao joe91,Ottimo come sempre.......Grazieeee

 

[solare]

Ciao Joe91, hai fatto qualche altra modifica ?

 

[solare]

Ciao Joe91, ho notato una cosa, probabilmente mi sono spiegato male io.
Se guardi la ruota di bari e non solo, in merito al ritardo attuale, es. la ventina mi da ritardo 2, dovrebbe essere ritardo attuale 1.
Forse è quel +1 che mi avevi accennato.
Se non comporta particolare difficolta, se puoi fare in modo che indichi il ritardo esatto.
Grazie

 

[Joe91]

Così ...

... si conta tutto da meno uno !

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

Ini = 7440 : Fin = EstrazioneFin : Q = 30 : 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

Buona serata.

 

[solare]

Ottimo Joe....grazie ancora