richiesta script su ritardi estratti singoli

[miki55]

Salve a tutti.
Signori, volevo fare la richiesta di uno script, di questa tabella come esposta sotto.
Essa non è altro che l'elenco dei migliori 10 estratti singoli, di qualche tempo fà, (ma presa come esempio),
dove sono elencate tutti i tipi di ritardo fino all'RP2. Tutto quà
E' possibile?

[/URL][/IMG]

 

[Mike58]

Ciao Miki55 , vedi se ti può andar bene questo script.
io per estratti singoli ho intesi i più ritardatari!!!

Ciao

Sub Main()
 Dim ruo(1),num(1),k
 ini = EstrazioneIni
 fin = EstrazioneFin
 TestoInBandaPassante " TABELLA NUMERI + RITARDATARI ",4,1,3
 Scrivi
 
 ReDim atitoli(14)
 atitoli(1) = " Ruota "
 atitoli(2) = " Numero + Rit "
 atitoli(3) = " Rit. attuale "
 atitoli(4) = " Rit Max sto "
 atitoli(5) = " incr Max "
 atitoli(6) = " Frequenza "
 atitoli(7) = " RP1 "
 atitoli(8) = " RP2 "
 atitoli(9) = " RP3 "
 atitoli(10) = " RP4 "
 atitoli(11) = " RP5 "
 atitoli(12) = " SM Rit "
 atitoli(13) = " MD Rit "
 atitoli(14) = " RP1/RC "
 
 Call InitTabella(atitoli,1,,3,5)
 For r = 1 To 12
  If r = 11 Then r = 12
  For k = 1 To 90
   ruo(1) = r
   num(1) = k
   If k = PiuRitardatario(fin,r) Then
    Call StatisticaFormazione(num,ruo,1,Rit,RitMax,IncrRitMax,Freq,ini,fin)
    '------- calcolo ritardi precedenti------------
  'For q = 1 To UBound(num)
  ReDim rp(6)
  Inizio = EstrazioneIni
  fine = EstrazioneFin
  somrit = 0  
  For z = 1 To 6
  
  rp(z) = SerieRitardo(Inizio,fine,num,ruo,1)
  fine = fine -(rp(z) + 1)
    
  somrit = somrit + rp(z)
  Medrit = Int(somrit/z)
  
  Next
  'Next 
   
  ' fine calcolo----------------------------------
    
    
    ReDim avalori(14)
    avalori(1) = NomeRuota(r)
    avalori(2) = k
    avalori(3) = rp(1)
    avalori(4) = ritmax
    avalori(5) = IncrRitMax
    avalori(6) = freq
    avalori(7) = rp(2)
    avalori(8) = rp(3)
    avalori(9) = rp(4)
    avalori(10) = rp(5)
    avalori(11) = rp(6)
    avalori(12) = somrit
    avalori(13) = Medrit
    ic = avalori(7)/avalori(3)
    avalori(14) = ic
    
    Call AddRigaTabella(avalori,,,3)
    If avalori(3) > 99 Then
     Call SetColoreCella(3,vbRed)
     
    End If
    Call SetColoreCella(2,,2)
    Call SetColoreCella(7,vbYellow)
    Call SetColoreCella(8,vbYellow)
    Call SetColoreCella(9,vbYellow)
    Call SetColoreCella(10,vbYellow)
    Call SetColoreCella(11,vbYellow)
    Call SetColoreCella(14,vbGreen)
   End If
  Next
  Messaggio "Ruota: " & Format2(r) & ", Numero: " & prit
  Call AvanzamentoElab(1,11,r)
  If ScriptInterrotto Then Exit For
 Next
 CreaTabella(3)
 Scrivi
 ColoreTesto 0
 Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)
 Scrivi
 Call PicStampaTesto(40,20,"Tabella By Mike58  ",,True,True,,11,vbBlue)
 Call PicEsegui
End Sub

 

[miki55]

ciao Mike, mi da errore a questo rigo, però non dirmi che devo correggerlo che sono imbranato

TestoInBandaPassante " TABELLA NUMERI + RITARDATARI ",4,1,3

 

[miki55]

ok Mike sono riuscito su spaziometria a farlo funzionare.
Ora mi chiedo, dove sono i RP1 e RP2 di ritardo come estratti singoli?

 

[Mike58]

Ciao Miki, il listato è funzionante solo con spaziometria , rp1 e rp2 non sono i ritardi precedenti al ritardo attuale ? ,c'è ne sono ben cinque ritardi precedenti e sono evidenziati in giallo.

