program sistem pakar pendeteksi kerusakan komputer menggunakan prolog

Prolog adalah bahasa pemrograman logika atau di sebut juga sebagai bahasa non-procedural. Bahasa ini diciptakan oleh Alain Colmerauer dan Robert Kowalski sekitar tahun 1972 dalam upaya untuk menciptakan suatu bahasa pemrograman yang memungkinkan pernyataan logika alih-alih rangkaian perintah untuk dijalankan komputer. (wikipedia)

berikut ini adalah contoh aplikasi program sistem pakar pendeteksi kerusakan komputer.

mulai:-
      init,
      data_pengamatan,
      aturan(Nomor,Alasan),
      jawaban(Alasan,Jawab),
      write(Jawab),nl,
      write(''),
      write(''),nl,nl,
      retractall(observation(_)).
 mulai:-
      write('Maaf, untuk kerusakan yang anda alami belum tersedia.'),nl,nl,
      retractall(observation(_)).
 init:-
      write('PROGRAM SISTEM PAKAR PENDETEKSI KERUSAKAN KOMPUTER'),nl,
      judul(Judul),write(Judul),nl,nl,
      tulis_pesan,nl.
 tulis_pesan:-
      pesan(Pesan),
   write(Pesan),nl,fail.
 tulis_pesan:-
      nl.
 data_pengamatan:-
   pertanyaan(Tanya,Obs),
   write(Tanya),nl,
   read(Yatidak),
   Yatidak=y,
   assert(observation(Obs)),
   fail.
 data_pengamatan.
 judul('MENGANALISA KERUSAKAN KOMPUTER...').
 pesan('Jawab pertanyaan berikut dengan[y/t]').
 pertanyaan('Power komputer hidup tetapi tidak dapat booting ?', komputer).
 pertanyaan('Power komputer anda, tidak mau hidup ?', power1).
 pertanyaan('Bunyi fan komputer berisik ?', fan).
 pertanyaan('Keyboard tidak terdeteksi oleh PC ?', keyboard).
 pertanyaan('Muncul pesan“ No System Disk / Invalid System Disk pada monitor.?', pesan).
 aturan(1, power1):-
      observation(komputer),
      not(observation(power1)),
      not(observation(fan)),
      not(observation(keyboard)),
      not(observation(pesan)).
 aturan(2, power2):-
      not(observation(komputer)),
      observation(power1),
      not(observation(fan)),
      not(observation(keyboard)),
      not(observation(pesan)).
 aturan(3, fan):-
      not(observation(komputer)),
      not(observation(power1)),
      observation(fan),
      not(observation(keyboard)),
      not(observation(pesan)).
 aturan(4, keyboard):-
      not(observation(komputer)),
      not(observation(power1)),
      not(observation(fan)),
      observation(keyboard),
      not(observation(pesan)).
 aturan(5, pesan):-
      not(observation(komputer)),
      not(observation(power1)),
      not(observation(fan)),
      not(observation(keyboard)),
      (observation(pesan)).
 aturan(6, pc_baru):-
      observation(komputer),
      observation(power1),
      observation(fan),
      observation(keyboard),
      observation(pesan).

 jawaban(power1, '
   Solusi :
   Kenali Terlebih dahulu Bunyi Beep :
   Beep 1 kali saja Tanda bahwa kondisi komputer baik.
   Beep 1 kali, panjang Terdapat problem di memory.
   Beep 1 kali panjang dan 3 kali pendek Kerusakan di VGA card.
   Beep 1 kali panjang dan 2 kali pendek Kerusakan di DRAM parity.
   Beep terus menerus Kerusakan dimodul memory atau memory video.
   Cek dengan menggunakan software dianosa seperti sisoft sandra dsb.
   ').


 jawaban(power2, '
   Solusi :
   Cek koneksi kabel (dari power outletnya ke tombol power pada PC).
   Cek apakah stabilizer berfungsi atau tdak (jika memakai stabilizer).
   Cek kabel power pada CPU.
   Jika masih juga tidak mau hidup permasalahanya mungkin terletak pada power supply atau MB.
   ').


 jawaban(fan, '
   Solusi :
   Matikan komputer dan buka casing komputer lalu hidupkan komputer dalam keadaan casing terbuka.
   Cek apakah mungkin ada kabel yang menyangkut pada fan.
   Jika ada kabel yang menyangkut pada fan, rapikanlah agar tidak mengenai fan.
   Bersihkan debu yang ada di fan.
   ').


 jawaban(keyboard, '
   Solusi :
   Matikan kembali komputer dan cek apakah kabel keyboard telah tertancap dengan benar ke CPU.
   Jika perlu lepas dan tancapkan kembali kabel keyboard tersebut untuk meyakinkan bahwa koneksi sudah tepat.
   Jika komputer dihidupkan kembali, dan pesan kesalahan masih muncul, kemungkinan pertama adalah keyboardnya yang rusak.
   Coba dengan keyboard yang lain untuk memastikan bahwa keyboardnya yang rusak.
   Jika dengan mengganti keyboard pesan kesalahan masih tetap muncul, berarti bukan keyboard yang rusak.
   Tetapi bisa saja port keyboard di motherbord yang rusak.
   ').


 jawaban(pesan, '
   Solusi :
   Cek apakah hardisk terdeteksi dengan cara detection hardisk pada BIOS.
   Bila terdeteksi, coba ubah type hdd nya ke IDE.
   Cek apakah kabel power/data hardisk sudah terpasang dengan baik.
   Bila sudah dipastikan penyebabnya, komponen yang rusak harus diperbaiki atau diganti termasuk instal ulang OS.
   ').

 jawaban(pc_baru, 'Sangat banyak kerusakan di komputer anda, saran kami, sebaiknya anda membeli komputer yang baru.
   ').