Text Progress Bar
Give this function a number from 0 to 100, and it will generate a cool progress bar made of text!
AI
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.
소스 코드
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
원본 댓글 (3)
Wayback Machine에서 복구됨