Modifica script

[genios]

Questo script ricerca le frequenze dei numeri che vanno da 1 a 10 su una ruota in 180 estrazioni scalando di un estrazione per riconteggiare le frequenze . Mi occorre modificare lo script in modo che se nell' estrazione è uscito un numero dei 10 mi venga evidenziata la frequenza in rosso . Come da foto allegata .

Ciao Eugenio

Sub Main()

Dim nr(10),ru(1),ra(20),fq(10)
ps = CInt(InputBox("Quante estrazioni retroattive vuoi controllare a passo 1?","Enplein",17))
rt = CInt(InputBox("Quante ruota vuoi controllare ?","Enplein",1))

'Calcolo delle frequenze di un numero in 1800 estrazioni
'Controlla 100 estrazioni con un ciclo di (ps)
For j = 0 To ps
fqt = 0
fin = EstrazioneFin - j
ini = fin - 180
For i = 1 To 10
nr(i) = i :freq = 0
For a = ini To fin
For p = 1 To 5
numero = Estratto(a,rt,p)
If numero = nr(i) Then
freq = freq + 1
End If
Next
Next
fq(i) = freq
fqt = fqt + fq(i)
Next
Scrivi "N° " & Format2(j + 1) & " " & SiglaRuota(rt) & " " & DataEstrazione(fin) & " " & StringaEstratti ( fin,rt ) & " / " & Format2(fin) & " a " & Format2(ini),1
For i = 1 To 10
'Scrivi Space (4) & FormatSpace (nr(i),3),0,0
Next
Scrivi
For i = 1 To 10
Scrivi Space(4) & FormatSpace(fq(i),3),0,0
Next
'Scrivi "  Freq. Tot. " & FormatSpace(fqt,6),1
Scrivi
Next
End Sub

 

[genios]

Se fosse possibile inserire anche la colonna del ritardo ritardo per ciascuna colonna delle frequenze .

Ciao Eugenio