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=five,

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

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

Win_func(paint):-

G_waktu is set_timer(_,1,time_func).

Time_func(quit):-

(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,ninety,"Ravie"),

text_out(120,one hundred fifteen,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 list diatas, adapun perintah perintah yang ada pada listing, sebagai berikut ;

1.         G_N=five,

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

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

Perintah diatas digunakan untuk memberikan kotak conversation 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 = one hundred, Y1 = a hundred, X2 = four hundred, 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 five hingga selesai dengan jeda waktu 1 detik, (seperti halnya detik jam sungguhan).

5.         Time_func(quit):-

            (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 application timer yang telah dibuat akan go out dengan sendirinya.

6.         else

            Angka is print(G_N),

font(23,ninety,"Ravie"),

text_out(120,one hundred fifteen,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,ninety,"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

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

0 Response to "Membuat Timer/Waktu Menggunakan Strawberry Prolog"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel