1.Konsep
Kerja Sistem Pakar
-
Disini
system pakar yang saya buat menggunakan metode checkbox..
-
Saat
RUN,maka akan muncul beberapa gejala penyakit.
-
Dan
jika salah satu di check,maka akan muncul label kemungkinan penyakit serta
gejala lain yang timbul,
Contoh
alur
|
 |
|||
 |
 |
||
|
2.
Peralatan
-
Operating
Sistem Windows
-
Visual
Basic 6
-
MySQL
-
Driver
ODBC 5.1
3. Bentuk
Data Base Sistem Pakar
Tabel
Penyakit Tabel Gejala
|
Nama
|
|
Nama
|
|
Abses parafaringeal
|
Ada benjolan dileher
|
|
|
Abses Peritonsiler
|
Ada yang tumbuh dimulut
|
|
|
Barotitis Media
|
Air liur menetes
|
|
|
Contact Ulcers
|
Batuk
|
|
|
Deviasi Septum
|
Berat badan turun
|
|
|
Faringitis
|
Bola mata bergerak tanpa sadar
|
|
|
Kanker Laring
|
Bunyi nafas abnormal
|
|
|
Kanker Leher dan Kepala
|
Dahi sakit
|
|
|
Kanker leher metastatic
|
Demam
|
|
|
Kanker Nasolaring
|
Hidung Meler
|
|
|
Kanker tonsil
|
Hidung Tersumbat
|
|
|
Laringitis
|
Infeksi sinus
|
|
|
Meniere
|
Leher bengkak
|
|
|
Neuronitis Vestibularis
|
Letih dan lesu
|
|
|
Osteosklerosis
|
Mual dan muntah
|
|
|
Otitis Media Akut
|
Nyeri antara mata
|
|
|
Sinusitis Edmoidalis
|
Nyeri leher
|
|
|
Sinusitis Frontalis
|
Nyeri pinggir hidung
|
|
|
Sinusitis Maksilaris
|
Nyeri pipi dibawah mata
|
|
|
Sinusitis Sfenoidalis
|
Nyeri Saat Berbicara atau Menelan
|
|
|
Tonsilitis
|
Nyeri Telinga
|
|
|
Tumor Syaraf Pendengaran
|
Nyeri Tenggorokan
|
|
|
|
Nyeri Wajah
|
|
|
Pembengkakan kelenjar getah bening
|
||
|
Pendarahan hidung
|
||
|
Perubahan Kulit
|
||
|
Perubahan suara
|
||
|
Radang gendang telinga
|
||
|
Sakit gigi
|
||
|
Sakit Kepala
|
||
|
Selaput lendir merah
|
||
|
Serangan Vertigo
|
||
|
stress
|
||
|
Suara serak
|
||
|
Telinga berdenging
|
||
|
Telinga terasa penuh
|
||
|
Tenggorokan gatal
|
||
|
Tubuh tak seimbang
|
||
|
Tuli
|
|
tblPenyakitGejala
|
|
|
Penyakit
|
Gejala
|
|
Abses parafaringeal
|
Leher bengkak
|
|
Abses parafaringeal
|
Nyeri Saat Berbicara atau Menelan
|
|
Abses Peritonsiler
|
Air liur menetes
|
|
Abses Peritonsiler
|
Demam
|
|
Abses Peritonsiler
|
Nyeri Tenggorokan
|
|
Abses Peritonsiler
|
Pembengkakan kelenjar getah bening
|
|
Abses Peritonsiler
|
Sakit Kepala
|
|
Abses Peritonsiler
|
Suara serak
|
|
Barotitis Media
|
Nyeri Telinga
|
|
Barotitis Media
|
Sakit Kepala
|
|
Contact Ulcers
|
Nyeri Saat Berbicara atau Menelan
|
|
Contact Ulcers
|
Suara serak
|
|
Deviasi Septum
|
Demam
|
|
Deviasi Septum
|
Hidung Tersumbat
|
|
Deviasi Septum
|
Infeksi sinus
|
|
Deviasi Septum
|
Nyeri Telinga
|
|
Deviasi Septum
|
Nyeri Wajah
|
|
Deviasi Septum
|
Pendarahan hidung
|
|
Faringitis
|
Demam
|
|
Faringitis
|
Nyeri leher
|
|
Faringitis
|
Nyeri Saat Berbicara atau Menelan
|
|
Faringitis
|
Nyeri Tenggorokan
|
|
Faringitis
|
Pembengkakan kelenjar getah bening
|
|
Kanker Laring
|
Batuk
|
|
Kanker Laring
|
Berat badan turun
|
|
Kanker Laring
|
Bunyi nafas abnormal
|
|
Kanker Laring
|
Nyeri leher
|
|
Kanker Laring
|
Nyeri Saat Berbicara atau Menelan
|
|
Kanker Laring
|
Nyeri Tenggorokan
|
|
Kanker Laring
|
Suara serak
|
|
Kanker Leher dan Kepala
|
Ada benjolan dileher
|
|
Kanker Leher dan Kepala
|
Ada yang tumbuh dimulut
|
|
Kanker Leher dan Kepala
|
Nyeri Saat Berbicara atau Menelan
|
|
Kanker Leher dan Kepala
|
Pendarahan hidung
|
|
Kanker Leher dan Kepala
|
Perubahan Kulit
|
|
Kanker Leher dan Kepala
|
Perubahan suara
|
|
Kanker leher metastatik
|
Ada benjolan dileher
|
|
Kanker Nasolaring
|
Hidung Tersumbat
|
|
Kanker Nasolaring
|
Pendarahan hidung
|
|
Kanker tonsil
|
Ada benjolan dileher
|
|
Kanker tonsil
|
Nyeri Tenggorokan
|
|
Laringitis
|
Demam
|
|
Laringitis
|
Leher bengkak
|
|
Laringitis
|
Nyeri Saat Berbicara atau Menelan
|
|
Laringitis
|
Pembengkakan kelenjar getah bening
|
|
Laringitis
|
Tenggorokan gatal
|
|
Meniere
|
Mual dan muntah
|
|
Meniere
|
Nyeri Telinga
|
|
Meniere
|
Serangan Vertigo
|
|
Meniere
|
Telinga terasa penuh
|
|
Neuronitis Vestibularis
|
Bola mata bergerak tanpa sadar
|
|
Neuronitis Vestibularis
|
Mual dan muntah
|
|
Osteosklerosis
|
Telinga berdenging
|
|
Osteosklerosis
|
Tuli
|
|
Otitis Media Akut
|
Demam
|
|
Otitis Media Akut
|
Mual dan muntah
|
|
Otitis Media Akut
|
Nyeri Telinga
|
|
Otitis Media Akut
|
Radang gendang telinga
|
|
Sinusitis Edmoidalis
|
Batuk
|
|
Sinusitis Edmoidalis
|
Dahi sakit
|
|
Sinusitis Edmoidalis
|
Demam
|
|
Sinusitis Edmoidalis
|
Hidung Meler
|
|
Sinusitis Edmoidalis
|
Hidung Tersumbat
|
|
Sinusitis Edmoidalis
|
Letih dan lesu
|
|
Sinusitis Edmoidalis
|
Nyeri antara mata
|
|
Sinusitis Edmoidalis
|
Nyeri pinggir hidung
|
|
Sinusitis Edmoidalis
|
Sakit Kepala
|
|
Sinusitis Edmoidalis
|
Selaput lendir merah
|
|
Sinusitis Frontalis
|
Batuk
|
|
Sinusitis Frontalis
|
Dahi sakit
|
|
Sinusitis Frontalis
|
Demam
|
|
Sinusitis Frontalis
|
Hidung Meler
|
|
Sinusitis Frontalis
|
Hidung Tersumbat
|
|
Sinusitis Frontalis
|
Letih dan lesu
|
|
Sinusitis Frontalis
|
Sakit Kepala
|
|
Sinusitis Frontalis
|
Selaput lendir merah
|
|
Sinusitis Maksilaris
|
Batuk
|
|
Sinusitis Maksilaris
|
Demam
|
|
Sinusitis Maksilaris
|
Hidung Meler
|
|
Sinusitis Maksilaris
|
Hidung Tersumbat
|
|
Sinusitis Maksilaris
|
Letih dan lesu
|
|
Sinusitis Maksilaris
|
Nyeri pipi dibawah mata
|
|
Sinusitis Maksilaris
|
Sakit gigi
|
|
Sinusitis Maksilaris
|
Sakit Kepala
|
|
Sinusitis Maksilaris
|
Selaput lendir merah
|
|
Sinusitis Sfenoidalis
|
Batuk
|
|
Sinusitis Sfenoidalis
|
Demam
|
|
Sinusitis Sfenoidalis
|
Hidung Meler
|
|
Sinusitis Sfenoidalis
|
Hidung Tersumbat
|
|
Sinusitis Sfenoidalis
|
Letih dan lesu
|
|
Sinusitis Sfenoidalis
|
Nyeri leher
|
|
Sinusitis Sfenoidalis
|
Nyeri Telinga
|
|
Sinusitis Sfenoidalis
|
Sakit Kepala
|
|
Sinusitis Sfenoidalis
|
Selaput lendir merah
|
|
Tonsilitis
|
Demam
|
|
Tonsilitis
|
Mual dan muntah
|
|
Tonsilitis
|
Nyeri Saat Berbicara atau Menelan
|
|
Tonsilitis
|
Nyeri Tenggorokan
|
|
Tonsilitis
|
Sakit Kepala
|
|
Tumor Syaraf Pendengaran
|
Sakit Kepala
|
|
Tumor Syaraf Pendengaran
|
Tubuh tak seimbang
|
|
Tumor Syaraf Pendengaran
|
Tuli
|
|
Vertigo postular
|
Bola mata bergerak tanpa sadar
|
|
tblObat
|
|
|
Nama
|
Penyakit
|
|
Air Kelapa
|
Sinusitis Edmoidalis
|
|
Diapet
|
Sinusitis Maksilaris
|
|
Entrostop
|
Sinusitis Maksilaris
|
|
Inza
|
Sinusitis Frontalis
|
|
Mixagrip
|
Sinusitis Frontalis
|
|
Panadol
|
Tonsilitis
|
|
Paramex
|
Abses Peritonsiler
|
|
Parasetamol
|
Abses Peritonsiler
|
|
Promag
|
Sinusitis Sfenoidalis
|
4.Source
Code
Dim con As
New ADODB.Connection
Private
Sub Form_Load()
na =
InputBox("Masukkan Nama anda?", "nama")
Label5.Caption
= na
Label6.Caption
= "4C"
'membuka koneksi
con.Open "Driver=MySQL ODBC 5.1
Driver;Database=sst;" & _
"Server=Localhost;UID=root;password=;
Port=;"
Dim rst As New ADODB.Recordset
rst.Open "select * from
tblGejala", con, adOpenKeyset 'input semua gejala
Do Until rst.EOF
lstGejala.AddItem rst!Nama
rst.MoveNext
Loop
rst.Close
End Sub
Private
Sub Form_Unload(Cancel As Integer)
con.Close 'menutup koneksi
End Sub
Private
Sub lstGejala_Click()
lvwPenyakit.ListItems.Clear
Dim s As String, i As Integer
For i = 0 To lstGejala.ListCount - 1
'membuat criteria SQL
If lstGejala.Selected(i) = True Then s
= IIf(s = "", "Gejala = '" & lstGejala.List(i) &
"'", s & " or Gejala = '" & lstGejala.List(i) &
"'")
Next
If s = "" Then Exit Sub
Dim rst As New ADODB.Recordset
Dim Rst1 As New ADODB.Recordset
Dim Rst2 As New ADODB.Recordset
Dim g As String
Dim oke As Boolean
rst.Open "select Penyakit from
tblPenyakitGejala where " & s & "order by Penyakit",
con, adOpenKeyset
Do Until rst.EOF
If lvwPenyakit.FindItem(rst!Penyakit)
Is Nothing Then 'jika belum ada d daftar
g = ""
oke = True
Rst1.Open "select Gejala from
tblPenyakitGejala where Penyakit = '" & rst!Penyakit & "'
order by Gejala", con, adOpenKeyset
Do Until Rst1.EOF 'mengumpulkan
data gejala
For i = 0 To
lstGejala.ListCount - 1
If lstGejala.Selected(i) =
True Then 'filter penyakit
Rst2.Open "select
* from tblPenyakitGejala where Penyakit = '" & rst!Penyakit &
"' and Gejala = '" & lstGejala.List(i) & "'", con,
adOpenKeyset
If Rst2.RecordCount = 0
Then
oke = False
Rst2.Close
Exit Do
Exit For
End If
Rst2.Close
End If
Next
g = IIf(g = "",
Rst1!Gejala, g & ", " & Rst1!Gejala)
Rst1.MoveNext
Loop
Rst1.Close
If oke = True Then
lvwPenyakit.ListItems.Add(, , rst!Penyakit).SubItems(1) = g 'menambahkan k
daftar penyakit
End If
rst.MoveNext
Loop
rst.Close
End Sub
Private
Sub lvwPenyakit_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim rst As New ADODB.Recordset
Dim s As String
rst.Open "select Nama from tblObat
where Penyakit = '" & Item.Text & "' order by Nama",
con, adOpenKeyset
Do Until rst.EOF 'mengumpulan data obat sesuai penyakitnya
s = IIf(s = "", "-
" & rst!Nama, s & vbCrLf & "- " & rst!Nama)
rst.MoveNext
Loop
rst.Close
s = "Penyakit : " & Item.Text
& vbCrLf & "Obat :" & vbCrLf & s
txtObat.Text = s 'memasukkan ke textbox
End Sub
Private
Sub Tg_Click()
End Sub
Private
Sub Tbhgjl_Click()
End Sub
Private
Sub tbhObt_Click()
End Sub
Private
Sub tbhpyk_Click()
End Sub
Private
Sub tmgj_Click()
End Sub
Private
Sub UsNm_Click()
na =
InputBox("Masukkan Nama anda?", "nama")
Label5.Caption
= na
End Sub
5.Tampilan
RUN
1.
2.
3.
Tulisan By Munirmaestro
Selamat datang Di Blog Saya,Mohon LIKE atau Follow agar saling Kenal...Terimah kasih
Tidak ada komentar:
Posting Komentar