Cara Pengerjaan Sistem Pakar

Halo teman-teman, pada artikel ini saya akan menjelaskan atau memberikan tutorial cara membuat sistem pakar, disini saya akan mengambil salah satu skripsi untuk dijadikan panduan dalam penjelasan, jadi judul skripsi tersebut adalah "Aplikasi Sistem Pakar Mendiagnosis Kerusakan Komputer" silahkan cari di internet jika ingin melihat skripsinya. Jadi disini bisa dibilang memberi rangkuman dari skripsi tersebut, yang ingin belajar membuat sistem pakar silahkan saja disimak.

Pembahasan pada artikel ini sesuai bab masing-masing :

>  Pendahuluan

Bab ini membahas mengenai latar belakang masalah, identifikasi masalah, maksud  dan tujuan, batasan masalah, metodologi penelitian, rencana aktifitas, dan sistematika penulisan

>  Landasan Teori

Bab ini berisi dasar teori yang digunakan dalam pembuatan sistem pakar untuk  melandasi pemecahan masalah.

>  Analisis Sistem

Bab ini membahas tentang perancangan sistem pakar. Uraian perancang system pakar ini meliputi akuisisi pengetahuan, representasi pengetahuan, perancangan basis data.

>  Perancangan Perangkat Lunak

Bab ini membahas mengenai batasan dan kebutuhan sistem baru, perancangan  data, perancangan arsitektural, serta perancangan antarmuka.

>  Testing Dan Implementasi

Bab ini menjelaskan tentang implementasi sistem dan pengujian sistem yang telah dibuat, sehingga dari proses tersebut akan didapatkan sebuah analisa hasil yang akan menjawab permasalahan yang ada dalam tugas akhir.

>  Penutup

Bab ini berisikan kesimpulan dari pembuatan tugas akhir ini serta saran untuk perbaikan

mendatang disebabkan keterbatasan dalam pengetahuan dalam tugas akhir ini.

Pendahuluan

>  Latar Belakang

>  Identifikasi Masalah

>  Rumusan Masalah

>  Maksud Dan Tujuan

>  Batasan Masalah

>  Metodologi Penelitian

>  Sistematika Penulisan

 

Landasan Teori 

>  Artificial Intelegence

Merupakan landasan awal dari sistem pakar, sistem pakar adalah salah satu bagian dari artificial intelegence atau kecerdasan bauatan

>  Sistem Pakar

Yang dibahas adalah ciri-ciri, keuntungan, kelemahan, Perbandingan orang dan sistem, komponen, Pengembangan.

>  Metodologi Yang Digunakan

1.  Prototyping-based Methodologi

2.  Object Oriented Programming (OOP)

3.  Unified Modeling Language (UML)

>  Tools Yang Digunakan Untuk Pengembangan Aplikasi

1.  Microsoft access

2.  Visual Basic

Analisis Sistem 

>  Sistem Lama

Sistem sebelum ada kecerdesan buatan dari sistem pakar

 >  Sistem Yang Akan Dibuat

Sistem pakar diagnosa pada kerusakan komputer

>  Identifikasi Masalah 

Langkah           pertama            dalam   mengembangkan          aplikasi            adalah mengidentifikasikan

masalah yang akan dikaji. Dalam hal ini adalah dengan mengidentifikasikan permasalahan yang akan dibuat

terlebih dahulu, adapun masalah-masalah yang akan diambil dalam aplikasi untuk mendeteksi kerusakan pada

komputer serta cara mengatasinya.

Jenis kerusakan dan gejala adalah sebagai berikut:

1.            Power Supply 

a.            PC sering restart

Masalah: Motherboard rusak

Solusi: Ganti motherboard dengan yang baru.

Masalah: Power supply rusak

Solusi: Lepas kabel yang terhubung dengan motherboard.

Masalah: Memori Kotor

Solusi: Cabut memori bersihkan memori dengan koas lalu pasang dengan slot yang lain

Masalah: Memori tidak terdeteksi

Solusi: Cek harddisk pada run program pada sistem operasi.

 b.         PC mati

Masalah: Tidak ada aliran listrik

Solusi: Cek kabel power supply atau catuan listrik apakah sudah terhubung dengan listrik utama.

Masalah: Tegangan listrik tidak stabil

Solusi: Gunakan stabilizier atau UPS, atau pindahkan ke stop kontak yang lain tanpa menggunakan terminal.

Masalah: PC sering mati tiba-tiba

Solusi: Cek kipas power supply apakah berputar dengan yang baik jika tidak maka ganti power supply dengan yang baru.

Masalah: Suhu PC panas

Solusi: Cek tegangan pada power supply apakah sudah sesuai dengan kebutuhan motherboard. 

2.                MotherBoard

a.             Motherboard mengalami masalah.

Masalah: Semua perangkat tidak terdeteksi sama sekali(sama sekali tidak ada system operasi).

Solusi: Ganti motherboard dengan yang baru.

Masalah: Kipas motherboard tidak berjalan.

Solusi: Cek kabel soket kipas pada motherboard, cabut lalu masukan kembali dan nyalakan PC.

b.            Komponen yang terhubung dengan motherboard bermasalah.

Masalah: Bunyi beep 3 kali selang 3 detik dan bunyi lagi.

Solusi: Cek memori mungkin tidak pas pada motherboard atau tidak terpasang lalu pasang dengan baik.

Masalah: Bunyi beep panjang.

Solusi: Matikan PC lalu diamkan beberapa menit agar tidak merambah pada kerusakan yang lain.

  

3.                 Harddisk

a.             Chek pada setup BIOS

Masalah: Harddisk tidak terdeteksi pada saat proses booting

Solusi: Chek pada setup BIOS, apakah masih dapat mendeteksi hardisk. Pada beberapa motherboard, setup BIOS dapat ditampilkan dengan menekan tombol DEL pada saat booting. Setelah BIOS muncul, pilih opsi Auto Detect Disk Drive jika ada. Jika tidak ada, chek dikonfigurasi utama pasti ada prosedur untuk mengenali harddisk.

b.            Chek sambungan kabel harddisk

Masalah: Koneksi kabel harddisk tidak benar

Solusi: Chek sambungan kabel harddisk yang ada di dalam casing jika ada kabel harddisk yang longgar/tidak menancap dengan benar, betulkan sampai benar-benar menancap.

c.             Chek setting jumper Harddisk

Masalah: Setting Jumper CD Drive salah

Solusi: Perhatikan setting jumper yang harus dipasang. Lihat pada buku manual.

d.            Partisi ulang harddisk

Masalah: Pada saat proses booting muncul pesan kesalahan “Invalid Partition Table”. Setelah itu booting gagal dan sistem tidak bisa diaktifkan

Solusi: Invalid Partition Table, berarti bahwa hardisk telah kehilangan partisinya. Yang harus dilakukan adalah dengan mempartisi ulang harddisk. Untuk mempartisi ulang harddisk lakukan langkah-langkah sebagai berikut:

1.            Lakukan booting dengan disket start up. Pastikan bahwa di dalam disket tersebut berisi file sistem yang dilengkapi dengan file-file perintah, seperti: format.com dan fdisk.exe

2.            Setelah disket start up dimasukan, tekan tombol power dan tunggu sampai muncul promt A atau “A:\>”

3.            Setelah promt A muncul, jalankan program fdisk.exe dengan cara mengetikan fdisk lalu enter

4.            akan muncul tampilan sebagai berikut: Fdisk Option

Current Fix disk drive Choose one of the following

1.            Create DOS Partition or Logical DOSDrive

2.            Set Active Partition

3.            Delete Partition

4.            Display Partition

5.            Change Current Fixed Disk Partition

