un afficheur 7 segments 

une Sub en basic panoramic

 

 error_french
 dim digit
 digit=100 : digit7_segments(digit,50,130)

' =======
end :' ==
' =======
sub  digit7_segments(digit,tp,lt)
container digit: top digit,tp:left digit,lt:width digit,150:height digit,250
caption digit,"afficheur 7_segments         "
progress_bar digit+1:top digit+1,20:left digit+1,40:parent digit+1,digit
min digit+1,0:max digit+1,1
 position digit+1,1 :width digit+1,60
progress_bar digit+2:top digit+2,35:left digit+2,105 :parent digit+2,digit
position digit+2,1  :width digit+2,75:vertical digit+2
min digit+2,0:max digit+2,1
progress_bar digit+3:top digit+3,130:left digit+3,105 :parent digit+3,digit
position digit+3,1  :width digit+3,75:vertical digit+3
min digit+3,0:max digit+3,1
progress_bar digit+4:top digit+4,200:left digit+4,40:parent digit+4,digit
position digit+4,1:width digit+4,60
min digit+4,0:max digit+4,1
progress_bar digit+5:top digit+5,130:left digit+5,15 :parent digit+5,digit
position digit+5,1 :width digit+5,75:vertical digit+5
min digit+5,0:max digit+5,1
progress_bar digit+6:top digit+6,35:left digit+6,15 :parent digit+6,digit
position digit+6,1  :width digit+6,75:vertical digit+6
min digit+6,0:max digit+6,1
progress_bar digit+7:top digit+7,110:left digit+7,40:parent digit+7,digit
position digit+7,1  :width digit+7,60
min digit+7,0:max digit+7,1
alpha digit+8:top digit+8,220:left digit+8,115 :parent digit+8,digit: caption digit+8,"P"
color digit+8,220,220,220 :width digit+8,21:height digit+8,21
end_sub