Aiuto per listato sui ritardi

[Antonio Pagano]

Buongiorno avrei bisogno che qualcuno di voi mi aiuti a correggere questo script che dovrebbe darmi ad ogni estrazione il ritardo del numero estratto ma dai ritardi che mi dà non sono esatti. Grazie

 

[claudio8]

Buongiorno avrei bisogno che qualcuno di voi mi aiuti a correggere questo script che dovrebbe darmi ad ogni estrazione il ritardo del numero estratto ma dai ritardi che mi dà non sono esatti. Grazie

Dovresti postare anche lo script.

 

[Antonio Pagano]

Allego lo script. Pensavo di averlo fatto. Scusatemi

Option Explicit
Sub Main
Dim q,Ini,fin,es,r1,p,g,v,x
Dim n1,n2,n3,n4,n5
Dim rn1,rn2,rn3,rn4,rn5
Dim fn1,fn2,fn3,fn4,fn5
Dim ri
ri = 10
q = 28 'InputBox " Quante estrazioni vuoi controllare"
Ini = EstrazioneFin - q + ri
fin = EstrazioneFin - ri
Scrivi fin
Scrivi
For es = Ini To fin
AvanzamentoElab Ini,fin - ri,es

q = q - 1
For r1 = 3 To 3
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,2)
n3 = Estratto(es,r1,3)
n4 = Estratto(es,r1,4)
n5 = Estratto(es,r1,5)
'
rn1 = EstrattoRitardo(r1,n1,es,fin)
rn2 = EstrattoRitardo(r1,n2,es,fin)
rn3 = EstrattoRitardo(r1,n3,es,fin)
rn4 = EstrattoRitardo(r1,n4,es,fin)
rn5 = EstrattoRitardo(r1,n5,es,fin)
'
fn1 = EstrattoFrequenza(r1,n1,es,fin)
fn2 = EstrattoFrequenza(r1,n2,es,fin)
fn3 = EstrattoFrequenza(r1,n3,es,fin)
fn4 = EstrattoFrequenza(r1,n4,es,fin)
fn5 = EstrattoFrequenza(r1,n5,es,fin)

Scrivi es & " " & DataEstrazione(es) & " Ruota " & NomeRuota(r1) & " RITARDO ESTRAZIONI " & q
Scrivi Format2(n1) & " " & Format2(n2) & " " & Format2(n3) & " " & Format2(n4) & " " & Format2(n5)
Scrivi Format2(rn1) & " " & Format2(rn2) & " " & Format2(rn3) & " " & Format2(rn4) & " " & Format2(rn5)
Scrivi Format2(fn1) & " " & Format2(fn2) & " " & Format2(fn3) & " " & Format2(fn4) & " " & Format2(fn5)
Scrivi
Next
Next


End Sub

 

[i legend]

Ciao bisogna capire quali range di ricerca ti interessano per calcolare ritardi e frequenze e aiutarti nello script.

 

[Antonio Pagano]

a 18 estrazioni va benissimo . Grazie mille.

 

[i legend]

Mi spiace non riesco ad aiutarti

 

[Mike58]

Script datato e non ottimizzato, tuttavia ecco la correzione , sullo script postato, con le relative risultanze.
Vedi se va bene.

Option Explicit
Sub Main
Dim q,Ini,fin,es,r1,p,g,v,x
Dim n1,n2,n3,n4,n5
Dim rn1,rn2,rn3,rn4,rn5
Dim fn1,fn2,fn3,fn4,fn5
Dim ri
ri = 1
q = 19 'InputBox " Quante estrazioni vuoi controllare"
Ini = EstrazioneFin - q + ri
fin = EstrazioneFin'' - ri
Scrivi fin
Scrivi
For es = Ini To fin
AvanzamentoElab Ini,fin - ri,es

q = q - 1
For r1 = 3 To 3
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,2)
n3 = Estratto(es,r1,3)
n4 = Estratto(es,r1,4)
n5 = Estratto(es,r1,5)
'
rn1 = EstrattoRitardo(r1,n1,Ini,es-1)
rn2 = EstrattoRitardo(r1,n2,Ini,es-1)
rn3 = EstrattoRitardo(r1,n3,Ini,es-1)
rn4 = EstrattoRitardo(r1,n4,Ini,es-1)
rn5 = EstrattoRitardo(r1,n5,Ini,es-1)
'
fn1 = EstrattoFrequenza(r1,n1,Ini,es)
fn2 = EstrattoFrequenza(r1,n2,Ini,es)
fn3 = EstrattoFrequenza(r1,n3,Ini,es)
fn4 = EstrattoFrequenza(r1,n4,Ini,es)
fn5 = EstrattoFrequenza(r1,n5,Ini,es)

Scrivi es & " " & DataEstrazione(es) & " Ruota " & NomeRuota(r1) & " RITARDO ESTRAZIONI " & q,1
Scrivi Format2(n1) & " " & Format2(n2) & " " & Format2(n3) & " " & Format2(n4) & " " & Format2(n5) & vbTab & "Estratti"
Scrivi Format2(rn1) & " " & Format2(rn2) & " " & Format2(rn3) & " " & Format2(rn4) & " " & Format2(rn5) & vbTab & "Ritardi Precedenti"
Scrivi Format2(fn1) & " " & Format2(fn2) & " " & Format2(fn3) & " " & Format2(fn4) & " " & Format2(fn5) & vbTab & "Estratti Frequenza"
Scrivi
Next
Next


End Sub

Ciao

 

[Mike58]

script mia variante ottimizzata.

Sub Main
   Dim Nu(5),Ru(1),T,er(5),ef(5)
   estraz = CInt(InputBox("Quante estrazioni controllo","Mike58",17))
   Ini = EstrazioneFin - estraz
   fin = EstrazioneFin
   Tot = fin - Ini + 1
   T = Array(T,"Ruota","InfoData","Estratti","Ritardi prec Relativi","Frequenti Relativi","Estrazioni passate")
   Call InitTabella(T,,,,,"Arial black")
   r = ScegliRuota
   For es = Ini To fin
   ess = ess + 1
      For p = 1 To 5
         Nu(p) = Estratto(es,r,p)
         er(p) = EstrattoRitardo(r,Nu(p),Ini,es - 1)
         ef(p) = EstrattoFrequenza(r,Nu(p),Ini,es)
         riga = riga & Format2(er(p)) & " "
      Next
      T = Array(T,SiglaRuota(r),GetInfoEstrazione(es),StringaNumeri(Nu,,1),riga,StringaNumeri(ef,,1),fin-es)
      Call AddRigaTabella(T)
      riga = ""
   Next
   CreaTabella
   Dim mat(90,3)
 
'r1 = 3
Scrivi "****** Riepilogo Estratti ****** "
Scrivi " Numero     Freq  Ritardco Corrente "
For n = 1 To 90
eff = EstrattoFrequenza(r,n,Ini,fin)
If eff > 0 Then
k = k + 1
Err = EstrattoRitardo(r,n,Ini,fin)
'Scrivi n & vbTab & ef & vbTab & er
mat(k,0) = n
mat(k,1) = eff
mat(k,2) = Err
End If
Next
OrdinaMatrice mat,-1,1
ScriviMatrice(mat)

End Sub

 

[Antonio Pagano]

Grazie mille Mike58 perfetto è lo script che cercavo. Grazie