5.            Jika harddisk belum dipartisi sebelumnya maka pilihan Create DOS Partition or Logical DOS Drive. Kemudian dari sub menu yang muncul, pilih Create Primary DOS Partition. Akan muncul pertanyaan Anda akan menggunakan seluruh dari kapasitas harddisk untuk Primary atau ingin membaginya. Jika Anda ingin membagi harddisk menjadi dua drive (Drive C dan Drive D), maka jawab pertanyaan tersebut dengan N

6.            Masukan ukuran Primary DOS partition dalam ukuran MB atau prosentase. Nantinya partisi yang ini akan menjadi Drive C dan sisanya akan menjadi Drive D

7.            Buatlah partisi tersebut aktif agar bisa digunakan untuk booting komputer. Untuk mengaktifkannya, pilih angka “2” pada sub menu utama (Set active partition)

8.            Langkah selanjutnyabuatlah partisi kedua. Pilih angka “1” pada menu utama dan pilih angka “2” pada sub menunya. Maka akan muncul pertanyaan yang menanyakan ukuran partisi. Masukan ukuran yang diinginkan dan tekan enter hingga muncul pesan “extended DOS partition was created”.

9.            Proses harddisk partisi selesai dan restart kembali komputer.

e.             Harddisk kehilangan system

Masalah: Pada saat booting muncul pesan kesalahan “Error Loading Operating System” dan “Missing Operating System” 

Solusi: Missing Operating System, berarti harddisk kehilangan system untuk boot. Lakukan langkah memformat harddisk Anda dan mengisinya dengan system sebagai berikut:

1.          Lakukan booting menggunakan disket sistem, tinggi sampai A promt-nya muncul. Selanjutnya ketikkan perintah pemformatan drive sebagai berikut: Format C:/S (enter)

2.            Setelah diketikan perintah tersebut muncul pesan sebagai berikut: Warning: All Data on Non removable Disk Drive C Will be Lost

Proceed with Format ? (Y/N)

3.            Tekan “Y” jika Anda ingin melakukan pemformatan. Akan muncul proses format dan tunggu sampai 100 % complete. Setelah proses format selesai, maka akan muncul pesan:

Format Complete System Transferred

Volume label (11 character, Enter for none) ?

4.            Ketikan nama label yang diinginkan maksimal 11 karakter. Kemudian tekan enter dan proses format selesai.

5.            Jika Anda mempartisi harddisk menjadi 2. untuk memformat Drive D, cukup dengan perintah: Format D: (enter).

4.        CD/DVD ROM

a.           Chek pada setup BIOS

Masalah: CD/DVD ROM tidak terdeteksi pada saat proses booting

Solusi: Chek pada setup BIOS, apakah masih dapat mendeteksi CD/DVD ROM. Pada beberapa motherboard, setup BIOS dapat ditampilkan dengan menekan tombol DEL pada saat booting. Setelah BIOS muncul, pilih opsi Auto Detect Disk Drive jika ada. Jika tidak ada, chek dikonfigurasi utama pasti ada prosedur untuk mengenali CD/DVD ROM.

b.         Update ulang Driver CD/DVD

Masalah: Driver CD/DVD Rusak

Solusi: Hapus driver lama untuk CD/DVD Drive dan menggantinya dengan driver yang baru dengan menggunakan Device Manager.

Langkah-langkah:

1.       Klik Start pada taskbar Windows kemudian pilih Setting dan Control Panel

2.       Double klik icon System

3.       Pilih tabulasi Device Manager

4.       Dari daftar device yang muncul pilih CDROM

5.        Pilih tombol Remove untuk menghapus driver yang aktif.

6.        Kemudian lakukan booting ulang komputer agar Windows mendeteksi kembali secara otomatis CD/DVD ROM yang ada.

c.           Cek sambungan CD/DVD ROM dengan benar

Masalah: Kabel-kabel yang terhubung ke CD/DVD Drive tidak terpasang dengan benar

Solusi: Bongkar casing dan cek kabel-kabel yang terpasang pada CD/DVD Drive. Ada tiga buah kabel yang menancap pada CD/DVD Drive yaitu kabel power, kabel data dan kabel audio. Chek juga tancapan kabel-kabel tersebut pada motherboard. Jangan sampai ada yang longgar dan tidak tertancap dengan benar.

d.         Chek setting jumper CD/DVD Drive

Masalah: Setting Jumper CD/DVD Drive salah

Solusi: Perhatikan setting jumper yang harus dipasang. Lihat pada buku manual.

5.          Kerusakan VGA

a.           Monitor Blank.

Masalah: Pada nyalakan monitor, layar monitor gelap dan hitam

Solusi: 1. Langkah pertama, cek kabel VGA dan pastikan kabel VGA tersebut sudah masuk ke port VGA yang ada di casing komputer.

2.         Cek indikator pada monitor, apakah powernya berjalan dengan normal atau tidak.

3.      Coba booting ulang.

b.          Gangguan pada VGA Card/Layar Monitor.

Masalah:    1. Komputer menjadi macet atau hang ketika digunakan untuk bermain game 3D.

2.  Tidak dapat digunakan untuk menjalankan permainan tertentu.

3.  Windows tidak bisa digunakan dalam mode normal.

4.  Ada titik-titik kecil di layar monitor.

Solusi: 1. Cek kabel VGA yang terhubung ke monitor dan ke casing komputer, apakah sudah menancap dengan benar atau belum, kalau belum masukkan kabel tersebut sesuai dengan kaki-kaki yang tersedia.

2.   Cek konektor atau pin yang terdapat pada kabel VGA. Kalau ada yang patah atau putus, segera ganti yang baru.

3.    Install kembali atau perbaharui driver dari VGA Card yang dipasang. Untuk mendapatkan driver VGA tersebut, bisa dengan men-download dari situs yang menyediakan driver dari VGA itu.  

4.   Cobalah untuk mendownload versi terbaru versi terakhir software Direct-X dari situs Microsoft.

5.    Kunjungi situs-situs yang menangani berbagai permasalahan tentang permainan atau games.

6.    Buka casing komputer, cabut VGA card dari slotnya (PC/AGP) dari motherboard, dan pasang kembali. Apabila pada waktu komputer dihidupkan, layar masih hitam dan belum muncul gambarnya, ganti VGA card dengan yang baru, karena dapat dipastikan VGA card ada mengalami kerusakan.

c.           VGA atau animasi tidak berjalan dengannormal 

Masalah: Pesan kesalahan pada layar monitor. Apakah selalu menemui pesan kesalahan ketika memainkan suatu permainan atau games?

Solusi: a. Klik menu Start >> pilih Help and Support. Di bawah perintah Pick a Help Topic, pilih “Fixing a problem”.

b.         Pada kotak sebelah kiri, pilih “Games, sound, and video problems”.

c.          Pada kotak sebelah kanan, select “Games and Multimedia Troubleshooter”.

d.        Klik pilihan yang menggambarkan permasalahan yang dihadapi kemudian klik Next. Ulangi langkah-langkah tersebut sampai permasalahan bisa terpecahkan. Gunakan tombol Back untuk mengulangi langkah terakhir.

  

6.          Masalah Pada USB

a.           USB tidak terdeteksi

Masalah: Kebanyakan Masalah UmumDevice / perangkat yang Anda gunakan termasuk dalam perangkat yang rentan terhadap perubahan dalam masalah listrik dan arus listrik statis. Salah satu perangkat yang sering mengalami ini adalah USB stick.

Solusi: Matikan komputer, cabut perangkat USB Anda mengikuti semua kabel listrik masuk ke CPU dan Monitor. Tunggu 20 sampai 30 menit kemudianhidupkan seperti biasa.Untuk sebagian besarkasus, metode ini

