Membuat splashscreen di strawberry prolog

Listing Program

?-

G_bg is bitmap_image("mano.bmp",_),

window(G_loading,_,window_awal(_),"Welcome to Balapan", 250, 0,800,650).

window_awal(paint):-    

draw_bitmap(0,0,G_bg,_,_).

window_awal(init):-     

G_batas := 0,     

G_X := 205, 

G_waktu is set_timer(_,0.01,loading_bar). 

loading_bar(end):-     

pen(5,rgb(0,0,0)),     

brush(rgb(255,255,255)),     

rect(200,550,609,600),      

pen(0,rgb(0,0,0)),     

brush(rgb(255,0,0)),     

rect(205,555,G_X,597),     

G_batas := G_batas + 1, 

text_out(350,400,print(" Loading " + G_batas + " %")),    

G_X := G_X + 4,     

(G_batas >= 101 ->      

close_window(G_loading),     

window(G_menu, _, daftar_menu(_),"Menu to Balapan",  250, 0, 800, 720)).

Logika Program

?- G_bg is bitmap_image("mano.bmp",_), window(G_loading,_,window_awal(_),"Welcome to Balapan", 250, 0,800,650). window_awal(paint):-     draw_bitmap(0,0,G_bg,_,_).	Codingan yang berfungsi memasukan background yang bernama “mano.bmp”.  window untuk ukuran table yang akan dibuat.  draw_bitmap untuk ukuran background.
window_awal(init):-      G_batas := 0,      G_X := 205,  G_waktu is set_timer(_,0.01,loading_bar).  loading_bar(end):-	Codingan  G_Batas dan G_X digunakan untuk menentukan panjang gambar loading.  G_waktu untuk menentukan persentase loading seberapa lama. dan loading_bar(end) untuk mengakhiri loading.
pen(5,rgb(0,0,0)),      brush(rgb(255,255,255)),      rect(200,550,609,600),       pen(0,rgb(0,0,0)),      brush(rgb(255,0,0)),      rect(205,555,G_X,597),	Codingan brush tersebut digunakan untuk mewarnai garis dan gambar loading, kemudian pen digunakan untuk menebalkan garis.
G_batas := G_batas + 1,  text_out(350,400,print(" Loading " + G_batas + " %")),     G_X := G_X + 4,      (G_batas >= 100 ->       close_window(G_loading),      window(G_menu, _, daftar_menu(_),"Menu to Balapan",  250, 0, 800, 720)).	Codingan G_batas diguakan untuk menentukan panjang loading. text_out digunakan untuk menampilkan persentase. G_X digunakan untuk menentukan panjang loading. (G_batas > digunakan untuk menentukan batas persentase. close_window digunakan untuk menutup window. window digunakan untuk membuka window baru.

OUTPUT