lotto_tom75
Advanced Premium Member
Nel mio script under construction
ho questa struttura "pesante" che vorrei se possibile alleggerire il + possibile...
In particolare vorrei riccorrere ad una sola di queste tabelle che dinamicamente operi la riduzione progressiva a step 1 per i cicli desiderati del valore Ubound(vettoredastringaformazione)
Infatti ad ogni passaggio per ogni tabella
avviene questo:
Ovvero appunto viene esaminato il contenuto di vettoredastringaformazione che ad ogni passaggio risulta diminuito di una sola unità
Come potrei ricorrere ad una sola di queste tabelle con il valore Ubound(vettorestringadaformazione) dinamicamente ridotto a step1 per i cicli di riduzione desiderati (es. 10)? Tnx
Per avere alla fine semplicemente... anzichè il corposo code posto all'inizio qualcosa di molto + snello del tipo:
ho questa struttura "pesante" che vorrei se possibile alleggerire il + possibile...
Codice:
If AddLunghetta(collLunghette,clsL) Then nTrov = nTrov + 1:Call ImpostaGiocata(1,vettoredastringaformazione,aRuotetmp,po,co,Sortediverifica): Call TabellaOrdinata(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi) : Call TabellaOrdinataSeconda(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataTerza(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataQuarta(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataQuinta(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataSesta(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataSettima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataOttava(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataNona(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataDecima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataUndicesima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call TabellaOrdinataDodicesima(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call Verificatutto(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare) ': counterrange = counterrange '+ 1 ' <<< E' QUESTA LA RIGA CHE FUNZIA! :)In particolare vorrei riccorrere ad una sola di queste tabelle che dinamicamente operi la riduzione progressiva a step 1 per i cicli desiderati del valore Ubound(vettoredastringaformazione)
Infatti ad ogni passaggio per ogni tabella
avviene questo:
Codice:
Dim xvettorecoppia
xvettorecoppia = vettoredastringaformazione
ColTot = InitSviluppoIntegrale(xvettorecoppia,Classe)Ovvero appunto viene esaminato il contenuto di vettoredastringaformazione che ad ogni passaggio risulta diminuito di una sola unità
Come potrei ricorrere ad una sola di queste tabelle con il valore Ubound(vettorestringadaformazione) dinamicamente ridotto a step1 per i cicli di riduzione desiderati (es. 10)? Tnx
Per avere alla fine semplicemente... anzichè il corposo code posto all'inizio qualcosa di molto + snello del tipo:
Codice:
If AddLunghetta(collLunghette,clsL) Then nTrov = nTrov + 1:Call ImpostaGiocata(1,vettoredastringaformazione,aRuotetmp,po,co,Sortediverifica): Call TabellaOrdinataDinamica(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call PassaVettoreDastringaFormazioneRidottoDiUnaUnita_
: Call TabellaOrdinataDinamica(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare,contatorecasi)_
: Call Verificatutto(inizio,counterrange,Sortediverifica,vettoredastringaformazione,aRuotetmp,co,nProdotte,nclasse,contaesitipos,contaesitineg,contacasinongiocabili,quanteestrazioniverificare)
Ultima modifica:
