LAMPIRAN 1 Listing Program Listing Program Form MDI Poli Gizi Private Sub MnuFileExit_Click() x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If MDIPOLIGIZI.Show End Sub Private Sub MnuFileOpen_Click() frmmenu.Show End Sub Private Sub MnuHelpAbout_Click() frmabout.Show End Sub Listing Program Menu Utama Private Sub Cmdclear_Click() txtTampil.Text = Clear End Sub Private Sub cmdexit_Click() x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If frmmenu.Show End Sub Private Sub Cmdoke_Click() If txtTampil.Text = "BATU GINJAL" Then Frmbatuginjal.Show ElseIf txtTampil.Text = "TINGGI KALORI TINGGI PROTEIN" Then frmtktp.Show 59
60
ElseIf txtTampil.Text = "JANTUNG" Then Frmjantung.Show ElseIf txtTampil.Text = "DIABETES MELLITUS" Then Frmdiabetesmellitus.Show ElseIf txtTampil.Text = "RENDAH GARAM" Then Frmrendahgaram.Show ElseIf txtTampil.Text = "RENDAH PURIN" Then frmrendahpurin.Show End If Unload Me End Sub Private Sub Cmdselect_Click() txtTampil.Text = lstpilihan.Text End Sub Private Sub Form_Load() lstpilihan.AddItem "BATU GINJAL" lstpilihan.AddItem "DIABETES MELLITUS" lstpilihan.AddItem "JANTUNG" lstpilihan.AddItem "RENDAH GARAM" lstpilihan.AddItem "RENDAH PURIN" lstpilihan.AddItem "TINGGI KALORI TINGGI PROTEIN" End Sub Private Sub lstpilihan_DblClick() txtTampil.Text = lstpilihan.Text End Sub Private Sub TxtTampil_GotFocus() StatusBar1.Panels(4).Text = "Nama Diit penyakit yang akan ditampilkan" End Sub Listing Program Jendela Pembagian Makanan Sehari Listing Program Form Batu Ginjal Private Sub Ccmdpantang_Click() Unload Me FrmpantanganBG.Show End Sub Private Sub cmdexit_Click()
61
x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If Frmbatuginjal.Show End Sub
Private Sub cmdmnu_Click() Unload Me FrmmnushariBG.Show End Sub Private Sub Image1_Click() Unload Me frmmenu.Show End Sub Private Sub Image2_Click() x = MsgBox("Do you want to print?", vbQuestion + vbYesNo, "mencetak!") If x = vbYes Then CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\lap batu ginjal.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End If Frmbatuginjal.Show End Sub Listing Program Form Diabetes Mellitus private Sub cmdexit_Click() x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If Frmdiabetesmellitus.Show End Sub Private Sub Cmdmenu_Click() Unload Me FrmmnushariDM.Show End Sub
62
Private Sub cmdpantang_Click() Unload Me Frmpantangandm.Show End Sub Private Sub Image1_Click() Unload Me frmmenu.Show End Sub Private Sub Image2_Click() x = MsgBox("Do you want to print?", vbQuestion + vbYesNo, "mencetak!") If x = vbYes Then CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\lap Diabetes Mellitus.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End If Frmdiabetesmellitus.Show End Sub Listing Program Form Jantung Private Sub cmdexit_Click() x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If Frmjantung.Show End Sub Private Sub Command1_Click() Unload Me frmpantanganj.Show End Sub Private Sub Command2_Click() Unload Me Frmmnusharij.Show End Sub Private Sub Image1_Click() Unload Me
63
frmmenu.Show End Sub Private Sub Image2_Click() x = MsgBox("Do you want to print?", vbQuestion + vbYesNo, "mencetak!") If x = vbYes Then CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\lap jantoeng.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End If Frmjantung.Show End Sub Listing Program Form Rendah Garam Private Sub cmdexit_Click() x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If Frmrendahgaram.Show End Sub Private Sub cmdmnu_Click() Unload Me frmmnushariRG.Show End Sub Private Sub Cmdpantangan_Click() Unload Me frmpantanganRG.Show End Sub Private Sub Image1_Click() Unload Me frmmenu.Show End Sub Private Sub Image2_Click() x = MsgBox("Do you want to print?", vbQuestion + vbYesNo, "mencetak!") If x = vbYes Then
64
CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\lap Rendah Garam.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End If Frmrendahgaram.Show End Sub Listing Program Form Rendah Purin Private Sub cmdexit_Click() x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If frmrendahpurin.Show End Sub Private Sub Cmdmenu_Click() Unload Me frmmnusharirp.Show End Sub Private Sub cmdpantang_Click() Unload Me frmpantanganrp.Show End Sub Private Sub Image1_Click() Unload Me frmmenu.Show End Sub Private Sub Image2_Click() x = MsgBox("Do you want to print?", vbQuestion + vbYesNo, "mencetak!") If x = vbYes Then CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\lap Rendah Purin.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End If frmrendahpurin.Show End Sub
65
Listing Program Form TKTP Private Sub cmdexit_Click() x = MsgBox("are you sure you want to exit?", vbQuestion + vbYesNo, "attention!") If x = vbYes Then End End If frmtktp.Show End Sub Private Sub cmdmnu_Click() Unload Me frmmnusharitktp.Show End Sub Private Sub cmdpantang_Click() Unload Me frmpantangantktp.Show End Sub Private Sub Image1_Click() Unload Me frmmenu.Show End Sub Private Sub Image2_Click() x = MsgBox("Do you want to print?", vbQuestion + vbYesNo, "mencetak!") If x = vbYes Then CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\lap TKTP.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End If frmtktp.Show End Sub Listing Program Jendela Pantangan Listing Program Form Pantangan Batu Ginjal Private Sub cmdok_Click() Unload Me Frmbatuginjal.Show
66
End Sub Private Sub Command1_Click() CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\pantangan batu ginjal.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End Sub Listing Program Form Pantangan Diabetes Melitus Private Sub cmdok_Click() Unload Me Frmdiabetesmellitus.Show End Sub Private Sub Command1_Click() CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\pantangan diabetes.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End Sub Listing Program Form Pantangan Jantung Private Sub cmdok_Click() Unload Me Frmjantung.Show End Sub Private Sub Command1_Click() CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\pantangan jantung.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End Sub Listing Program Form Pantangan Rendah Garam Private Sub cmdok_Click() Unload Me Frmrendahgaram.Show End Sub
67
Private Sub Command1_Click() CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\pantangan rendah garam.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End Sub Listing Program Form Pantangan Rendah Purin Private Sub cmdok_Click() Unload Me frmrendahpurin.Show End Sub Private Sub Command1_Click() CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\pantangan rendah purin.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End Sub Listing Program Form Pantangan TKTP Private Sub cmdok_Click() Unload Me frmtktp.Show End Sub Private Sub Command1_Click() CrystalReport1.ReportFileName = "C:\My Documents\DDR PI\Report\pantangan TKTP.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 End Sub Listing Program Jendela Contoh Menu Sehari Listing Program Form Menu Sehari Batu Ginjal Private Sub cmdok_Click() Unload Me Frmbatuginjal.Show End Sub
68
Listing Program Form Menu Sehari Diabetes Mellitus Private Sub cmdok_Click() Unload Me Frmdiabetesmellitus.Show End Sub Listing Program Form Menu Sehari Jantung Private Sub cmdok_Click() Unload Me Frmjantung.Show End Sub Listing Program Form Menu Sehari Rendah Garam Private Sub cmdok_Click() Unload Me Frmrendahgaram.Show End Sub Listing Program Form Menu Sehari Rendah Purin Private Sub cmdok_Click() Unload Me frmrendahpurin.Show End Sub Listing Program Form Menu Sehari TKTP Private Sub cmdok_Click() Unload Me frmtktp.Show End Sub Listing Program Form About Private Sub Command1_Click() Unload Me End Sub
69
LAMPIRAN 2 OUTPUT PROGRAM
Form MDI Gizi
Form Menu Utama
70
Frmbatuginjal
71
frmpantanganBG
FrmmnushariBG
72
frmdiabetesmellitus
73
frmpantanganDM
frmmnushariDM
74
Frmjantung
75
Frmpantanganj
frmmnusharij
76
frmrendahgaram
77
FrmpantanganRG
Frmmnusharirg
78
FrmTKTP
79
frmpantangantktp
Frmmnusharitktp
80
Frmrendahpurin
81
Frmpantanganrp
frmmnusharirp
82
Frmabout
83
LAMPIRAN 3 Contoh Output Cetak
TINGGI KALORI TINGGI PROTEIN Makan Pagi Susu
:
Makan Sore
200 gr = 1 gls
Susu
Makan Siang Telur
: 50 gr = 1 btr
Daging
: 50 gr = 1 ptg
: 200 gr = 1 gls
Makan Malam
.
Telur
: 50 gr = 1 btr
Daging
: 50 gr = 1 ptg
BATU GINJAL Nasi Pagi Nasi
: 70 gr = 1gls
Telur
: 50 gr = 1 btr
Sayuran Minyak
Nasi
: 140 gr = 2 gls
Daging
: 50 gr = 1 ptg
: 50 gr = ½ sdm
Tempe
: 25 gr = 1ptg
: 5 gr = ½ sdm
Sayuran
: 75 gr = 3/4sdm
Pepaya
: 100 gr = 1 sdm
Minyak
: 5 gr = ½ sdm
Gula Pasir : 10 gr = 1 sdm
Makan Selingan Pukul 10.00 Maezena : 15 gr = 3 sdm Gula Pasir : 10 gr = 1 sdm Minyak
Makan Siang dan Sore
: 5 gr =1/2 sdm
JANTUNG
84
Pukul 08.00
Pukul 16.00
Nasi
: 30 gr = 1 gls
Pepaya
Telur
: 50 gr = 1 btr
Gula Pasir : 20 gr = 2 sdm
Sayuran
: 50 gr = ½ gls
Minyak
: 5 gr = ½ sdm
Pukul 18.00
Gula Pasir : 20 gr = 2 sdm
Pukul 10.00 Pepaya
: 100 gr = 1 ptg
: 100 gr = 1 ptg
Tempe
: 50 gr = 2 ptg
Sayuran
: 50 gr = ½ gls
Pepaya
: 100 gr = 1 ptg
Margarin : 5 gr = ½ sdm
Gula Pasir : 20 gr = 2 sdm
Minyak
: 5 gr = ½ sdm
RENDAH PURIN Makan Pagi
Makan Siang Dan Sore
Nasi
: 70 gr = 1 gls
Nasi
: 125 gr = 2 gls
Telur
: 50 gr = 1 btr
Daging
: 25 gr = 1ptg
Sayuran
: 50 gr = ½ gls
Tempe
: 25 gr = 1ptg
Minyak
:5 gr = ½ sdm
Sayuran
: 50 gr = ½ gls
Buah
: 100 gr = 1 ptg
Minyak
: 5gr = ½ sdm
Gula Pasir : 10 gr = 1 sdm
Makan Selingan Pukul 10.00 Buah
RENDAH GARAM
: 100 gr = 1 ptg
Gula Pasir : 10 gr = 1 sdm
Makan Siang Dan Sore Makan Pagi
Nasi
: 140 gr = 2 gls
Nasi
: 70 gr = 1 gls
Daging
: 50 gr =1 ptg
Telur
: 50 gr = 1btr
Tempe
: 50 gr = 2 ptg
Sayuran : 50 gr = ½ gls Makan Selingan Pukul 10.00 Minyak : 5 gr= ½ sdm Kacang Hijau : 25 gr = 2 sdm Gula Pasir : 10 gr = 1 sdm Gula Pasir : 10 gr = 1 sdm
Sayuran
: 25 gr = ¾ gls
Buah
: 75 gr = ¾ gls
Minyak
: 5 gr = ½ sdm
85
PANTANGAN UNTUK DIABETES MELLITUS Karena tujuannya untuk memperlambat batu ginjal atau membantu mencegah pembentukan batu ginjal maka ada makanan yang dianjurakan dan di pantang Bahan makanan yang boleh dimakan : -
Beras, bulgur, roti dan tepung-tepungan Telur, daging dan ikan Tahu, tempe dan semua sayuran kecuali yang dilarang Semua buah-buahan
Makanan yang tidak boleh diberikan : -
Kentang, ubi, singkong dan kue-kue yang dibuat dengan susu Susu, keju, udang dan ikan asin Bayam, daun melinjo, daun singkonh dan sawi
PANTANGAN UNTUK BATU GINJAL Karena tujuannya untuk memperlambat batu ginjal atau membantu mencegah pembentukan batu ginjal maka ada makanan yang dianjurakan dan di pantang Bahan makanan yang boleh dimakan : -
Beras, bulgur, roti dan tepung-tepungan Telur, daging dan ikan Tahu, tempe dan semua sayuran kecuali yang dilarang Semua buah-buahan
Makanan yang tidak boleh diberikan : -
Kentang, ubi, singkong dan kue-kue yang dibuat dengan susu Susu, keju, udang dan ikan asin Bayam, daun melinjo, daun singkonh dan sawi
86
PANTANGAN UNTUK JANTUNG Karena tujuannya untuk menurunkan berat badan bila pasien terlalu gemuk dan agar tidak memberatkan pekerjaan jantung maka ada makanan yang dianjurakan dan di pantang Bahan makanan yang boleh dimakan : -
Beras, singkong, talas, tepung-tepungan dan biscuit Daging, telur dan ikan Sayuran yang tidak mengandung gas dan semua buah
Makanan yang tidak boleh diberikan : -
Kue-kue terlalu manis dan gurih Semua daging berlemak Kopi, teh kental dan minuman soda / alkohol
PANTANGAN UNTUK RENDAH PURIN Karena tujuannya untuk mengurangi pembentukan sam urat dan menurunkan berat badan bila penderita terlalu gemukl maka ada makanan yang dianjurakan dan di pantang Bahan makanan yang boleh dimakan : -
ayam, daging, bawal, ikan tongkol, susu, telur dan keju Kacang-kacangan dan hasilnya contoh tahu,tempe dan oncom Semua sayuran kecuali asparagus, kacang polong, kacang buncis dan bayam Teh, kopi, dan semua buah-buahan PANTANGAN UNTUK RENDAH GARAM
Makanan yang tidak boleh diberikan : Karena tujuannya untuk mennghilangkan retensi garam/air dalam jaringan tubuh dan menurunkan tekanan dara pada hypertensi maka ada makanan yang dianjurakan dan di pantang Sardin, kerang, jantung, hati, usus, limpa, paru-paru, otak, bebek, angsa dan burung Bahan yang boleh dimakan : - makanan Minuman beralkhol -
Beras, bulgur,kentang,singkong, terigu dan gula Semua kacang-kacangan yang dimasak tanpa garam Semua sayuran segar dan semua buah-buahan Daging dan ikan
Makanan yang tidak boleh diberikan :
-
Roti, biscuit, kuee-kue yang dimasak dengan garam Otak, ginjal, keju dan daging, ikan, telur yang diawetkan dengan garam Kacang-kacangan dan sayur-sayuran yang diawetkan dengan garam
87
PANTANGAN UNTUK TINGGI KALORI TINGGI PROTEIN Karena tujuannya untuk memenuhi kebutuhan kalori dan protein yang bertambah guna mencegah dan mengurangi kerusakan jaringan tubuh atau guna menambah berat badan hingga mencapai normal maka ada makanan yang dianjurakan dan di pantang Bahan makanan yang boleh dimakan : -
Sumber protein hewani : ayam, daging, hati, ikan, susu, telur dan keju Sumber protein nabati : Kacang-kacangan dan hasilnya contoh tahu,tempe dan oncom
Makanan yang tidak boleh diberikan : Makanan yang terlalu manis dan gurih yang dapat mengurangi nafsu makan seperti : dodol, cake, tarcis dan sebagainya
