Novità

Domanda tecnica di compilazione

Edoardo_95

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

allego script in cui ho difficoltà:

Codice:
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,
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
 
Ultima modifica:
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

Codice:
   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 :D
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45
Indietro
Alto