Membuat Rumah menggunakan Strawberry Prolog

Kali ini saya akan menjelaskan bagaimana cara membuat rumah menggunakan strawberry prolog.

1. Pertama buka Strawberry Prolog dengan mengklik 2 kali pada ikon nya.
2. Klik New  atau File > New ( Ctrl + N ).
3. Pilih Strawberry Project kemudian Ok
4. Ketikkan Listing program nya

?-

  window(_,_,win_func(_),"SweetHome",100,100,500,500).

win_func(paint):-

  pen(7,rgb(0,0,0)),

% membuat bagian rumah

line(100,400,200,400),

line(200,400,400,400),

line(100,250,100,400),

line(400,250,400,400),

line(200,250,200,400),

pen(7,rgb(234,132,0)),

line(100,250,400,250),

line(100,250,150,175),

line(200,250,150,175),

line(150,175,350,175),

line(350,175,400,250),

% membuat pintu

pen(5,rgb(237,28,36)),

line(125,395,125,325),

  line(175,395,175,325),

line(125,325,175,325),

pen(3,rgb(0,0,240)),

line(160,350,165,350),

line(165,350,165,360),

pen(5,rgb(225,0,147)),

% membuat jendela

line(225,350,225,300),

line(275,350,275,300),

line(225,300,275,300),

line(225,350,275,350),

line(225,325,275,325),

line(250,300,250,350),

line(300,350,300,300),

line(350,350,350,300),

line(300,300,350,300),

line(300,350,350,350),

line(300,325,350,325),

line(325,300,325,350),

%membuat atap

pen(5,rgb(32,210,0)),

line(172,200,363,200),

line(187,225,378,225),

line(200,179,250,246),

line(250,179,300,246),

line(300,179,350,246),

%membuat bintang

pen(3,rgb(255,243,10)),

line(100,50,110,80),

line(100,50,90,80),

line(110,80,85,60),

line(85,60,115,60),

line(115,60,90,80),

line(200,50,210,80),

line(200,50,190,80),

line(210,80,185,60),

line(185,60,215,60),

line(215,60,190,80),

line(300,50,310,80),

line(300,50,290,80),

line(310,80,285,60),

line(285,60,315,60),

line(315,60,290,80).

5. Hasilnya

Logika 

 Penjelasan Listing program :

1. ?-

Symbol ini berfungsi sebagai interpreteur untuk merespon kodingan selanjutnya. Tanpa symbol ini kemungkinan program akan eror ketika di compile.

2. window(_,_,win_func(_),"SweetHome",100,100,500,500).

Untuk membuat windows dengan nama jendela SweetHome dan kordinat awal 100,100,500,500 (x1,y1,x2,y2).

3. win_func(paint):-

Berfungsi untuk mengisi window yang sudah dibuat sehingga terlihat bentuk dan garis .

4. pen(7,rgb(0,0,0)),

Statement diatas berfungsi untuk membuat ketebalan garis dan warna garis dimana pada statement ini garis dengan ketebalan 7 dan warna R,G,B (0,0,0) yaitu hitam .

5. % membuat bagian rumah

Statement diatas berfungsi sebagai note atau keterangan yang tidak di eksekusi di strawberry prolog . Hal ini memudahkan kita untuk mengingat bentuk .

6. line(100,400,200,400),

Listing ini berfungsi untuk pembuatan garis dengan titik kordinat (x1,y2,x2,y2) dimana pada listing ini kordinatnya adalah (100,400,200,400).