Domů › 6_2008-2009 › Text Progress Bar
Advertisement
6_2008-2009 String Manipulation #212979

Text Progress Bar

HyperHacker
★★★★★
4.8 · Stažení: 2,341

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

AI

Shrnutí AI: 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.

Zdrojový kód
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
Původní komentáře (3)
Obnoveno z Wayback Machine