Membuat Timer/Waktu Menggunakan Strawberry Prolog
Assalamu’alaikum…
DalamPembahasan kali ini, aku ingin menaruh sedikit pengetahuan tentang Bagaimana Cara Membuat Timer MenggunakanStrawberry Prolog ?. Disini aku akan memberikan Listing Program, DanLogika Programnya + Output-nya, oke deh langsung saja ya disimak.. :
1. Listing Program
?-
G_N=5,
message("Warning!!","Awas Ada Bom !!",!),
window(_,_,win_func(_),"MembuatTimer",100,100,400,400).
win_func(paint):-
G_waktu isset_timer(_,1,time_func).
time_func(end):-
(G_N=:=0->
kill_timer(_,G_waktu),
message("","Duuaarrrrr!!!",s),
message("Message.","Tuh kan Dibilangin ada bom,",i),
message("Laugh.","hihihi.. :D",i),
close_window(_)
else
Angka is print(G_N),
font(23,90,"Ravie"),
text_out(120,115,Angka),
G_N<>=G_N-1).
2. Logika Program
Padapraktikum PKB ini, saya akan membahas tentang Cara Membuat Timer padaStrawberry Prolog. Untuk membuat acara tadi, kita uraikan listing diatas,adapun perintah perintah yg terdapat pada listing, sebagai berikut ;
1. G_N=lima,
Perintahdiatas digunakan buat awal statement memberikan saat mundur berdasarkan lima hingga 4secara beraturan.
2. message("Warning!!","Awas Ada Bom !!",!),
Perintahdiatas digunakan buat memberikan kotak dialog message sebelum timer tersebutjalannya . (tepatnya setelah waktu kita RUN).
3. Window(_,_,win_func(_),"Membuat Timer",100,100,400,400).
Perintahdiatas dipakai buat Membuat window menggunakan berukuran X1 = 100, Y1 = 100, X2 =400, Y2 = 400 . Menggunakan nama “Membuat Timer”.
4. Win_func(paint):-
G_waktu is set_timer(_,1,time_func).
Perintahdiatas digunakan buat Membuat variable saat dalam “Membuat Timer” dengan jedawaktu menurut 5 hingga terselesaikan menggunakan jarak ketika 1 dtk, (misalnya halnya detikjam sungguhan).
5. Time_func(end):-
(G_N=:=0->
kill_timer(_,G_waktu),
message("","Duuaarrrrr !!!",s),
message("Message .","Tuh kan Dibilanginada bom,",i),
message("Laugh.","hihihi.. :D",i),
close_window(_)
Perintahdiatas dipakai buat agar waktu berjalan mundur sampai berhenti dalam dtk ke0, karna G_N nya = 0, namun apabila G_N nya 1 maka akan berhenti dalam dtk ke 1.lalu akan muncul pesan dalam kodingan “Message” diatas . Sesudah itu maka programtimer yang telah dibuat akan exit menggunakan sendirinya.
6. Else
Angka is print(G_N),
font(23,90,"Ravie"),
text_out(120,115,Angka),
G_N<>=G_N-1).
Perintahdiatas digunakan untuk memberikan perulangan logika setiap 1 detik dan tidakakan berjalan terus mundur hingga min(-). padatext_out(185,150,Angka),digunakan untuk meletakkan timer pada koordinat X = 185dan Y = 150 (berada di tengah window). Lalu pada Angka is print(G_N),font(23,90,"Ravie"), mencetak angka 5 hingga 1 ber-font Ravie denganukuran X = 23, dan Y = 90.
3. Output Program
Padasaat pada RUN maka akan menampilkan kotak dialog "Warning !!!" sobat klik OK maka akan muncul Tampilan yang berjudul“MembuatTimer” yg telah kita buat tadi misalnya :
Setelahselesai hingga 0 maka akan menampilkan “message” sebesar tiga kali, sobat klik OKterus saja, lalu akan exit menurut programnya dengan sendirinya .
Mungkinitu saja penjelasan Mengenai CaraMembuat Timer Menggunakan Strawberry Prolog apa yg telah saya pelajari diLab Tehnik Informatika Gunadarma Mata Kuliah Pengantar Kecerdasan Buatan,semoga berguna.. Semoga berguna.. Terima kasih.. ^^