Program Prolog Mendeteksi Kerusakan Pada Komputer

domains
            kerusakan = symbol
            gejala = symbol
            tanya = string
            jawab = char
database
            xpositif(gejala)
            xnegatif(gejala)
predicates
            penyebab(kerusakan)
            go
            positif(tanya,gejala)
            negatif(tanya,gejala)
            gejala(gejala)
            clear_fakta2
            simpan(gejala,jawab)
            tanya(tanya,gejala,jawab)
            go_once
            diagnosa(kerusakan)
            solusi(kerusakan)
        penanganan(kerusakan)
goal
            clearwindow,
            makewindow(1,24,15,"    KERUSAKAN HARDWARE (INPUT DEVICE)    ",0,0,24,80),
            go,
            removewindow.

clauses
            go:-
                        go_once,nl,nl,nl,nl,nl,
                        write("Ingin mengulang lagi (Y/T) ?"),
                        readchar(Jawab),nl,
                        clearwindow,
                        Jawab = 'y',
                        go.
            go_once:-
                        diagnosa(_),!,
                        save("test.dat"),
                        clear_fakta2.
            go_once:-
                        write("MAAF KERUSAKAN TiDAK DAPAT TERDETEKSI"),nl,
                        clear_fakta2.
            positif(_,Gejala):-
                        xpositif(Gejala),!.
            positif(Tanya,Gejala):-
                        not(xnegatif(Gejala)),
                        tanya(Tanya,Gejala,Jawab),
                        Jawab='y'.
            negatif(_,Gejala):-
                        xnegatif(Gejala),!.
            negatif(Tanya,Gejala):-
                        not(xpositif(Gejala)),
                        tanya(Tanya,Gejala,Jawab),
                        Jawab='t'.
            tanya(Tanya,Gejala,Jawab):-
                        write(Tanya),
                        readchar(Jawab),
                        write(Jawab),nl,
                        simpan(Gejala,Jawab).
            simpan(Gejala,'y'):-
                        asserta(xpositif(Gejala)).
            simpan(Gejala,'t'):-
                        asserta(xnegatif(Gejala)).
            clear_fakta2:-
                        retract(xpositif(_)),fail.
            clear_fakta2:-
                        retract(xnegatif(_)),fail.
            clear_fakta2.

