LISTING
PROGRAM
?-window(G_layar1,_,win_func(_),"Tampilan Menu",0,0,700,630).win_func(init):-button(_,_,win_baru(_),"start",275,300,250,30),button(_,_,win_message(_),"about",275,335,250,30),button(_,_,win_exit(_),"exit",275,375,250,30),menu(normal,_,_,win_baru(_),"start"),menu(normal,_,_,win_message(_),"about"),menu(normal,_,_,win_exit(_),"exit").win_baru(press):-window(G_layar2,_,win_func1(_),"window baru",0,0,700,630).win_message(press):-message("window","welcome Sutri",!).win_exit(press):-close_window(G_layar1).
LOGIKA PROGRAM
?-
Ini
adalah perintah awal dalam memulai membuat program dalam strawberry prolog atau
bisa di bilang kunci utama dalam membuat program di strawberry prolog.
window(G_layar1,_,win_func(_),“Tampilan Menu",0,0,700,630).
Fungsi diatas untuk membuat window dengan
nama Tampilan Menu yang berukuran 700 x 630.
win_func(init):-
button(_,_,win_baru(_),"start",275,300,250,30),
button(_,_,win_message(_),"about",275,335,250,30),
button(_,_,win_exit(_),"exit",275,375,250,30),
Fungsi diatas untuk membuat button start,
about, dan exit dengan kordinat (275,300) dan ukuran (250,30).
menu(normal,_,_,win_baru(_),"start"),
menu(normal,_,_,win_message(_),"about"),
menu(normal,_,_,win_exit(_),"exit").
Fungsi diatas
untuk membuat Menu yang ada pada pojok kiri atas window yang
berisikan
start, about dan exit seperti yang ada pada button.
win_baru(press):-
window(G_layar2,_,win_func1(_),"window baru",0,0,700,630).
Fungsi diatas untuk menampilkan window baru
jika kita menekan button “ start ”.
win_message(press):-
message("window","welcome Sutri",!).
Fungsi diatas untuk menampilkan pesan jika
kita menekan button “ about ”.
win_exit(press):-
close_window(G_layar1).
Fungsi
diatas digunakan untuk menutup window yang sedang dijalankan.
OUTPUT
EmoticonEmoticon