الرئيسية › 3_2004-2005 › Text Progress Bar
Advertisement
3_2004-2005 String Manipulation #134258

Text Progress Bar

HyperHacker
★★★★★
4.8 · التحميلات: 2,341

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

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.

كود المصدر
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
التعليقات الأصلية (3)
مسترجع من Wayback Machine