|
Re: Индикатор загрузки
[highlight=blitzbasic]
Graphics3D800,600,32,2
size_y# = 10
size_x# = 202
min# = 1
max# = 100
For i# = min To max
Color 255,0,0
Rect 20, 20, size_x, size_y, 0
Rect 22, 22, (i/max)*size_x-4, size_y-4, 1
Delay 30
Flip
Next[/highlight]
А вот модифицированный вариант.
Намного эффективнее.
|