Laporan Akhir Lab TI Pengantar Kecerdasan Buatan (PKB) Pertemuan 4
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
Belum ada Komentar untuk "Laporan Akhir Lab TI Pengantar Kecerdasan Buatan (PKB) Pertemuan 4"
Posting Komentar