YaLAS, по моему в посте 10 уже есть подобный код с
прогреесом 5 - 10 - 15 ... 100
Прилагаю мой 100% рабочий код загрузки любых файлов с полосой загрузки.
Для проверки скиньте в папку C:\gr\ любые 5 *.jpg фото большого размера
и назовите их 1,2,3,4,5. Для наглядности: вначале прогресс бар будет показывать
медленно загрузку этих изображений, затем быстро пробежит до конца.
;зогрузко
Graphics 640,480,0,2
fArial=LoadFont("Arial",24,1,1)
SetFont fArial
Color 250,170,190: Text 310,250,"З А Г Р У З К А",True
Color 70,40,70: Rect 45,210,555,35,1
Const pr=25
For n=50 To 575 Step pr
Color 255,200,130: Rect n,215,20,25,1
Local a=n/pr
gr1=LoadImage("C:\gr\"+a+".jpg")
gr2=LoadImage("C:\gr\"+a+1+".jpg")
gr3=LoadImage("C:\gr\"+a+2+".jpg")
gr4=LoadImage("C:\gr\"+a+3+".jpg")
gr5=LoadImage("C:\gr\"+a+4+".jpg")
Delay 1
Next
Delay 300
Color 250,170,190: Text 310,275,"З А В Е Р Ш Е Н А",True
Text 310,300,"нажмите любую клавишу",True
WaitKey ()