Différentes progress_bars

dim i,j,a$:a$=chr$(10)
width 0,275:height 0,200:caption 0,"Différentes PROGRESS_BARs"
alpha 1:left 1,30:top 1,5
caption 1,"Normal"+a$+a$+a$+"Sans bordure"+a$+a$+a$+"Avec petites barres"+a$+a$+a$+"Avec indiquateur de temps"
progress_bar 2:left 2,5:width 2,200:top 2,20
picture 3:width 3,1:left 3,5:top 3,60:height 3,21
j=5
for i=4 to 28
  picture i:color i,255,0,0:width i,4:height i,21:top i,100:left i,j:j=j+8
next i
picture 29:width 29,1:left 29,5:height 29,21:top 29,140
alpha 30:top 30,143:left 30,102
for i=1 to 100
  width 3,i*2
  width 4,i*2
  width 29,i*2
  if i=50 then color 30,255,255,0
  caption 30,str$(i)+"%"
  color 29,255,255,0
  color 4,255,0,0
  color 3,0,255,0
  position 2,i
  wait 50
next i

dim i,j
picture 22
width 22,1
left 22,5
top 22,5
height 22,21
for i=1 to 21
  picture i:width i,2:left i,j:top i,5:color i,233,232,218:height i,21:j=j+10
next i
for i=1 to 200
  width 22,i
  color 22,255,0,0
  wait 50
next i