PREDICATES
jendela_nanda
GOAL
jendela_nanda.
CLAUSES
jendela_nanda :-
makewindow(1,10,35,"SATU",0,0,10,20),
write("Jendela 1\n"),
write("Latar Gelap\n"),
write("Bingkai Hijau"),
makewindow(2,9,17,"DUA",0,10,10,20),
write("Jendela 2\n"),
write("Latar Gelap\n"),
write("Bingkai Biru"),
makewindow(3,14,68,"TIGA",0,20,10,20),
write("Jendela 3\n"),
write("Latar Gelap\n"),
write("Bingkai Merah"),
makewindow(4,12,119,"EMPAT",0,30,10,20),
write("Jendela 4\n"),
write("Latar Gelap\n"),
write("Bingkai Putih"),
makewindow(5,9,85,"LIMA",0,50,25,30),
write("Jendela 5\n"),
write("Latar Gelap\n"),
write("Bingkai Ungu"),
makewindow(6,3,3,"ENAM",7,55,10,20),
write("Jendela 6\n"),
write("Latar Gelap\n"),
write("Bingkai Biru Muda\n"),
write("Jendela Dalam Jendela"),
makewindow(7,4,14,"TUJUH",10,0,15,50),
write("Jendela 7\n"),
write("Latar Gelap\n"),
write("Bingkai Kuning"),
makewindow(8,2,15,"DELAPAN",14,2,10,20),
write("Jendela 8\n"),
write("Latar Gelap\n"),
write("Bingkai Hijau\n"),
write("Jendela dalam Jendela"),
makewindow(9,5,13,"SEMBILAN",11,23,13,25),
write("Jendela 9\n"),
write("Latar Gelap\n"),
write("Bingkai Ungu"),
readchar(_),
shiftwindow(1),
write("\n\nLagi di Window 1"),
readchar(_),
shiftwindow(2),
write("\n\nLagi di window 2"),
readchar(_),
shiftwindow(2),
removewindow,
shiftwindow(6),
write("\n\ndi window 6"),
clearwindow,
shiftwindow(9),
write("\n\nSekarang di window 9").NB : silahkan coment jika ada pertanyaan. :D
No comments:
Post a Comment