LAMPIRAN A : LISTING PROGRAM

LAMPIRAN A : LISTING PROGRAM

1. css.css @charset "utf-8"; /* CSS Document */ body { margin: 0; padding: 0; line-height: 1.5em; font-family: Georgia, "Times New Roman", Times, serif, Arial, Helvetica, sans-serif, "Times New Roman", Times, serif; font-size: 12px; color: #333333; } a:link, a:visited { color: #000066; text-decoration: none;} a:active, a:hover { color: #990099;} #content{ margin:auto; width:907px; } #header{ text-align:justify; } #header1{ background:url(header.jpg); margin:0px; } #footer{ clear: both; float: left; padding: 10px; width: 888px; color: #FFF; text-align: left; background: #333333; } #footer p{ text-align:center; } #isi1{ border:1px #CCCCCC solid; width:200px; float:left; margin-top:6px; } #isi11{

Universitas Sumatera Utara

width:150px; float:left; font-family:Georgia, "Times New Roman", Times, serif, Arial, Helvetica, sans-serif; font-size:12px; } #batas{ margin-left:10px; float:left; } #isi2{ padding:10px; width:675px; margin-bottom:10px; margin-top:6px; float:left; background-color:#d2dbec; } #isi2 p{ margin-top:0px; text-align:justify; margin-left:8px; } .gambar{ float:left; margin-bottom:10px; margin-left:0px; margin-right:10px; margin-top:0px; } #isi p{ margin-top:0px; text-align:justify; }

2. index.php <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta name="robots" content="index, follow"> <meta name="keywords" content="Sistem Pakar <em>Fuzzy Berbasis Web, Kecerdasan Buatan, Expert System"> <meta name="title" content="Sistem Pakar <em>Fuzzy untuk Diagnosa Penyakit THT"> <meta name="author" content="bebe universe"> <meta name="description" content="Sistem Pakar"> Sistem Pakar Fuzzy <style type="text/css">

left:151px; top:-1px; width:1000px; height:1265px; z-index:1; } #apDiv2 { position:absolute; left:151px; top:-1px; width:1000px; height:136px; z-index:2; } --> <script src="Scripts/AC_RunActiveContent.js" type="text/javascript"> <style type="text/css">

top:142px; width:320px; height:988px; z-index:7; } #apDiv8 { position:absolute; left:152px; top:1129px; width:1001px; height:97px; z-index:8; } --> <style type="text/css">

<script type="text/javascript"> AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/s wflash.cab#version=9,0,28,0','width','907','height','205','title','he ader','src','header','quality','high','pluginspage','http://www.adobe .com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash', 'movie','header' ); //end AC code <noscript> <script type="text/javascript"> AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/s


wflash.cab#version=9,0,28,0','width','907','height','50','title','men u utama','src','menu utama','quality','high','pluginspage','http://www.adobe.com/shockwave /download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','menu utama' ); //end AC code <noscript>

<script type="text/javascript"> AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/s wflash.cab#version=9,0,28,0','width','200','height','290','title','me nu vertikal','src','menu vertikal','quality','high','pluginspage','http://www.adobe.com/shockw ave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','me nu vertikal' ); //end AC code <noscript>


} if(abs((int)$_GET['hal'])=="5") { include("proses_diagnosa.php"); } if(abs((int)$_GET['hal'])=="6") { include("input_nilai_gejala1.php"); } if($_GET['hal']=="7") { include("hal_diagnosa.php"); } if(($_GET['hal'])=="artikel") { include("artikel_lengkap.php"); } if(($_GET['hal'])=="diagnosa") { include("halaman_diagnosa1.php"); } if(($_GET['hal'])=="login") { include("admin/login.php"); } if(($_GET['hal'])=="me") { include("saya.php"); } ?>

Allrights Reserved © 2010

3. koneksi.php

4. halaman_diagnosa1.php
Silahkan Anda

isi

data

diri


Nama :

Jenis Kelamin : <select name="jenis_kelamin">

Umur : <select name="umur"> ".$i.""); ?>

Alamat :

5. hal_diagnosa.php Harap lengkapi data diri Anda"); print("<meta http-equiv=\"refresh\" content=\"2;url=./index.php?hal=diagnosa\">"); } if(isset($_POST['kirim']) && $_POST['nama']!="" && $_POST['alamat']!="") { $nama=strip_tags($_POST['nama']); $jenis_kelamin=$_POST['jenis_kelamin']; $umur=$_POST['umur']; $alamat=strip_tags($_POST['alamat']); $hasil=mysql_query("select * from pasien"); $jumlah=mysql_num_rows($hasil); $jumlah+=1; $id="PAS-".$jumlah; $hasil=mysql_query("insert into pasien values('$id','$nama','$jenis_kelamin','$umur','$alamat')"); if($hasil) { $data=mysql_query("select * from gejala order by kode_gejala asc"); ?>
silahkan pilih gejala yang Anda sedang alami


print(""); $i++; } else { print(""); $i++; } } print("

".$row[1]." ".$row[1]."
"); print("
"); print("
"); } } ?>

6. proses_diagnosa.php
Silahkan lengkapi frekuensi dan intensitas gejala Anda
"); while($row=mysql_fetch_array($hasil)) { if(isset($_POST['gejala'.$row[0]])) { $kode_gejala=$row[0]; $hasil1=mysql_query("insert into konsultasi_pasien values('$id','$kode_gejala','','')"); } } print("
"); $hasilku=mysql_query("select * from gejala"); print(""); while($row=mysql_fetch_array($hasilku)) { $kode_gejala=$row[0]; if(isset($_POST['gejala'.$row[0]])) { $hasil2=mysql_query("select * from pertanyaan_konsultasi where kode_gejala='$kode_gejala'"); while($baris=mysql_fetch_array($hasil2)) { print(""); print(""); } } } print("
"); print($baris[1]."
"); print("".$baris[3]."
");


print("".$baris[4]."

"); print(" "); print($baris[2]."

"); print("
"); print(""); print("
"); } ?>

7. input_nilai_gejala1.php

{ $kode_gejala1=$row[0]; $kode_penyakit=$row[1]; $nilai_frek=$row[2]; $nilai_intent=$row[3]; $c=1; if($nilai_frek=="0"

||

$nilai=="0") { $total1=0; } elseif($nilai_intent=="0"

||

$nilai2=="0") { $total2=0; } else { $total1=max(0,(1(($c*abs($nilai-$nilai_frek))/$nilai_frek))); $total2=max(0,(1(($c*abs($nilai2-$nilai_intent))/$nilai_intent))); } $hasil5=mysql_query("insert into perhitungan values('$id','$kode_gejala1','$kode_penyakit','$total1','$total2','') "); }

$hasil6=mysql_query("select * from perhitungan where kode_pasien='$id'"); while($row=mysql_fetch_array($hasil6)) { $kode_gejala=$row[1]; $kode_penyakit=$row[2]; $tot=$row[3]*0.5+$row[4]*0.5; $eks=mysql_query("update perhitungan set jumlah='$tot' where kode_gejala='$kode_gejala' && kode_penyakit='$kode_penyakit' && kode_pasien='$id'"); } } } $hasil7=mysql_query("select distinct kode_penyakit from perhitungan"); while($row=mysql_fetch_array($hasil7)) { $kode_penyakit=$row['kode_penyakit']; $hasil8=mysql_query("select * from perhitungan where kode_penyakit='$kode_penyakit' && kode_pasien='$id'"); $hasil9=mysql_query("select * from gejala_fuzzy where kode_penyakit='$kode_penyakit'"); $jum=mysql_num_rows($hasil9); $tot1=0; while($row2=mysql_fetch_array($hasil8)) { $tot1=$tot1+$row2[5]; } $tot1=$tot1/$jum; if($tot1<0.2)


{ $variabel="Kecil sekali"; } elseif($tot1>=0.2 && $tot1<=0.499) { $variabel="Kecil"; } elseif($tot1>=0.5 && $tot1<=0.599) { $variabel="Ragu"; } elseif($tot1>=0.6 && $tot1<=0.799) { $variabel="Agak besar"; } elseif($tot1>=0.8 && $tot1<=0.899) { $variabel="Besar"; } elseif($tot1>=0.90) { $variabel="Hampir pasti"; } $hasil10=mysql_query("insert into hasil_diagnosa values('$id','$kode_penyakit','$tot1','$variabel')"); } $hasil11=mysql_query("drop table perhitungan"); $hasil12=mysql_query("create table perhitungan( kode_pasien varchar(8), kode_gejala varchar(6), kode_penyakit varchar(6), kesesuaian_frekuensi double, kesesuaian_intensitas double, jumlah double)"); $hasil=mysql_query("select * from pasien where kode_pasien='$id'"); ?>
Hasil diagnosis penyakit Anda
"); while($row=mysql_fetch_array($hasil)) { $kode_pasien=$row[0]; print("Nama :".$row[1]."Jenis Kelamin:".$row[2]."Umur: ".$row[3]."Alamat:".$row [4].""); print("Gejala yang diderita:"); $hasil4=mysql_query("select * from konsultasi_pasien where kode_pasien='$kode_pasien'");


