Contoh Program Strawberry Prolog

 

Disini ane akan menjelaskan kodingan dasar pada strawberry prolog lengkap dengan contoh programnya. langsung aja nih penjelasannya :

(tanda "%" digunakan untuk mengawali keterangan, sesuai dengan aturan dari strawberry prolog. )  

• 1. Membuat bagian awal program : deklarasi variable, import gambar, pembuatan window.  Bagian awal program diawali dengan "?-" lalu bisa diisi dengan deklarasi variable, import gambar dan pembuatan window. Setiap deklarasi variable harus diawali huruf G_ di depannya. Contoh :

------------------------------------------------------------------------------------------------------------------------------------

?-
G_Variable1:=10;
% membuat variable G_variable1 dengan nilai awal 10
G_Gambar1 is bitmap_image("Gambar1.bmp",_), 
% membuat variable G_Gambar1 yang isinya adalah gambar dengan alamat "Gambar1.bmp" untuk memudahkan taruh gambar dalam satu folder dengan folder kodingan prolognya sehingga kita hanya perlu menuliskan nama filenya saja
window(_,_,win_func(_),"Project1",100,100,800,420).
% membuat window dengan ukuran 800x420

------------------------------------------------------------------------------------------------------------------------------------

• 2. Membuat Menu. Diawali dengan statement "win_func(init):-" . Ada dua jenis menu yaitu menu normal dan menu pop up. Menu normal adalah menu biasa yang ketika di klik akan langsung melakukan aksi tertentu. Menu Pop-up ketika di klik akan mengeluarkan sub menu. Contoh :

------------------------------------------------------------------------------------------------------------------------------------

win_func(init):-

menu( pop_up, _, _, menu_pilihan(_),"&Pilihan"),

% membuat menu pop up dengan nama "Pilihan" dan nama variable "menu_pilihan", menu popup dapat mempunyai sub menu.

menu( normal, _, _, menu_bantuan(_), "&Bantuan"),

% membuat menu biasa dengan nama "Bantuan" dengan nama variable "menu_bantuan"

------------------------------------------------------------------------------------------------------------------------------------

• 3. Membuat Sub Menu Dan Aksi Dari Sub Menu.  Terusan dari kodingan diatas, untuk membuat sub menu harus diawali dengan nama variable dari menu tersebut. Contoh :

------------------------------------------------------------------------------------------------------------------------------------

menu_pilihan(init):-

menu(normal,_,_,mulai_game(_),"&Mulai"),

menu(normal,_,_,menu_exit(_),"&Keluar").

%membuat isi sub menu dari popup menu_pilihan yang isinya adalah mulai_game dan menu_exit

mulai_game(press):-

%membuat aksi yang dilakukan ketika sub menu mulai_game di klik, aksi-aksi bisa dilakukan antara lain adalah menaruh gambar dan  mendeklarasikan variable

 draw_bitmap( 300, 10, G_cleantime, _, _),

%menaruh gambar G_cleantime pada posisi 300,10 pada window

G_aksi_red:=0,

G_aksi_blue:=0,

G_life_red:=10,

G_life_blue:=10,

G_time:=31,

%mendeklarasikan variable

draw_bitmap( 0, 140, G_Tentaranunduk1, _, _),

draw_bitmap( 610, 140, G_Tentaranunduk2, _, _),

draw_bitmap( 170, 220, G_Tembok, _, _),

draw_bitmap( 550, 220, G_Tembok, _, _).

%menaruh gambar –gambar diatas pada posisinya masing-masing. Gambar yang ditaruh harus sudah dideklarasikan sebelumnya

-----------------------------------------------------------------------------------------------------------------------------------

• 4. Membuat Menu Exit Dengan Tampilan Peringatan Kepada user. Terusan dari kodingan diatas, berikut adalah aksi ketika menu_exit ketika di klik yang akan keluar dari windows dengan sebelumnya memunculkan peringatan kepada user apakah ingin keluar atau tidak.

-----------------------------------------------------------------------------------------------------------------------------------

menu_exit(press):-

close_window(_).

win_func(close) :-

  not( yes_no("","Benar Anda Ingin Keluar Dari Permainan?", ?)).

%yang ini tentu gampang dimengerti, tinggal di kopas aja kodingan diatas

-----------------------------------------------------------------------------------------------------------------------------------

• 5.  Membuat Aksi Yang Berjalan Ketika Tombol Di Keyboard Ditekan. Pertama kita harus tahu kode tombol keyboard, kode 38 untuk tombol atas, kode 40 untuk tombol bawah, kode 32 untuk tombol spasi. Untuk kode-kode lainnya silahkan cari sendiri. Contoh :

-----------------------------------------------------------------------------------------------------------------------------------

win_func(key_down(38,_)):-

G_aksi_blue:=1,

draw_bitmap( 0, 150, G_Tentaranembak1, _, _).

%membuat aksi yang akan dijalankan ketika tombol tanda panah atas pada keyboard di tekan, aksi yang dijalankan diatas adalah deklarasi variable dan penaruhan gambar.

-----------------------------------------------------------------------------------------------------------------------------------

• 6.  Membuat Statement Percabangan If, Pembuatan Fungsi,  Pemanggilan Fungsi. Untuk memahami yang ini butuh nalar dan perenungan sebentar. Statement if di tandai dengan “->” lalu dapat diikuti dengan percabangan dengan menambahkan “else”. Untuk membuat fungsi tinggal ketik “namafungsi(_):-” . Dan untuk memanggilnya tinggal ketik “namafungsi(_)”. Contoh :

-----------------------------------------------------------------------------------------------------------------------------------

musuhberdiri(_):-

G_aksi_red:=1,

draw_bitmap( 610, 150, G_Tentaranembak2, _, _).

%membuat  fungsi bernama  musuhberdiri lengkap dengan isinya

musuhcek(_):-

draw_bitmap( 610, 150, G_Tentaranembak2, _, _),

wait(0.5),

draw_bitmap(550,197,G_Dorred,_,_),

G_aksi_red:=2,

%membuat fungsi musuhcek lengkap dengan isinya

(G_time=18->

G_level=2->

musuhcek(_) else musuhberdiri(_)),

%Membuat Statement Percabangan. Jika benar variable G_Time bernilai 18 dan G_Level bernilai 2 maka akan dipanggil fungsi musuhcek, jika salah maka akan dipanggil fungsi musuhberdiri.

---------------------------------------------------------------------------------------------------------------------------------

Contoh Program Lengkap Strawberry Prolog 

Berikut adalah project kuliah ane, tentang AI strawberry Prolog yang bernama battlefire. silahkan di download, project ini bebas untuk diedit dan digunakan untuk belajar.

>> Download Klik Disini  <<

Algoritma Yang Dipakai Dalam Game Ini
algoritma yang dipakai game battle fire ini namanya forward chaining.
apaan tuh forward chaining?? forward chaining adalah kumpulan dari statement IF yang berantai, outputnya tergantung dari output sebelumnya . kepintaran algoritma ini adalah, AI mengecek parameter-parameter tertentu sebelum melakukan aksinya :

1. jika waktu=10 maka AI akan mengecek level
2. jika level = sulit maka AI akan mengecek kondisi pemain
3. jika kondisi pemain = berdiri maka AI akan menembak
4. jika AI menembak maka pemain akan berkurang lifenya

disitu forward chainingnya, jadi output akhirnya tergantung dari output2 sebelumnya. 

semogaa bermanfaat