MENAMBAH, MENGUBAH, MENDUPLIKAT DATA DENGAN CLIPS

MENAMBAH, MENGUBAH, MENDUPLIKAT DATA DENGAN CLIPS

1.       Soure Code Keseluruhan

CLIPS (Quicksilver Beta 3/26/08)

CLIPS> (deftemplate MAHASISWA

(slot nama) (slot npm) (slot fakultas) (slot jurusan))

CLIPS> (assert(MAHASISWA(nama "Rangkas Andreansyah")(npm "1617051056")(fakultas "MIPA") (jurusan "Ilmu Komputer")))

<Fact-1>

CLIPS> (assert(MAHASISWA(nama "Habibi")(npm "1617051089")(fakultas "MIPA") (jurusan "Ilmu Komputer")))

<Fact-2>

CLIPS> (assert(MAHASISWA(nama "Andres Hidayat")(npm "1617051081")(fakultas "MIPA") (jurusan "Ilmu Komputer")))

<Fact-3>

CLIPS> (assert(MAHASISWA(nama "Sigit Tunggul Waskito")(npm "1617051014")(fakultas "MIPA") (jurusan "Ilmu Komputer")))

<Fact-4>

CLIPS> (assert(MAHASISWA(nama "Roni Mustofa")(npm "1617051008")(fakultas "MIPA") (jurusan "Ilmu Komputer")))

<Fact-5>

CLIPS> (facts)

f-0     (initial-fact)

f-1     (MAHASISWA (nama "Rangkas Andreansyah") (npm "1617051056") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-2     (MAHASISWA (nama "Habibi") (npm "1617051089") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-3     (MAHASISWA (nama "Andres Hidayat") (npm "1617051081") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-4     (MAHASISWA (nama "Sigit Tunggul Waskito") (npm "1617051014") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-5     (MAHASISWA (nama "Roni Mustofa") (npm "1617051008") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

For a total of 6 facts.

 Baca Juga : Algoritma , Pseudecode, Flowchart bangun ruang dan bangun datar

CLIPS> (modify 2(fakultas "FKIP") (jurusan "Pendidikan Biologi"))

<Fact-6>

CLIPS> (facts)

f-0     (initial-fact)

f-1     (MAHASISWA (nama "Rangkas Andreansyah") (npm "1617051056") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-3     (MAHASISWA (nama "Andres Hidayat") (npm "1617051081") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-4     (MAHASISWA (nama "Sigit Tunggul Waskito") (npm "1617051014") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-5     (MAHASISWA (nama "Roni Mustofa") (npm "1617051008") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-6     (MAHASISWA (nama "Habibi") (npm "1617051089") (fakultas "FKIP") (jurusan "Pendidikan Biologi"))

For a total of 6 facts.

CLIPS> (duplicate 3 (nama "Bisri Mustofa") (npm "1617051092"))

<Fact-7>

CLIPS> (facts)

f-0     (initial-fact)

f-1     (MAHASISWA (nama "Rangkas Andreansyah") (npm "1617051056") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-3     (MAHASISWA (nama "Andres Hidayat") (npm "1617051081") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-4     (MAHASISWA (nama "Sigit Tunggul Waskito") (npm "1617051014") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-5     (MAHASISWA (nama "Roni Mustofa") (npm "1617051008") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-6     (MAHASISWA (nama "Habibi") (npm "1617051089") (fakultas "FKIP") (jurusan "Pendidikan Biologi"))

f-7     (MAHASISWA (nama "Bisri Mustofa") (npm "1617051092") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

For a total of 7 facts.

CLIPS> (retract 1)

CLIPS> (facts)

f-0     (initial-fact)

f-3     (MAHASISWA (nama "Andres Hidayat") (npm "1617051081") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-4     (MAHASISWA (nama "Sigit Tunggul Waskito") (npm "1617051014") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-5     (MAHASISWA (nama "Roni Mustofa") (npm "1617051008") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

f-6     (MAHASISWA (nama "Habibi") (npm "1617051089") (fakultas "FKIP") (jurusan "Pendidikan Biologi"))

f-7     (MAHASISWA (nama "Bisri Mustofa") (npm "1617051092") (fakultas "MIPA") (jurusan "Ilmu Komputer"))

For a total of 6 facts.

2.         Screenshot Keseluruhan Source Code

Gambar 1

3.         Source Code Perbagian

1.       Membuat template untuk fakta mahasiswa ( slot nama, npm, fakultas, jurusan,)

(deftemplate MAHASISWA

(slot nama) (slot npm) (slot fakultas) (slot jurusan))

2.       Tambahkan 5 data berdasarkan template tersebut !

 (assert(MAHASISWA(nama "Rangkas Andreansyah")(npm "1617051056")(fakultas "MIPA") (jurusan "Ilmu Komputer")))

Ketikan Code tersebut sampai  dengan 5 kali dan lakukan penggantian nama serta npm

3.       Lakukan beberapa perintah sebagai berikut:

a.       Modifikasi fakultas dan jurusan

(modify 2(fakultas "FKIP") (jurusan "Pendidikan Biologi"))

b.      Duplikasi data dengan mengubah nama dan npm mahasiswa ke-3

(duplicate 3 (nama "Bisri Mustofa") (npm "1617051092"))

c.       Hapus dari working memori mahasiswa pertama

(retract 1)