Domanda tecnica di compilazione

[Edoardo_95]

Come posso gestire ed inserire correttamente "AvanzamentoElab" in un ciclo "Do while GetCombSviluppoRid(aRetColonna,nSorteGarantita)" ?

allego script in cui ho difficoltà:

Sub Main
   Dim k
   Dim Classe,Sorte
   Dim aCol
   ReDim aNum(90)
   Dim i
   Dim nSorte,Fine,QuantitaNumeriScelti,Inizio
   Dim ColTot
   Dim contatore
   contatore = 1
   ReDim aNum(0)
   QuantitaNumeriScelti = ScegliNumeri(aNum)
   Classe = CInt(InputBox("Scegli la classe desiderata (massimo 20)",,10))
   Sorte = 2
   ColTot = InitSviluppoIntegrale(aNum,Classe)
   If ColTot > 0 Then
      Do While GetCombSviluppoRid(aCol,Sorte) = True
         i = i + 1
         Call Scrivi(StringaNumeri(aCol))
         contatore = contatore + 1
         Call AvanzamentoElab(1,ColTot,i)
         Call Messaggio("Colonna " & i)
         If ScriptInterrotto Then Exit Do
      Loop
   End If
End Sub

 

[Edoardo_95]

Nessuno in grado di aiutarmi?

 

[claudio8]

Edoardo,
Call AvanzamentoElab (1,ColTot,i) - non è correto il suo uso con quei parametri.

Tu utilizzi ColTot che non è il numero di colonne ridotte, bensì il numero di colonne dell' l'integrale.

E' come chiedere di rapportare il percorso di" ì" che ha un valore piccolo rispetto al valore di ColTot che è molto più grande e quindi la barra, se non in casi specifici, o non si muove o appare in parte, a rappresentazione della poca quantità di " i" delle colonne ridotte.

Dovresti sostituire ColTot con il valore specifico di colonne derivanti dalla riduzione che imposti ma sinceramente non so se vi è una funzione che le calcola.
saluti

 

[Edoardo_95]

Buongiorno claudio8,
hai ragione non esiste una funzione. Ho risolto comunque, semplicemente impostando un ciclo do while fine a se stesso con l'imposizione di un nuovo contatore

   ColTot = InitSviluppoIntegrale(aNum,Classe)
   Do While GetCombSviluppoRid(aCol,Sorte) = True
   ii = ii + 1
   loop
   ColTot = InitSviluppoIntegrale(aNum,Classe)
   If ColTot > 0 Then
      Do While GetCombSviluppoRid(aCol,Sorte) = True
         i = i + 1
         Call Scrivi(StringaNumeri(aCol))
         contatore = contatore + 1
         Call AvanzamentoElab(1,ii,i)
         Call Messaggio("Colonna " & i)
         If ScriptInterrotto Then Exit Do

E' una ridondanza di codice ma in questo modo mi permette di gestire AvanzamentoElab

 

[claudio8]

Aguzzato l'ingegno ... bravo
è proprio il caso di dire " ìì"
saluti