while($rowku=mysql_fetch_array($hasil4)) { $kode_gejala=$rowku[1]; $hasil5=mysql_query("select * from gejala where kode_gejala='$kode_gejala'"); $hasil6=mysql_fetch_array($hasil5); $nama_gejala=$hasil6[1]; print($nama_gejala."
"); } print(""); print("Kemungkinan penyakit:"); $hasil2=mysql_query("select * from hasil_diagnosa where kode_pasien='$kode_pasien' order by nilai_akhir desc limit 5"); while($row1=mysql_fetch_array($hasil2)) { $hasil3=mysql_query("select * from penyakit where kode_penyakit='$row1[1]'"); while($row2=mysql_fetch_array($hasil3)) { print($row2[1].": ".(substr($row1[2],0,4))*100.0."% dengan kemungkinan ".$row1[3]."
"); } } print(""); } print(""); } ?>

8. penyakit_id.php <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Penyakit THT
Penyakit THT


$sql=mysql_query($sintaks); $jumlah=mysql_result(mysql_query("select count(*) as num from penyakit"),0);print("
"); while($row=mysql_fetch_array($sql)) { $id=$row['kode_penyakit']; $judul=stripslashes($row['nama_penyakit']); $isi=$row['keterangan']; echo("
$judul
"); } echo "

"; if($hal>1) { $prev=$halaman-1; print(" < PREV "); } $sum=ceil($jumlah/$maks_link); for($i=1;$i<=$sum;$i++) { if($hal==$i) { print($i); } else { print(" $i "); } } if($hal<$sum) { $next=$halaman+1; print(" NEXT >"); } print("
"); ?>

9. penyakit_lengkap.php <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Penyakit THT

$id=$_GET['id']; } else { print("Error : tidak ada Id Penyakit THT yang terseleksi"); } $query="select * from penyakit where kode_penyakit='$id'"; $sql=mysql_query($query); $hasil=mysql_fetch_array($sql); $judul=stripslashes($hasil['nama_penyakit']); $isi=stripslashes($hasil['keterangan']); print("
$judul

"); print("$isi"); print("
"); ?>

10.

color=#660066

face=arial

href=./index.php?hal=3>Index

artikel_id.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Artikel THT
Artikel THT
"); while($row=mysql_fetch_array($sql)) { $id=$row['id']; $judul=stripslashes($row['judul']); $isi=$row['headline'];


echo ("
$judul"); echo ("
$isi
"); } echo "

"; if($hal>1) { $prev=$halaman-1; print(" < PREV "); } $sum=ceil($jumlah/$maks_link); for($i=1;$i<=$sum;$i++) { if($hal==$i) { print($i); } else { print(" $i "); } } if($hal<$sum) { $next=$halaman+1; print(" NEXT >"); } print(""); ?>

11.

artikel_lengkap.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Artikel THT
THT

yang


$sql=mysql_query($query); $hasil=mysql_fetch_array($sql); $judul=stripslashes($hasil['judul']); $isi=stripslashes($hasil['isi']); print("
$judul

"); print("$isi"); print("
"); ?> 12.

color=#660066

face=arial

href=./index.php?hal=4>Index

saya.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Untitled Document

<strong>Nama
NIM
Jurusan
Fakultas
<strong>Universitas
<strong>E-mail

:
:
:
:
:
:
Maria I. S. Sinaga
061401094
S1 Ilmu Komputer
MIPA
[email protected]

13.

cek.php


session_start(); // mengecek ada tidaknya session untuk username if (!isset($_SESSION['username'])) { header("Location: ../index.php"); exit; } ?> 14.

delete_artikel.php

Error : Id tidak terseleksi
"); print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=10\">"); } if(!empty($id) && ($id!="")) { $query="delete from artikel_tht where id='$id'"; $sql=mysql_query($query); if($sql) { print("
Artikel berhasil dihapus
"); } else { print("
Artikel gagal dihapus
"); } print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=10\">"); } else { print("
Akses tidak berhasil
"); print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=10\">"); } ?>

15.

delete_gejala.php


{ $id=$_GET['id1']; } else { print("Error : Kode gejala tidak terseleksi
"); print("<meta http-equiv=\"refresh\" content=\"1;url=./halaman_depan_admin.php?hal=9\">"); } if(!empty($id) && ($id!="")) { $query="delete from gejala where kode_gejala='$id'"; $query2=mysql_query("delete from pertanyaan_konsultasi where kode_gejala='$id'"); $query3=mysql_query("delete from gejala_fuzzy where kode_gejala='$id'"); $sql=mysql_query($query); if($sql) { print("
Gejala berhasil dihapus
Gejala gagal dihapus
"); } print("<meta http-equiv=\"refresh\" content=\"1;url=./halaman_depan_admin.php?hal=9\">"); } else { print("
"); print("<meta http-equiv=\"refresh\" content=\"1;url=./halaman_depan_admin.php?hal=9\">"); } ?>

16.

delete_gejala_fuzzy.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> DELETE PENYAKIT THT <script language="javascript"> function tanya(){ if(confirm("Apakah Anda yakin akan menghapus gejala fuzzy ini??")) { return true; } else {


return false; } }
Delete nilai gejala fuzzy telah berhasil

"); } } else {?>
Silahkan Delete Gejala Fuzzy

"); print(""); print(""); while($row=mysql_fetch_array($hasil)) { $kode_gejala=$row[0]; $kode_penyakit=$row[1]; $hasil2=mysql_query("select * from penyakit where kode_penyakit='$kode_penyakit' order by nama_penyakit asc"); $hasil3=mysql_fetch_array($hasil2); $hasil4=mysql_query("select * from gejala_fuzzy where kode_gejala='$kode_gejala'"); $hasil5=mysql_fetch_array($hasil4); $hasil6=mysql_query("select * from gejala where kode_gejala='$kode_gejala'"); $hasil7=mysql_fetch_array($hasil6); if($i%2!=0) { print(""); $i++; }


else { print(""); $i++; } } print("
No. Nama Penyakit Nama Gejala Hapus Gejala
".$i." ".$hasil3[1]." ".$hasil7[1 ]." Delete

".$i." ".$hasil3[1]." ".$hasil7[1 ]." Delete
"); } ?>

17.

delete_penyakit.php

Error : Kode penyakit tidak terseleksi
"); print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=8\">"); } if(!empty($id) && ($id!="")) { $query="delete from penyakit where kode_penyakit='$id'"; $query1="delete from gejala_fuzzy where kode_penyakit='$id'"; $sql1=mysql_query($query1); $sql=mysql_query($query); if($sql) { print("
Penyakit berhasil dihapus
Penyakit gagal dihapus
"); print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=8\">"); } } else { print("
"); print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=8\">"); }


?>

18.

edit_artikel.php

Data berhasil diedit
Data gagal diedit
"); } print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=10\">"); } elseif(isset($_POST['batal'])&& ($_POST['batal']=="Batal")) { print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=10\">"); } ?> EDIT ARTIKEL THT
Edit Artikel:
<pre>


