Ciao Ilegend ...
Come cronista/osservatore la proposta di script che stai formulando è ... per addeti ai lavori.
Forse, non è semplice, per chi è alle prime armi, trovarsi con un esempio complicato
e non (ancora) funzionante anche e per errori di sintassi.
Non è problema. Lo si evince dal tono delle domande ... a cui stai rispondendo.
Sono richieste di uno che sa.
Dunque anche se non direttamente interpellato mi permetto alcune cosette.
Dim ( 10 ... non 11). 10 sono già 11 dunque sono già sovrabbondanti per i 10.
Poi un paio di errori: Manca una "T" in inputbox ed il nome di una del variabili ha o manca di uno spazio.
Ultimo, ma non ultimo ....
In questo caso, lo script, quasi si veste di ignoranza lottologica ... a cui deve supplire il Pc.
Mi spiego con una immagine-esempio considerando che, tempo fa, avevi chiesto ... dell'ottimizzazione.
E' come assistere alla curiosità di un bambino che continua a chiedere all' adulto-lottologo (ovvero al PC che sa) ...
e 1 ? e 2 ? e 3 ? e 4 ? ... appartiene alla decina "xyz" ?
Quindi tutte ed immancabilmente ... tutte le volte, le stesse domande. 90.
Se tuttavia il compito è definito e risaputo, nel senso che, abbiamo "ricevuto" una cabala
che l'abbiamo interiorizzata; Questa cabala che, poi, noi l' abbiamo "insegnata" al PC,
attribuendole il nome di una istruzione dedicata. Ora che "Lui", la ricorda e la sa riconoscere ...
Se è vero che questa memoria ci è utile ausilio al nostro (a volte anche ignorante e fievole) sapere,
è anche vero che se, "noi sappiamo", possiamo evitare molte domande ... inutili. Risparmiando tempo.
Dunque ti propongo alternativa, una correzioni orotografiche, e di contenuto.
Su quelle di contenuto ... Con "un valore" (il primo) si intesse l' array che lo contiene.
Questo implica un notevole risparmio di variabili e di codice, e di tempo.
Codice che, si svilupperà appunto, almeno 10 volte, più velocemente.
Semplicemente sapendo ... senza dover chiedere.
Codice:
Sub Main ' sub principale
' tutto si migliora
' verificare gli output
Dim Ini,Fin
Dim nConc
Dim idSorte
Dim idForm
Dim aNum(10)
Dim idRuote
Dim idRiga '
Dim aRuota(1)
nConc = Int(InputBox("seleziona quanti Conc esaminare","Range estrazioni ",180))
Fin = EstrazioneFin
Ini = Fin -(nConc + 1)
idSorte = ScegliEsito
Call Scrivi("Inizio : " & GetInfoEstrazione(Ini))
Call Scrivi("Fine : " & GetInfoEstrazione(Fin))
Call getTitoli 'sub secondaria per intestazione tabella
idRiga = 0
For idRuote = 1 To 12
aRuota(1) = idRuote
' codice da scrivere
'For idform= 0 To 8
idRiga = idRiga + 1
' Call getArrayFormazione ( che manca? )
Call StatisticaFormazioneTurbo(aNum,aRuota,idSorte,rit,RitMax,incR,Freq,Ini,Fin)
Next
Call CreaTabella ' comando che crea la tabella
''''''''''''''''''''''''''''''''''''''''' Call-Test da ricollocare
[B][COLOR=#0000c0]For[/COLOR][/B] [B][COLOR=#ff00ff]idForm[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] 0 [B][COLOR=#0000c0]To[/COLOR][/B] 8
[B][COLOR=#ff00ff]aNum[/COLOR][/B](1) [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#ff00ff]idForm[/COLOR][/B]
[B][COLOR=#0000c0]Call[/COLOR][/B] [B][COLOR=#808080]getArrayFormazione[/COLOR][/B]([B][COLOR=#ff00ff]aNum[/COLOR][/B])
[B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#800080]StringaNumeri[/COLOR][/B]([B][COLOR=#ff00ff]aNum[/COLOR][/B],,[B][COLOR=#ff00ff]True[/COLOR][/B])
[B][COLOR=#0000c0]Next[/COLOR][/B]
'''''''''''''''''''''''''''''''''''''''''
End Sub ' chiudo la sub
Sub getTitoli
Dim aTitoli ' dichiarò le variabili
aTitoli = Array("","RUOTE ","FORMAZIONE ","FREQ","RIT "," RITMAX ","INC.RIT ")
Call InitTabella(aTitoli,vbBlue,,,vbYellow) ' riga intestazione
End Sub
[B]Sub[/B] [B][COLOR=#808080]getArrayFormazione [/COLOR][/B]([B][COLOR=#ff00ff]aNum[/COLOR][/B])
[B][COLOR=#0000c0]Dim[/COLOR][/B] [B][COLOR=#ff00ff]U[/COLOR][/B]
D [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#ff00ff]aNum[/COLOR][/B](1)
[B][COLOR=#0000c0]For[/COLOR][/B] [B][COLOR=#ff00ff]U[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] 1 [B][COLOR=#0000c0]To[/COLOR][/B] 10
[B][COLOR=#ff00ff]aNum[/COLOR][/B]([B][COLOR=#ff00ff]U[/COLOR][/B]) [B][COLOR=#ff0000]=[/COLOR][/B] 10 [B][COLOR=#ff0000]*[/COLOR][/B] D [B][COLOR=#ff0000]+[/COLOR][/B] [B][COLOR=#ff00ff]U[/COLOR][/B]
[B][COLOR=#0000c0]Next[/COLOR][/B]
[B][COLOR=#0000c0]End [/COLOR][/B][B][COLOR=#0000c0]Sub[/COLOR][/B]
