Text Progress Bar
Give this function a number from 0 to 100, and it will generate a cool progress bar made of text!
AI
Resumen de IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Código fuente
Function MakePercentBar(ByVal Value As Long) As String Dim i As Long MakePercentBar = "[" For i = 1 To ((Value - 1) \ 10) MakePercentBar = MakePercentBar + "-" Next i MakePercentBar = MakePercentBar + "|" For i = 10 To ((Value - 1) \ 10) + 2 Step -1 MakePercentBar = MakePercentBar + "-" Next i MakePercentBar = MakePercentBar + "]" End Function
Comentarios originales (3)
Recuperado de Wayback Machine