terbukti berhasil. Kadang-kadang port USB bisa juga longgar karena kegagalan deteksi hardware USB. Jika masih tidak terdeteksi, gunakan Device Manager untuk memindai untuk menemukan perangkat keras atau perangkat keras baru informasi perubahan. Untuk melakukannya, klik Start> Run> Ketik "devmgmt.msc" (tanpa tanda kutip)[OK].

b.          Kesalahan Memasang driverKetika perangkat USB dipasang ke komputer. Masalah: USB driver belum terpasang dengan baik dan itu mengakibatkan kerusakan fatal pada driver USB lainnya.

Solusi: Hilangkan semua perangkat yang tersembunyi di Device Manager dengan cara sebagaiberikut:

1.    Klik Start> Run Ketik> CMD [OK],

2.    Ketik "set DEVMGR_SHOW_DETAILS = 1?" (Tanpa tanda kutip) dan diakhiri dengan

ENTER.

3.    Ketik "set DEVMGR_SHOW_NONPRESENT_DEVICES = 1?" (Tanpa tanda kutip)

dan akhiri dengan ENTER.

4.    Ketik "devmgmt.msc mulai" (tanpa tanda kutip) dan akhiri dengan ENTER.

5.    Klik menu View> Show Hidden Devices.

6.    Pada panel kiri, klik tombol "" untuk melihat isi perangkat imaging, Unknown Perangkat dan USB Devices. Apakah Anda menemukan Devices USB dan Unknown Devices (termasuk berwarna abu-abu)? Jika demikian, Klik kanan> Uninstall

>  Kaidah  
Kaidah produksi biasanya dituliskan dalam bentuk jika-maka (IF-THEN). Kaidah ini dapat dikatakan sebagai hubungan implikasi dua bagian yaitu bagian premise (jika) dan bagian konklusi (maka). Apabila bagian premise dipenuhi maka bagian konklusi juga akan bernilai benar. Sebuah kaidah- terdiri dari klausa- klausa.Sebuah klausa mirip sebuah kalimat subyek, kata kerja dan obyek yang menyatakan suatu fakta. Ada sebuah klausa premise dan klausa konklusi pada suatu kaidah. Suatu kaidah juga dapat terdiri atas beberapa premis dan lebih dari satu konklusi. Antara premise dan konklusi dapat berhubungan dengan “OR” atau “AND”. Berikut kaidah-kaidah produksi dalam menganalisis kerusakan terhadap komponen komputer yang gagal dalam menjalankan fungsinya:

 

RULE Masalah pada power supply

IF Ada kerusakan dengan piranti komputer Is Ya 
AND Ada masalah pada power supply Is Ya 
AND Masalah pada motherboard rusak Is Ya 
AND Power supply rusak Is Ya

AND Memori kotor Is Tidak

AND Apakah memori tidak terdeteksi Is Ya

THEN Masalah pada power supply

RULE Power supply pada aliran listrik

IF Ada kerusakan pada piranti komputer Is Ya 
AND Ada masalah pada power supply Is Ya  
AND Masalah pada aliran listrik Is Ya

AND Tegangan listrik tidak stabil Is Tidak

THEN Power supply pada aliran listrik

RULE PC sering mati

IF Ada kerusakan pada piranti komputer Is Ya

AND Ada masalah pada power supply Is Ya

AND PC mati total Is Tidak

AND Power supply sudah sesuai dengan kebutuhan motherboard Is Ya

THEN PC sering mati.
  

RULE Motherboard

IF Ada kerusakan dengan piranti komputer Is Ya

AND Semua perangkat tidak terdeteksi (sama sekali tidak ada system operasi) Is Ya

AND Kipas motherboard tidak jalan Is Ya

 THEN Cek kabel soket kipas pada moherboard, cabut lalu masukan kembali dan nyalakan PC

RULE Komponen yang terhubung dengan motherboar 
IF Ada kerusakan dengan piranti komputer Is Ya

AND Bunyi beep 3 kali selang 3 detik dan bunyi lagi Is Ya

AND Bunyi beep panjang Is Ya

THEN Komponen yang terhubung dengan motherboard

RULE Chek pada setup BIOS

IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah pada harddisk Is Ya

AND Harddisk terdeteksi pada saat proses booting Is Tidak

THEN Chek pada setup BIOS

RULE Chek sambungan kabel harddisk

IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah pada harddisk Is Ya

AND Harddisk terdeteksi pada saat proses booting Is Ya 

AND Kabel harddisk sudah terkoneksi dengan benar Is Tidak

THEN Chek sambungan kabel harddisk

RULE Chek setting jumper Harddisk dengan benar 
 IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah pada harddisk Is Ya

AND Harddisk terdeteksi pada saat proses booting Is Ya
AND Kabel harddisk sudah terkoneksi dengan benar Is Ya
AND Setting jumpur harddisk sudah benar Is Tidak
THEN Chek setting jumper Harddisk dengan benar

RULE Partisi ulang harddisk

IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah pada harddisk Is Ya

AND Harddisk terdeteksi pada saat proses booting Is Ya

AND Kabel harddisk sudah terkoneksi dengan benar Is Ya

AND Pada saat booting muncul pesan kesalahan “Invalid partition table”,

booting gagal dan sistem tidak bisa diaktifkan Is Ya

THEN Partisi ulang harddisk

RULE Harddisk kehilangan sistem

IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah pada harddisk Is Ya

AND Harddisk terdeteksi pada saat proses booting Is Ya

AND Kabel harddisk sudah terkoneksi dengan benar Is Ya

AND Pada saat booting muncul pesan kesalahan “Invalid partition table”,

booting gagal dan sistem tidak bisa diaktifkan Is Tidak 
AND Pada saat booting muncul pesan kesalahan “Error Loading Operating System” dan “Missing Operating System” Is Ya

THEN Harddisk kehilangan system

RULE Chek pada setup BIOS

IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah padaCD/DVD ROM Is Ya

AND CD/DVD ROM terdeteksi pada saat proses booting Is Tidak

THEN Chek pada setup BIOS

RULE Update ulang driver CD/DVD

IF Ada kerusakan dengan piranti komputer Is Ya
AND Ada masalah pada CD/DVD ROM Is Ya
AND Driver CD/DVD bagus Is Tidak

THEN Update ulang driver CD/DVD

RULE Chek sambungan kabel CD/DVD ROM 
IF Ada kerusakan dengan piranti komputer Is Ya  
AND Ada masalah pada CD/DVD ROM Is Ya 
AND Driver CD/DVD bagus Is Ya
AND Koneksi kabel ke CD/DVD Drive sudah benar Is Tidak
THEN Chek sambungan kabel CD/DVD ROM

RULE Chek setting jumper CD/DVD dengan benar 
IF Ada kerusakan dengan piranti komputer Is Ya 
AND Ada masalah pada CD/DVD ROM Is Ya

AND Driver CD/DVD bagus Is Ya

AND Koneksi kabel ke CD/DVD Drive sudah benar Is Ya
AND Setting jumper CD/DVD Drive sudah benar Is Tidak
THEN Chek setting jumper CD/DVD dengan benar

RULE Masalah pada VGA

IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah pada VGA Is Ya

AND Monitor blank Is Ya

AND Nyalakan monitor Is Ya

AND Monitor berkedip-kedip Is Tidak

THEN Cek indicator pada monitor, apakah powernya berjalan dengan normal atau tidak

RULE Gangguan pada VGA Card/Layar monitor 
IF Ada kerusakan dengan piranti komputer Is Ya

AND Komputer menjadi macet/hang ketika digunakan untuk bermain games 3D Is Ya

AND Ada titik-titik dilayar monitor Is Ya

AND Cek konektor/pin pada layar VGA Is Ya

THEN Gangguan pada VGA card/layar monitor.

RULE VGA atau animasi tidak berjalan dengan normal 
IF Ada kerusakan dengan piranti komputer Is Ya