[TD="align: center"]Ruota
[/TD]
[TD="align: center"]Numero + Rit
[/TD]
[TD="align: center"]Rit. attuale
[/TD]
[TD="align: center"]Rit Max sto
[/TD]
[TD="align: center"]incr Max
[/TD]
[TD="align: center"]Frequenza
[/TD]
[TD="align: center"]RP1
[/TD]
[TD="align: center"]RP2
[/TD]
[TD="align: center"]RP3
[/TD]
[TD="align: center"]RP4
[/TD]
[TD="align: center"]RP5
[/TD]
[TD="align: center"]SM Rit
[/TD]
[TD="align: center"]MD Rit
[/TD]
[TD="align: center"]RP1/RC
[/TD]

[TD="align: center"]Firenze
[/TD]
[TD="align: center"]15
[/TD]
[TD="align: center"]111
[/TD]
[TD="align: center"]111
[/TD]
[TD="align: center"]15
[/TD]
[TD="align: center"]488
[/TD]
[TD="align: center"]23
[/TD]
[TD="align: center"]27
[/TD]
[TD="align: center"]56
[/TD]
[TD="align: center"]22
[/TD]
[TD="align: center"]6
[/TD]
[TD="align: center"]245
[/TD]
[TD="align: center"]40
[/TD]
[TD="align: center"]0,207207207207207
[/TD]

[TD="align: center"]Nazionale
[/TD]
[TD="align: center"]19
[/TD]
[TD="align: center"]111
[/TD]
[TD="align: center"]111
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]57
[/TD]
[TD="align: center"]3
[/TD]
[TD="align: center"]42
[/TD]
[TD="align: center"]6
[/TD]
[TD="align: center"]1
[/TD]
[TD="align: center"]12
[/TD]
[TD="align: center"]175
[/TD]
[TD="align: center"]29
[/TD]
[TD="align: center"]0,027027027027027
[/TD]

[TD="align: center"]Milano
[/TD]
[TD="align: center"]71
[/TD]
[TD="align: center"]102
[/TD]
[TD="align: center"]102
[/TD]
[TD="align: center"]17
[/TD]
[TD="align: center"]497
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]26
[/TD]
[TD="align: center"]10
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]23
[/TD]
[TD="align: center"]168
[/TD]
[TD="align: center"]28
[/TD]
[TD="align: center"]6,86274509803922E-02
[/TD]

[TD="align: center"]Roma
[/TD]
[TD="align: center"]19
[/TD]
[TD="align: center"]95
[/TD]
[TD="align: center"]102
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]477
[/TD]
[TD="align: center"]29
[/TD]
[TD="align: center"]26
[/TD]
[TD="align: center"]9
[/TD]
[TD="align: center"]21
[/TD]
[TD="align: center"]15
[/TD]
[TD="align: center"]195
[/TD]
[TD="align: center"]32
[/TD]
[TD="align: center"]0,305263157894737
[/TD]

[TD="align: center"]Bari
[/TD]
[TD="align: center"]16
[/TD]
[TD="align: center"]91
[/TD]
[TD="align: center"]120
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]468
[/TD]
[TD="align: center"]27
[/TD]
[TD="align: center"]3
[/TD]
[TD="align: center"]22
[/TD]
[TD="align: center"]48
[/TD]
[TD="align: center"]26
[/TD]
[TD="align: center"]217
[/TD]
[TD="align: center"]36
[/TD]
[TD="align: center"]0,296703296703297
[/TD]

[TD="align: center"]Palermo
[/TD]
[TD="align: center"]47
[/TD]
[TD="align: center"]90
[/TD]
[TD="align: center"]115
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]495
[/TD]
[TD="align: center"]5
[/TD]
[TD="align: center"]4
[/TD]
[TD="align: center"]14
[/TD]
[TD="align: center"]14
[/TD]
[TD="align: center"]14
[/TD]
[TD="align: center"]141
[/TD]
[TD="align: center"]23
[/TD]
[TD="align: center"]5,55555555555556E-02
[/TD]

[TD="align: center"]Venezia
[/TD]
[TD="align: center"]33
[/TD]
[TD="align: center"]87
[/TD]
[TD="align: center"]152
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]435
[/TD]
[TD="align: center"]3
[/TD]
[TD="align: center"]18
[/TD]
[TD="align: center"]59
[/TD]
[TD="align: center"]10
[/TD]
[TD="align: center"]30
[/TD]
[TD="align: center"]207
[/TD]
[TD="align: center"]34
[/TD]
[TD="align: center"]3,44827586206897E-02
[/TD]

