Studi Informatika

Panduan Pembelajaran Ilmu Teknologi & Komputer

Wednesday, December 13, 2017

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 DOS Drive
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 dengan normal 
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 kemudian hidupkan seperti biasa. Untuk sebagian besar kasus, 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 komputer yang 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 menggunakan tools utama sebagai berikut : 
o VB6 sebagai framework 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.
(Aplikasi dibawah ini bukan hasil dari skripsi ini namun hanya sebatas contoh saja, aplikasi dari skripsi ini dengan menggunakan visual basic bukan java) 
silahkan download link dibawah : 


Itulah kira-kira hal-hal penting yang harus di kerjakan dalam membuat sistem pakar, Terima Kasih Telah Berkunjung :)


 
Wednesday, December 13, 2017 December 13, 2017 - tanpa komentar

No comments:

Post a Comment