/*------------gejala-----------*/

            gejala(Gejala):-
                        xpositif(Gejala),!.
            gejala(Gejala):-
                        xnegatif(Gejala),!,fail.

            gejala(tidak_ada_gambar_dimonitor):-
                        positif("Apakah tidak_ada gambar dimonitor(Y/T)? ",tidak_ada_gambar_dimonitor).
            gejala(ada_garis_horizontal_dimonitor):-
                        positif("Apakah ada garis horizontal dimonitor (Y/T)? ",ada_garis_horizontal_dimonitor).
                       
            gejala(tidak_ada_tampilan_bios):-
                        positif("Apakah tidak ada tampilan bios (Y/T)? ",tidak_ada_tampilan_bios).
            gejala(muncul_pesan_error_pada_bios):-
                        positif("Apakah muncul pesan error pada bios (Y/T)? ",muncul_pesan_error_pada_bios).
            gejala(alaram_bios_bunyi):-
                        positif("Apakah alaram bios bunyi (Y/T)? ", alaram_bios_bunyi).
            gejala(os_melakukan_restart_otomatis):-
                        positif("Apakah os melakukan restart otomatis (Y/T)? ", os_melakukan_restart_otomatis).
            gejala(keluarnya_blue_screen_pada_os):-
                        positif("Apakah keluarnya blue screen pada os (Y/T)? ", keluarnya_blue_screen_pada_os).
                       
        gejala(terdengar_suara_aneh_pada_HDD):-
                        positif("Apakah terdengar suara aneh pada HDD (Y/T)? ",terdengar_suara_aneh_pada_HDD).
            gejala(sering_terjadi_hang_crash_saat_menjalankan_apliasi):-
                        positif("Apakah sering terjadi hang crash saat menjalankan apliasi (Y/T)? ",sering_terjadi_hang_crash_saat_menjalankan_apliasi).
            gejala(selalu_scand_disk_saat_booting):-
                        positif("selalu scand disk saat booting (Y/T)? ", selalu_scand_disk_saat_booting).
            gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal):-
                        positif("Apakah divice driver informasi tidak terdeteksi dalam divece manager meski driver telah_diinstal (Y/T)? ", divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal).
            gejala(divice_tidak_terdeteksi_dalam_bios):-
                        positif("Apakah divice tidak terdeteksi dalam bios (Y/T)? ", divice_tidak_terdeteksi_dalam_bios).
        gejala(informasi_deteksi_yang_salah_dalam_bios):-
                        positif("Apakah informasi deteksi yang salah dalam bios (Y/T)? ", informasi_deteksi_yang_salah_dalam_bios).
           
        gejala(tidak_ada_gambar_tertampil_dimonitor):-
                        positif("apakah tidak ada gambar tertampil di monitor (Y/T)? ",tidak_ada_gambar_tertampil_dimonitor).
            gejala(tidak_ada_tampilan_awal_bios):-
                        positif("Apakah tidak ada tampilan awal bios (Y/T)? ",tidak_ada_tampilan_awal_bios).
            gejala(alarm_bios_berbunyi):-
                        positif("Apakah alarm bios berbunyi(Y/T)? ", alarm_bios_berbunyi).
            gejala(muncul_pesan_error_saat_menjalankan_game_atau_aplikasi_grafis ):-
                        positif("Apakah muncul pesan error saat menjalankan game atau aplikasi grafis  (Y/T)? ", muncul_pesan_error_saat_menjalankan_game_atau_aplikasi_grafis ).
            gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divice_manajer_meski_driver_telah_di_instal):-
                        positif("Apakah divice driver informasi tidak terdeteksi dalam divice manajer meski driver telah di instal (Y/T)? ", divice_driver_informasi_tidak_terdeteksi_dalam_divice_manajer_meski_driver_telah_di_instal).
        gejala(keluarnya_blue_screen_pada_os_windows):-
                        positif("Apakah keluarnya_blue screen pada os windows (Y/T)? ", keluarnya_blue_screen_pada_os_windows).   
        gejala(suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk):-
                        positif("Apakah suara tetap tidak keluar meskipun driver dan setting divice telah dilakukan sesuai petunjuk (Y/T)? ", suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk).
                       
        gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal):-
                        positif("Apakah divice driver informasi tidak terdeteksi dalam divece manager meski driver telah diinstal(Y/T)? ",divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal).
            gejala(suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk):-
                        positif("Apakah  suara tetap tidak keluar meskipun driver dan setting divice telah dilakukan sesuai petunjuk (Y/T)? ",suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk).
        gejala(muncul_pesan_error_saat_menjalankan_aplikasi_audio):-
                        positif(" Apakah muncul pesan error saat menjalankan aplikasi audio (Y/T)? ",muncul_pesan_error_saat_menjalankan_aplikasi_audio).
           
        gejala(tiba_tiba_os_restart_otomatis):-
                        positif("Apakah tiba_tiba_os_restart_otomatis(Y/T)? ",tiba_tiba_os_restart_otomatis).
            gejala(muncul_pesan_error_saat_pertama_os_diload_dari_HDD):-
                        positif("Apakah muncul pesan error saat pertama os diload dari HDD (Y/T)? ",muncul_pesan_error_saat_pertama_os_diload_dari_HDD).
           
           
        gejala(sering_terjadi_hang_crash_saat_menjalankan_aplikasi):-
                        positif("Apakah sering_terjadi_hang_crash_saat_menjalankan_aplikasi(Y/T)? ",sering_terjadi_hang_crash_saat_menjalankan_aplikasi).
            gejala(keluarnya_blue_screen_pada_os_windows):-
                        positif("Apakah keluarnya_blue_screen_pada_os_windows (Y/T)? ",keluarnya_blue_screen_pada_os_windows).
           
        gejala(tidak_ada_tanda_tanda_dari_sebagian_atau_seluruh_perangkat_bekerja):-
                        positif("Apakah tidak_ada_tanda_tanda_dari  sebagian_atau_seluruh_perangkat_bekerja(Y/T)? ",tidak_ada_tanda_tanda_dari_sebagian_atau_seluruh_perangkat_bekerja).
            gejala(sering_tiba_tiba_mati_tanpa_sebab):-
                        positif("Apakah sering_tiba_tiba_mati_tanpa_sebab (Y/T)? ",sering_tiba_tiba_mati_tanpa_sebab).
                       
        gejala(tidak_ada_gambar_tertampil_dimonitor):-
                        positif("Apakah tidak_ada_gambar_tertampil_dimonitor(Y/T)? ",tidak_ada_gambar_tertampil_dimonitor).
            gejala(tidak_ada_tamplan_awal_bios):-
                        positif("Apakah tidak_ada_tamplan_awal_bios (Y/T)? ",tidak_ada_tamplan_awal_bios).
        gejala(muncul_pesan_error_pada_bios):-
                        positif("Apakah muncul_pesan_error_pada_bios(Y/T)? ",muncul_pesan_error_pada_bios).
            gejala(alarm_bios_berbunyi):-
                        positif("Apakah alarm_bios_berbunyi (Y/T)? ",alarm_bios_berbunyi).                   
                       
        gejala(muncul_pesan_pada_windows_bahwa_windows_kekurangan_virtual_memory):-
                        positif("Apakah muncul_pesan_pada_windows_bahwa_windows_kekurangan_virtual_memory(Y/T)? ",muncul_pesan_pada_windows_bahwa_windows_kekurangan_virtual_memory).
            gejala(aplikasi_berjalan_dengan_lambat_respon_yang_lambat_terhadap_inputan):-
                        positif("Apakah aplikasi_berjalan_dengan_lambat_respon_yang_lambat_terhadap_inputan(Y/T)? ",aplikasi_berjalan_dengan_lambat_respon_yang_lambat_terhadap_inputan).
           
        gejala(muncul_pesan_eror_saat_menjalankan_game):-
            positif("Apkah muncul_pesan_eror_saat_menjalankan_game (Y/T)?",muncul_pesan_eror_saat_menjalankan_game).
        gejala(kinerja_grafis_terasa_berat):-
            positif("Apkah kinerja_grafis_terasa_berat (Y/T)?",kinerja_grafis_terasa_berat).
       
        gejala(aplikasi_berjalan_dengan_lambat):-
            positif("Apkah aplikasi_berjalan_dengan_lambat(Y/T)?",aplikasi_berjalan_dengan_lambat).

            gejala(device_tidak_terdeteksi_dalam_bios):-
            positif("Apkah device_tidak_terdeteksi_dalam_bios(Y/T)?",device_tidak_terdeteksi_dalam_bios).

       
         gejala(alaram_bios_berbunyi):-
            positif("Apkah alaram_bios_berbunyi(Y/T)?",alaram_bios_berbunyi).
         gejala(hanya_sebagian_perangkat_bekerja):-
            positif("Apkah hanya_sebagian_perangkat_bekerja(Y/T)?",hanya_sebagian_perangkat_bekerja).

       
        gejala(device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger):-
            positif("Apkah device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger(Y/T)?",device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger).


      
        gejala(sebagian_karakter_inputan_mati):-
            positif("Apkah sebagian_karakter_inputan_mati(Y/T)?",sebagian_karakter_inputan_mati).
       
       
        gejala(pointer_mouse_tidak_merespon):-
            positif("Apkah pointer_mouse_tidak_merespon(Y/T)?",pointer_mouse_tidak_merespon).       
        gejala(device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger):-
            positif("Apkah device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger(Y/T)?",device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger).
   

           
           