AND Ada masalah pada VGA animasi Is Ya

AND Menemui kesalahan ketika memainkan suatu permainan atau games Is Ya

THEN VGA atau animasi tidak berjalan normal

RULE USB tidak terdeteksi

IF Ada kerusakan dengan piranti komputer Is Ya

AND USB terdeteksi Is Tidak

AND Ada masalah dengan arus listrik Is Ya

AND Menggunakan USB stik Is Ya

THEN USB tidak terdeteksi

RULE Kesalahan memesang perangkat USB ke komputer 
IF Ada kerusakan dengan piranti komputer Is Ya

AND USB sudah terpasang dengan baik Is Tidak

AND Perangkat USB terpasang pada komputer Is Ya

AND Driver USB akan mengakibatkan kerusakan Is Ya

 

 AND Semua perangkat yang tersembunyi di divice manager Is Ya

THEN Kesalahan memesang perangkat USB ke komputer

>  Pohon Keputusan

Pohon keputusan merupakan salah satu bentuk semantik, yaitu metoda untuk mempresentasikan pengetahuan

yang berupa gambaran dari suatu pengetahuan yang memperlihatkan hubungan dari objek-objek. Objek

tersebut dipresentasikan dalam bentuk node dan hubungan antar objek dinyatakan dengan garis penghubung.

 Gambar Pohon Keputusan Kerusakan Pada Power Supply

 Gambar Pohon Keputusan Kerusakan Pada Motherboard

 Gambar Pohon Keputusan Kerusakan Pada Harddisk

 Gambar Pohon Keputusan Kerusakan Pada CD-Room

 Gambar Pohon Keputusan Kerusakan Pada VGA

Gambar Pohon Keputusan Kerusakan Pada USB

>  Analisis Perangkat Keras 

Perangkat keras minimum server yang direkomendasikan untuk menjalankan aplikasi sistem pakar ini adalah

sebagai berikut :

Tabel Spesifikasi PC

>  Analisis Perangkat Lunak

Dalam membangun aplikasi sistem pakar ini, perangkat lunak sangat berperan dalam kinerja aplikasi. Dan

pada pembuatan aplikasi sistem pakar ini, ada syarat minimum bagi perangkat lunak yang digunakan agar

kinerja aplikasi bisa lebih optimal. Kebutuhan perangkat lunak tersebut, adalah:

 Tabel Spesifikasi Software

Perancangan Sistem   

>  Perancangan Sistem

Perancangan Aplikasi Sistem pakar diagnosa kerusakan komputeryang dibangun ini bersifat

object oriented (berorientasi objek) dengan menggunakan Unified Modeling Language (UML)

sebagai bahasa pemodelan. Pembangunan Aplikasi Sistem pakar diagnosa kerusakan komputer ini dilakukan dengan menggunakantools utama sebagai berikut : 
o VB6 sebagaiframework aplikasi untuk membaca bahasa pemrograman Visual Basic

o Microsoft Access sebagai Database Server

o IBM Rational Rose sebagai tools untuk mengubah UML

> Perancangan Menu

 Penjelasannya:

a. Menu Login Admin : Admin Masuk pada menu sistem

b. Macam Kerusakan : Admin menambahkan macam kerusakan komputer pada aplikasi Sistem Pakar

c. Jenis Kerusakan : Admin menmbahkan jenis kerusakan komputer pada aplikasi Sistem Pakar

d. Ciri Kerusakan : Admin menambahkan ciri kerusakan komputer pada aplikasi Sistem Pakar

e. Basis Aturan : Admin menambahkan pilihan Basis Pengetahuan pada aplikasi Sistem Pakar

f.  Keterangan Program : Keterangan Program pada aplikasi Sistem Pakar

g. Penjelasan : Penjelasan untuk pemeliharaan komputer secara rutin. Informasi diberikan untuk user yang   menggunakan aplikasi Sistem Pakar

h.  Penelusuran : User menggunkan aplikasi Sistem Pakar untuk mengetahui solusi untuk kerusakan komputer.

  1. Penelusuran berdasarkan Macam Kerusakan User memilih macam kerusakan computer yang sedang dialami

  2. Penelusuran berdasarkan Jenis Kerusakan User memilih jenis kerusakan computer yang sedang dialami

  3. Penelusuran berdasarkan Ciri kerusakan User memilih ciri kerusakan yang sedang dialami.

>        Model Uce Case

Model use case menjelaskan mengenai aktor-aktor yang terlibat dengan perangkat lunak

yang dibangun beserta proses-proses yang ada didalamnya.

 

1.  Use Case Diagram

Diagram use case dari Aplikasi Sistem pakar diagnosa kerusakan komputer adalah sebagai berikut:

 Gambar Use Diagram

2.  Definsi Aktor
Definisi aktor merupakan penjelasan dari apa yang dilakukan oleh aktor-aktor yang terlibat dalam perangkat lunak yang dibangun. Adapun deskripsi dari aktor- aktor yang terlibat dalam Aplikasi Sistem pakar diagnosa kerusakan komputer sebagai berikut:

Tabel Defenisi Aktor

3.  Definisi Use Case

Use case adalah urutan transaksi/proses yang dilakukan oleh sistem, di mana menghasilkan sesuatu yang dapat

dilihat/diamati oleh actor tertentu. Deskripsi dari use case yang ada dalam Aplikasi Sistem pakar diagnosa

kerusakan komputer adalah sebagai berikut :

 Tabel Defenisi Use Case

4.  Skenario Use Case

Skenario (flow of event) use case dari Aplikasi Sistem pakar diagnosa kerusakan komputer adalah sebagai

berikut :

 Tabel Skenario Use Case

> Activity Diagram

1.  Skenario Use Case Login Admin

2.  Activity Diagram Login

3.  Skenario Use Case Admin Manage Menu Aturan

4.  Activity Diagram Use Case Login Admin Manage Menu Aturan

5.  Skenario Use Case Admin Manage Menu Ciri Kerusakan

6.  Activity Diagram Admin Manage Menu Ciri Kerusakan

7.  Skenario Use Case Admin Manage Menu Macam Kerusakan

8.  Activity Diagram Admin Manage Menu Macam Kerusakan

9.  Skenario Use Case Admin Manage Menu Jenis Kerusakan

10. Activity Diagram Admin Manage Menu Jenis Kerusakan

11. Skenario Use Case Admin Manage Menu Keterangan

12. Activity Diagram Admin Manage Menu Keterangan

13. Skenario Use Case Admin Manage Menu Penjelasan

14. Activity Diagram Admin Manage Menu Penjelasan

15. Skenario Use Case User Menggunakan Sistem Pakar

16. Activity Diagram User Menggunakan Sistem Pakar

> Realisasi Use Case Tahap Rancangan

1.  Class Diagram

2.  Kamus Data

3.  Sequence Diagram Login

4.  Sequence Diagram Admin Manage Menu Aturan

5.  Sequence Diagram Admin Manage Macam Kerusakan

6.  Sequence Diagram Admin Manage Ciri Kerusakan

7.  Sequence Diagram Admin Manage Jenis Kerusakan

8.  Sequence Diagram Admin Manage Menu Penjelasan

9.  Sequence Diagram User Menggunakan Sistem Pakar

10.  Collaboration Diagram Login

11.  Collaboration Diagram Login

12.  Collaboration Diagram Admin Manage Menu Aturan

13.  Collaboration Diagram Admin Manage Ciri Kerusakan

14.  Collaboration Diagram Admin Manage Macam Kerusakan

15.  Collaboration Diagram Admin Manage Jenis Kerusakan

16.  Collaboration Diagram Admin Manage Menu Penjelasan

17.  Collaboration Diagram User Menggunakan Sistem Pakar 

>  Lingkungan Operasional

Lingkungan operasional merupakan kebutuhan-kebutuhan perangkat lunak

