. Membuat Timer/Waktu Menggunakan Strawberry Prolog - Berbagi Pengetahuan

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 

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

6 Responses to "Membuat Timer/Waktu Menggunakan Strawberry Prolog"

  1. Lumayan banyak juga ya mas kode nya. Bisa bikin pusing juga hehehe :D
    Thanks mas faris sudah mau berbagi informasi yang sangat menarik :)

    ReplyDelete
    Replies
    1. iya mba, sama sama, saya juga lagi masih belajar.. hehehe. ^^

      terima kasih mba ririn atas kunjungannya..

      Delete
  2. .I really like the content in this website, are all new things and new lesson for us this very increase knowledge becomes more widely,
    obat pereda asma bronkial tradisional

    ReplyDelete
  3. good job gan,artikel ini sangat menarik sekali untuk disimak,keren deh ,,tentunya kami mempunyai wawasan baru yang kami dapatkan setelah membacanya,thanx yah :-)

    ReplyDelete
    Replies
    1. sama sama gan, senang membantu... jika bermanfaat jangan lupa disharing yaa ^^

      terima kasih atas kunjungannya ^^

      Delete