SISTEM PAKAR
WORKSHEET 1 : FORM MACAM KERUSAKAN
1. Buat folder SISTEM PAKAR
2. Buat sub folder MOTOR di bawah folder SISTEM PAKAR
3. Aktifkan program MS Access
4. Buat file database, simpan dengan nama DBMOTOR.MDB pada sub folder MOTOR
5. Buat struktur table, simpan dengan nama MACAM
6. Tutup program MS Access
7. Aktifkan program Visual Basic
8. Simpan project dengan nama PRMOTOR
9. Simpan form dengan nama MACAM
• Untuk menampilkan komponen AdoDC, klik menu Project Components Microsoft ADO Data Control 6.0 OK
• Untuk menampilkan komponen DataGrid, klik menu Project Components Microsoft DataGrid Control 6.0 OK
10. Isikan data Macam Kerusakan
WORKSHEET 2 : FORM JENIS KERUSAKAN
1. Aktifkan program MS Access
2. Buka file database DBMOTOR.MDB
3. Buat struktur table, simpan dengan nama JENIS
4. Tutup program MS Access
5. Aktifkan program Visual Basic
6. Buka file project PRMOTOR
7. Tambahkan form baru, simpan dengan nama JENIS
8. Ketik kode program di bawah ini
Private Sub Form_Activate()
TBMACAM.Recordset.MoveFirst
Do While Not TBMACAM.Recordset.EOF
XNOMACAM.AddItem Nomor Macam dan Macam Kerusakan
TBMACAM.Recordset.MoveNext
Loop
TBJENIS.CommandType = adCmdText
TBJENIS.RecordSource = Aktifkan table JENIS yang Nomor Jenisnya kosong
TBJENIS.Refresh
Kosongkan Nomor Macam, Macam, Nomor Jenis, Jenis dan Gejala
XNOMACAM.SetFocus
End Sub
Private Sub Timer1_Timer()
If XNOJENIS.Text = "" Then
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = False
Else
CMDSIMPAN.Enabled = True
CMDHAPUS.Enabled = True
End If
End Sub
Private Sub XNOMACAM_DropDown()
XNOMACAM.Width = 5000
End Sub
Private Sub XNOMACAM_Click()
NOMACAM.Text = Left(XNOMACAM.Text, 4)
XNOMACAM.Width = 1250
XNOJENIS.SetFocus
End Sub
Private Sub XNOMACAM_LostFocus()
If XNOMACAM.Text <> "" Then
XNOMACAM.Text = NOMACAM.Text
TBMACAM.Recordset.MoveFirst
TBMACAM.Recordset.Find "NOMACAM='" & XNOMACAM.Text & "'"
XMACAM.Text = TBMACAM.Recordset!MACAM
TBJENIS.RecordSource = Aktifkan data table JENIS yang Nomor Macamnya
Sama dengan XNOMACAM.Text
TBJENIS.Refresh
End If
End Sub
Private Sub XNOJENIS_Change()
If Len(XNOJENIS.Text) = 4 Then XJENIS.SetFocus
End Sub
Private Sub XNOJENIS_LostFocus()
TBJENIS.RecordSource = Aktifkan semua data pada table JENIS
TBJENIS.Refresh
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"
If Nomor Jenis sudah ada Then
Tampilkan Jenis dan Gejala ke form
X = Pesan Nomor Jenis sudah ada, Data diEdit
If X = vbYes Then
XJENIS.SetFocus
Else
Kosongkan Nomor Jenis, Jenis dan Gejala
XNOJENIS.SetFocus
End If
End If
TBJENIS.RecordSource = Aktifkan data table JENIS yang Nomor Macamnya
Sama dengan XNOMACAM.Text
TBJENIS.Refresh
End Sub
Private Sub CMDSIMPAN_Click()
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"
If Nomor Jenis belum ada Then Tambahkan record baru
Tambahkan data ke table JENIS
TBJENIS.Recordset.Update
Kosongkan Nomor Jenis, Jenis dan Gejala
XNOJENIS.SetFocus
End Sub
Private Sub CMDHAPUS_Click()
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"
If Nomor Jenis tidak ada Then
X = Tampilkan pesan Nomor Jenis tidak ada
Else
X = Tampilkan pesan Nomor Jenis mau dihapus
If X = vbYes Then Hapus data
End If
Kosongkan Nomor Jenis, Jenis dan Gejala
XNOJENIS.SetFocus
End Sub
Private Sub CMDSTOP_Click()
Unload Me
End Sub
9. Isikan data Jenis Kerusakan
(Data Jenis Kerusakan ada di file MS Excel DBMOTOR tab JENIS)
WORKSHEET 3 : FORM CIRI KERUSAKAN
1. Aktifkan program MS Access
2. Buka file database DBMOTOR.MDB
3. Buat struktur table, simpan dengan nama CIRI
4. Tutup program MS Access
5. Aktifkan program Visual Basic
6. Buka file project PRMOTOR
7. Tambahkan form baru, simpan dengan nama CIRI
8. Ketik kode program di bawah ini
Private Sub BLANKFORM()
TBCIRI.CommandType = adCmdText
TBCIRI.RecordSource = Aktifkan table CIRI yang Nomor Cirinya Kosong
TBCIRI.Refresh
Kosongkan Nomor Jenis, Jenis, Nomor Ciri, Ciri dan Diagnosa
End Sub
Private Sub Form_Activate()
TBJENIS.Recordset.MoveFirst
Do While Not TBJENIS.Recordset.EOF
XNOJENIS.AddItem Isikan combo box dengan Nomor Jenis dan Jenis
TBJENIS.Recordset.MoveNext
Loop
BLANKFORM
End Sub
Private Sub Form_Load()
TBJENIS.CommandType = adCmdText
TBJENIS.RecordSource = Aktifkan table JENIS
TBJENIS.Refresh
End Sub
Private Sub Timer1_Timer()
If XNOCIRI.Text = "" Then
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = False
Else
CMDSIMPAN.Enabled = True
CMDHAPUS.Enabled = True
End If
End Sub
Private Sub XNOJENIS_Click()
NOJENIS.Text = Left(XNOJENIS.Text, 4)
XNOJENIS.Width = 1250
XNOCIRI.SetFocus
End Sub
Private Sub XNOJENIS_DropDown()
XNOJENIS.Width = 5000
End Sub
Private Sub XNOJENIS_LostFocus()
If XNOJENIS.Text <> "" Then
XNOJENIS.Text = NOJENIS.Text
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find Cari Nomor Jenis
XJENIS.Text = TBJENIS.Recordset!JENIS
TBCIRI.RecordSource = Aktikan table CIRI yang Nomor Jenisnya sesuai
TBCIRI.Refresh
End If
End Sub
Private Sub XNOCIRI_Change()
If Len(XNOCIRI.Text) = 4 Then XCIRI.SetFocus
End Sub
Private Sub XNOCIRI_LostFocus()
TBCIRI.RecordSource = Aktifkan table CIRI
TBCIRI.Refresh
TBCIRI.Recordset.MoveFirst
TBCIRI.Recordset.Find Cari Nomor Ciri
If Nomor Ciri Sudah ada Then
Tampilkan Ciri dan Diagnosa
X = Pesan Nomor Ciri sudah ada
If X = vbYes Then
XCIRI.SetFocus
Else
Kosongkan Nomor Ciri, Ciri dan Diagnosa
End If
End If
TBCIRI.RecordSource = Aktifkan table CIRI yang Nomor Jenisnya sesuai
TBCIRI.Refresh
End Sub
Private Sub CMDSIMPAN_Click()
TBCIRI.Recordset.MoveFirst
TBCIRI.Recordset.Find Cati Nomor Ciri
If Nomor Ciri belum ada Then Tambahkan record baru
Simpan Nomor Jenis, Nomor Ciri, Ciri dan Diagnosa
TBCIRI.Recordset.Update
Kosongkan Nomor Ciri, Ciri dan Diagnosa
End Sub
Private Sub CMDHAPUS_Click()
TBCIRI.Recordset.MoveFirst
TBCIRI.Recordset.Find "NOCIRI='" & XNOCIRI.Text & "'"
If TBCIRI.Recordset.EOF Then
X = MsgBox("NOMOR CIRI " & XNOCIRI.Text & " TIDAK ADA !", vbOKOnly)
Else
X = MsgBox("DATA NOMOR CIRI " & XNOCIRI.Text & " MAU DIHAPUS !", vbYesNo)
If X = vbYes Then TBCIRI.Recordset.Delete
End If
XNOCIRI.Text = ""
XCIRI.Text = ""
XDIAGNOSA.Text = ""
XNOCIRI.SetFocus
End Sub
Private Sub CMDSTOP_Click()
Unload Me
End Sub
9. Isikan data Ciri Kerusakan
(Data Ciri Kerusakan ada di file MS Excel DBMOTOR tab CIRI)
WORKSHEET 4 : FORM PENELUSURAN KERUSAKAN
1. Buka file project PRMOTOR
2. Tambahkan form baru, simpan dengan nama PENELUSURAN
3. Ketik kode program di bawah ini
WORKSHEET 5 : FORM MENU
1. Buka file project PRMOTOR
2. Tambahkan form baru, simpan dengan nama MENU
3. Buat struktur menu seperti di bawah ini :
4. Tambahkan kode program untuk mengaktifkan Form Macam, Form Jenis, Form Ciri dan Form Penelusuran dari Menu Utama
5. Tambahkan form baru, simpan dengan nama LOGIN
6. Buat desain form Login seperti di bawah ini :
7. Tambahkan kode program dengan ketentuan sebagai berikut :
a. Jika OptionButton PAKAR diklik maka Nama dan Password harus diisi dengan STEKOM (bisa huruf kecil maupun huruf kapital) lalu diklik tombol LOGIN maka akan membuka Form Menu dengan menu yang aktif hanya menu PAKAR dan menu SELESAI.
b. Jika OptionButton PEMAKAI diklik maka Nama dan Password tidak perlu diisi tapi langsung diklik tombol LOGIN maka akan membuka Form Menu dengan menu yang aktif hanya menu PEMAKAI dan menu SELESAI.