pada saat diimplementasikan, baik itu perangkat lunak, perangkat keras, maupun

karakteristik dari pengguna perangkat lunak tersebut.

>  Perangkat Lunak

Perangkat lunak yang dibutuhkan dalam Aplikasi Sistem Pakar Diagnosis

Kerusakan Komputer ini adalah sebagai berikut:

1. Sistem operasi Windows XP Profesional, Windows Vista, Windows 7

2. Software VB6 Tools Pembagun

3. MS Access 2000 sebagai tempat penyimpanan database.

4. Rational Rose untuk membuat atau merancang UML

 

>  Perangkat Keras

Perangkat keras yang digunakan pada Aplikasi Sistem Pakar Diagnosis

Kerusakan Komputer ini adalah sebagai berikut:

a. Intel Pentium 1.6 GHz

b. Memory 512 MB

c. Hard disk 40 GB

>  Karakterisik Pengguna

1. Mempunyai kemampuan dasar dibidang komputer

2. Dapat mengoperasikan sistem operasi windows

>  Layout Antarmuka

Layout antarmuka merupakan rancangan antarmuka yang akan digunakan sebagai perantara User

dengan perangkat lunak yang dikembangkan

 Gambar Antarmuka Tampilan Utama Sistem

Gambar Antarmuka Menu Admin Login

 Gambar Antarmuka Menu Admin Aturan

 Gambar Antarmuka Menu Admin Ciri Kerusakan

 Gambar Antarmuka Menu Admin Macam Kerusakan

 Gambar Antarmuka Menu Admin Jenis Kerusakan

 Gambar Antarmuka Menu Admin Penjelasan

 Gambar Antarmuka Menu Penelusuran

 Gambar Antarmuka Menu Penelusuran Berdasarkan Macam Kerusakan

 Gambar Antarmuka Menu Penelusuran Berdasarkan Jenis Kerusakan

 Gambar Antarmuka Menu Penelusuran Berdasarkan Ciri Kerusakan

 Gambar Antarmuka Menu Rekaman Data

Gambar Antarmuka Menu Solusi

Implementasi Sistem

>  Implementasi

1. Persiapan Instalasi Perkakas (Tools) Yang Akan Digunkan

2. Pengetesan Program Pada Peerangkat Lunak

3. Evaluasi Perangkat Lunak

4. Batasan :

a. Penerapan Aplikasi Sistem pakar diagnosa kerusakan komputer hanya  berjalan didalam sistem operasi windows

b. Bahasa pemrograman yang digunakan yaitu VB6. 

c.Database yang digunakan adalah MS Access

>  Kebutuhan Sumber Daya

1. Kebutuhan Hardware

2. Kebutuhan Software

>  Hasil Pengujian

Hasil pengujian dilakukan dengan menggunakan metode Black Box Testing, merupakan metode testing pengujian yang dilakukan hanya mengamati hasil eksekusi melalui data uji dan memeriksa fungsional dari perangkat lunak. Dengan menggunakan metode pengujian black box, perekayasa sistem dapat menemukan kesalahan dalam kategori sebagai berikut :

1.    Fungsi tidak benar atau hilang

2.     Kesalahan antar muka

3.   Kesalahan pada struktur data (pengaksesan basis data) 

4.   Kesalahan inisialisasi dan akhir program

5.   Kesalahan kinerja 

Tabel Pengujian Aplikasi Pada Admin

 Tabel Pengujian Aplikasi Pada User

Tabel Pengujian Perbandingan Diagnosa Kerusakan Komputer Secara Manual dan Menggunakan Aplikasi 

>  Source Code Program

Code program yang dibuat dalam aplikasi ini meliputi MDIUtama, FrmAturan, FrmCiriKerusakan, FrmJenisKerusakan, FrmKeterangan, FrmMacamKerusakan, FrmPassword, FrmPenelusuran, FromPenjelasan, berikut kode programnya :

Option Explicit

Private Sub MDIForm_Load() Me.imgIkon.ListImages.Remove "Pengetahuan" Me.imgIkon.ListImages.Remove "Penelusuran" Me.imgIkon.ListImages.Remove "Penjelasan" Me.imgIkon.ListImages.Clear

Me.imgIkon.ListImages.Add , "Pengetahuan", LoadPicture(App.Path & "\FOLDER05.ico") Me.imgIkon.ListImages.Add , "Penelusuran", LoadPicture(App.Path & "\CRDFLE13.ico") Me.imgIkon.ListImages.Add , "Penjelasan", LoadPicture(App.Path & "\CRDFLE04.ico")

Me.Picture = LoadPicture(App.Path & "\arini.JPG") App.HelpFile = App.Path & "\Help.hlp"

End Sub

Private Sub MDIForm_Unload(Cancel As Integer) 'tutup FrmCiriKerusakan

Unload FrmCiriKerusakan 'tutup FrmJenisKerusakan Unload FrmJenisKerusakan 'tutup FrmKeterangan

'tutup FrmMacamKerusakan Unload FrmKeterangan Unload FrmMacamKerusakan 'akhiri program

Call mdlTutup.Tutup End

End Sub

Private Sub mnuAturan_Click() Load FrmAturan FrmAturan.SetFocus

End Sub

Private Sub mnuCiri_Click() 'Tampilkan FrmCiriKerusakan Load FrmCiriKerusakan FrmCiriKerusakan.SetFocus End Sub

Private Sub mnuJenis_Click() 'Tampilkan FrmJenisKerusakan Load FrmJenisKerusakan

FrmJenisKerusakan.SetFocus End Sub

Private Sub mnuKeluar_Click() 'tutup MDIUtama

Unload MDIUtama End Sub

Private Sub mnuKeterangan_Click() 'Tampilkan FrmKeterangan

Load FrmKeterangan FrmKeterangan.SetFocus End Sub

Private Sub mnuMacam_Click() 'Tampilkan FrmMacamKerusakan Load FrmMacamKerusakan FrmMacamKerusakan.SetFocus End Sub

Private Sub mnuManual_Click() Me.cdlHelp.HelpFile = App.Path & "\Help.hlp" Me.cdlHelp.HelpCommand = cdlHelpContext Me.cdlHelp.ShowHelp

End Sub

Private Sub mnuPenelusuran_Click() 'mendeklarasikan variabel i dengan tipe Integer Dim i As Integer

'Tampilkan FrmPenelusuran Load FrmPenelusuran

'tanda pilihan pada semua opsi FrmPenelusuran For i = 0 To 2

Next i FrmPenelusuran.SetFocus End Sub

Private Sub mnuPenjelasan_Click() Load FrmPenjelasan

FrmPenjelasan.cmdSimpan.Visible = True FrmPenjelasan.SetFocus

End Sub

Private Sub mnuPenjelasan2_Click() Load FrmPenjelasan

FrmPenjelasan.cmdSimpan.Visible = False FrmPenjelasan.SetFocus

End Sub

Private Sub mnuSelesai_Click() Call mnuKeluar_Click

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key

Case "Penelusuran"

Call mnuPenelusuran_Click Case "Penjelasan"

If Me.mnuPakar.Visible = True Then Call mnuPenjelasan_Click

Else

Call mnuPenjelasan2_Click End If

End Select End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Key

Case "Macam"

Call mnuMacam_Click Case "Jenis"

Call mnuJenis_Click Case "Ciri"

Call mnuCiri_Click End Select

End Sub

*Frm Aturan

Option Explicit

Private Sub cmbMacam_Click() Call Me.TampilkanJenis

End Sub

Private Sub cmdTambah_Click() Load FrmTambahAturan FrmTambahAturan.SetFocus End Sub

Private Sub cmdTutup_Click() Unload Me

End Sub

Private Sub Form_Activate() Dim i As Integer

