Membuat Timer/Waktu menggunakan Strawberry Prolog

Assalamu’alaikum…

            Dalam Pembahasan kali ini, aku ingin memperlihatkan sedikit pengetahuan ihwal Bagaimana Caranya Membuat Timer menggunakan Strawberry Prolog ?. Disini aku Bakal memperlihatkan Listing Program, Dan Logika Programnya + Output-nya, sepakat deh pribadi 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, aku Bakal mengulas ihwal Caranya Membuat Timer pada Strawberry Prolog. Untuk menciptakan kegiatan tersebut, kita uraikan listing diatas, adapun perintah perintah yg ada pada listing, sebagai berikut ;

1.         G_N=5,

            Perintah diatas dipakai untuk awal statement memperlihatkan waktu mundur dari 5 hingga 4 seCaranya beraturan.

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

            Perintah diatas dipakai untuk memperlihatkan kotak obrolan message sebelum timer tersebut jalannya . (tepatnya setelah dikala kita RUN).

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

            Perintah diatas dipakai 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 dipakai untuk Membuat variable waktu pada “Membuat Timer” dengan jeda waktu dari 5 hingga tanggapan 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 dipakai untuk biar waktu berjalan mundur hingga berhenti pada detik ke 0, karna G_N nya = 0, namun bila G_N nya 1 maka Bakal berhenti pada detik ke 1. Lalu Bakal muncul pesan pada kodingan “Message” diatas . setelah itu maka kegiatan timer yg telah dibentuk Bakal 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 dipakai untuk memperlihatkan perulangan budi setiap 1 detik dan tidak Bakal 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 dikala di RUN maka Bakal menampilkan kotak dialog "Warning !!!"  sobat klik OK maka Bakal muncul Tampilan yg berjudul  “Membuat Timer” yg telah kita buat tadi ibarat :

            setelah tanggapan hingga 0 maka Bakal menampilkan “message” sebanyak 3 kali, teman klik OK terus saja, kemudian Bakal exit dari programnya dengan sendirinya .

             Mungkin itu saja klarifikasi Mengenai Caranya Membuat Timer menggunakan Strawberry Prolog apa yg telah aku 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