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').
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
Posting Komentar