Modifica script

[Antonio Pagano]

Buongiorno a tutti. Questo è lo script in questione

Option Explicit
Sub Main
Dim IdEstr,Ini,Fin,r,rt
Dim K,x
Dim aNumFreq(90,2),aNum
rt = FI_
r = rt
Ini = EstrazioneFin - 18
Fin = EstrazioneFin
For IdEstr = Ini To Fin
'If IsUltimaDelMese(IdEstr) Then
K = K + 1
Scrivi DataEstrazione(IdEstr) & " - " & SiglaRuota(r) & " " & StringaEstratti(IdEstr,r)
'End If
Next
Scrivi
Scrivi "Estrazioni Rilevate = " & K
For x = 1 To 90
aNumFreq(x,1) = x
aNumFreq(x,2) = 0
Next
'----------------------------------
For IdEstr = Ini To Fin
'If IsUltimaDelMese(IdEstr) Then
r = rt
For x = 1 To 5 ' Ciclo per l'estrazione della ruota
aNum = Estratto(IdEstr,r,x) ' incamero l'estrazione
aNumFreq(aNum,2) = aNumFreq(aNum,2) + 1
'If aNumFreq(aNum,2) => 1 Then
'End If
Next
'End If
Next
Scrivi
Scrivi Space(10) & "Num" & " " & " Freq",1
OrdinaMatrice aNumFreq,- 1,2
ScriviMatrice(aNumFreq)
End Sub

e questo è l'output.


vorrei che tutti i numeri con frequenza superiore a 2 in questo caso la lunghetta 15,20,12,36,86,77,46,6 dal 15-06-2021 al 27-07-2021 quanti ambi ha già prodotti. Grazie sempre a quanti cercheranno di risolvere. Buona giornata.