[TD="align: center"]Cagliari
[/TD]
[TD="align: center"]17
[/TD]
[TD="align: center"]77
[/TD]
[TD="align: center"]167
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]244
[/TD]
[TD="align: center"]3
[/TD]
[TD="align: center"]11
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]18
[/TD]
[TD="align: center"]73
[/TD]
[TD="align: center"]182
[/TD]
[TD="align: center"]30
[/TD]
[TD="align: center"]0,038961038961039
[/TD]

[TD="align: center"]Torino
[/TD]
[TD="align: center"]50
[/TD]
[TD="align: center"]72
[/TD]
[TD="align: center"]112
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]435
[/TD]
[TD="align: center"]5
[/TD]
[TD="align: center"]2
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]32
[/TD]
[TD="align: center"]125
[/TD]
[TD="align: center"]20
[/TD]
[TD="align: center"]6,94444444444444E-02
[/TD]

[TD="align: center"]Genova
[/TD]
[TD="align: center"]43
[/TD]
[TD="align: center"]70
[/TD]
[TD="align: center"]99
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]275
[/TD]
[TD="align: center"]19
[/TD]
[TD="align: center"]9
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]7
[/TD]
[TD="align: center"]75
[/TD]
[TD="align: center"]187
[/TD]
[TD="align: center"]31
[/TD]
[TD="align: center"]0,271428571428571
[/TD]

[TD="align: center"]Napoli
[/TD]
[TD="align: center"]4
[/TD]
[TD="align: center"]61
[/TD]
[TD="align: center"]99
[/TD]
[TD="align: center"][/TD]
[TD="align: center"]460
[/TD]
[TD="align: center"]1
[/TD]
[TD="align: center"]57
[/TD]
[TD="align: center"]33
[/TD]
[TD="align: center"]11
[/TD]
[TD="align: center"]39
[/TD]
[TD="align: center"]202
[/TD]
[TD="align: center"]33
[/TD]
[TD="align: center"]1,63934426229508E-02
[/TD]

Estremi di ricerca: Dalla 46 del 18.11.1871 alla 8575 del 16.08.2012

 

[miki55]

...attenzione Mike, questi sono gli ultimi 5 ritardi consecutivi, pertanto non è questa la mia richiesta.
Comunque senza nessuna presunzione, facciamo un pò di ordine, se ti fà piacere...

Il ritardo cronologico classico (RC) è una misura di assenza che si esprime in estrazioni.
Si calcola a partire dall’estrazione successiva a quella di prima sortita,
fino all’estrazione in cui la combinazione presa in esame torna a sortire.

Il ritardo di posizione di primo livello (RP1) è una forma di ritardo successiva al classico ritardo cronologico.
È una misura delle estrazioni di stazionamento di una combinazione in una posizione specifica della graduatoria del ritardo cronologico.
Relativamente al numero più in ritardo di ciascuna ruota, è il tempo di stazionamento nella prima posizione di ritardo cronologico.

Il ritardo di posizione di secondo livello (RP2) è una forma di ritardo successiva al ritardo di posizione di primo livello.
Si determina sulla base di una particolare graduatoria dove i numeri, che registrano il più alto ritardo cronologico, vengono ordinati in
funzione del valore del ritardo di posizione di primo livello.
Le estrazioni di stazionamento nella posizione di vertice di questa particolare graduatoria è il ritardo di posizione di secondo livello.

L'immagine sotto esposta, è quella del Visualotto dove troviamo l'elenco delle coppie in RP2, a massimi termini.
Ora a me interessa anche l'estratto singolo in RP2 come ho chiarito sopra nell'analisi. Grazie

[/URL][/IMG]

 

[Mike58]

Ciao Miki avevo dei dubbi circa quello che avevo capito ora è molto più chiaro, forse riesco per il primo punto Rp1 ritardo di livello 1 per il 2° ritardo RP2 vediamo stasera vedrò di trovare il codice vbscript.


ciao ci provo.

 

[Mike58]

Tabella con RDL1 & RDL2

Tabella con RDL1 & RDL2

Ciao Miki, qualcosa sono ruiscito a fare spero che i calcoli siano esatti.
Ti posto lo script fai le dovute verifiche.

P.s. se vuoi elencare + ritardatari per ruota basta ampliare il ciclo for next del numero di ritardatari
For p = 1 To 1 ' in caso di 1 ritardatario
for p = 1 to 5 ' in caso di 5 ritardatari x ruota

ciao e buon studio.