Judul :
Headline :
Isi Artikel : <?php echo $isi;?>

19.

edit_gejala.php

Data gagal diedit
"); } print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=9\">"); } elseif(isset($_POST['batal'])&& ($_POST['batal']=="Batal")) { print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=9\">"); } ?>


EDIT GEJALA THT
Edit Gejala:
<pre>
Nama Gejala :

20.

edit_penyakit.php

Data gagal diedit
"); } print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=10\">");


} elseif(isset($_POST['batal'])&& ($_POST['batal']=="Batal")) { print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=10\">"); } ?> EDIT PENYAKIT THT
Edit Penyakit:
<pre>
Nama Penyakit :
Keterangan : <?php echo $keterangan;?>

21.

halaman_depan_admin.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta name="robots" content="index, follow"> <meta name="keywords" content="Sistem Pakar <em>Fuzzy Berbasis Web, Kecerdasan Buatan, Expert System"> <meta name="title" content="Sistem Pakar <em>Fuzzy untuk Diagnosa Penyakit THT"> <meta name="author" content="bebe universe"> <meta name="description" content="Sistem Pakar"> Sistem Pakar Fuzzy Expert System <style type="text/css">

width:1000px; height:136px; z-index:2; } --> <script src="Scripts/AC_RunActiveContent.js" type="text/javascript"> <style type="text/css">

height:97px; z-index:8; } --> <style type="text/css">

<script type="text/javascript"> AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/s wflash.cab#version=9,0,28,0','width','907','height','205','src','head er','quality','high','pluginspage','http://www.adobe.com/shockwave/do wnload/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','header' ); //end AC code <noscript>
<script type="text/javascript"> AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/s wflash.cab#version=9,0,28,0','width','200','height','290','src','menu vertikal','quality','high','pluginspage','http://www.adobe.com/shockw ave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','me nu vertikal' ); //end AC code <noscript>


include("update_pasien.php"); } if(abs((int)$_GET['hal'])=="12") { include("input_pertanyaan.php"); } if(abs((int)$_GET['hal'])=="13") { include("input_beberapa_penyakit.php"); } if(abs((int)$_GET['hal'])=="14") { include("input_gejala_konsultasi.php"); } if(abs((int)$_GET['hal'])=="15") { include("input_gejala_penyakit.php"); } if(abs((int)$_GET['hal'])=="16") { include("input_nilai_penyakit.php"); } if(abs((int)$_GET['hal'])=="17") { include("update_gejala_fuzzy.php"); } if(abs((int)$_GET['hal'])=="18") { include("delete_gejala_fuzzy.php"); } ?>

Allrights Reserved © 2010

22.

input_artikel.php

Artikel THT Telah Berhasil Ditambahkan
"); }


else { print("
Artikel THT Gagal Ditambahkan
"); } print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=4\">"); } elseif(isset($_POST['batal'])&& ($_POST['batal']=="Batal")) { print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php\">"); } ?> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> INPUT ARTIKEL THT <style type="text/css">
Input Artikel THT

<pre>
Judul :
Headline :
Isi Artikel :

23.

input_beberapa_penyakit.php

"); $hasil=mysql_query("select * from penyakit"); while($row=mysql_fetch_array($hasil)) { if(isset($_POST['pilihan'.$row[0]])) {


$kode_penyakit=$row[0]; $hasil2=mysql_query("insert gejala_fuzzy values('$kode_gejala','$kode_penyakit','','')"); } }

into

?>
Silahkan isi nilai frekuensi dan intensitas penyakit di bawah ini

"); $hasil3=mysql_query("select * from gejala_fuzzy where kode_gejala='$kode_gejala'"); $hasil4=mysql_query("select * from pertanyaan_konsultasi where kode_gejala='$kode_gejala'"); $hasil5=mysql_fetch_array($hasil4); ?> "); print(""); print(""); } } ?>

".strtoupper($nama_penyakit)."
".$ha sil5[1]."
".$hasil5[3]."
".$hasil5[4]."
".$hasil5[5]."
".$hasil5[6]."

".$hasil5[2]."
".$hasil5[7]."
".$hasil5[8]."
".$hasil5[9]."
".$hasil5[10]."


value="KIRIM">

24.

input_data.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
Pilih data yang akan diinput:

Penyakit THT

Gejala Penyakit THT

Artikel THT

User Baru

25.

input_gejala.php


$dataku=mysql_query("select * from gejala nama_gejala like '$huruf1%'"); $jumlah=mysql_num_rows($dataku); $kode_gejala=($jumlah+1); $kode_gejala=$huruf1.$huruf1."-".$kode_gejala;

where

$nama_gejala=addslashes(strip_tags($_POST['nama_gejala'])); $query="insert into gejala values('$kode_gejala','$nama_gejala')"; $sql=mysql_query($query); if($sql) { $hasil1=mysql_query("select * from gejala where kode_gejala='$kode_gejala'"); $hasil2=mysql_fetch_array($hasil1); $nama_gejala=$hasil2[1]; ?>
Silahkan lengkapi pertanyaan konsultasi untuk gejala di bawah ini

Pertanyaan frekuensi :

Frekuensi 1 :

Frekuensi 2 :

Frekuensi 3 :

Frekuensi 4 :

Pertanyaan intensitas :
Intensitas 1 :

Intensitas 2 :

Intensitas 3 :

Intensitas 4 :


print("
Gejala THT Gagal Ditambahkan
"); print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=6\">"); } } elseif(isset($_POST['batal'])&& ($_POST['batal']=="Batal")) { print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php\">"); } else { ?> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> INPUT GEJALA THT <style type="text/css">
Input Gejala THT

<pre>
Nama Gejala :

26.

input_gejala_konsultasi.php


$frekuensi_fuzzy=$_POST['gejala'.$row[1]]; $intensitas_fuzzy=$_POST['gejala1'.$row[1]]; print($frekuensi_fuzzy."
"); print($intensitas_fuzzy."
"); $hasil2=mysql_query("update gejala_fuzzy set frekuensi_fuzzy='$frekuensi_fuzzy',intensitas_fuzzy='$intensitas_fuzz y' where kode_penyakit='$kode_penyakit' && kode_gejala='$kode_gejala'"); } } } else { header("Location: halaman_depan_admin.php"); exit; } ?>

27.

input_gejala_penyakit.php

Silahkan lengkapi frekuensi dan intensitas gejala Anda
"); $hasil=mysql_query("select * from gejala"); print("
Nama penyakit : ".$nama_penyakit); print("
"); print(""); while($row=mysql_fetch_array($hasil)) { if(isset($_POST['gejala'.$row[0]])) { $kode_gejala=$row[0]; $insert=mysql_query("insert into gejala_fuzzy values('$kode_gejala','$kode_penyakit','','')"); $hasil2=mysql_query("select * from pertanyaan_konsultasi where kode_gejala='$kode_gejala'"); while($hasil3=mysql_fetch_array($hasil2)) { print("");


print(""); } } } print("
".$row[1]."
".$hasil3[1]."
".$hasil3[3]."
".$hasil3[4]."
".$hasil3[5]."
".$hasil3[6]."
".$hasil3[2]."
".$hasil3[7]."
".$hasil3[8]."
".$hasil3[9]."
".$hasil3[10]."
"); ?>

28.

input_nilai_penyakit.php


exit; } ?>