Me.cmbMacam.Clear

If tblMacam.RecordCount <> 0 Then tblMacam.MoveFirst

For i = 1 To tblMacam.RecordCount

Me.cmbMacam.AddItem tblMacam!nomacam & " " & tblMacam!macam tblMacam.MoveNext

Next i Me.cmbMacam.ListIndex = 0 Call Me.TampilkanJenis

End If End Sub

Sub TampilkanJenis() Dim Ambil As String Dim Cari As String Dim i As Integer

Me.lstJenis.Clear 'Me.txtGejala.Text = ""

Ambil = Mid(Me.cmbMacam.Text, 1, 4)

If tblRelasi1.RecordCount <> 0 Then tblRelasi1.MoveFirst

For i = 1 To tblRelasi1.RecordCount

If tblRelasi1!nomacam = Ambil Then Cari = tblRelasi1!nojenis tblJenis.Index = "idJenis" tblJenis.Seek "=", Cari

Me.lstJenis.AddItem tblJenis!nojenis & " " & tblJenis!jenis End If

tblRelasi1.MoveNext Call Me.TampilkanCiri

If Me.lstJenis.ListCount <> 0 Then Me.lstJenis.ListIndex = 0

Call lstJenis_Click End If

Next i End If End Sub

Sub TampilkanCiri() Dim Ambil As String Dim Cari As String Dim i As Integer

Me.txtDiagnosa.Text = "" Me.lstCiri.Clear

Ambil = Mid(Me.lstJenis.Text, 1, 4)

If tblRelasi2.RecordCount <> 0 Then tblRelasi2.MoveFirst

For i = 1 To tblRelasi2.RecordCount If tblRelasi2!nojenis = Ambil Then

Cari = tblRelasi2!nociri tblCiri.Index = "idCiri" tblCiri.Seek "=", Cari

Me.lstCiri.AddItem tblCiri!nociri & " " & tblCiri!ciri End If

tblRelasi2.MoveNext

If Me.lstCiri.ListCount <> 0 Then Me.lstCiri.ListIndex = 0

Call lstCiri_Click End If

Next i End If End Sub

Private Sub lstCiri_Click() Dim Cari As String

Dim i As Integer

Cari = Mid(Me.lstCiri.Text, 1, 4) tblCiri.Index = "idCiri" tblCiri.Seek "=", Cari

Me.txtDiagnosa.Text = tblCiri!diagnosa End Sub

Private Sub lstJenis_Click() Dim Cari As String

Dim i As Integer

Cari = Mid(Me.lstJenis.Text, 1, 4) tblJenis.Index = "idJenis" tblJenis.Seek "=", Cari 'Me.txtGejala.Text = tblJenis!gejala Call Me.TampilkanCiri

End Sub

*FrmCiriKerusakan

Option Explicit

Private Sub cmdAtas_Click() tblCiri.MoveFirst

Call Me.TampilData End Sub

Private Sub cmdBawah_Click() tblCiri.MoveLast

Call Me.TampilData End Sub

Private Sub cmdEdit_Click() Me.txtCiri.Locked = False Me.txtDiagnosa.Locked = False tblCiri.Edit

End Sub

Private Sub cmdHapus_Click()

If MsgBox("Apakah yakin akan menghapus data " & Me.txtCiri.Text & " ?", vbYesNo + vbQuestion, "Konfirmasi") = vbYes Then

tblCiri.Delete

Call cmdSebelum_Click Call Me.Tampil_Grid

End If End Sub

Private Sub cmdSebelum_Click() tblCiri.MovePrevious

If tblCiri.BOF Then tblCiri.MoveFirst

End If

Call Me.TampilData End Sub

Private Sub cmdSesudah_Click() tblCiri.MoveNext

If tblCiri.EOF Then tblCiri.MoveLast

End If

Call Me.TampilData End Sub

Private Sub cmdSimpan_Click()

tblCiri!nociri = Me.txtNomor.Text tblCiri!ciri = Me.txtCiri.Text tblCiri!diagnosa = Me.txtDiagnosa.Text tblCiri.Update

Me.txtCiri.Locked = True Me.txtDiagnosa.Locked = True Call Me.Tampil_Grid

End Sub

Private Sub cmdTambah_Click() Dim Ambil As String

If tblCiri.RecordCount <> 0 Then tblCiri.MoveLast

Ambil = tblCiri!nociri Ambil = Right(Ambil, 3) Ambil = Val(Ambil) + 1001 Ambil = Str(Ambil)

Ambil = Right(Ambil,  3) Ambil = "C" & Ambil Me.txtNomor.Text = Ambil Me.txtCiri.Text = "" Me.txtDiagnosa.Text = "" Me.txtCiri.Locked = False Me.txtDiagnosa.Locked = False Me.txtCiri.SetFocus

End If tblCiri.AddNew End Sub

Private Sub cmdTutup_Click() Unload Me

End Sub

Private Sub Form_Activate() Call Me.Tampil_Grid

End Sub

Private Sub Form_Load() Call cmdAtas_Click

End Sub

Sub TampilData() Me.txtNomor.Text = tblCiri!nociri Me.txtCiri.Text = tblCiri!ciri

Me.txtDiagnosa.Text = tblCiri!diagnosa End Sub

Sub Tampil_Grid() Dim i As Integer

Me.grdCiri.Refresh Me.grdCiri.Refresh

Me.grdCiri.ColWidth(0) = 800

Me.grdCiri.ColWidth(1) = 4000

'Me.grdCiri.ColWidth(2) = 0

Me.grdCiri.Row = 0

For i = 0 To Me.grdCiri.Cols - 1 Me.grdCiri.Col = i Me.grdCiri.CellFontBold = True

Me.grdCiri.CellAlignment = flexAlignCenterCenter Next i

End Sub

*FrmJenisKerusakan

Option Explicit

Private Sub cmdAtas_Click() tblJenis.MoveFirst

Call Me.TampilData End Sub

Private Sub cmdBawah_Click() tblJenis.MoveLast

Call Me.TampilData End Sub

Private Sub cmdEdit_Click() Me.txtJenis.Locked = False tblJenis.Edit

End Sub

Private Sub cmdHapus_Click()

If MsgBox("Apakah yakin akan menghapus data " & Me.txtJenis.Text & " ?", vbYesNo + vbQuestion, "Konfirmasi") = vbYes Then

tblJenis.Delete

Call cmdSebelum_Click Call Me.Tampil_Grid

End If End Sub

Private Sub cmdSebelum_Click() tblJenis.MovePrevious

If tblJenis.BOF Then tblJenis.MoveFirst

End If

Call Me.TampilData End Sub

Private Sub cmdSesudah_Click() tblJenis.MoveNext

If tblJenis.EOF Then tblJenis.MoveLast

End If

Call Me.TampilData End Sub

Private Sub cmdSimpan_Click() tblJenis!nojenis = Me.txtNomor.Text tblJenis!jenis = Me.txtJenis.Text 'tblJenis!gejala = Me.txtGejala.Text tblJenis.Update

Me.txtJenis.Locked = True

Call Me.Tampil_Grid End Sub

Private Sub cmdTambah_Click() Dim Ambil As String

If tblJenis.RecordCount <> 0 Then tblJenis.MoveLast

Ambil = tblJenis!nojenis Ambil = Right(Ambil, 3) Ambil = Val(Ambil) + 1001 Ambil = Str(Ambil)

Ambil = Right(Ambil, 3) Ambil = "J" & Ambil Me.txtNomor.Text = Ambil Me.txtJenis.Text = "" 'Me.txtGejala.Text = "" Me.txtJenis.Locked = False 'Me.txtGejala.Locked = False Me.txtJenis.SetFocus

End If tblJenis.AddNew End Sub

Private Sub cmdTutup_Click() Unload Me

End Sub

