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
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
+ komentar + 1 komentar
gan, kok filenya gag mau di download..
Posting Komentar