README.md

Description

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

More Info

A number from 0 to 100. (Using a bigger value will cause the bar to extend.)

A string containing a progress bar made of text.

Submitted On
By	HyperHacker
Level	Beginner
User Rating	4.3 (34 globes from 8 users)
Compatibility	VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0, VB Script, ASP (Active Server Pages) , VBA MS Access, VBA MS Excel
Category	String Manipulation
World	Visual Basic
Archive File

Source Code

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