Sebelum kita membuat program atau aplikasi diagnosa pada penyakit THT menggunakan Delphi maka kita harus tahu domain apa saja yang ada di dalam penyakit THT tersebut, seperti pada tabel dibawah ini :
Domain Peyakit THT
Domain Peyakit THT
No
|
Gejala
|
kanker
| |||
Leher
|
Nofasoring
|
Tonsil
|
Laring
| ||
1
|
Nyeri bicara menelan
|
*
| |||
2
|
Benjolan di leher
|
*
|
*
| ||
3
|
Pendarahan hidung
|
*
|
*
| ||
4
|
Hidung tersumbat
|
*
| |||
5
|
Nyeri tenggorokan
|
*
|
*
| ||
6
|
Batuk
|
*
| |||
7
|
Suara serak
|
*
| |||
1. Pada aplikasi atau Program Ini terdiri dari 2 form yaitu form Login dan form Diagnosa.
Pertama buatlah form login, seperti tampilan dibawah ini
2. Setelah itu masukan kode untuk button 1(Sign in)
procedure TForm2.Button1Click(Sender: TObject);
begin
if (edit1.Text = 'admin') and (edit2.Text = 'ayu') then
begin
form1.Show;
form2.Hide;
Application.MessageBox('login anda berhasil. . .!!','warning',0);
end;
end;
end.
3. Kemudian desainlah form 2 untuk program diagnose penyakit THT seperti gambar dibawah ini
4. Setelah selesai mendisain maka langkah selanjutnya adalah memasukan kode. Yang pertama masukan kode di button1 yakni DIAGNOSA, kodenya sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked =True then
begin
if CheckBox2.Checked =True then
begin
if CheckBox3.Checked =False then
begin
if CheckBox4.Checked =False then
begin
if CheckBox5.Checked =False then
begin
if CheckBox6.Checked =False then
begin
if CheckBox7.Checked =False then
Edit3.Text:='Kanker Leher';
end;
end;
end;
end;
end;
end else if CheckBox3.Checked=True then
begin
if CheckBox4.Checked=True then
begin
if CheckBox5.Checked=False then
begin
if CheckBox6.Checked=False then
begin
if CheckBox7.Checked=False then
begin
if CheckBox1.Checked=False then
begin
if CheckBox2.Checked=False then
Edit3.Text:='Kanker Nafasoring';
end;
end;
end;
end;
end;
end else if CheckBox2.Checked=True then
Begin
if CheckBox5.Checked=True then
begin
if CheckBox1.Checked=False then
begin
if CheckBox3.Checked=False then
begin
if CheckBox4.Checked=False then
Begin
if CheckBox6.Checked=False then
begin
if CheckBox7.Checked=False then
Edit3.Text:='Kanker Tonsil';
end;
end;
end;
end;
end;
end else if CheckBox1.Checked=false then
begin
if CheckBox5.Checked=True then
begin
if CheckBox6.Checked=True then
begin
if CheckBox7.Checked=True then
begin
if CheckBox2.Checked=False then
begin
if CheckBox3.Checked=False then
begin
if CheckBox4.Checked=False then
Edit3.Text:='Kanker Laring';
end;
end;
end;
end;
end;
end;
end;
5. Setelah memasukan kode Diagnosa maka kita lanjutkan memasukan kode ULANG/RESET pada Button2 kodenya sebagai berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
CheckBox1.Checked:=False ;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
CheckBox4.Checked:=False;
CheckBox5.Checked:=False;
CheckBox6.Checked:=False;
CheckBox7.Checked:=False;
end;
6. Kemudian masukan kode CLOSE pada Button3, kodenya sebagai berikut :
procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('TERIMA KASIH,SEMOGA BERMANFAAT');
CLOSE;
end;
end.
7. Setelah selesai memasukan kode. Dan terakhir yang kita lakukan adalah menjalankannya tekan saja F9 dan kira kira seperti gambar dibawah ini tampilan program yang saya buat :
Untuk form login isikan username dan password sesuai dengan kode yang kita masukan tadi
Username : Admin
Password : Ayu
Setelah diisikan Username dan passwor maka klik Sig In !
Nah untuk menjalankan programnya kita harus mengikuti langkah-langksh dibawah ini :
1. KODE PASIEN DAN NAMA PASIEN
2. Jika kita ceklis CheckBox1(Nyeri bicara dan menelan) dan CheckBox2(Benjolan di leher) kemudian klik DIAGNOSA dan hasil diagnosa akan muncul di text3 seperti gambar dibawah ini :
3. begitu selanjurnya ceklis CheckBox berdasarkan gejala penyakit THT seperti domain penyakit THT yang sudah kita jelaskan pada awal tutorial.
Sekian modul dari saya Jika program masih belum bisa berjalan atau terdapat error koding, periksa kembali kode program dan penamaan yang lainnya.
TERIMA KASIH