29.

input_penyakit.php

where

$nama_penyakit=addslashes(strip_tags(ucwords($_POST['nama_pen yakit']))); $keterangan=addslashes($_POST['keterangan']); $query="insert into penyakit values('$kode_penyakit','$nama_penyakit','$keterangan')"; $sql=mysql_query($query); if($sql) { ?>
Silahkan pilih gejala untuk penyakit di bawah ini

"); $hasil2=mysql_query("select * from gejala"); print("
"); print(""); $i=1; while($row=mysql_fetch_array($hasil2)) { if($i%2!=0) { print(""); $i++; } else { print(""); $i++; } } print("
".$row[1]." ".$row[1]."
"); print("

name=nama_penyakit value=$hasilku[1]>"); print("
Penyakit THT Gagal Ditambahkan
"); print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=2\">"); } } elseif(isset($_POST['batal'])&& ($_POST['batal']=="Batal")) { print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php\">"); } else{ ?> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> INPUT PENYAKIT THT <style type="text/css">
Input Penyakit THT

<pre>
Nama Penyakit :
Keterangan :

30.

input_pertanyaan.php


$nama_gejala=strip_tags($_POST['nama_gejala']); $frek=strip_tags($_POST['frek']); $intent=strip_tags($_POST['intent']); $nil1=strip_tags($_POST['nil1']); $nil2=strip_tags($_POST['nil2']); $nil3=strip_tags($_POST['nil3']); $nil4=strip_tags($_POST['nil4']); $nil5=strip_tags($_POST['nil5']); $nil6=strip_tags($_POST['nil6']); $nil7=strip_tags($_POST['nil7']); $nil8=strip_tags($_POST['nil8']); $hasil=mysql_query("insert into pertanyaan_konsultasi values('$kode_gejala','$frek','$intent','$nil1','$nil2','$nil3','$nil 4','$nil5','$nil6','$nil7','$nil8')"); if($hasil) { ?>
Silahkan pilih penyakit yang memiliki gejala di bawah ini

"); $i=1; while($row=mysql_fetch_array($hasil2)) { if($i % 2 !=0) { print("".$row[1].""); $i++; } else { print("".$row[1].""); $i++; } } ?>


31.

login.php

<style type="text/css"> Silahkan Isi Username dan Password Anda

Masukkan Username

Masukkan Password

32.

loginsubmit.php

if (md5($password) == $data['password']) { $_SESSION['username'] = $username; echo header("Location: halaman_depan_admin.php"); exit; } else echo "
Login Gagal
";


?>

33.

register.php

<style type="text/css">

Silahkan isi Username dan Password baru Anda

Masukkan Username

Masukkan Password

Ulangi Password

34.

submit.php

md5($password1);


$query = "INSERT INTO user '$password1')"; $hasil = mysql_query($query);

VALUES(NULL,'$username',

if ($hasil) { echo "User sudah berhasil terdaftar"; print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=5\">"); } else { echo "Username sudah ada yang memiliki"; print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=5\">"); } } else { echo "Password yang dimasukkan tidak sama"; print("<meta http-equiv=\"refresh\" content=\"2;url=./halaman_depan_admin.php?hal=5\">"); } ?>

35.

update_artikel.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Update ARTIKEL THT <script language="javascript"> function tanya(){ if(confirm("Apakah Anda yakin akan menghapus artikel ini??")) { return true; } else { return false; }


}
Update Artikel THT

"); while($row=mysql_fetch_array($sql)) { $id_artikel=$row['id']; $judul=stripslashes($row['judul']); $headline=stripslashes($row['headline']); $isi=stripslashes($row['isi']); //tampilkan list_artikel Update print("
".$judul."
"); print("Action : Edit | "); print("Delete
"); print("
"); } print("
"); if($hal>1) { $prev=$halaman-1; print("< PREV"); } $sum=ceil($jumlah/$maks_link); for($i=1;$i<=$sum;$i++) { if($hal==$i) { print($i); } else { print("$i"); } }


if($hal<$sum) { $next=$halaman+1; print("next >"); } print(""); print(""); } ?>

36.

update_data.php

Pilih data yang akan diupdate:

Penyakit THT

Gejala Penyakit THT

Artikel THT

Edit Gejala Fuzzy

Delete Gejala Fuzzy

37.

update_gejala.php



Update GEJALA THT <script language="javascript"> function tanya(){ if(confirm("Apakah Anda yakin akan menghapus gejala ini??")) { return true; } else { return false; } }
Update Gejala THT

"); while($row=mysql_fetch_array($sql)) { $kode_gejala=$row['kode_gejala']; $nama_gejala=stripslashes($row['nama_gejala']); print("
".$nama_gejala."
"); print("
"); } print("
"); if($hal>1) { $prev=$halaman-1; print("< PREV "); } $sum=ceil($jumlah/$maks_link); for($i=1;$i<=$sum;$i++) { if($hal==$i) {


print($i); } else { print(" $i "); } } if($hal<$sum) { $next=$halaman+1; print(" next >"); } print(""); print(""); } ?>

38.

update_gejala_fuzzy.php

Update nilai gejala fuzzy telah berhasil

"); } elseif(!isset($_POST['submit6'])) {?>
Silahkan Update Gejala Fuzzy


