Membuat Timer/Waktu Menggunakan Strawberry Prolog

Assalamu’alaikum…

            Dalam Pembahasan kali ini, saya ingin memberikan sedikit pengetahuan tentang Bagaimana Cara Membuat Timer Menggunakan Strawberry Prolog ?. Disini saya akan memberikan Listing Program, Dan Logika Programnya + Output-nya, oke deh langsung saja ya disimak.. :

1.      Listing Program

?-

G_N=5,

message("Warning !!","Awas Ada Bom !!",!),

window(_,_,win_func(_),"Membuat Timer",100,100,400,400).

win_func(paint):-

G_waktu is set_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

            Pada praktikum PKB ini, saya akan membahas tentang Cara Membuat Timer pada Strawberry Prolog. Untuk membuat program tersebut, kita uraikan listing diatas, adapun perintah perintah yang ada pada listing, sebagai berikut ;

1.         G_N=5,

            Perintah diatas digunakan untuk awal statement memberikan waktu mundur dari 5 sampai 4 secara beraturan.

2.         message("Warning !!","Awas Ada Bom !!",!),

            Perintah diatas digunakan untuk memberikan kotak dialog message sebelum timer tersebut jalannya . (tepatnya setelah saat kita RUN).

3.         window(_,_,win_func(_)," Membuat Timer",100,100,400,400).

            Perintah diatas digunakan untuk Membuat window dengan ukuran X1 = 100, Y1 = 100, X2 = 400, Y2 = 400 . dengan nama “Membuat Timer”.

4.                     win_func(paint):-

            G_waktu is set_timer(_,1,time_func).

            Perintah diatas digunakan untuk Membuat variable waktu pada “Membuat Timer” dengan jeda waktu dari 5 hingga selesai dengan jeda waktu 1 detik, (seperti halnya detik jam sungguhan).

5.         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(_)

            Perintah diatas digunakan untuk agar waktu berjalan mundur hingga berhenti pada detik ke 0, karna G_N nya = 0, namun jika G_N nya 1 maka akan berhenti pada detik ke 1. Lalu akan muncul pesan pada kodingan “Message” diatas . setelah itu maka program timer yang telah dibuat akan exit dengan sendirinya.

6.         else

            Angka is print(G_N),

font(23,90,"Ravie"),

text_out(120,115,Angka),

G_N<>=G_N-1).

            Perintah diatas digunakan untuk memberikan perulangan logika setiap 1 detik dan tidak akan berjalan terus mundur hingga min(-). pada text_out(185,150,Angka),digunakan untuk meletakkan timer pada koordinat X = 185 dan 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 dengan ukuran X = 23, dan Y = 90.

3.      Output Program

            Pada saat di RUN maka akan menampilkan kotak dialog "Warning !!!"  sobat klik OK maka akan muncul Tampilan yang berjudul  “Membuat Timer” yang telah kita buat tadi seperti :

            Setelah selesai hingga 0 maka akan menampilkan “message” sebanyak 3 kali, sobat klik OK terus saja, lalu akan exit dari programnya dengan sendirinya .

             Mungkin itu saja penjelasan Mengenai Cara Membuat Timer Menggunakan Strawberry Prolog apa yang telah saya pelajari di Lab Tehnik Informatika Gunadarma Mata Kuliah Pengantar Kecerdasan Buatan, semoga bermanfaat.. semoga bermanfaat.. terima kasih.. ^^

Wassalamu’alaikum..



Download Strawberry Prolog : Disini atau Disini 

Tweet

Jika Menyukai Artikel di blog ini, Silahkan masukkan email sobat. Akan dapat Update artikel dari blog ini, "GRATISS!!"