Accueil › 7_2009-2012 › Text Progress Bar
Advertisement
7_2009-2012 String Manipulation #235497

Text Progress Bar

HyperHacker
★★★★★
4.8 · Téléchargements: 2,341

Give this function a number from 0 to 100, and it will generate a cool progress bar made of text!

AI

Résumé par 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.

Code source
original-source 
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
Commentaires originaux (3)
Récupéré via Wayback Machine