Private Sub Form_Activate() Call Me.Tampil_Grid

End Sub

Sub Tampil_Grid() Dim i As Integer

Me.grdJenis.Refresh Me.grdJenis.Refresh

Me.grdJenis.ColWidth(0) = 800

Me.grdJenis.ColWidth(1) = 4000

'Me.grdJenis.ColWidth(2) = 0

Me.grdJenis.Row = 0

For i = 0 To Me.grdJenis.Cols - 1 Me.grdJenis.Col = i Me.grdJenis.CellFontBold = True

Me.grdJenis.CellAlignment = flexAlignCenterCenter Next i

End Sub

Sub  TampilData() Me.txtNomor.Text = tblJenis!nojenis Me.txtJenis.Text =  tblJenis!jenis End Sub

Private Sub Form_Load() Call cmdAtas_Click

End Sub

*FrmKeterangan

Option Explicit

Private Sub cmdTutup_Click() 'Menutup form dan keluar dari program Unload FrmKeterangan

'menghapus FrmKeterangan dari memori utama Set FrmKeterangan = Nothing

End Sub

Private Sub Form_Load()

Rem posisi kiri tampilan form pada layar monitor FrmKeterangan.Left = 0

Rem posisi atas tampilan form pada layar monitor FrmKeterangan.Top = 0

Rem mengatur lebar form menjadi 5000 FrmKeterangan.Width = 7000

Rem mengatur tinggi form menjadi 3600 FrmKeterangan.Height = 5000

End Sub

Private Sub Timer1_Timer()

Me.lblSelamat.Caption = Mid(Me.lblSelamat.Caption, 2, Len(Me.lblSelamat.Caption)) + Mid(Me.lblSelamat.Caption, 1, 1)

If Me.lblPakar.ForeColor = vbWindowText Then Me.lblPakar.ForeColor = vbHighlightText

Else

Me.lblPakar.ForeColor = vbWindowText End If

End Sub

*FrmMacamKerusakan

Option Explicit

Private Sub cmdEdit_Click() Dim EditData As  String Dim i As Integer

Dim Kodenya As String Dim Datanya As String

Kodenya = Mid(Me.lstMacam.Text, 1, 4)

Datanya = Mid(Me.lstMacam.Text, 8, Len(Me.lstMacam.Text))

If Datanya <> "" Then

EditData = InputBox("Masukkan data yang baru dari data :", "Konfirmasi", Datanya)

If EditData <> "" Then 'menentukan indeks tblMacam.Index = "idMacam" 'melakukan pencarian data tblMacam.Seek "=", Kodenya 'menghapus data dari tabel tblMacam.Edit tblMacam!macam = EditData tblMacam.Update

Call Form_Load End If

End If End Sub

Private Sub cmdHapus_Click() Dim Hapus As String

Dim i As Integer

'mengambil kode macam kerusakan Hapus = Mid(Me.lstMacam.Text, 1, 4) If Hapus <> "" Then

If MsgBox("Apakah yakin akan menghapus data " & Hapus & " ?", vbYesNo + vbQuestion, "Konfirmasi") = vbYes Then

'menentukan indeks tblMacam.Index = "idMacam" 'melakukan pencarian data tblMacam.Seek "=", Hapus 'menghapus data dari tabel tblMacam.Delete

Call Form_Load End If

End If End Sub

Private Sub cmdTambah_Click()

'mendeklarasikan variabel Jawab dengan tipe Integer Dim Jawab As Integer

Dim Ambil As String

If Me.txtMacam.Text <> "" Then

'mengambil data terakhir pada lstMacam dan disimpan dalam Ambil Ambil = Me.lstMacam.List(Me.lstMacam.ListCount - 1) 'mengambil empat digit karakter terdepan dari variabel Ambil Ambil = Mid(Ambil, 1, 4)

'mengambil 3 digit karakter terakhir dari variabel ambil Ambil = Right(Ambil, 3)

'melakukan penjumlahan dengan angka 1001 untuk mendapatkan nomor baru Ambil = Val(Ambil) + 1001

'mengkonversikan hasil penjumlahan menjadi bentuk string Ambil = Str(Ambil)

'mengambil 3 digit terakhir dari variabel Ambil Ambil = Right(Ambil, 3)

'menambahkan bariabel Ambil dengan kode M Ambil = "M" & Ambil

'menyimpan data ke dalam tblMacam tblMacam.MoveLast tblMacam.AddNew tblMacam!nomacam = Ambil tblMacam!macam = Me.txtMacam.Text tblMacam.Update

Me.lstMacam.AddItem Me.txtMacam.Text Me.txtMacam.Text = "" Me.txtMacam.SetFocus

Else

Jawab = MsgBox("Anda belum menginputkan macam kerusakan !" & vbNewLine & "Silahkan

menginputkan macam kerusakan terlebih dahulu !", vbOKOnly + vbCritical, "Konfirmasi") If Jawab = vbOK Then

Me.txtMacam.SetFocus End If

End If End Sub

Private Sub cmdTutup_Click() Unload Me

End Sub

Private Sub Form_Load() Dim i As Integer

Me.lstMacam.Clear tblMacam.MoveFirst

If tblMacam.RecordCount <> 0 Then For i = 1 To tblMacam.RecordCount

Me.lstMacam.AddItem tblMacam!nomacam & " " & tblMacam!macam tblMacam.MoveNext

Next i End If End Sub

*FrmPassword

Option Explicit

Private Sub cmdGanti_Click()

If Me.cmdGanti.Caption = "Ganti" Then

If (Me.txtNama.Text = tblPasswd!nama) And (Me.txtPasswd.Text = tblPasswd!passwd) Then MsgBox "Silahkan memasukkan nama dan password baru !", vbOKOnly + vbInformation,

"Konfirmasi"

Me.txtNama.Text = "" Me.txtPasswd.Text = "" Me.txtNama.SetFocus Me.cmdGanti.Caption = "Simpan"

Else

MsgBox "Masukkan terlebih dahulu nama dan password Anda yang lama dengan benar", vbOKOnly + vbInformation, "Konfirmasi"

Exit Sub End If

Else

If (Me.txtNama.Text <> "") And (Me.txtPasswd.Text <> "") Then tblPasswd.MoveFirst

tblPasswd.Edit

tblPasswd!nama = Me.txtNama.Text tblPasswd!passwd = Me.txtPasswd.Text tblPasswd.Update

MsgBox "Nama dan password Anda yang baru siap digunakan !", vbOKOnly + vbInformation, "Konfirmasi"

Me.txtNama.Text = "" Me.txtPasswd.Text = "" Me.txtNama.SetFocus Me.cmdGanti.Caption = "Ganti"

Else

MsgBox "Masukkan terlebih dahulu nama dan password Anda dengan benar", vbOKOnly + vbInformation, "Konfirmasi"

End If End If End Sub

Private Sub cmdLogin_Click()

If Me.optPilihan(0).Value = True Then MDIUtama.mnuPakar.Visible = False MDIUtama.Toolbar1.Buttons(1).Visible = False MDIUtama.StatusBar1.Panels(3).Text = "Pemakai"

Else

If (Me.txtNama.Text = tblPasswd!nama) And (Me.txtPasswd.Text = tblPasswd!passwd) Then MDIUtama.mnuPemakai.Visible = False

MDIUtama.Toolbar1.Buttons(2).Visible = False MDIUtama.StatusBar1.Panels(3).Text = "Pakar"

Else

MsgBox "Password Anda Salah !", vbOKOnly + vbCritical, "Konfirmasi" Me.txtNama.Text = ""

Me.txtPasswd.Text = "" Me.txtNama.SetFocus Exit Sub

End If End If

MDIUtama.Show MDIUtama.SetFocus End Sub

Private Sub Form_Load() Call mdlBuka.Buka

End Sub

Private Sub FrmTutup_Click() End

End Sub

Private Sub optPilihan_Click(Index As Integer) If Index = 1 Then

Me.txtNama.SetFocus End If

End Sub

Private Sub txtNama_Change() Me.txtNama.SelStart = Len(Me.txtNama.Text) End Sub

Private Sub txtNama_GotFocus() Me.optPilihan(1).Value = True End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)