/* --------------------diagnosa------------------ */

          
            diagnosa("monitor_rusak"):-
                        gejala(tidak_ada_gambar_dimonitor),
                        gejala(ada_garis_horizontal_dimonitor),
                        solusi("monitor_rusak"),
            penanganan("sebaiknya_beli_monitor_baru").
                       
            diagnosa("memori_rusak"):-
                        gejala(tidak_ada_tampilan_bios),
                        gejala(muncul_pesan_error_pada_bios),
            gejala(alaram_bios_bunyi),
            gejala(os_melakukan_restart_otomatis),
            gejala(keluarnya_blue_screen_pada_os),
                        solusi("memori_rusak"),
            penanganan("Bersihkan_memory_dengan_cara_menggosok_pin-pin_memory_jika_tetap_tidak_bisa_beli_baru").                       

        diagnosa("HDD_rusak"):-
                        gejala(terdengar_suara_aneh_pada_HDD),
                        gejala(sering_terjadi_hang_crash_saat_menjalankan_apliasi),
            gejala(selalu_scand_disk_saat_booting),
            gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal ),
            gejala(divice_tidak_terdeteksi_dalam_bios),
            gejala(informasi_deteksi_yang_salah_dalam_bios),
            solusi("HDD_rusak"),
            penanganan("lakukan_pemeriksaan_satu _per_satu_dan_khusus_untuk_drive_C_tempat_windows_terinstal").
           
        diagnosa("VGA_rusak"):-
                        gejala(tidak_ada_gambar_tertampil_dimonitor),
                        gejala(tidak_ada_tampilan_awal_bios),
            gejala(alarm_bios_berbunyi),
            gejala(muncul_pesan_error_saat_menjalankan_game_atau_aplikasi_grafis ),
            gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divice_manajer_meski_driver_telah_di_instal),
            gejala(keluarnya_blue_screen_pada_os_windows),
            gejala(suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk),
            solusi("VGA_rusak"),
            penanganan("Bersihkan_vga_card_pada_slot_mobo").           

        diagnosa("sound_card_rusak"):-
                        gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal),
                        gejala(suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk),
            gejala(muncul_pesan_error_saat_menjalankan_aplikasi_audio),
            solusi("sound_card_rusak"),
            penanganan("memasang_sound_card_usb_yaitu_tinggal_colok_dan_pasang_driver").
           
        diagnosa("os_bermasalah"):-
                        gejala(tiba_tiba_os_restart_otomatis),
            gejala(muncul_pesan_error_saat_pertama_os_diload_dari_HDD),
            solusi("os_bermasalah"),
            penanganan("instal_ulang_os").
           
        diagnosa("aplikasi_rusak"):-
                        gejala(sering_terjadi_hang_crash_saat_menjalankan_aplikasi),
            gejala(keluarnya_blue_screen_pada_os_windows),
            solusi("plikasi_rusak"),
            penanganan("instal_ulang_aplikasi").
           
        diagnosa("CPU_rusak"):-
                        gejala(tidak_ada_tanda_tanda_dari_sebagian_atau_seluruh_perangkat_bekerja),
            gejala(sering_tiba_tiba_mati_tanpa_sebab),
            solusi("CPU_rusak"),
            penanganan("instal_ulang_CPU").
           
        diagnosa("Prosessor_rusak"):-
                        gejala(tidak_ada_gambar_tertampil_dimonitor),
            gejala(tidak_ada_tamplan_awal_bios),
            gejala(muncul_pesan_error_pada_bios),
            gejala(alarm_bios_berbunyi),
            solusi("Prosessor_rusak"),
            penanganan("Ganti_prosesor").   
   
        diagnosa("memory_kurang"):-
                        gejala(muncul_pesan_pada_windows_bahwa_windows_kekurangan_virtual_memory),
            gejala(aplikasi_berjalan_dengan_lambat_respon_yang_lambat_terhadap_inputan),
            solusi("memory_kurang"),
            penanganan("beli_memory_baru").           
           
        diagnosa("memori_vga_kurang"):-
            gejala(muncul_pesan_eror_saat_menjalankan_game),
            gejala(kinerja_grafis_terasa_berat),
            solusi("memori_vga_kurang"),
            penanganan("tambah_memori_vga").

        diagnosa("clock_prosesor_kurang_tinggi"):-
            gejala(aplikasi_berjalan_dengan_lambat),
            solusi("clock_prosesor_kurang_tinggi"),
            penanganan("cara_untuk_meningkatkan_clock_prosesor_dengan_menambah_jumlah_CORE").

        diagnosa("kabel_ide_rusak"):-
            gejala(device_tidak_terdeteksi_dalam_bios),
            solusi("kabel_ide_rusak"),
            penanganan("ganti_kabel_ide").
   
        diagnosa("kurang_daya_pada_psu"):-
            gejala(alaram_bios_berbunyi),
            gejala(hanya_sebagian_perangkat_bekerja),
            solusi("kurang_daya_pada_psu"),
            penanganan("memeriksa_stop_kontak_serta_kabel_listrik_dan_memeriksa_atau_mengecek_koneksi_keMotherboard").
   
        diagnosa("perangkat_usb_rusak"):-
                       gejala(device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger),
                       solusi("perangkat_usb_rusak"),
               penanganan("solusi_terbaik_mengganti_port_USB").             
       
        diagnosa("keyboard_rusak"):-
            gejala(sebagian_karakter_inputan_mati),
            solusi("keyboard_rusak"),
            penanganan("bersihkan_bagian_dalam_keyboard_dengan_kapas_yang_diberi_alkohol_Dan_tunggu_sampai_kering").
           
        diagnosa("mouse_rusak"):-
            gejala(pointer_mouse_tidak_merespon),
            gejala(device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger),
            solusi("mouse_rusak"),
            penanganan("beli_mouse_baru").
           
        penyebab("monitor_rusak"):-
                        gejala(tidak_ada_gambar_dimonitor),
                        gejala(ada_garis_horizontal_dimonitor),
                        solusi("monitor_rusak"),
            penanganan("sebaiknya_beli_monitor_baru").
                       
            penyebab("memori_rusak"):-
                        gejala(tidak_ada_tampilan_bios),
                        gejala(muncul_pesan_error_pada_bios),
            gejala(alaram_bios_bunyi),
            gejala(os_melakukan_restart_otomatis),
            gejala(keluarnya_blue_screen_pada_os),
                        solusi("memori_rusak"),
            penanganan("Bersihkan_memory_dengan_cara_menggosok_pin-pin_memory_jika_tetap_tidak_bisa_beli_baru").         
           
        penyebab("HDD_rusak"):-
                        gejala(terdengar_suara_aneh_pada_HDD),
                        gejala(sering_terjadi_hang_crash_saat_menjalankan_apliasi),
            gejala(selalu_scand_disk_saat_booting),
            gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal ),
            gejala(divice_tidak_terdeteksi_dalam_bios),
            gejala(informasi_deteksi_yang_salah_dalam_bios),
            solusi("HDD_rusak"),
            penanganan("lakukan_pemeriksaan_satu _per_satu_dan_khusus_untuk_drive_C_tempat_windows_terinstal").           

         penyebab("VGA_rusak"):-
                        gejala(tidak_ada_gambar_tertampil_dimonitor),
                        gejala(tidak_ada_tampilan_awal_bios),
            gejala(alarm_bios_berbunyi),
            gejala(muncul_pesan_error_saat_menjalankan_game_atau_aplikasi_grafis ),
            gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divice_manajer_meski_driver_telah_di_instal),
            gejala(keluarnya_blue_screen_pada_os_windows),
            gejala(suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk),
            solusi("VGA_rusak"),
            penanganan("Bersihkan_vga_card_pada_slot_mobo").

         penyebab("sound_card_rusak"):-
                        gejala(divice_driver_informasi_tidak_terdeteksi_dalam_divece_manager_meski_driver_telah_diinstal),
                        gejala(suara_tetap_tidak_keluar_meskipun_driver_dan_setting_divice_telah_dilakukan_sesuai_petunjuk),
            gejala(muncul_pesan_error_saat_menjalankan_aplikasi_audio),
            solusi("sound_card_rusak"),
            penanganan("memasang_sound_card_usb_yaitu_tinggal_colok_dan_pasang_driver").

         penyebab("os_bermasalah"):-
                        gejala(tiba_tiba_os_restart_otomatis),
            gejala(muncul_pesan_error_saat_pertama_os_diload_dari_HDD),
            solusi("os_bermasalah"),
            penanganan("instal_ulang_os").

         penyebab("aplikasi_rusak"):-
                        gejala(sering_terjadi_hang_crash_saat_menjalankan_aplikasi),
            gejala(keluarnya_blue_screen_pada_os_windows),
            solusi("plikasi_rusak"),
            penanganan("instal_ulang_aplikasi").

         penyebab("CPU_rusak"):-
                        gejala(tidak_ada_tanda_tanda_dari_sebagian_atau_seluruh_perangkat_bekerja),
            gejala(sering_tiba_tiba_mati_tanpa_sebab),
            solusi("CPU_rusak"),
            penanganan("instal_ulang_CPU").

         penyebab("Prosessor_rusak"):-
                        gejala(tidak_ada_gambar_tertampil_dimonitor),
            gejala(tidak_ada_tamplan_awal_bios),
            gejala(muncul_pesan_error_pada_bios),
            gejala(alarm_bios_berbunyi),
            solusi("Prosessor_rusak"),
            penanganan("Ganti_prosesor").   

         penyebab("memory_kurang"):-
                        gejala(muncul_pesan_pada_windows_bahwa_windows_kekurangan_virtual_memory),
            gejala(aplikasi_berjalan_dengan_lambat_respon_yang_lambat_terhadap_inputan),
            solusi("memory_kurang"),
            penanganan("beli_memory_baru").   
           
         penyebab("memori_vga_kurang"):-
            gejala(muncul_pesan_eror_saat_menjalankan_game),
            gejala(kinerja_grafis_terasa_berat),
            solusi("memori_vga_kurang"),
            penanganan("tambah_memori_vga").

         penyebab("clock_prosesor_kurang_tinggi"):-
                       gejala(aplikasi_berjalan_dengan_lambat),
                       solusi("clock_prosesor_kurang_tinggi"),
               penanganan("cara_untuk_meningkatkan_clock_prosesor_dengan_menambah_jumlah_CORE").

         penyebab("kabel_ide_rusak"):-
                       gejala(device_tidak_terdeteksi_dalam_bios),
                       solusi("kabel_ide_rusak"),
               penanganan("ganti_kabel_ide").

         penyebab("kurang_daya_pada_psu"):-
            gejala(alaram_bios_berbunyi),
            gejala(hanya_sebagian_perangkat_bekerja),
            solusi("kurang_daya_pada_psu"),
            penanganan("memeriksa_stop_kontak_serta_kabel_listrik_dan_memeriksa_atau_mengecek_koneksi_keMotherboard").
   
         penyebab("perangkat_usb_rusak"):-
                       gejala(device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger),
                       solusi("perangkat_usb_rusak"),
               penanganan("solusi_terbaik_mengganti_port_USB").           
   
         penyebab("keyboard_rusak"):-
            gejala(sebagian_karakter_inputan_mati),
            solusi("keyboard_rusak"),
            penanganan("bersihkan_bagian_dalam_keyboard_dengan_kapas_yang_diberi_alkohol_Dan_tunggu_sampai_kering").

         penyebab("mouse_rusak"):-
            gejala(pointer_mouse_tidak_merespon),
            gejala(device_driver_informasi_tidak_terdeteksi_dalam_dvciemeneger),
            solusi("mouse_rusak"),
            penanganan("beli_mouse_baru").
           
            solusi(Kerusakan):-
                        upper_lower(BKerusakan,Kerusakan),nl,nl,nl,
                        write("     KERUSAKAN PADA KOMPUTER ANDA ADALAH     ",BKerusakan),nl. 

            penanganan(Kerusakan):-
                        upper_lower(BKerusakan,Kerusakan),nl,nl,nl,
                        write("  SOLUSINYA ADALAH     ",BKerusakan),nl. 

