Membuat Splash Screen pada Strawberry Prolog

Pada kesempatan ini saya akan menjelaskan cara membuat splash screen dengan menggunakan strawberry prolog.

Splash screen adalah tampilan yang muncul pada sebuah program saat program sedang loading, biasanya splash screen muncul pada saat loading pertama kali program dibuka.

untuk membuat splash screen pertama bukalah program strawberry prolog, kemudian buka lembar kerja baru dan pilih strawberry project.

setelah itu ketikkan listing program berikut :

?-

window(G_load,_,fload(_),"loading...",150,25,1000,700),

G_bgload is bitmap_image("D:\\Mobil.bmp",_),

draw_bitmap(0,0,G_bgload,_,_).

fload(paint):-

font(25,50,"times new roman"),

color_text(_,rgb(170,170,170)).

fload(init):-

G_batas:=0,

G_waktu is set_timer(_,0.025, ftimer).

ftimer(end):-

text_out(100,150,print("Loading...")),

text_out(100,190,print(G_batas +"%")),

G_batas := G_batas+1,

G_batas == 101-> wait(1.0),

close_window(G_load).

Posted in: Strawberry Prolog