Dim strValid As String 'mendefinisikan validitas inputan

strValid = "abcdefghijklmnopqrstuvwxyz"

strValid = strValid & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

'Jika tombol Enter ditekan maka pindahkan fokus ke txtPasswd If KeyAscii = vbKeyReturn Then

Me.txtPasswd.SetFocus Else

If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End If End Sub

Private Sub txtPasswd_Change()

If Len(Me.txtPasswd.Text) = 8 Then Me.cmdLogin.SetFocus

End If End Sub

Private Sub txtPasswd_KeyPress(KeyAscii As Integer)

Dim strValid As String 'mendefinisikan validitas inputan strValid = "0123456789"

If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

*FrmPenelusuran

Option Explicit

Private Sub cmdProses_Click() 'Tampilkan FrmPenelusuranMacam Load FrmPenelusuranMacam FrmPenelusuranMacam.SetFocus End Sub

*FrmPenjelasan

Option Explicit

Private Sub cmdProses_Click() 'Tampilkan FrmPenelusuranMacam Load FrmPenelusuranMacam FrmPenelusuranMacam.SetFocus End Sub

*FrmRekamanData

Option Explicit

Private Sub cmdProses_Click() Dim Ambil As String

Ambil = Mid(FrmPenelusuranCiri.lstCiri.Text, 1, 4) tblCiri.Index = "idCiri"

tblCiri.Seek "=", Ambil Load FrmAnimasi

End Sub

Private Sub Form_Activate() Dim Keterangan As String

Keterangan = "Sistem sudah merekam data yang Anda pilih yaitu :" Keterangan = Keterangan & vbNewLine

Keterangan = Keterangan & "Macam Kerusakan Komputer, Jenis dan Cirinya" Keterangan = Keterangan & vbNewLine

Keterangan = Keterangan & "Data yang terekam berturut-turut adalah sebagai berikut :" Keterangan = Keterangan & vbNewLine

Keterangan = Keterangan & FrmPenelusuranMacam.cmbPenelusuranMacam.Text Keterangan = Keterangan & vbNewLine

Keterangan = Keterangan & FrmPenelusuranJenis.lstJenis.Text Keterangan = Keterangan & vbNewLine

Keterangan = Keterangan & FrmPenelusuranCiri.lstCiri.Text Me.txtRekaman.Text = Keterangan

End Sub

*FrmSolusi

Option Explicit

Private Sub cmdSelesai_Click() Unload FrmRekamanData Unload FrmPenelusuranMacam Unload FrmPenelusuranJenis Unload FrmPenelusuranCiri Unload FrmPenelusuran Unload Me

End Sub

*FromTambahAturan

Option Explicit Sub TampilJenis()

Dim Ambil As String Dim i As Integer Dim j As Integer

For j = 0 To Me.lstJenis.ListCount - 1 Me.lstJenis.Selected(j) = False

Next j

Ambil = Mid(Me.cmbMacam.Text, 1, 4) tblRelasi1.MoveFirst

For i = 1 To tblRelasi1.RecordCount

If tblRelasi1!nomacam = Ambil Then For j = 0 To Me.lstJenis.ListCount - 1

If Mid(Me.lstJenis.List(j), 1, 4) = tblRelasi1!nojenis Then Me.lstJenis.Selected(j) = True

End If Next j

End If tblRelasi1.MoveNext

Next i End Sub

Private Sub cmbMacam_Click() Call Me.TampilJenis

End Sub

Private Sub cmdSimpanJenis_Click() Dim Ambil As String

Dim i As Integer

'menghapus aturan yang lama Ambil = Mid(Me.lstJenis.Text, 1, 4)

If tblRelasi2.RecordCount <> 0 Then tblRelasi2.MoveFirst

For i = 1 To tblRelasi2.RecordCount If tblRelasi2!nojenis = Ambil Then

tblRelasi2.Delete End If tblRelasi2.MoveNext

Next i End If

'menambahkan aturan yang baru

For i = 0 To Me.lstCiri.ListCount - 1

If Me.lstCiri.Selected(i) = True Then tblRelasi2.AddNew tblRelasi2!nojenis = Ambil

tblRelasi2!nociri = Mid(Me.lstCiri.List(i), 1, 4) tblRelasi2.Update

End If Next i End Sub

Private Sub cmdSimpanMacam_Click() Dim Ambil As String

Dim i As Integer

'menghapus aturan yang lama

Ambil = Mid(Me.cmbMacam.Text, 1, 4)

If tblRelasi1.RecordCount <> 0 Then tblRelasi1.MoveFirst

For i = 1 To tblRelasi1.RecordCount

If tblRelasi1!nomacam = Ambil Then tblRelasi1.Delete

End If tblRelasi1.MoveNext

Next i End If

'menambahkan aturan yang baru

For i = 0 To Me.lstJenis.ListCount - 1

If Me.lstJenis.Selected(i) = True Then tblRelasi1.AddNew tblRelasi1!nomacam = Ambil

tblRelasi1!nojenis = Mid(Me.lstJenis.List(i), 1, 4) tblRelasi1.Update

End If Next i End Sub

Private Sub cmdTutup_Click() Unload Me

End Sub

Private Sub Form_Activate() Dim i As Integer

Me.cmbMacam.Clear

If tblMacam.RecordCount <> 0 Then tblMacam.MoveFirst

For i = 1 To tblMacam.RecordCount

Me.cmbMacam.AddItem tblMacam!nomacam & " " & tblMacam!macam tblMacam.MoveNext

Next i Me.cmbMacam.ListIndex = 0

End If

Me.lstJenis.Clear

If tblJenis.RecordCount <> 0 Then tblJenis.MoveFirst

For i = 1 To tblJenis.RecordCount

Me.lstJenis.AddItem tblJenis!nojenis & " " & tblJenis!jenis tblJenis.MoveNext

Next i Me.lstJenis.ListIndex = 0

End If

Me.lstCiri.Clear

If tblCiri.RecordCount <> 0 Then tblCiri.MoveFirst

For i = 1 To tblCiri.RecordCount

Me.lstCiri.AddItem tblCiri!nociri & " " & tblCiri!ciri tblCiri.MoveNext

Next i Me.lstCiri.ListIndex = 0

End If

Call Me.TampilJenis Call Me.TampilCiri End Sub

Sub TampilCiri() Dim Ambil As String Dim i As Integer Dim j As Integer

For j = 0 To Me.lstCiri.ListCount - 1 Me.lstCiri.Selected(j) = False

Next j

Ambil = Mid(Me.lstJenis.Text, 1, 4) tblRelasi2.MoveFirst

For i = 1 To tblRelasi2.RecordCount If tblRelasi2!nojenis = Ambil Then

For j = 0 To Me.lstCiri.ListCount - 1

If Mid(Me.lstCiri.List(j), 1, 4) = tblRelasi2!nociri Then Me.lstCiri.Selected(j) = True

End If Next j

'tblRelasi2.MoveNext End If tblRelasi2.MoveNext

Next i End Sub

Private Sub lstJenis_Click() Call Me.TampilCiri

End Sub

 

   

>  Implementasi Antarmuka

Contoh Program Sistem Pakar Diagnosis Kerusakan Komputer Berbasis Java Netbeans.

Itulah kira-kira hal-hal penting yang harus di kerjakan dalam membuat sistem pakar, 

Terima Kasih dan Semangat Belajar :)