PROGRAM SISTEM PAKAR PENDETEKSI VIRUS PADA LAPTOP

 mulai:- 
      init, 
      data_pengamatan, 
      aturan(Nomor,Alasan), 
      jawaban(Alasan,Jawab), 
      write(Jawab),nl, 
      write('Aturan yang dipakai adalah '), 
      write(Nomor),nl,nl, 
      retractall(observation(_)). 
 mulai:- 
      write('Maaf, virus tersebut tidak ada dalam database kami.'),nl,nl, 
      retractall(observation(_)). 
 init:- 
      write('PROGRAM SISTEM PAKAR PENDETEKSI VIRUS PADA LAPTOP'),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 LAPTOP...'). 
 pesan('Jawab pertanyaan berikut dengan y atau t'). 
 pertanyaan('Apakah laptop terasa lambat?', komputer). 
 pertanyaan('Apakah ada program yang tidak bisa jalan?', program). 
 pertanyaan('Apakah Internet terasa lambat?', internet). 
 pertanyaan('Apakah muncul file-file aneh?', file). 
 pertanyaan('Apakah muncul pesan gambar atau teks yang aneh?', pesan). 
 aturan(1, win32_ramnit):- 
      observation(laptop), 
      observation(program), 
      not(observation(internet)), 
      observation(file), 
      not(observation(pesan)). 
 aturan(2, win32_sality):- 
      not(observation(laptop)), 
      observation(program), 
      observation(internet), 
      observation(file), 
      not(observation(pesan)). 
 aturan(3, win32_virut):- 
      observation(laptop), 
      observation(program), 
      observation(internet), 
      not(observation(file)), 
      not(observation(pesan)). 
 aturan(4, conficker):- 
      not(observation(laptop)), 
      observation(program), 
      observation(internet), 
      not(observation(file)), 
      not(observation(pesan)). 
 aturan(5, xfly):- 
      not(observation(laptop)), 
      observation(program), 
      not(observation(internet)), 
      observation(file), 
      observation(pesan). 
 aturan(6, reva_vbs):- 
      not(observation(laptop)), 
      not(observation(program)), 
      not(observation(internet)), 
      observation(file), 
      not(observation(pesan)). 
 jawaban(win32_ramnit, 'Laptop Anda terinfeksi Win32/Ramnit'). 
 jawaban(win32_sality, 'Laptop Anda terinfeksi Win32/Sality'). 
 jawaban(win32_virut, 'Laptop Anda terinfeksi Win32/Virut'). 
 jawaban(conficker, 'Laptop Anda terinfeksi Conficker'). 
 jawaban(xfly, 'Laptop Anda terinfeksi XFly'). 
 jawaban(reva_vbs, 'Laptop Anda terinfeksi Reva.VBS').

Komentar

Postingan populer dari blog ini

Kecerdasan Buatan : Robotika dan Sistem Navigasi

Metode Pencarian Hill Climbing