Goalnya


1 Mendeteksi Kerusakan Monitor Rusak

2.Mendeteksi Kerusakan HDD Rusak

3.Mendeteksi Kerusakan VGA Rusak

4.Mendeteksi Kerusakan Sound Card Rusak

5.Mendeteksi Kerusakan CPU Rusak

Program Prolog Kasus Pembunuhan

DOMAINS
    nama,jender,pekerjaan,benda,alasan,zat = symbol
    umur=integer
PREDICATES
    nondeterm orang(nama, umur, jender, pekerjaan)
    nondeterm selingkuh(nama, nama)
    terbunuh_dengan(nama, benda)
    terbunuh(nama)
    nondeterm pembunuh(nama)
    motif(alasan)
    ternodai(nama, zat)
    milik(nama, benda)
    nondeterm cara_kerja_mirip(benda, benda)
    nondeterm kemungkinan_milik(nama, benda)
    nondeterm dicurigai(nama)

/* * * Fakta-fakta tentang pembunuhan * * */
CLAUSES
    orang(rudi,55,m,tukang_kayu).
    orang(adi,25,m,pemain_sepak_bola).
    orang(adi,25,m,tukang_jagal).
    orang(joni,25,m,pencopet).

    selingkuh(lina,joni).
    selingkuh(lina,rudi).
    selingkuh(siti,joni).
    terbunuh_dengan(siti,pentungan).
    terbunuh(siti).

    motif(uang).
    motif(cemburu).
    motif(dendam).

    ternodai(rudi, darah).
    ternodai(siti, darah).
    ternodai(adi, lumpur).
    ternodai(joni, coklat).
    ternodai(lina, coklat).

    milik(rudi,kaki_palsu).
    milik(joni,pistol).

