LISTING PROGRAM
Form Awal Private Sub cmdEnter_Click() Form_Awal.Hide Form_Login.Show End Sub Private Sub cmdExit_Click() pesan = MsgBox("Apakah Anda Yakin Ingin Keluar?", vbInformation + vbYesNo, "Perhatian") If pesan = vbYes Then End End Sub Private Sub Form_Load() lblwaktu.Caption = Format(Now, "DDDD, d MMMM yyyy End Sub
hh:mm")
Private Sub Timer1_Timer() lblwaktu.Caption = Format(Now, "DDDD, d MMMM yyyy hh:mm") End Sub
Form Login Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() If password.Text = "POLIKLINIK" Then Form_Menu.Show Else pesan = MsgBox("Password Salah. "Pesan") password = "" End If End Sub
Coba
lagi",
Private Sub password_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdok.SetFocus End If End Sub
Form Menu Private Sub Mn_Data_Click() Form_Data_Pasien.Show End Sub Private Sub Mn_Exit_Click()
vbInformation,
pesan = MsgBox("Apakah Anda Yakin ingin keluar dari Program ini?", vbYesNo, "Pesan") If pesan = vbYes Then End If Form_Awal.Show Form_Menu.Hide End Sub Private Sub Mn_Laporan_Click() Form_Data_Rekap.Show End Sub Private Sub Mn_Register_Click() Form_Cek_Kesehatan.Show End Sub
Form Registrasi Private Sub Alamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Pekerjaan.SetFocus End If End Sub Private Sub cmdbatal_Click() pesan = MsgBox("Anda tidak jadi menyimpan data", vbOKOnly, "Pesan") Call bersih End Sub Private Sub cmdcari_Click() cn = InputBox("Ketikkan N0.Identitas (NI)", "Pencarian Data Pasien") cn1 = InputBox("Ketikkan Nama Pasien yang Dicari", "Pencarian Data Pasien") NI = Len(cn) Nama = Len(cn1) Data_Registrasi.Recordset.FindFirst "Left(NI," & Len(cn) & ")" & "=" & "'" & cn & "' and Left(NAMA," & Len(cn1) & ")" & "=" & "'" & cn1 & "'" If cn = vbOK Then Else If Data_Registrasi.Recordset.NoMatch Then pesan = MsgBox("data tidak ditemukan", vbOKOnly, "Pesan") Else Call Tampil End If End If End Sub Private Sub cmdedit_Click() cmdedit.Enabled = False cmdsimpan.Enabled = False cmdtambah.Enabled = False cmdupdate.Enabled = True cmdbatal.Enabled = True End Sub Private Sub cmdpertama_Click() Data_Registrasi.Recordset.MoveFirst Call Tampil End Sub
Private Sub cmdsebelum_Click() Data_Registrasi.Recordset.MovePrevious If Data_Registrasi.Recordset.BOF Then Data_Registrasi.Recordset.MoveFirst pesan = MsgBox("Ini adalah data pertama", vbOKOnly, "Pesan") End If Call Tampil End Sub Private Sub cmdsesudah_Click() Data_Registrasi.Recordset.MoveNext If Data_Registrasi.Recordset.EOF Then Data_Registrasi.Recordset.MoveLast pesan = MsgBox("Ini adalah data terakhir", vbOKOnly, "Pesan") End If Call Tampil End Sub Private Sub cmdsimpan_Click() pesan = MsgBox("Yakin Anda akan menyimpan data", vbYesNo, "Pesan") If pesan = vbYes Then With Data_Registrasi.Recordset .AddNew !NI = NI.Text !Nama = Nama.Text !Umur = Umur.Text !Jenis_Kelamin = Jenis_Kelamin.Text !Alamat = Alamat.Text !Pekerjaan = Pekerjaan.Text !Jurusan = Jurusan.Text !Golongan_Darah = Golongan_Darah.Text a = dpt_Tanggal b = Format(dpt_Tanggal_Berobat, "dd/mm/yy") !Tanggal_Berobat = CDate(b) .Update End With Data_Registrasi.Refresh DBGrid1.Refresh Call bersih ElseIf pesan = vbNo Then pesan2 = MsgBox("Anda tidak jadi menyimpan data", vbOKOnly, "Pesan") Call bersih End If End Sub Private Sub cmdtambah_Click() Call bersih End Sub Private Sub cmdterakhir_Click() Data_Registrasi.Recordset.MoveLast Call Tampil End Sub Private Sub cmdtutup_Click() Form_Registrasi.Hide Form_Menu.Show End Sub
Private Sub cmdupdate_Click() With Data_Registrasi.Recordset .Edit !NI = NI.Text !Nama = Nama.Text !Umur = Umur.Text !Jenis_Kelamin = Jenis_Kelamin.Text !Alamat = Alamat.Text !Pekerjaan = Pekerjaan.Text !Fakultas = Fakultas.Text !Jurusan = Jurusan.Text !Golongan_Darah = Golongan_Darah.Text a = dpt_Tanggal b = Format(dpt_Tanggal_Berobat, "dd/mm/yy") !Tanggal_Berobat = CDate(b) .Update End With Data_Registrasi.Refresh DBGrid1.Refresh Call bersih End Sub Private Sub Command2_Click() Form_Registrasi.Hide Form3.Show End Sub Private Sub dpt_Tanggal_Berobat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Golongan_Darah.SetFocus End If End Sub Private Sub Fakultas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Jurusan.SetFocus End If End Sub Private Sub bersih() NI = "" Nama = "" Umur = "" Jenis_Kelamin = "" Alamat = "" Pekerjaan = "" Fakultas = "" Jurusan = "" Golongan_Darah = "" cmdsimpan.Enabled = True cmdbatal.Enabled = True cmdedit.Enabled = True cmdupdate.Enabled = True cmdtambah.Enabled = True End Sub Private Sub Tampil() With Data_Registrasi.Recordset NI = !NI
Nama = !Nama Umur = !Umur Jenis_Kelamin = !Jenis_Kelamin Alamat = !Alamat Pekerjaan = !Pekerjaan Fakultas = !Fakultas Jurusan = !Jurusan Golongan_Darah = !Golongan_Darah End With End Sub Private Sub Golongan_Darah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then dpt_Tanggal_Berobat.SetFocus End If End Sub Private Sub Jenis_Kelamin_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Pekerjaan.SetFocus End If End Sub Private Sub Jurusan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Golongan_Darah.SetFocus End If End Sub Private Sub Nama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then NI.SetFocus End If End Sub Private Sub NI_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Nama.SetFocus End If End Sub Private Sub Pekerjaan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Alamat.SetFocus End If End Sub Private Sub Umur_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Alamat.SetFocus End If End Sub
Form Data Pasien Private Sub bersih() No = "" NI = "" Nama_Pasien = ""
Umur = "" Jenis_Kelamin = "" Alamat = "" Pekerjaan = "" Fakultas = "" Jurusan = "" Golongan_Darah = "" Hasil_Diagnosa = "" cmdsimpan.Enabled = True cmdbatal.Enabled = True cmdedit.Enabled = True cmdupdate.Enabled = True cmdtambah.Enabled = True End Sub Private Sub Tampil() With Data_Pasien.Recordset No = !No NI = !NI Nama_Pasien = !Nama_Pasien Umur = !Umur Jenis_Kelamin = !Jenis_Kelamin Alamat = !Alamat Pekerjaan = !Pekerjaan Fakultas = !Fakultas Jurusan = !Jurusan Golongan_Darah = !Golongan_Darah Hasil_Diagnosa = !Hasil_Diagnosa End With End Sub Private Sub Alamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Pekerjaan.SetFocus End If End Sub Private Sub cmdbatal_Click() pesan = MsgBox("Anda tidak jadi menyimpan data", vbOKOnly, "Pesan") Call bersih End Sub Private Sub cmdcari_Click() cn = InputBox("Ketikkan N0.Identitas (NI)", "Pencarian Data Pasien") cn1 = InputBox("Ketikkan Nama Pasien yang Dicari", "Pencarian Data Pasien") NI = Len(cn) Nama = Len(cn1) Data_Pasien.Recordset.FindFirst "Left(NI," & Len(cn) & ")" & "=" & "'" & cn & "' and Left(Nama_Pasien," & Len(cn1) & ")" & "=" & "'" & cn1 & "'" If cn = vbOK Then Else If Data_Pasien.Recordset.NoMatch Then pesan = MsgBox("data tidak ditemukan", vbOKOnly, "Pesan") Else Call Tampil End If End If End Sub
Private Sub cmdcetak_Click() Lap_Data_Pasien.RetrieveDataFiles Lap_Data_Pasien.WindowState = crptMaximized Lap_Data_Pasien.Action = 1 End Sub Private Sub cmdedit_Click() cmdedit.Enabled = False cmdsimpan.Enabled = False cmdtambah.Enabled = False cmdupdate.Enabled = True cmdbatal.Enabled = True End Sub Private Sub cmdhapus_Click() pesan = MsgBox("Yakin Anda akan menghapus data ini?", vbYesNo, "Pesan") If pesan = vbYes Then Data_Pasien.Recordset.Delete ElseIf pesan = vbNo Then pesan2 = MsgBox("Anda tidak jadi menghapus data", vbOKOnly, "Pesan") End If End Sub Private Sub cmdpertama_Click() Data_Pasien.Recordset.MoveFirst Call Tampil End Sub Private Sub cmdsebelum_Click() Data_Pasien.Recordset.MovePrevious If Data_Pasien.Recordset.BOF Then Data_Pasien.Recordset.MoveFirst pesan = MsgBox("Ini adalah data pertama", vbOKOnly, "Pesan") End If Call Tampil End Sub Private Sub cmdsesudah_Click() Data_Pasien.Recordset.MoveNext If Data_Pasien.Recordset.EOF Then Data_Pasien.Recordset.MoveLast pesan = MsgBox("Ini adalah data terakhir", vbOKOnly, "Pesan") End If Call Tampil End Sub Private Sub cmdsimpan_Click() pesan = MsgBox("Yakin Anda akan menyimpan data", vbYesNo, "Pesan") If pesan = vbYes Then With Data_Pasien.Recordset .AddNew !No = No.Text !NI = NI.Text !Nama_Pasien = Nama_Pasien.Text !Umur = Umur.Text !Jenis_Kelamin = Jenis_Kelamin.Text !Alamat = Alamat.Text !Pekerjaan = Pekerjaan.Text !Jurusan = Jurusan.Text
!Golongan_Darah = Golongan_Darah.Text a = dpt_Tanggal b = Format(dpt_Tanggal_Berobat, "dd/mm/yy") !Tanggal_Berobat = CDate(b) !Hasil_Diagnosa = Hasil_Diagnosa.Text .Update End With Data_Pasien.Refresh DBGrid1.Refresh Call bersih ElseIf pesan = vbNo Then pesan2 = MsgBox("Anda tidak jadi menyimpan data", vbOKOnly, "Pesan") Call bersih End If End Sub Private Sub cmdtambah_Click() Call bersih End Sub Private Sub cmdterakhir_Click() Data_Pasien.Recordset.MoveLast Call Tampil End Sub Private Sub cmdtutup_Click() Form_Data_Pasien.Hide Form_Menu.Show End Sub Private Sub cmdupdate_Click() With Data_Pasien.Recordset .Edit !No = No.Text !NI = NI.Text !Nama_Pasien = Nama_Pasien.Text !Umur = Umur.Text !Jenis_Kelamin = Jenis_Kelamin.Text !Alamat = Alamat.Text !Pekerjaan = Pekerjaan.Text !Fakultas = Fakultas.Text !Jurusan = Jurusan.Text !Golongan_Darah = Golongan_Darah.Text a = dpt_Tanggal b = Format(dpt_Tanggal_Berobat, "dd/mm/yy") !Tanggal_Berobat = CDate(b) !Hasil_Diagnosa = Hasil_Diagnosa.Text .Update End With Data_Pasien.Refresh DBGrid1.Refresh Call bersih End Sub Private Sub dpt_Tanggal_Berobat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Golongan_Darah.SetFocus End If End Sub Private Sub Fakultas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Pekerjaan.SetFocus End If
End Sub Private Sub Form_Activate() No.SetFocus End Sub Private Sub Golongan_Darah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then dpt_Tanggal_Berobat.SetFocus End If End Sub Private Sub Hasil_Diagnosa_Change() If KeyAscii = 13 Then dpt_Tanggal_Berobat.SetFocus End If End Sub Private Sub Jenis_Kelamin_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Alamat.SetFocus End If End Sub Private Sub Jurusan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Fakultas.SetFocus End If End Sub Private Sub Nama_Pasien_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Umur.SetFocus End If End Sub Private Sub NI_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then No.SetFocus End If End Sub Private Sub No_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then NI.SetFocus End If End Sub
Private Sub Pekerjaan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Umur.SetFocus End If End Sub Private Sub Umur_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Jenis_Kelamin.SetFocus End If End Sub
Form Data Rekap Private Sub bersih() NI = "" Nama = "" Hasil_Diagnosa = "" cmdsimpan.Enabled = True cmdbatal.Enabled = True cmdedit.Enabled = True cmdupdate.Enabled = True cmdtambah.Enabled = True End Sub Private Sub Tampil() With Data_Cetak.Recordset NI = !NI Nama = !Nama Hasil_Diagnosa = !Hasil_Diagnosa End With End Sub Private Sub cmdbatal_Click() pesan = MsgBox("Anda tidak jadi menyimpan data", vbOKOnly, "Pesan") Call bersih End Sub Private Sub cmdcari_Click() cn = InputBox("Ketikkan N0.Identitas (NI)", "Pencarian Data Pasien") cn1 = InputBox("Ketikkan Nama Pasien yang Dicari", "Pencarian Data Pasien") NI = Len(cn) Nama = Len(cn1) Data_Cetak.Recordset.FindFirst "Left(NI," & Len(cn) & ")" & "=" & "'" & cn & "' and Left(NAMA," & Len(cn1) & ")" & "=" & "'" & cn1 & "'" If cn = vbOK Then Else If Data_Cetak.Recordset.NoMatch Then pesan = MsgBox("data tidak ditemukan", vbOKOnly, "Pesan") Else Call Tampil End If End If End Sub Private Sub cmdcetak_Click() Lap_Cetak.RetrieveDataFiles Lap_Cetak.WindowState = crptMaximized Lap_Cetak.Action = 1 End Sub Private Sub cmdclose_Click() Form_Data_Rekap.Hide Form_Menu.Show End Sub Private Sub cmdedit_Click() cmdedit.Enabled = False cmdsimpan.Enabled = False cmdtambah.Enabled = False
cmdupdate.Enabled = True cmdbatal.Enabled = True End Sub Private Sub cmdhapus_Click() pesan = MsgBox("Yakin Anda akan menghapus data ini?", vbYesNo, "Pesan") If pesan = vbYes Then Data_Cetak.Recordset.Delete ElseIf pesan = vbNo Then pesan2 = MsgBox("Anda tidak jadi menghapus data", vbOKOnly, "Pesan") End If End Sub Private Sub cmdpertama_Click() Data_Cetak.Recordset.MoveFirst Call Tampil End Sub Private Sub cmdsebelum_Click() Data_Cetak.Recordset.MovePrevious If Data_Cetak.Recordset.BOF Then Data_Cetak.Recordset.MoveFirst pesan = MsgBox("Ini adalah data pertama", vbOKOnly, "Pesan") End If Call Tampil End Sub Private Sub cmdsesudah_Click() Data_Cetak.Recordset.MoveNext If Data_Cetak.Recordset.EOF Then Data_Cetak.Recordset.MoveLast pesan = MsgBox("Ini adalah data terakhir", vbOKOnly, "Pesan") End If Call Tampil End Sub Private Sub cmdsimpan_Click() pesan = MsgBox("Yakin Anda akan menyimpan data", vbYesNo, "Pesan") If pesan = vbYes Then With Data_Cetak.Recordset .AddNew !NI = NI.Text !Nama = Nama.Text !Hasil_Diagnosa = Hasil_Diagnosa.Text a = dpt_Tanggal b = Format(dpt_Tanggal, "dd/mm/yy") !Tanggal_Berobat = CDate(b) .Update End With Data_Cetak.Refresh DBGrid1.Refresh Call bersih ElseIf pesan = vbNo Then pesan2 = MsgBox("Anda "Pesan")
tidak
jadi
menyimpan
data",
vbOKOnly,
Call bersih End If End Sub Private Sub cmdtambah_Click() Call bersih End Sub Private Sub cmdterakhir_Click() Data_Cetak.Recordset.MoveLast Call Tampil End Sub Private Sub cmdupdate_Click() With Data_Cetak.Recordset .Edit !NI = NI.Text !Nama = Nama.Text !Hasil_Diagnosa = Hasil_Diagnosa.Text a = dpt_Tanggal b = Format(dpt_Tanggal, "dd/mm/yy") !Tanggal_Berobat = CDate(b) .Update End With Data_Cetak.Refresh DBGrid1.Refresh With Data_Cetak.Recordset .Edit !NI = NI.Text !Nama = Nama.Text !Hasil_Diagnosa = Hasil_Diagnosa.Text a = dpt_Tanggal b = Format(dpt_Tanggal, "dd/mm/yy") !Tanggal_Berobat = CDate(b) .Update End With Data_Cetak.Refresh DBGrid1.Refresh Call bersih End Sub Private Sub dpt_tanggal_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Hasil_Diagnosa.SetFocus End If End Sub Private Sub Form_Activate() NI.SetFocus End Sub
Private Sub Hasil_Diagnosa_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then dpt_Tanggal.SetFocus End If End Sub
Private Sub Nama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then NI.SetFocus End If End Sub Private Sub NI_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Nama.SetFocus End If End Sub
Form Cek Kesehatan Private Sub cmdtidak_Click() pesan = MsgBox("Apakah Anda Yakin Ingin Keluar?", vbInformation + vbYesNo, "Perhatian") If pesan = vbYes Then End If Form_Menu.Show Form_Cek_Kesehatan.Hide End Sub Private Sub cmdya_Click() pesan = MsgBox("Registrasi Dulu ya?", vbInformation + vbYesNo, "Perhatian") If pesan = vbYes Then End If Form_Registrasi.Show Form_Cek_Kesehatan.Hide End Sub
Form Gejala(Form5) Private Sub cmdkembali_Click() Form_Menu.Show End Sub Private Sub cmdNext_Click() Form4.Show Form3.Hide End Sub
Form Lama Gejala (Form4) Private Sub cmdBack_Click() Form3.Show End Sub Private Sub cmdNext_Click() If Form3.Check1 And Form3.Check3 And Form3.Check31 And Form4.Check2 And Form4.Check20 = Checked Then pesan = MsgBox("Anda Hanya flu Biasa", vbInformation, "Perhatian") Form11.Show
ElseIf Form3.Check1 And Form3.Check3 And Form3.Check31 And Form4.Check2 And Form4.Check19 = Checked Then pesan = MsgBox("Kemungkinan penyakit Anda serius", vbInformation, "Perhatian") Form35.Show ElseIf Form3.Check1 And Form3.Check3 And Form3.Check31 And Form4.Check2 And Form4.Check18 = Checked Then pesan = MsgBox("Anda Hanya flu Biasa", vbInformation, "Perhatian") Form35.Show ElseIf Form3.Check1 And Form3.Check3 And Form3.Check31 And Form4.Check2 And Form4.Check20 = Checked Then pesan = MsgBox("Anda Hanya flu Biasa", vbInformation, "Perhatian") Form11.Show ElseIf Form3.Check1 And Form3.Check3 And Form3.Check31 And Form4.Check2 And Form4.Check21 = Checked Then pesan = MsgBox("Anda Hanya flu Biasa", vbInformation, "Perhatian") Form11.Show ElseIf Form3.Check1 And Form3.Check3 And Form3.Check31 And Form4.Check2 And Form4.Check23 = Checked Then pesan = MsgBox("Anda Hanya flu Biasa", vbInformation, "Perhatian") Form11.Show ElseIf Form3.Check1 And Form3.Check3 And Form3.Check31 And Form4.Check3 And Form4.Check2 And Form4.Check21 = Checked Then pesan = MsgBox("Anda Hanya flu Biasa", vbInformation, "Perhatian") Form11.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check3 And Form3.Check5 And Form3.Check8 And Form3.Check28 And Form3.Check48 And Form3.Check52 And Form3.Check56 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check6 And Form4.Check9 And Form4.Check23 = Checked Then pesan = MsgBox("Anda Hanya Demam Biasa", vbInformation, "Perhatian") Form12.Show ElseIf Form3.Check7 And Form3.Check8 And Form3.Check9 And Form3.Check10 And Form3.Check38 And Form3.Check41 And Form3.Check50 And Form4.Check3 And Form4.Check2 And Form4.Check9 And Form4.Check14 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena maag", vbInformation, "Perhatian") Form14.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check3 And Form3.Check4 And Form3.Check5 And Form3.Check8 And Form3.Check11 And Form3.Check14 And Form3.Check15 And Form3.Check18 And Form3.Check32 And Form3.Check38 And Form3.Check41 And Form3.Check48 And Form3.Check52 And Form3.Check56 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check6 And Form4.Check7 And Form4.Check9 And Form4.Check12 And Form4.Check20 = Checked Then pesan = MsgBox("Anda Terkena Penyakit Tifus", vbInformation, "Perhatian") Form13.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check13 And Form3.Check4 And Form3.Check11 And Form3.Check16 And Form3.Check34 And Form3.Check48 And Form3.Check52 And Form3.Check56 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check4 And Form4.Check6 And Form4.Check9 And Form4.Check20 = Checked Then pesan = MsgBox("Anda Terkena Campak", vbInformation, "Perhatian")
Form16.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check3 And Form3.Check4 And Form3.Check5 And Form3.Check8 And Form3.Check11 And Form3.Check15 And Form3.Check16 And Form3.Check18 And Form3.Check25 And Form3.Check26 And Form3.Check36 And Form3.Check38 And Form3.Check39 And Form3.Check41 And Form3.Check48 And Form3.Check56 And Form4.Check2 And Form4.Check3 And Form4.Check9 And Form4.Check12 And Form4.Check14 And Form4.Check15 And Form4.Check16 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena penyakit lever", vbInformation, "Perhatian") Form9.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check4 And Form3.Check8 And Form3.Check16 And Form3.Check18 And Form3.Check25 And Form3.Check26 And Form3.Check48 And Form3.Check52 And Form3.Check56 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check8 And Form4.Check9 And Form4.Check17 = Checked Then pesan = MsgBox("Anda tekrna gejala demam berdarah", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check3 And Form3.Check4 And Form3.Check5 And Form3.Check8 And Form3.Check16 And Form3.Check38 And Form3.Check48 And Form3.Check56 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check4 And Form4.Check6 And Form4.Check9 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena penyakit cikungunya", vbInformation, "Perhatian") Form6.Show ElseIf Form3.Check8 And Form3.Check9 And Form3.Check15 And Form3.Check16 And Form3.Check18 And Form3.Check23 And Form3.Check24 And Form3.Check25 And Form3.Check26 And Form3.Check32 And Form3.Check34 And Form3.Check39 And Form3.Check50 And Form4.Check2 And Form4.Check6 And Form4.Check8 And Form4.Check9 And Form4.Check13 And Form4.Check17 = Checked Then pesan = MsgBox("Anda hanya terkena alergi", vbInformation, "Perhatian") Form19.Show ElseIf Form3.Check8 And Form3.Check9 And Form3.Check10 And Form3.Check16 And Form3.Check31 And Form3.Check32 And Form3.Check50 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check6 And Form4.Check9 And Form4.Check14 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena tukak lambung", vbInformation, "Perhatian") Form35.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check3 And Form3.Check4 And Form3.Check5 And Form3.Check11 And Form3.Check15 And Form3.Check16 And Form3.Check18 And Form3.Check31 And Form3.Check33 And Form3.Check35 And Form3.Check36 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check6 And Form4.Check8 And Form4.Check9 And Form4.Check20 = Checked Then pesan = MsgBox("Anda terkena campak maams", vbInformation, "Perhatian") Form22.Show ElseIf Form3.Check3 And Form3.Check5 And Form3.Check15 And Form3.Check19 And Form3.Check33 And Form3.Check35 And Form3.Check40 And Form4.Check2 And Form4.Check6 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena amandel", vbInformation, "Perhatian") Form23.Show
ElseIf Form3.Check3 And Form3.Check23 And Form3.Check24 And Form3.Check28 And Form3.Check32 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena asma", vbInformation, "Perhatian") Form20.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check3 And Form3.Check5 And Form3.Check11 And Form3.Check19 And Form3.Check22 And Form3.Check31 And Form3.Check35 And Form4.Check1 And Form4.Check2 And Form4.Check3 And Form4.Check6 And Form4.Check12 And Form4.Check13 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena sinusitis", vbInformation, "Perhatian") Form20.Show ElseIf Form3.Check12 And Form3.Check14 And Form3.Check15 And Form3.Check20 And Form3.Check21 And Form4.Check5 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena asam urat", vbInformation, "Perhatian") Form35.Show ElseIf Form3.Check1 And Form3.Check17 And Form3.Check22 And Form3.Check23 And Form3.Check24 And Form4.Check9 And Form4.Check18 = Checked Then pesan = MsgBox("Anda terkena hipertensi", vbInformation, "Perhatian") Form35.Show ElseIf Form3.Check1 And Form3.Check4 And Form3.Check18 And Form3.Check25 And Form3.Check26 And Form3.Check27 And Form4.Check2 And Form4.Check3 And Form4.Check12 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena hipotensi", vbInformation, "Perhatian") Form35.Show ElseIf Form3.Check1 And Form3.Check8 And Form3.Check9 And Form4.Check2 And Form4.Check3 And Form4.Check14 And Form4.Check17 = Checked Then pesan = MsgBox("Anda terkena asam lambung", vbInformation, "Perhatian") Form24.Show ElseIf Form3.Check1 And Form3.Check2 And Form3.Check3 And Form3.Check19 And Form3.Check28 And Form3.Check31 And Form3.Check32 And Form3.Check41 And Form4.Check3 And Form4.Check14 And Form4.Check20 = Checked Then pesan = MsgBox("Anda terkena Infeksi Saluran Pernafasan Atas", vbInformation, "Perhatian") Form21.Show ElseIf Form3.Check13 And Form3.Check19 And Form3.Check28 And Form3.Check35 And Form4.Check2 And Form4.Check23 = Checked Then pesan = MsgBox("Anda terkena penyakit paringitis", vbInformation, "Perhatian") Form24.Show ElseIf Form3.Check9 And Form3.Check50 And Form4.Check2 And Form4.Check9 And Form4.Check23 Then pesan = MsgBox("Anda kena diare", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check9 And Form3.Check50 And Form4.Check2 And Form4.Check22 Then pesan = MsgBox("Anda kena diare", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check9 And Form3.Check50 And Form4.Check2 And Form4.Check20 Then
pesan = MsgBox("Mungkin anda mengalami masalah pada usus", vbInformation, "Perhatian") Form35.Show ElseIf Form3.Check9 And Form3.Check50 And Form4.Check17 Then pesan = MsgBox("Mungkin anda kena maag", vbInformation, "Perhatian") Form14.Show ElseIf Form3.Check1 And Form3.Check25 And Form3.Check41 And Form3.Check30 And Form4.Check14 And Form3.Check23 Then pesan = MsgBox("Mungkin cuma sakit kepala", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check1 And Form3.Check25 And Form3.Check41 And Form3.Check30 And Form4.Check14 Then pesan = MsgBox("Mungkin cuma sakit kepala", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check1 And Form3.Check25 And Form4.Check17 Then pesan = MsgBox("Mungkin cuma stress", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check1 And Form3.Check25 And Form3.Check30 And Form3.Check38 And Form3.Check41 And Form3.Check47 And Form4.Check12 And Form4.Check14 And Form4.Check20 Then pesan = MsgBox("Mungkin cuma sakit kepala", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check1 And Form3.Check27 And Form3.Check41 And Form3.Check38 And Form3.Check51 And Form4.Check2 And Form4.Check12 And Form4.Check14 And Form4.Check22 Then pesan = MsgBox("Anda cuma kelelahan", vbInformation, "Perhatian") Form34.Show ElseIf Form3.Check34 And Form4.Check4 And Form4.Check20 Then pesan = MsgBox("Anda alergi terhadap sesuatu", vbInformation, "Perhatian") Form34.Show Else pesan = MsgBox("Anda Belum Mengisi Data dengan benar Atau penyakit Anda belum dapat kami diagnosa ", vbInformation, "Perhatian") End If Form3.Hide Form4.Hide Unload Me End Sub
From Solusi Dari Form Gejala(Form3) Dan Lama Gejala(Form4) Solusi untuk Penyakit Cikungunya (Form6) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Penyakit Sinusitis (Form7) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Penyakit Lever/Sakit Kuning (Form9) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Influenza (Form11) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Penyakit Demam (Form12) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Sakit Tipus (Form 13) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Sakit Maag (Form14) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Campak (Form16) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Alergi form(19) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk asma (Form20) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Infeksi Saluran Penafasan Akut (Form21) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untukCampak Maams (Form22) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Amandel (Form23) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Asam Lambung (Form24) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Parangitis (Form25) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi untuk Penyakit Ringan (Form34) Private Sub Command1_Click() Form_Menu.Show End Sub
Form Solusi Penyakit yang sudah parah (form34) Private Sub Command1_Click() Form_Menu.Show End Sub