Membuat Loading Bar pada Strawberry Prolog

Untuk membuat loading bar seperti gambar diatas, ketiklah listing program berikut :

?-
G_bg is bitmap_image("minion1.bmp",_),
G_bc is bitmap_image("minion2.bmp",_),

%------------------------splash screen--------------------------%
window(G_load,_,fload(_),"Loading...",100,100,800,500),
draw_bitmap(0,0,G_bg,_,_).
fload(init):-
G_batas := 0,
G_X := 175,
G_waktu is set_timer(_,0.050,loading_bar).
loading_bar(end):-
text_out(170,374,print("Loading")),
pen(2,rgb(255,255,255)),
brush(rgb(0,0,0)),
rect(170,390,579,420),
pen(0,rgb(0,0,0)),
brush(rgb(255,255,255)),
rect(175,395,G_X,416),
brush(rgb(255,255,255)),
rect(579,390,628,421),
text_out(585,397,print(G_batas + "%")),
G_batas := G_batas + 1,
G_X := G_X + 4,
(G_batas >= 101 -> wait(1.0),
close_window(G_load).

Posted in: Strawberry Prolog