Sub Main()
 Dim num(1),numero(10),ruota(1),sorte,k
 nstart = Timer
 Ini = EstrazioneFin - 300
 fin = EstrazioneFin
 diff = fin - Ini
 Scrivi"   Statistica Veloce Analitica su Numeri Ritardatari + RDL1 & RDL2  " & "   ",1,- 1,6
 Scrivi String(100,"=")
 Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & "  - Estrazioni Totali esaminate..." & DIFF,1
 Scrivi String(100,"=")
 Scrivi
 '--------- crea tabella---------------
 ReDim atitoli(15)
 atitoli(1) = "   Ruota   "
 atitoli(2) = "  Ritardatario "
 atitoli(3) = " RD1 "
 atitoli(4) = " RD2 "
 atitoli(5) = " RD3 "
 atitoli(6) = " RD4 "
 atitoli(7) = " RD5 "
 atitoli(8) = "  Rit.Att.  "
 atitoli(9) = "  Rit.Sto "
 atitoli(10) = " incr.sto "
 atitoli(11) = "  Freq.  "
 atitoli(12) = " RDL1 "
 atitoli(13) = " RDL2 "
 atitoli(14) = "Pos.N "
 atitoli(15) = " RDL1/RC "
 ' inizializzo la tabella
 Call InitTabella(atitoli,1,,3,5)
 For r = 1 To 11
  If r = 11 Then r = 12
  For k = 1 To 90
   ruota(1) = r
   num(1) = k
   For p = 1 To 1
    If k = NumeroPosRit(fin,r,p) Then
     'Next
     Call Messaggio("Ruota... " & NomeRuota(r))
     Call AvanzamentoElab(1,11,r)
     If ScriptInterrotto Then Exit For
     Call StatisticaFormazione(num,ruota,1,rit,ritmax,incrRitMax,freq,Ini,fine)
     '----- calcolo valori in tabella --------------
     ReDim avalori(15)
     avalori(1) = NomeRuota(r)
     avalori(2) = k
     avalori(3) = RitDiPos(num,1,ruota)
     avalori(4) = RitDiPos(num,2,ruota)
     avalori(5) = RitDiPos(num,3,ruota)
     avalori(6) = RitDiPos(num,4,ruota)
     avalori(7) = RitDiPos(num,5,ruota)
     avalori(8) = rit
     avalori(9) = ritmax
     avalori(10) = incrRitMax
     avalori(11) = freq
     avalori(12) = RitPos(k,r,fin)
     avalori(13) = RitPos(k,r,fin - avalori(12))
     avalori(14) = PosNumeroRit(fin,r,k) & "°"
     avalori(15) = Int(avalori(12)*10/avalori(8)*10)/100
     Call AddRigaTabella(avalori,,,3)
     Call SetColoreCella(8,,1)
     Call SetColoreCella(2,,2)
     Call SetColoreCella(12,vbMagenta)
     Call SetColoreCella(13,vbYellow)
     If rit > 100 Then Call SetColoreCella(8,vbGreen)
    End If
   Next
  Next
 Next
 Call CreaTabella(15)
 nend = Timer
 Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
 Scrivi
 Scrivi " Tabella By Mike58 ",1,- 1,6
End Sub
Function RitDiPos(num,pos,ruota)
 ReDim apos(5)
 ReDim aruota(1)
 ReDim anum(1)
 anum(1) = num
 apos(pos) = True
 aruota(1) = ruota
 RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
 'Questa Function trasforma il numero di secondi passato come parametro in una stringa
 ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
 ' s ---> Numero di secondi da formattare
 ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
 Dim hh
 Dim Mm
 Dim Ss
 Dim TimeStr
 hh = s \ 3600
 Mm =(s Mod 3600) \ 60
 Ss = s -((hh * 3600) +(Mm * 60))
 TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
 FormattaSecondi = TimeStr
End Function

 

[miki55]

Ciao Mike la studierò e ti farò sapere. Grazie infinite

 

[freddy1975]

Scusa ma per mettere solo i 5 ritardatari di una sola ruota e farli scrivere in pregressione dal 1 posto a 5 come devo fare

 

[Joe91]

Scusa ma per mettere solo i 5 ritardatari di una sola ruota e farli scrivere in pregressione dal 1 posto a 5 come devo fare

Quelle che richiedi sono informazioni statistiche reperibili nei siti specializzati,

come questo: http://www.lottoced.com/lotto/ritardi-top-15/

Se invece, cerchi informazioni "più specifiche",

devi utilizzare i programmi, come ad esempio Spaziometria,

dove ci sono anche tebelloni analitici / statistiche / ricerche personalizzabili.

Se invece esse sono ancora più particolari e/o più "personali"

e/o per uno scopo ancora più specifico,

devi imparare il linguaggio Basic, degli script ...

o provare a cercare uno script che faccia esattamente cosa cerchi.

O che esso sia solo da adattare, alla richiesta specifica perchè già "simile".