Aplikasi Sistem Pakar (Diagnosa Penyakit Sederhana Menggunakan VB. 6.0)

Sistem pakar adalah suatu program komputer yang mengandung pengetahuan dari satu atau lebih pakar manusia mengenai suatu bidang spesifik. Jenis program ini pertama kali dikembangkan oleh periset kecerdasan buatan pada dasawarsa 1960-an dan 1970-an dan diterapkan secara komersial selama 1980-an. Bentuk umum sistem pakar adalah suatu program yang dibuat berdasarkan suatu set aturan yang menganalisis informasi (biasanya diberikan oleh pengguna suatu sistem) mengenai suatu kelas masalah spesifik serta analisis matematis dari masalah tersebut. Tergantung dari desainnya, sistem pakar juga mampu merekomendasikan suatu rangkaian tindakan pengguna untuk dapat menerapkan koreksi. Sistem ini memanfaatkan kapabilitas penalaran untuk mencapai suatu simpulan. < Wikipedia >

Berikut Aplikasi Dan Source Codenya :

Menu Utama

Menu Utama

Private Sub tb_keluar_Click()
End
End Sub

Private Sub tb_masukan_Click(Index As Integer)
Form2.Show
Menu.Hide
End Sub

Diagnosa Penyakit

Private Sub Command1_Click()
Menu.Show
Form2.Hide
End Sub

Private Sub Command2_Click()
If Check1.Value = 1 Then
MsgBox ("anda menderita Penyakit pilek")
End If
If Check2.Value = 1 Then
MsgBox ("anda menderita Penyakit pilek")
End If
If Check2.Value = 1 And Check1.Value = 1 Then
MsgBox ("anda menderita Sinusitis Sfenoidalis")
End If
If Check3.Value = 1 Then
MsgBox ("anda menderita Penyakit sakit kepala")
End If
If Check4.Value = 1 Then
MsgBox ("anda menderita Penyakit Demam")
End If
If Check5.Value = 1 Then
MsgBox ("anda menderita Penyakit Anemia ")
End If
If Check6.Value = 1 Then
MsgBox ("anda menderita Penyakit Magh ")
End If
If Check7.Value = 1 Then
MsgBox ("anda menderita Penyakit Anemia")
End If
End Sub

Untuk Mendapatkan Aplikasi Diagnosa Penyakit + Source Codenya Download Disini