HUGサンプル/PROGRESSBAR - BaCon - A free BAsic CONverter for Unix Wiki - BaCon - A free BAsic CON...

HUGサンプル /

PROGRESSBAR

処理に時間を要する場合にグラフ表示によって進捗状態を表示します。これがプログレスバーです。

表示の変化と共に数値がターミナル・端末に表示されています。

'progressbar.bac

 INCLUDE "hug.bac"
 DECLARE pb, x, offset
 offset = 1


FUNCTION set_value
 INCR x, offset
 IF x >= 100 OR x <= 0 THEN offset = -1*offset
 SET(pb, x)
 PRINT GET(pb)
 RETURN TRUE
END FUNCTION
 
INIT
 win = WINDOW("ぷろぐれすば〜", 250, 30)
 pb = PROGRESSBAR("のびたり〜ちぢんだり〜", 250, 30)
 ATTACH(win, pb, 0, 0)
 TIMEOUT(100, set_value)
DISPLAY