/* * * Basis Pengetahuan * * */
    cara_kerja_mirip(kaki_palsu, pentungan).
    cara_kerja_mirip(balok, pentungan).
    cara_kerja_mirip(gunting, pisau).
    cara_kerja_mirip(sepatu_bola, pentungan).
    kemungkinan_milik(X,sepatu_bola):-
    orang(X,_,_,pemain_sepak_bola).
    kemungkinan_milik(X,gunting):-
    orang(X,_,_,pekerja_salon).
    kemungkinan_milik(X,Benda):-
    milik(X,Benda).

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* dicurigai semua orang yang memiliki senjata yang *
* kerjanya mirip dengan senjata penyebab siti terbunuh. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * */

     dicurigai(X):-
     terbunuh_dengan(siti,Senjata) ,
     cara_kerja_mirip(Benda,Senjata) ,
     kemungkinan_milik(X,Benda).

/* * * * * * * * * * * * * * * * * * * * * * * * * *
* dicurigai laki-laki yang selingkuh dengan siti. *
* * * * * * * * * * * * * * * * * * * * * * * * * */

    dicurigai(X):-
     motif(cemburu),
     orang(X,_,m,_),
     selingkuh(siti,X).

/* * * * * * * * * * * * * * * * * * * * * * *
* dicurigai perempuan yang selingkuh dengan *
* laki-laki yang juga selingkuh dengan siti *
* * * * * * * * * * * * * * * * * * * * * * */

    dicurigai(X):-
     motif(cemburu),
     orang(X,_,f,_),
     selingkuh(X,Lakilaki),
     selingkuh(siti,Lakilaki).

/* * * * * * * * * * * * * * * * * * * * * * * * * * *
* dicurigai pencopet yang mempunyai motif uang. *
 * * * * * * * * * * * * * * * * * * * * * * * * * * */

    dicurigai(X):-
     motif(uang),
     orang(X,_,_,pencopet).

    pembunuh(Pembunuh):-
     orang(Pembunuh,_,_,_),
     terbunuh(Terbunuh),
     Terbunuh <> Pembunuh, /* Bukan bunuh diri */
     dicurigai(Pembunuh),
     ternodai(Pembunuh,Zat),
     ternodai(Terbunuh,Zat).