Pseudo-ProgressBar in un'applicazione 'a riga di comando'

Da Gambas-it.org - Wikipedia.
Versione del 8 mar 2016 alle 08:57 di Vuott (Discussione | contributi) (Creata pagina con "Se si sta codificando in un'applicazione ''a riga di comand'' (quindi senza supporto grafico), per ottenere in console/Terminale un ''effetto'' simile ad una ''ProgressBarr'',...")

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Se si sta codificando in un'applicazione a riga di comand (quindi senza supporto grafico), per ottenere in console/Terminale un effetto simile ad una ProgressBarr, può essere utilizzata una soluzione, che adopera ovviamente caratteri, simile alla seguente:

Public Sub Main()
 
 Dim b As Byte
 
   Do
     Write #File.Out, CStr(b) & "\x20"
     b += 5
   Loop Until b = 105
 
   Print
   
   Write #File.Out, "="
   b = 0
  
   Do
     Sleep 0.3
     Write #File.Out, String(Len(CStr(b)) + 1, "=")
     b += 5
   Loop Until b = 100
  
End