UN AIUTINO SE POSSIBILE.

[K2020]

Salve , ho un problema con questo script che ricerca i FREQUENTI MIGLIORI , mi da sempre i valore sulla Nazionale , per controllare tutte le altre ruote cosa dovrei modificare.

Grazie anticipate e buon fine settimana a tutti.

Option Explicit
Sub Main()
Dim aNumFreq(90,2),Num(1),x,ru(1)
Dim Cicli,EC,Ini,Fin,es,rig1,rig2
'-------------------------------------------------------------------------------------- Disattivare su Vuoi i valori da Input
'Cicli = 5 ' <------------------------- Numero di Cicli
'EC = 9 ' <---------------------------- Quante Estrazioni Per Ciclo
'------------------------------------------------------------------------------------ Attivare Se Vuoi la Richiesta da Input
Cicli = InputBox("inserire il numero dei Cicli da Esaminare",,5)
EC = InputBox("inserire il numero delle Estrazioni per Ciclo",,9)
'------------------------------------------------------------------------------------
Fin = EstrazioneFin
Ini = Fin -(EC * Cicli) + 1 ' <-----------------------Tot estr. esaminate
'----------------------- Disattivare Se Vuoi analizzare una sola Ruota
'For r = 1 To 10
'For r = 1 To 12 : If r = 11 Then r = 12 ' Con La Ruota Nazionale
'------------------------------------------------------------------------------------
Scrivi String(5," ") & "Analisi Eseguita per " & Cicli & " Cicli" & " di " & EC & " Estrazioni ",1,,,1
Scrivi String(15," ") & DataEstrazione(Ini) & " - " & DataEstrazione(Fin),1,,,1
Scrivi String(60,"-")
Scrivi
For es = Ini To Fin Step EC
AvanzamentoElab Ini,Fin,es
'ru(1) = r ' -------> Disattivare se Vuoi Analizzare una Sola Ruota
'
ru(1) = NZ_ ' ------------> Se Vuoi Analizzare una Singola Ruota
For x = 1 To 90
Num(1) = x
aNumFreq(x,1) = x
aNumFreq(x,2) = aNumFreq(x,2) + SerieFreqTurbo(es,es + EC - 1,Num,ru,1)
Next
OrdinaMatrice aNumFreq,- 1,2
For x = 1 To 90
'If aNumFreq(x,2) <> 0 Then
If aNumFreq(x,2) >= 2 Then ' Frequenti Superioi a 2 Presenze
rig1 = rig1 + Format2(aNumFreq(x,1)) & " "
rig2 = rig2 + Format2(aNumFreq(x,2)) & " "
End If
Next
Scrivi DataEstrazione(es) & " - " & DataEstrazione(es + EC - 1),1
Scrivi "Dalla " & es & " alla " & es + EC - 1 & " Num: " & rig1,1
Scrivi FormatSpace(NomeRuota(ru(1)),12) & Space(8) & "Pres: ",1,0
ColoreTesto 2
Scrivi rig2,1
Scrivi
ColoreTesto 0
ReDim aNumFreq(90,2)
rig1 = ""
rig2 = ""
Next ' Es
'Next ' Chiude r ---------------> Disattivare se Vuoi Analizzare una Sola Ruota
End Sub

 

[09/09/2021]

TT_ o MI_ e cosi via

 

[K2020]

Grazieeeeeeee....

 

[lotto_tom75]

Ciao agente K, sei dei M.I.B. per caso

Così dovresti poter vedere la situazione di tutte le ruote senza dover modificare la riga per ognuna.
Ho semplicemente disattivato o attivato la riga dove indicato e risolto piccoli errori di code presenti.

Option Explicit
Sub Main()
Dim aNumFreq(90,2),Num(1),x,ru(1)
Dim Cicli,EC,Ini,Fin,es,rig1,rig2
Dim r
'-------------------------------------------------------------------------------------- Disattivare su Vuoi i valori da Input
'Cicli = 5 ' <------------------------- Numero di Cicli
'EC = 9 ' <---------------------------- Quante Estrazioni Per Ciclo
'------------------------------------------------------------------------------------ Attivare Se Vuoi la Richiesta da Input
Cicli = InputBox("inserire il numero dei Cicli da Esaminare",,5)
EC = InputBox("inserire il numero delle Estrazioni per Ciclo",,9)
'------------------------------------------------------------------------------------
Fin = EstrazioneFin
Ini = Fin -(EC * Cicli) + 1 ' <-----------------------Tot estr. esaminate
'----------------------- Disattivare Se Vuoi analizzare una sola Ruota
'For r = 1 To 12
For r = 1 To 12 : If r = 11 Then r = 12 ' Con La Ruota Nazionale
'------------------------------------------------------------------------------------
Scrivi String(5," ") & "Analisi Eseguita per " & Cicli & " Cicli" & " di " & EC & " Estrazioni ",1,,,1
Scrivi String(15," ") & DataEstrazione(Ini) & " - " & DataEstrazione(Fin),1,,,1
Scrivi String(60,"-")
Scrivi
For es = Ini To Fin Step EC
AvanzamentoElab Ini,Fin,es
ru(1) = r ' -------> Disattivare se Vuoi Analizzare una Sola Ruota
'
'ru(1) = NZ_ ' ------------> Se Vuoi Analizzare una Singola Ruota
For x = 1 To 90
Num(1) = x
aNumFreq(x,1) = x
aNumFreq(x,2) = aNumFreq(x,2) + SerieFreqTurbo(es,es + EC - 1,Num,ru,1)
Next
OrdinaMatrice aNumFreq,- 1,2
For x = 1 To 90
'If aNumFreq(x,2) <> 0 Then
If aNumFreq(x,2) >= 2 Then ' Frequenti Superioi a 2 Presenze
rig1 = rig1 + Format2(aNumFreq(x,1)) & " "
rig2 = rig2 + Format2(aNumFreq(x,2)) & " "
End If
Next
Scrivi DataEstrazione(es) & " - " & DataEstrazione(es + EC - 1),1
Scrivi "Dalla " & es & " alla " & es + EC - 1 & " Num: " & rig1,1
Scrivi FormatSpace(NomeRuota(ru(1)),12) & Space(8) & "Pres: ",1,0
ColoreTesto 2
Scrivi rig2,1
Scrivi
ColoreTesto 0
ReDim aNumFreq(90,2)
rig1 = ""
rig2 = ""
Next ' Es
Next ' Chiude r ---------------> Disattivare se Vuoi Analizzare una Sola Ruota
End Sub