Статус бар

  1. 10 SETCOLOR 0,0,0
  2. 15 W%=SCREENWIDTH(0): H%= SCREENHEIGHT(0)
  3. 20 FILLRECT 0,0,W%,H%
  4. 24 SETCOLOR 255,0,0
  5. 28 DRAWSTRING "Загрузка",(W%-STRINGWIDTH("Загрузка"))/2- mod(W%-STRINGWIDTH("Загрузка"),2),H%/2
  6. 30 FOR I%=0 TO 100
  7. 31 I=I%*W%/100
  8. 40 SETCOLOR 200,0,0
  9. 50 FILLRECT 0,H%-7,I,5
  10. 60 SETCOLOR 0,0,0
  11. 70 FILLRECT W%/2-20,H%-27,45,20
  12. 79 SETCOLOR 150,0,0
  13. 80 DRAWSTRING STR$(I%)+" %",(W%-STRINGWIDTH(STR$(I%)+" %"))/2,H%-27
  14. 90 SLEEP ABS(MOD(RND(0),300))
  15. 100 NEXT I%
  16. 110 end
Данный статус бар является универсальным. Можно запросто изменить цвет (здесь он красный), слова(здесь это: 'Загрузка'), а так же положение на экране. В данном примере используется рандомная пауза. В общем, вместо паузы можно написать загрузку гелей, чтение, запись файлов, т.е. то, что занимает время. Данный алгоритм (начальная версия) был написан Debann'ом, я лишь подправил, улучшил. Надеюсь вам он пригодится. ;-)

  • +12
  • views 1428
  • XakepPRO XakepPRO
  • comments 5

Мы в соцсетях

vk tw tg yt

Пожертвования

Аноним2850 р.
Freddy1700 р.
riseremi1611 р.
NaruTrey800 р.
vlavolk637 р.
  © aNNiMON (Melnik Software)