Disini
kita akan membahas tentang bahasa Pemrograman Strawberi Prolog dan untuk
mengawalinya kita akan memulai dengan membuat program bintang di prolog ini
langkah awal yang kita lakukan untuk memulai program ini adalah dengan cara mengetikan
kodingan di bawah ini
?-
Brush(system_color(window)),
window(_,_,win_func(),"bintang 1
",10,10,800,800).
Kodingan
diatas adalah awal untuk membuat program bintang, Brush(system_color(window)),
maksudnya adalah kita akan emebuat jendela output atau jendela program dengan
berbagai warna sedangkan window(_,_,win_func(),"bintang 1
",10,10,800,800). Ini adalah membuat judul dari jendela yang kita
buat dan membuat besar kecilnya resolusi dari jendela program yang kita buat.lalu
kita lanjut ke kodingan berikutnya.
win_func(paint):-
pen(5,rgb(250,50,30)),
perintah
diatas ini adalah cara kita untuk memberikan warna pada garis bintang yang akan
kita buat di jendela output nanti.untuk memnggunakan warna yang kita suka
tinggal ganti saja anggka angka yang ada di potongan kodingan atas ini.
line(400,10,330,200),
line(400,10,470,200),
line(330,200,125,200),
line(470,200,680,200),
line(125,200,285,335),
line(680,200,530,335),
line(285,335,215,530),
line(215,530,400,430),
line(400,430,585,530),
line(585,530,530,335).
Sedangkan
potongan kodingan diatas ini adalh potongan kodingan gimana kita membuat garis
–garis hingga membentuk bintang di mulai dari membuat garis paling atas hingga
paling bawah. Dan maksud dari angka angka yang berda di penggalan kodingan
tersebut adalah menentukan miring dan dan lurusnya garis tersebut maka disini
kita memerlukan ketelitian yang ekstra jika anggkanya tidak sesuai maka tidak
akan jadilah program bintang seperti dibawah ini. Dan janga lupa setiap di
akhir potongan kodingan diberi tanda koma (,) dan di ujung program diberi tanda
(.) titik sebagai tanda pengakhir program.
Listing tinggal di coba ja :
?-
Brush(system_color(window)),
window(_,_,win_func(),"bintang 1
",10,10,800,800).
win_func(paint):-
pen(5,rgb(250,50,30)),
line(400,10,330,200),
line(400,10,470,200),
line(330,200,125,200),
line(470,200,680,200),
line(125,200,285,335),
line(680,200,530,335),
line(285,335,215,530),
line(215,530,400,430),
line(400,430,585,530),
line(585,530,530,335).
