HELP---->PICCOLA MODIFICA AD UN LISTATO!!!

[rob]

C'E' QUALCUNO CHE CORTESEMENTE PUO' MODIFICARE QUESTO LISTATO???
E' SUFFICIENTE AGGIUNGERE SUL REPORT OLTRE AL NUMERO E LA FREQUENZA ANCHE IL RITARDO CRONOLOGICO</u>!!GRAZIE ROB

ESEMPIO

Analisi dal 07.03.2001 ad oggi
Primi 10 più frequenti usciti dopo il numero Spia entro i 10 colpi
_________________________________________________________________
Numero spia: 1 su Bari casi = 79 colpi 10

Num. 48 21 82 17 4 5 34 66 69 20
Freq. 68 67 67 64 64 63 63 61 60 60
RITARDO</u>- - - - - - - - - - - - - - - - -
------------------------------------------------

LISTATO</u>

Sub main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
r=InputBox("Su quale ruota?",,1)
colpi=InputBox("Quanti colpi?",,10)
ruote(1)=r
ini=7000
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i "&colpi&" colpi",1
For sp=1 To 90
Messaggio " Spia: "&sp
For i=1 To 90
num(i,1)=0 : num(i,2)=0
Next
co=0
For es=ini To fin
If Posizione(es,r,sp)>0 Then
co=co+1
ess=es+colpi+1
If ess>fin Then ess=fin End If
For a=es+1 To ess
For v=1 To 90
uscito(v,2)=0
Next
For e=1 To 5
n=Estratto(a,r,e)
num(n,1)=n
num(n,2)=num(n,2)+1
uscito(n,1)=n
uscito(n,2)=uscito(n,2)+1
If uscito(n,2)>1 Then
num(n,2)=num(n,2)-1
uscito(n,2)=1
End If
Next
Next
End If
Next
OrdinaMatrice num, -1, 2
per=Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&" colpi "& colpi
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Next


End Sub

 

[imported_n/a]

Ciao Rob,inserito ritardo.
Cambia il range di inizio(ini= 7000)altrimenti lo script è molto lungo come tempi di elaborazione.
Inserito anche Ritardo numero spia

Mike58

'"Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,3)
Dim uscito(90,2)
r = InputBox("Su quale ruota?",,12)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = EstrazioneFin - 200
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = 1 To 90
Messaggio " Spia: " & sp
For i = 1 To 90
num(i,1) = 0 : num(i,2) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
uscito(v,2) = 0
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
num(n,2) = num(n,2) + 1
rit = EstrattoRitardo(r,n,Ini,fin)
rtsp = EstrattoRitardo(r,sp,Ini,fin)

num(n,3) = rit

uscito(n,1) = n
uscito(n,2) = uscito(n,2) + 1
If uscito(n,2) > 1 Then
num(n,2) = num(n,2) - 1
uscito(n,2) = 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp,1
ColoreTesto 0
Scrivi
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "

For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
Next

Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 0
Next
End Sub