$i=1; print("
"); print(""); print(""); while($row=mysql_fetch_array($hasil)) { $kode_gejala=$row[0]; $kode_penyakit=$row[1]; $hasil2=mysql_query("select * from penyakit where kode_penyakit='$kode_penyakit' order by nama_penyakit asc"); $hasil3=mysql_fetch_array($hasil2); $hasil4=mysql_query("select * from pertanyaan_konsultasi where kode_gejala='$kode_gejala'"); $hasil5=mysql_fetch_array($hasil4); $hasil6=mysql_query("select * from gejala where kode_gejala='$kode_gejala'"); $hasil7=mysql_fetch_array($hasil6); if($i%2!=0) { print("

print("
No. Nama Gejala Nama Penyakit Frekuensi Gejala Intensitas Gejala
".$i." ".$hasil7[1]." ".$hasil3[1 ]." "); if($row[2]=="0") echo "".$hasil5[3]."
"; else echo "".$hasil5[3]."
"; if($row[2]=="0.3") echo "".$hasil5[4]."
"; if($row[2]=="0.6") echo "".$hasil5[5]."
"; if($row[2]=="1") echo "".$hasil5[6]."
"; ?> ".$hasil5[7]."
"; if($row[3]=="0.3") echo "".$hasil5[8]."
"; if($row[3]=="0.6") echo "".$hasil5[9]."
";


else echo "".$hasil5[9]."
"; if($row[3]=="1") echo "".$hasil5[10]."
"; ?>

".$i." ".$hasil7[1]." ".$hasil3[1 ]." "); if($row[2]=="0") echo "".$hasil5[3]."
"; if($row[2]=="0.3") echo "".$hasil5[4]."
"; if($row[2]=="0.6") echo "".$hasil5[5]."
"; if($row[2]=="1") echo "".$hasil5[6]."
"; ?> ".$hasil5[7]."
"; if($row[3]=="0.3") echo "".$hasil5[8]."
"; if($row[3]=="0.6") echo "".$hasil5[9]."
"; if($row[3]=="1") echo "".$hasil5[10]."
"; ?>

"); print("
"); print(""); } ?>

39.

update_penyakit.php

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Update PENYAKIT THT <script language="javascript"> function tanya(){ if(confirm("Apakah Anda yakin akan menghapus penyakit ini??")) { return true; } else { return false; } }
Update Penyakit THT


$jumlah=mysql_result(mysql_query("select count(*) as num from penyakit"),0); $sql=mysql_query($sintaks); print("
"); while($row=mysql_fetch_array($sql)) { $kode_penyakit=$row['kode_penyakit']; $nama_penyakit=stripslashes($row['nama_penyakit']); print("
".$nama_penyakit."
"); print("
"); } print("
"); if($hal>1) { $prev=$halaman-1; print("< PREV "); } $sum=ceil($jumlah/$maks_link); for($i=1;$i<=$sum;$i++) { if($hal==$i) { print($i); } else { print(" $i "); } } if($hal<$sum) { $next=$halaman+1; print(" next >"); } print("
"); print("
"); } ?>

40.

logout.php

Anda sudah logout";


print("<meta content=\"2;url=../index.php\">");

http-equiv=\"refresh\"

?>



LAMPIRAN B : LEMBAR KONSULTASI

1. Penyakit di Sekitar Telinga

Gejala Batuk dan pilek Nyeri sendi-sendi Demam Telinga terasa penuh Adanya perasaan berputar Mual dan muntah Telinga nyeri Telinga terasa tersumbat Pendengaran berkurang Telinga terasa ada cairan Nyeri saat membuka mulut Pembengkakan di liang telinga

Tidak pernah Tidak sakit Tidak pernah Tidak nyeri Tidak pernah Tidak panas Tidak pernah Tidak penuh Tidak pernah Tidak pusing Tidak pernah Tidak ada Tidak pernah Tidak nyeri Tidak pernah Tidak tersumbat Tidak pernah Tidak berkurang Tidak pernah Tidak penuh Tidak pernah Tidak nyeri Tidak pernah Tidak sakit

Frekuensi dan Intensitas Cukup sering Sedikit sakit Cukup sakit Kadang-kadang Cukup sering Sedikit nyeri Cukup nyeri Kadang-kadang Cukup sering Sedikit panas Cukup panas Kadang-kadang Cukup sering Sedikit penuh Cukup penuh Kadang-kadang Cukup sering Sedikit pusing Cukup pusing Kadang-kadang Cukup sering Sedikit Cukup banyak Kadang-kadang Cukup sering Sedikit nyeri Cukup nyeri Kadang-kadang Cukup sering Sedikit tersumbat Cukup tersumbat Kadang-kadang Cukup sering Sedikit berkurang Cukup berkurang Kadang-kadang Cukup sering Sedikit penuh Cukup penuh Kadang-kadang Cukup sering Sedikit nyeri Cukup nyeri Kadang-kadang Cukup sering Sedikit sakit Cukup sakit Kadang-kadang

Penyakit Sangat sering Sangat sakit Sangat sering Sangat nyeri Sangat sering Sangat panas Sangat sering Sangat penuh Sangat sering Sangat pusing Sangat sering Sangat banyak Sangat sering Sangat nyeri Sangat sering Sangat tersumbat Sangat sering Sangat berkurang Sangat sering Sangat penuh Sangat sering Sangat nyeri Sangat sering Sangat sakit

Neuronitis Vestibularis

Otitis Eksterna Difus

Otitis Eksterna Maligna


Telinga terasa gatal Telinga nyeri Telinga terasa ada cairan Telinga nyeri Nyeri saat membuka mulut Pendengaran berkurang Gelisah Telinga nyeri Demam Badan terasa lesu Pendengaran berkurang Telinga terasa penuh Batuk Pendengaran berkurang Telinga terasa ada cairan Suara sendiri terdengar berbeda Telingan terasa tersumbat

Tidak pernah Tidak gatal Tidak pernah Tidak nyeri Tidak pernah Tidak penuh Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak berkurang Tidak pernah Tidak gelisah Tidak pernah Tidak nyeri Tidak pernah Tidak panas Tidak pernah Tidak lesu Tidak pernah Tidak berkurang Tidak pernah Tidak penuh Tidak pernah Tidak ada Tidak pernah Tidak berkurang Tidak pernah Tidak penuh Tidak pernah Tidak berbeda Tidak pernah Tidak tersumbat

Kadang-kadang Sedikit gatal Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit penuh Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit berkurang Kadang-kadang Sedikit gelisah Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit panas Kadang-kadang Sedikit lesu Kadang-kadang Sedikit berkurang Kadang-kadang Sedikit penuh Kadang-kadang Sedikit keras Kadang-kadang Sedikit berkurang Kadang-kadang Sedikit penuh Kadang-kadang Sedikit berbeda Kadang-kadang Sedikit tersumbat

Cukup sering

Sangat sering Cukup gatal

Cukup sering

Sangat gatal Sangat sering

Cukup nyeri Cukup sering Cukup penuh Cukup sering Cukup nyeri Cukup sering Cukup nyeri Cukup sering Cukup berkurang Cukup sering Cukup gelisah Kadang-kadang Cukup nyeri Cukup sering Cukup panas Cukup sering Cukup lesu Cukup sering Cukup berkurang Cukup sering Cukup penuh Cukup sering Cukup keras Cukup sering Cukup berkurang Cukup sering Cukup penuh Cukup sering Cukup berbeda Cukup sering Cukup tersumbat

Sangat nyeri Sangat sering Sangat penuh Sangat sering Sangat nyeri Sangat sering Sangat nyeri Sangat sering Sangat berkurang Sangat sering Sangat gelisah Sangat sering Sangat nyeri Sangat sering Sangat panas Sangat sering Sangat lesu Sangat sering Sangat berkurang Sangat sering Sangat penuh Sangat sering Sangat keras Sangat sering Sangat berkurang Sangat sering Sangat penuh Sangat sering Sangat berbeda Sangat sering Sangat tersumbat

Otitis Eksterna Sirkumskripta

Otitis Media Akut (OMA)

Otitis Media Serosa Akut


Telinga berdenging

Telingan nyeri Telinga terasa penuh Telinga keluar sekret Sekret telinga berbau busuk Mual dan muntah Mata dan tenggorokan gatal Pendengaran berkurang Telinga terasa penuh Telinga berdenging

Tidak pernah Tidak keras Tidak pernah Tidak nyeri Tidak pernah Tidak penuh Tidak pernah Tidak cair Tidak pernah Tidak bau Tidak pernah Tidak ada Tidak pernah Tidak gatal Tidak pernah Tidak berkurang Tidak pernah Tidak penuh Tidak pernah Tidak keras

Kadang-kadang Sedikit keras Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit penuh Kadang-kadang Sedikit cair Kadang-kadang Sedikit bau Kadang-kadang Sedikit Kadang-kadang Sedikit gatal Kadang-kadang Sedikit berkurang Kadang-kadang Sedikit penuh Kadang-kadang Sedikit keras

Cukup sering

Sangat sering Cukup keras

Cukup sering Cukup nyeri Cukup sering Cukup penuh Cukup sering Cukup cair Cukup sering Cukup bau Cukup sering Cukup banyak Cukup sering Cukup gatal Cukup sering Cukup brkurang Cukup sering Cukup penuh Cukup sering Cukup keras

Sangat keras Sangat sering Sangat nyeri Sangat sering Sangat penuh Sangat sering Sangat cair Sangat sering Sangat bau Sangat sering Sangat banyak Sangat sering Sangat gatal Sangat sering Sangat berkurang Sangat sering Sangat penuh Sangat sering Sangat keras

Otitis Media Supuratif Kronis (OMSK)

Meniere

2. Penyakit di Sekitar Hidung Gejala Hidung terasa ada massa Hidung tersumbat Hidung keluar ingus Terasa ada benjolan di

Tidak pernah Tidak sakit Tidak pernah Tidak tersumbat Tidak pernah Tidak ada Tidak pernah

Frekuensi dan Intensitas Cukup Sering Sedikit sakit Cukup sakit Kadang-kadang Cukup sering Sedikit tersumbat Cukup tersumbat Kadang-kadang Cukup sering Sedikit Cukup banyak Kadang-kadang Cukup sering Kadang-kadang

Penyakit Sangat sering Sangat sakit Sangat sering Sangat tersumbat Sangat sering Sangat banyak Sangat sering

Polip Hidung


hidung Nyeri pada muka Bersin-bersin Hidung

tersumbat

Hidung keluar ingus Hidung terasa gatal Mata gatal dan berair Bayangan gelap didaerah kelopak mata bawah Nafasnya bau Ingus kental berwarna hijau Gangguan penghidu Sakit kepala Hidung tersumbat Gangguan penghidu Gangguan pengecapan Hidung keluar ingus Hidung tersumbat

Tidak sakit Tidak pernah Tidak sakit Tidak pernah Tidak keras Tidak pernah Tidak tersumbat Tidak pernah Tidak ada Tidak pernah Tidak gatal Tidak pernah Tidak sakit Tidak pernah Tidak gelap Tidak pernah Tidak bau Tidak pernah Tidak ada Tidak pernah Tidak ada Tidak pernah Tidak sakit Tidak pernah Tidak tersumbat Tidak pernah Tidak sakit Tidak pernah Tidak parah Tidak pernah Tidak ada Tidak pernah Tidak tersumbat

Sedikit sakit Kadang-kadang Sedikit sakit Kadang-kadang Sedikit keras Kadang-kadang Sedikit tersumbat Kadang-kadang Sedikit Kadang-kadang Sedikit gatal Kadang-kadang Sedikit sakit Kadang-kadang Sedikit gelap Kadang-kadang Sedikit bau Kadang-kadang Sedikit Kadang-kadang Sedikit Kadang-kadang Sedikit sakit Kadang-kadang Sedikit tersumbat Kadang-kadang Sedikit sakit Kadang-kadang Sedikit parah Kadang-kadang Sedikit Kadang-kadang Sedikit tersumbat

Cukup sakit Cukup sering

Sangat sakit Sangat sering

Cukup sakit Cukup sering Cukup keras Cukup sering Cukup tersumbat Cukup sering Cukup banyak Cukup sering Cukup gatal Cukup sering Cukup sakit Cukup sering Cukup gelap Cukup sering Cukup bau Cukup sering Cukup banyak Cukup sering Cukup banyak Cukup sering Cukup sakit Cukup sering Cukup tersumbat Cukup sering Cukup sakit Cukup sering Cukup parah Cukup sering Cukup banyak Cukup sering Cukup tersumbat

Sangat sakit Sangat sering Sangat keras Sangat sering Sangat tersumbat Sangat sering Sangat banyak Sangat sering Sangat gatal Sangat sering Sangat sakit Sangat sering Sangat gelap Sangat sering Sangat bau Sangat sering Sangat banyak Sangat sering Sangat banyak Sangat sering Sangat sakit Sangat sering Sangat tersumbat Sangat sering Sangat sakit Sangat sering Sangat parah Sangat sering Sangat banyak Sangat sering Sangat tersumbat

Rinitis Alergi

Rinitis Atrofi

Rinitis Hipertrofi


Nyeri kepala

Hidung keluar darah Hidung terasa kering Hidung tersumbat Bersin-bersin Sekret hidung mengalir ke tenggorokan terutama pagi hari Hidung keluar ingus Pipi atau kelopak mata bawah bengkak Nyeri gigi Demam Nyeri kepala Nyeri di belakang bola mata Demam Nyeri kepala Dahi dan kelopak mata atas bengkak Nyeri pada dahi Dahi dan kelopak mata atas bengkak

Tidak pernah Tidak nyeri Tidak pernah Tidak ada Tidak pernah Tidak kering Tidak pernah Tidak tersumbat Tidak pernah Tidak keras Tidak pernah Tidak ada Tidak pernah Tidak ada

Kadang-kadang

Tidak pernah Tidak sakit Tidak pernah Tidak nyeri Tidak pernah Tidak sakit Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak panas Tidak pernah Tidak nyeri Tidak pernah Tidak sakit Tidak pernah Tidak nyeri Tidak pernah Tidak sakit

Cukup sering

Sangat sering

Sedikit nyeri

Cukup nyeri

Sedikit Kadang-kadang Sedikit kering Kadang-kadang Sedikit tersumbat Kadang-kadang Sedikit keras Kadang-kadang Sedikit Kadang-kadang Sedikit

Cukup sering Cukup banyak Cukup sering Cukup kering Cukup sering Cukup tersumbat Cukup sering Cukup keras Cukup sering Cukup banyak Cukup sering Cukup banyak

Sangat nyeri Sangat sering Sangat banyak Sangat sering Sangat kering Sangat sering Sangat tersumbat Sangat sering Sangat keras Sangat sering Sangat banyak Sangat sering Sangat banyak

Kadang-kadang

Cukup sering

Sangat sering

Kadang-kadang

Sedikit sakit Kadang-kadang


Sedikit nyeri Kadang-kadang

Cukup sering

Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit panas Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit sakit Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit sakit

Sangat nyeri Sangat sering


Rinitis Vasomotor


Cukup nyeri

Sedikit sakit

Rinitis Sika

Sinusitis Maksiliaris


Cukup nyeri Cukup sering

Sangat nyeri Sangat sering

Cukup nyeri Cukup sering Cukup panas Cukup sering Cukup nyeri Cukup sering Cukup sakit Cukup sering Cukup nyeri Cukup sering Cukup sakit

Sangat nyeri Sangat sering Sangat panas Sangat sering Sangat nyeri Sangat sering Sangat sakit Sangat sering Sangat nyeri Sangat sering Sangat sakit

Sinusitis Sfenoidalis

Sinusitis Frontalis


Demam Hidung keluar ingus Pendengaran berkurang Nyeri kepala Batuk Nyeri pangkal hidung Nyeri sekitar mata Nyeri pada pelipis Demam Hidung tersumbat Nyeri sendi-sendi Hidung tersumbat Nyeri pangkal hidung

Tidak pernah Tidak sakit Tidak pernah Tidak ada Tidak pernah Tidak berkurang Tidak pernah Tidak nyeri Tidak pernah Tidak keras Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak sakit Tidak pernah Tidak tersumbat Tidak pernah Tidak nyeri Tidak pernah Tidak tersumbat Tidak pernah Tidak nyeri

Kadang-kadang

Cukup sering

Sangat sering

Sedikit sakit

Cukup sakit

Sedikit Kadang-kadang Sedikit berkurang Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit keras Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit sakit Kadang-kadang Sedikit tersumbat Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit tersumbat Kadang-kadang Sedikit nyeri

Cukup sering Cukup banyak Cukup sering Cukup berkurang Cukup sering Cukup nyeri Kadang-kadang Cukup keras Cukup sering Cukup nyeri Cukup sering Cukup nyeri Cukup sering Cukup nyeri Cukup sering Cukup sakit Cukup sering Cukup tersumbat Cukup sering Cukup nyeri Cukup sering Cukup tersumbat Cukup sering Cukup nyeri

Kadang-kadang

Sangat sakit Sangat sering Sangat banyak Sangat sering Sangat berkurang Sangat sering Sangat nyeri Sangat sering Sangat keras Sangat sering Sangat nyeri Sangat sering Sangat nyeri Sangat sering Sangat nyeri Sangat sering Sangat sakit Sangat sering Sangat tersumbat Sangat sering Sangat nyeri Sangat sering Sangat tersumbat Sangat sering Sangat nyeri

Sinusitis Kronis

Sinusitis Etmoidalis

Vestibulitis


3. Penyakit di Sekitar Tenggorokan Gejala Leher kaku Nyeri leher Demam Suara sengau Nyeri saat menelan Nyeri tenggorokan Nyeri saat menelan Telinga nyeri Demam Badan terasa lesu Nyeri saat membuka mulut Mual dan muntah Suara sengau Nafas bau Ludah banyak Dasar mulut bengkak

Tidak pernah Tidak ada Tidak pernah Tidak sakit Tidak pernah Tidak panas Tidak pernah Tidak sengau Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak sakit Tidak pernah Tidak panas Tidak pernah Tidak lesu Tidak pernah Tidak nyeri Tidak pernah Tidak ada Tidak pernah Tidak sengau Tidak pernah Tidak bau Tidak pernah Tidak ada Tidak pernah Tidak sakit

Frekuensi dan Intensitas Kadang-kadang Cukup sering Sedikit kaku Cukup kaku Kadang-kadang Cukup sering Sedikit sakit Cukup sakit Kadang-kadang Cukup sering Sedikit panas Cukup panas Kadang-kadang Cukup sering Sedikit sengau Cukup sengau Kadang-kadang Cukup sering Sedikit nyeri Cukup nyeri Kadang-kadang Cukup sering Sedikit nyeri Cukup nyeri Kadang-kadang Cukup sering Sedikit nyeri Cukup nyeri Kadang-kadang Cukup sering Sedikit sakit Cukup sakit Kadang-kadang Cukup sering Sedikit panas Cukup panas Kadang-kadang Cukup sering Sedikit lesu Cukup lesu Kadang-kadang Cukup sering Sedikit nyeri Cukup nyeri Kadang-kadang Cukup sering Sedikit Cukup banyak Kadang-kadang Cukup sering Sedikit sengau Cukup sengau Kadang-kadang Cukup sering Sedikit bau Cukup bau Kadang-kadang Cukup sering Sedikit Cukup banyak Kadang-kadang Cukup sering Sedikit sakit Cukup sakit

Penyakit Sangat sering Sangat kaku Sangat sering Sangat sakit Sangat sering Sangat panas Sangat sering Sangat sengau Sangat sering Sangat nyeri Sangat sering Sangat nyeri Sangat sering Sangat nyeri Sangat sering Sangat sakit Sangat sering Sangat panas Sangat sering Sangat lesu Sangat sering Sangat nyeri Sangat sering Sangat banyak Sangat sering Sangat sengau Sangat sering Sangat bau Sangat sering Sangat banyak Sangat sering Sangat sakit

Abses Parafaring

Abses Peritonsil (Quinsy)

Angina Ludovici


Nyeri saat menelan Demam Pendengaran berkurang Telinga nyeri Telinga terasa ada cairan Telinga berdenging Adanya perasaan berputar (pusing) Nyeri saat menelan Nyeri tenggorokan Batuk Demam Mual dan muntah Suara serak Leher bengkak Perasaan tenggorokan kering Tenggorokan terasa ada yang mengganjal Batuk

Tidak pernah Tidak nyeri Tidak pernah Tidak panas Tidak pernah Tidak berkurang Tidak pernah Tidak sakit Tidak pernah Tidak penuh Tidak pernah Tidak keras Tidak pernah Tidak pusing

Kadang-kadang

Cukup sering

Kadang-kadang Sedikit panas Kadang-kadang Sedikit berkurang Kadang-kadang Sedikit sakit Kadang-kadang Sedikit penuh Kadang-kadang Sedikit keras Kadang-kadang Sedikit pusing

Cukup sering Cukup panas Cukup sering Cukup berkurang Cukup sering Cukup sakit Cukup sering Cukup penuh Cukup sering Cukup keras Cukup sering Cukup pusing

Sangat nyeri Sangat sering Sangat panas Sangat sering Sangat berkurang Sangat sering Sangat sakit Sangat sering Sangat penuh Sangat sering Sangat keras Sangat sering Sangat pusing

Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak keras Tidak pernah Tidak panas Tidak pernah Tidak ada Tidak pernah Tidak serak Tidak pernah Tidak sakit Tidak pernah Tidak kering Tidak pernah Tidak sakit Tidak pernah Tidak keras

Kadang-kadang

Cukup sering

Sangat sering

Sedikit nyeri

Sangat sering Cukup nyeri

Sedikit nyeri

Cukup nyeri

Barotrauma (Aerotitis)

Sangat nyeri

Kadang-kadang

Cukup sering

Sangat sering

Sedikit nyeri Kadang-kadang Sedikit keras Kadang-kadang Sedikit panas Kadang-kadang Sedikit Kadang-kadang Sedikit serak Kadang-kadang Sedikit sakit Kadang-kadang Sedikit kering Kadang-kadang Sedikit sakit Kadang-kadang Sedikit keras

Cukup nyeri Kadang-kadang Cukup keras Cukup sering Cukup panas Cukup sering Cukup banyak Cukup sering Cukup serak Cukup sering Cukup sakit Cukup sering Cukup kering Cukup sering Cukup sakit Kadang-kadang Cukup keras

Sangat nyeri Sangat sering Sangat keras Sangat sering Sangat panas Sangat sering Sangat banyak Sangat sering Sangat serak Sangat sering Sangat sakit Sangat sering Sangat kering Sangat sering Sangat sakit Sangat sering Sangat keras

Faringitis Akut

Faringitis Kronis Hiperplastik


Pembengkakan kelenjar limfe Nyeri saat menelan Suara serak Badan terasa lesu Demam Batuk dengan dahak kental Suara serak Batuk Dahak pada tenggorokan Nyeri tenggorokan Nyeri saat menelan Telinga nyeri

Demam Badan terasa lesu Nafas bau Tenggorokan terasa kering dan tebal Mulut berbau

Tidak pernah Tidak sakit Tidak pernah Tidak nyeri Tidak pernah Tidak serak Tidak pernah Tidak lesu Tidak pernah Tidak panas Tidak pernah Tidak ada Tidak pernah Tidak serak Tidak pernah Tidak keras Tidak pernah Tidak kental Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak nyeri Tidak pernah Tidak panas Tidak pernah Tidak lesu Tidak pernah Tidak bau Tidak pernah Tidak kering & tebal Tidak pernah Tidak bau

Kadang-kadang

Cukup sering Sedikit sakit

Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit serak Kadang-kadang Sedikit lesu Kadang-kadang Sedikit panas Kadang-kadang Sedikit Kadang-kadang Sedikit serak Kadang-kadang Sedikit keras Kadang-kadang Sedikit kental Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit panas Kadang-kadang Sedikit lesu Kadang-kadang Sedikit bau Kadang-kadang Sedikit kering & tebal Kadang-kadang Sedikit bau

Sangat sering Cukup sakit

Cukup sering


Cukup nyeri Cukup sering Cukup serak Cukup sering Cukup lesu Cukup sering Cukup panas Cukup sering Cukup banyak Cukup sering Cukup serak Kadang-kadang Cukup keras Kadang-kadang Cukup kental Cukup sering Cukup nyeri Cukup sering Cukup nyeri Cukup sering Cukup nyeri Cukup sering Cukup panas Cukup sering Cukup lesu Cukup sering Cukup bau Cukup sering Cukup kering & tebal Cukup sering Cukup bau

Sangat nyeri Sangat sering Sangat serak Sangat sering Sangat lesu Sangat sering Sangat panas Sangat sering Sangat banyak Sangat sering Sangat serak Sangat sering Sangat keras Sangat sering Sangat kental Sangat sering Sangat nyeri Sangat sering Sangat nyeri Sangat sering Sangat nyeri Sangat sering Sangat panas Sangat sering Sangat lesu Sangat sering Sangat bau Sangat sering Sangat kering & tebal Sangat sering Sangat bau

Laringitis Akut

Laringitis Kronis

Tonsilitis Akut

Tonsilitis Kronis


Nyeri tenggorokan Demam Sakit menelan tanpa disertai batuk Sakit punggung Nyeri otot Sakit kepala

Tidak pernah Tidak nyeri Tidak pernah Tidak panas Tidak pernah Tidak sakit Tidak pernah Tidak sakit Tidak pernah Tidak nyeri Tidak pernah Tidak sakit

Kadang-kadang

Cukup sering Sedikit nyeri

Kadang-kadang Sedikit panas Kadang-kadang Sedikit sakit Kadang-kadang Sedikit sakit Kadang-kadang Sedikit nyeri Kadang-kadang Sedikit sakit

Sangat sering Cukup nyeri

Cukup sering Cukup panas Cukup sering Cukup sakit Cukup sering Cukup sakit Cukup sering Cukup nyeri Cukup sering Cukup sakit

Sangat nyeri Sangat sering Sangat panas Sangat sering Sangat sakit Sangat sering Sangat sakit Sangat sering Sangat nyeri Sangat sering Sangat sakit

Tonsilitis Septik


Nama	:
Jenis Kelamin	:	<select name="jenis_kelamin">
Umur	:	<select name="umur"> ".$i.""); ?>
Alamat	:

No.	Nama Penyakit	Nama Gejala	Hapus Gejala
".$i."	".$hasil3[1]."	".$hasil7[1 ]."	Delete
".$i."	".$hasil3[1]."	".$hasil7[1 ]."	Delete

".strtoupper($nama_penyakit)." ".$ha sil5[1]." ".$hasil5[3]." ".$hasil5[4]." ".$hasil5[5]." ".$hasil5[6]."	".$hasil5[2]." ".$hasil5[7]." ".$hasil5[8]." ".$hasil5[9]." ".$hasil5[10]."

Pertanyaan frekuensi	:
Frekuensi 1	:
Frekuensi 2	:
Frekuensi 3	:
Frekuensi 4	:
Pertanyaan intensitas	:
Intensitas 1	:
Intensitas 2	:
Intensitas 3	:
Intensitas 4	:

No.	Nama Gejala	Nama Penyakit	Frekuensi Gejala	Intensitas Gejala
".$i."	".$hasil7[1]."	".$hasil3[1 ]."	"); if($row[2]=="0") echo "".$hasil5[3]." "; else echo "".$hasil5[3]." "; if($row[2]=="0.3") echo "".$hasil5[4]." "; else echo "".$hasil5[4]." "; if($row[2]=="0.6") echo "".$hasil5[5]." "; else echo "".$hasil5[5]." "; if($row[2]=="1") echo "".$hasil5[6]." "; else echo "".$hasil5[6]." "; ?>	".$hasil5[7]." "; else echo "".$hasil5[7]." "; if($row[3]=="0.3") echo "".$hasil5[8]." "; else echo "".$hasil5[8]." "; if($row[3]=="0.6") echo "".$hasil5[9]." "; Universitas Sumatera Utara else echo "".$hasil5[9]." "; if($row[3]=="1") echo "".$hasil5[10]." "; else echo "".$hasil5[10]." "; ?>
".$i."	".$hasil7[1]."	".$hasil3[1 ]."	"); if($row[2]=="0") echo "".$hasil5[3]." "; else echo "".$hasil5[3]." "; if($row[2]=="0.3") echo "".$hasil5[4]." "; else echo "".$hasil5[4]." "; if($row[2]=="0.6") echo "".$hasil5[5]." "; else echo "".$hasil5[5]." "; if($row[2]=="1") echo "".$hasil5[6]." "; else echo "".$hasil5[6]." "; ?>	".$hasil5[7]." "; else echo "".$hasil5[7]." "; if($row[3]=="0.3") echo "".$hasil5[8]." "; else echo "".$hasil5[8]." "; if($row[3]=="0.6") echo "".$hasil5[9]." "; else echo "".$hasil5[9]." "; if($row[3]=="1") echo "".$hasil5[10]." "; else echo "".$hasil5[10]." "; ?>

LAMPIRAN A : LISTING PROGRAM

Recommend Documents

Silahkan Anda

silahkan pilih gejala yang Anda sedang alami

Silahkan lengkapi frekuensi dan intensitas gejala Anda

Hasil diagnosis penyakit Anda

Penyakit THT

Artikel THT

Artikel berhasil dihapus

Artikel gagal dihapus

Akses tidak berhasil

Gejala berhasil dihapus

Gejala gagal dihapus

Akses tidak berhasil

Delete nilai gejala fuzzy telah berhasil

Silahkan Delete Gejala Fuzzy

Penyakit berhasil dihapus

Penyakit gagal dihapus

Akses tidak berhasil

Data berhasil diedit

Data gagal diedit

Edit Artikel:

Data berhasil diedit

Data gagal diedit

Edit Gejala:

Data berhasil diedit

Data gagal diedit

Edit Penyakit:

Artikel THT Telah Berhasil Ditambahkan

Artikel THT Gagal Ditambahkan

Input Artikel THT

Silahkan isi nilai frekuensi dan intensitas penyakit di bawah ini

Pilih data yang akan diinput:

Silahkan lengkapi pertanyaan konsultasi untuk gejala di bawah ini

Gejala THT Gagal Ditambahkan

Input Gejala THT

Silahkan lengkapi frekuensi dan intensitas gejala Anda

Silahkan pilih gejala untuk penyakit di bawah ini

Penyakit THT Gagal Ditambahkan

Input Penyakit THT

Silahkan pilih penyakit yang memiliki gejala di bawah ini

Login Gagal

Silahkan isi Username dan Password baru Anda

Update Artikel THT

Pilih data yang akan diupdate:

Update Gejala THT

Update nilai gejala fuzzy telah berhasil

Silahkan Update Gejala Fuzzy

Update Penyakit THT