Differenze tra le versioni di "Pseudo-ProgressBar in un'applicazione 'a riga di comando'"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
− | Se si scrivendo un'applicazione ''a riga di comando'' (quindi senza supporto grafico), evidentemente <SPAN Style="text-decoration:underline">non</span> sarà possibile utilizzare | + | Se si scrivendo un'applicazione ''a riga di comando'' (quindi senza supporto grafico), evidentemente <SPAN Style="text-decoration:underline">non</span> sarà possibile utilizzare l'oggetto grafico ''ProgressBar''. Per ottenere, allora, in console/Terminale un ''effetto'' simile ad una ''ProgressBar'', può essere utilizzata una soluzione, che adopera ovviamente caratteri, simile alla seguente: |
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Versione delle 09:03, 8 mar 2016
Se si scrivendo un'applicazione a riga di comando (quindi senza supporto grafico), evidentemente non sarà possibile utilizzare l'oggetto grafico ProgressBar. Per ottenere, allora, in console/Terminale un effetto simile ad una ProgressBar, 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