Listing Program : Universitas Sumatera Utara

70

Listing Program :

Form Utama Private Sub Form_Load() lbljudul1.FontSize = 34 lbljudul1 = "Selamat Datang di Sistem Informasi Menu Masakan Rumah Tangga" cbohari.Text = "Klik" Call opendb rshari.Open "Select * from Menu", conn cbohari.Clear Do While Not rshari.EOF cbohari.AddItem rshari!Tanggal rshari.MoveNext Loop End Sub

Private Sub cmdtampilkan_Click() If cbohari.Text = "" Then MsgBox ("Anda Harus Memilih Tanggal"), vbExclamation ElseIf cbohari.Text = 1 Then a=1 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 2 Then a=2 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 3 Then a=3 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 4 Then

Universitas Sumatera Utara

71

a=4 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 5 Then a=5 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 6 Then a=6 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 7 Then a=7 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 8 Then a=8 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 9 Then a=9 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 10 Then a = 10 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 11 Then a = 11 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 12 Then


72

a = 12 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 13 Then a = 13 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 14 Then a = 14 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 15 Then a = 15 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 16 Then a = 16 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 17 Then a = 17 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 18 Then a = 18 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 19 Then a = 19 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 20 Then


73

a = 20 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 21 Then a = 21 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 22 Then a = 22 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 23 Then a = 23 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 24 Then a = 24 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 25 Then a = 25 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 26 Then a = 26 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 27 Then a = 27 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 28 Then


74

a = 28 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 29 Then a = 29 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 30 Then a = 30 frmkombinasi1.Show Unload Me ElseIf cbohari.Text = 31 Then a = 31 frmkombinasi1.Show Unload Me End If End Sub

Private Sub Timer1_Timer() lbljudul1.ForeColor = RGB(Rnd * 500, Rnd * 800, Rnd * 100) If (lbljudul1.RightToLeft + lbljudul1.Width) <= 0 Then lbljudul1 = lbljudul1.RightToLeft = Me.Width End If lbljudul1.RightToLeft = lbljudul1.RightToLeft - 400 End Sub


75

Form Kombinasi Private Sub cmdbatal_Click() frmutama.Show Unload Me End Sub

Private Sub cmdmenu1_Click() If txtmenu1.Text = "Ayam Bakar" Then b=1 ElseIf txtmenu1.Text = "Ayam Goreng Cabai Hijau" Then b=2 ElseIf txtmenu1.Text = "Ayam Goreng Lengkuas" Then b=3 ElseIf txtmenu1.Text = "Ayam Gulai" Then b=4 ElseIf txtmenu1.Text = "Ayam Rica Rica" Then b=5 ElseIf txtmenu1.Text = "Bacem Tempe Tahu" Then b=6 ElseIf txtmenu1.Text = "Balado Cumi" Then b=7 ElseIf txtmenu1.Text = "Balado Ikan Kembung" Then b=8 ElseIf txtmenu1.Text = "Capcay Seafood" Then b=9 ElseIf txtmenu1.Text = "Gulai Daun Singkong" Then b = 10 ElseIf txtmenu1.Text = "Gulai Daun Ubi Tumbuk" Then b = 11 ElseIf txtmenu1.Text = "Gulai Ikan Tongkol Aceh" Then b = 12 ElseIf txtmenu1.Text = "Gulai Pakis" Then


76

b = 13 ElseIf txtmenu1.Text = "Ikan Asam Padeh" Then b = 14 ElseIf txtmenu1.Text = "Ikan Asin Goreng Tepung" Then b = 15 ElseIf txtmenu1.Text = "Ikan Bawal Goreng" Then b = 16 ElseIf txtmenu1.Text = "Ikan Kembung Rebus Sambal Balado" Then b = 17 ElseIf txtmenu1.Text = "Ikan Pepes" Then b = 18 ElseIf txtmenu1.Text = "Ikan Tuna Sambal Balado" Then b = 19 ElseIf txtmenu1.Text = "Lele Goreng Lengkuas" Then b = 20 ElseIf txtmenu1.Text = "Perkedel Kentang" Then b = 21 ElseIf txtmenu1.Text = "Sambal Goreng Hati Ampela" Then b = 22 ElseIf txtmenu1.Text = "Sambal Goreng Kentang Udang Pete" Then b = 23 ElseIf txtmenu1.Text = "Sambal Goreng Teri Kacang" Then b = 24 ElseIf txtmenu1.Text = "Sambal Kecap" Then b = 25 ElseIf txtmenu1.Text = "Sambal Telur Balado" Then b = 26 ElseIf txtmenu1.Text = "Sambal Terasi" Then b = 27 ElseIf txtmenu1.Text = "Sayur Asem" Then b = 28 ElseIf txtmenu1.Text = "Sayur Bening Bayam" Then


77

b = 29 ElseIf txtmenu1.Text = "Sayur Bening Daun Ubi" Then b = 30 ElseIf txtmenu1.Text = "Sayur Bening Sawi Hijau" Then b = 31 ElseIf txtmenu1.Text = "Sayur Manis Sawi Putih" Then b = 32 ElseIf txtmenu1.Text = "Sayur Urap" Then b = 33 ElseIf txtmenu1.Text = "Sop Ayam" Then b = 34 ElseIf txtmenu1.Text = "Sop Daging" Then b = 35 ElseIf txtmenu1.Text = "Sop Kepiting" Then b = 36 ElseIf txtmenu1.Text = "Soto Ayam" Then b = 37 ElseIf txtmenu1.Text = "Tauco Ikan Bawal" Then b = 38 ElseIf txtmenu1.Text = "Tauco Tahu Udang" Then b = 39 ElseIf txtmenu1.Text = "Terong Balado" Then b = 40 ElseIf txtmenu1.Text = "Tumis Brokoli" Then b = 41 ElseIf txtmenu1.Text = "Tumis Bunga Pepaya" Then b = 42 ElseIf txtmenu1.Text = "Tumis Genjer" Then b = 43 ElseIf txtmenu1.Text = "Tumis Kangkung Terasi" Then b = 44 ElseIf txtmenu1.Text = "Tumis Pare Pahit" Then


78

b = 45 ElseIf txtmenu1.Text = "Tumis Pepaya Muda" Then b = 46 End If

frmresep1.Show Unload Me End Sub

Private Sub cmdmenu2_Click() If txtmenu2.Text = "Ayam Bakar" Then b=1 ElseIf txtmenu2.Text = "Ayam Goreng Cabe Hijau" Then b=2 ElseIf txtmenu2.Text = "Ayam Goreng Lengkuas" Then b=3 ElseIf txtmenu2.Text = "Ayam Gulai" Then b=4 ElseIf txtmenu2.Text = "Ayam Rica Rica" Then b=5 ElseIf txtmenu2.Text = "Bacem Tempe Tahu" Then b=6 ElseIf txtmenu2.Text = "Balado Cumi" Then b=7 ElseIf txtmenu2.Text = "Balado Ikan Kembung" Then b=8 ElseIf txtmenu2.Text = "Capcay Seafood" Then b=9 ElseIf txtmenu2.Text = "Gulai Daun Singkong" Then b = 10 ElseIf txtmenu2.Text = "Gulai Daun Ubi Tumbuk" Then b = 11


79

ElseIf txtmenu2.Text = "Gulai Ikan Tongkol Aceh" Then b = 12 ElseIf txtmenu2.Text = "Gulai Pakis" Then b = 13 ElseIf txtmenu2.Text = "Ikan Asam Padeh" Then b = 14 ElseIf txtmenu2.Text = "Ikan Asin Goreng Tepung" Then b = 15 ElseIf txtmenu2.Text = "Ikan Bawal Goreng" Then b = 16 ElseIf txtmenu2.Text = "Ikan Kembung Rebus Sambal Balado" Then b = 17 ElseIf txtmenu2.Text = "Ikan Pepes" Then b = 18 ElseIf txtmenu2.Text = "Ikan Tuna Sambal Balado" Then b = 19 ElseIf txtmenu2.Text = "Lele Goreng Lengkuas" Then b = 20 ElseIf txtmenu2.Text = "Perkedel Kentang" Then b = 21 ElseIf txtmenu2.Text = "Sambal Goreng Hati Ampela" Then b = 22 ElseIf txtmenu2.Text = "Sambal Goreng Kentang Udang Pete" Then b = 23 ElseIf txtmenu2.Text = "Sambal Goreng Teri Kacang" Then b = 24 ElseIf txtmenu2.Text = "Sambal Kecap" Then b = 25 ElseIf txtmenu2.Text = "Sambal Telur Balado" Then b = 26 ElseIf txtmenu2.Text = "Sambal Terasi" Then b = 27


80

ElseIf txtmenu2.Text = "Sayur Asem" Then b = 28 ElseIf txtmenu2.Text = "Sayur Bening Bayam" Then b = 29 ElseIf txtmenu2.Text = "Sayur Bening Daun Ubi" Then b = 30 ElseIf txtmenu2.Text = "Sayur Bening Sawi Hijau" Then b = 31 ElseIf txtmenu2.Text = "Sayur Manis Sawi Putih" Then b = 32 ElseIf txtmenu2.Text = "Sayur Urap" Then b = 33 ElseIf txtmenu2.Text = "Sop Ayam" Then b = 34 ElseIf txtmenu2.Text = "Sop Daging" Then b = 35 ElseIf txtmenu2.Text = "Sop Kepiting" Then b = 36 ElseIf txtmenu2.Text = "Soto ayam" Then b = 37 ElseIf txtmenu2.Text = "Tauco Ikan Bawal" Then b = 38 ElseIf txtmenu2.Text = "Tauco Tahu Udang" Then b = 39 ElseIf txtmenu2.Text = "Terong Balado" Then b = 40 ElseIf txtmenu2.Text = "Tumis Brokoli" Then b = 41 ElseIf txtmenu2.Text = "Tumis Bunga Pepaya" Then b = 42 ElseIf txtmenu2.Text = "Tumis Genjer" Then b = 43


81

ElseIf txtmenu2.Text = "Tumis Kangkung Terasi" Then b = 44 ElseIf txtmenu2.Text = "Tumis Pare Pahit" Then b = 45 ElseIf txtmenu2.Text = "Tumis Pepaya Muda" Then b = 46 End If


Private Sub cmdmenu3_Click() If txtmenu3.Text = "Ayam Bakar" Then b=1 ElseIf txtmenu3.Text = "Ayam Goreng Cabe Hijau" Then b=2 ElseIf txtmenu3.Text = "Ayam Goreng Lengkuas" Then b=3 ElseIf txtmenu3.Text = "Ayam Gulai" Then b=4 ElseIf txtmenu3.Text = "Ayam Rica Rica" Then b=5 ElseIf txtmenu3.Text = "Bacem Tempe Tahu" Then b=6 ElseIf txtmenu3.Text = "Balado Cumi" Then b=7 ElseIf txtmenu3.Text = "Balado Ikan Kembung" Then b=8 ElseIf txtmenu3.Text = "Capcay Seafood" Then b=9 ElseIf txtmenu3.Text = "Gulai Daun Singkong" Then


82

b = 10 ElseIf txtmenu3.Text = "Gulai Daun Ubi Tumbuk" Then b = 11 ElseIf txtmenu3.Text = "Gulai Ikan Tongkol Aceh" Then b = 12 ElseIf txtmenu3.Text = "Gulai Pakis" Then b = 13 ElseIf txtmenu3.Text = "Ikan Asam Padeh" Then b = 14 ElseIf txtmenu3.Text = "Ikan Asin Goreng Tepung" Then b = 15 ElseIf txtmenu3.Text = "Ikan Bawal Goreng" Then b = 16 ElseIf txtmenu3.Text = "Ikan Kembung Rebus Sambal Balado" Then b = 17 ElseIf txtmenu3.Text = "Ikan Pepes" Then b = 18 ElseIf txtmenu3.Text = "Ikan Tuna Sambal Balado" Then b = 19 ElseIf txtmenu3.Text = "Lele Goreng Lengkuas" Then b = 20 ElseIf txtmenu3.Text = "Perkedel Kentang" Then b = 21 ElseIf txtmenu3.Text = "Sambal Goreng Hati Ampela" Then b = 22 ElseIf txtmenu3.Text = "Sambal Goreng Kentang Udang Pete" Then b = 23 ElseIf txtmenu3.Text = "Sambal Goreng Teri Kacang" Then b = 24 ElseIf txtmenu3.Text = "Sambal Kecap" Then b = 25 ElseIf txtmenu3.Text = "Sambal Telur Balado" Then


83

b = 26 ElseIf txtmenu3.Text = "Sambal Terasi" Then b = 27 ElseIf txtmenu3.Text = "Sayur Asem" Then b = 28 ElseIf txtmenu3.Text = "Sayur Bening Bayam" Then b = 29 ElseIf txtmenu3.Text = "Sayur Bening Daun Ubi" Then b = 30 ElseIf txtmenu3.Text = "Sayur Bening Sawi Hijau" Then b = 31 ElseIf txtmenu3.Text = "Sayur Manis Sawi Putih" Then b = 32 ElseIf txtmenu3.Text = "Sayur Urap" Then b = 33 ElseIf txtmenu3.Text = "Sop Ayam" Then b = 34 ElseIf txtmenu3.Text = "Sop Daging" Then b = 35 ElseIf txtmenu3.Text = "Sop Kepiting" Then b = 36 ElseIf txtmenu3.Text = "Soto ayam" Then b = 37 ElseIf txtmenu3.Text = "Tauco Ikan Bawal" Then b = 38 ElseIf txtmenu3.Text = "Tauco Tahu Udang" Then b = 39 ElseIf txtmenu3.Text = "Terong Balado" Then b = 40 ElseIf txtmenu3.Text = "Tumis Brokoli" Then b = 41 ElseIf txtmenu3.Text = "Tumis Bunga Pepaya" Then


84

b = 42 ElseIf txtmenu3.Text = "Tumis Genjer" Then b = 43 ElseIf txtmenu3.Text = "Tumis Kangkung Terasi" Then b = 44 ElseIf txtmenu3.Text = "Tumis Pare Pahit" Then b = 45 ElseIf txtmenu3.Text = "Tumis Pepaya Muda" Then b = 46 End If


Private Sub cmdmenu4_Click() If txtmenu4.Text = "Ayam Bakar" Then b=1 ElseIf txtmenu4.Text = "Ayam Goreng Cabe Hijau" Then b=2 ElseIf txtmenu4.Text = "Ayam Goreng Lengkuas" Then b=3 ElseIf txtmenu4.Text = "Ayam Gulai" Then b=4 ElseIf txtmenu4.Text = "Ayam Rica Rica" Then b=5 ElseIf txtmenu4.Text = "Bacem Tempe Tahu" Then b=6 ElseIf txtmenu4.Text = "Balado Cumi" Then b=7 ElseIf txtmenu4.Text = "Balado Ikan Kembung" Then b=8


85

ElseIf txtmenu4.Text = "Capcay Seafood" Then b=9 ElseIf txtmenu4.Text = "Gulai Daun Singkong" Then b = 10 ElseIf txtmenu4.Text = "Gulai Daun Ubi Tumbuk" Then b = 11 ElseIf txtmenu4.Text = "Gulai Ikan Tongkol Aceh" Then b = 12 ElseIf txtmenu4.Text = "Gulai Pakis" Then b = 13 ElseIf txtmenu4.Text = "Ikan Asam Padeh" Then b = 14 ElseIf txtmenu4.Text = "Ikan Asin Goreng Tepung" Then b = 15 ElseIf txtmenu4.Text = "Ikan Bawal Goreng" Then b = 16 ElseIf txtmenu4.Text = "Ikan Kembung Rebus Sambal Balado" Then b = 17 ElseIf txtmenu4.Text = "Ikan Pepes" Then b = 18 ElseIf txtmenu4.Text = "Ikan Tuna Sambal Balado" Then b = 19 ElseIf txtmenu4.Text = "Lele Goreng Lengkuas" Then b = 20 ElseIf txtmenu4.Text = "Perkedel Kentang" Then b = 21 ElseIf txtmenu4.Text = "Sambal Goreng Hati Ampela" Then b = 22 ElseIf txtmenu4.Text = "Sambal Goreng Kentang Udang Pete" Then b = 23 ElseIf txtmenu4.Text = "Sambal Goreng Teri Kacang" Then b = 24


86

ElseIf txtmenu4.Text = "Sambal Kecap" Then b = 25 ElseIf txtmenu4.Text = "Sambal Telur Balado" Then b = 26 ElseIf txtmenu4.Text = "Sambal Terasi" Then b = 27 ElseIf txtmenu4.Text = "Sayur Asem" Then b = 28 ElseIf txtmenu4.Text = "Sayur Bening Bayam" Then b = 29 ElseIf txtmenu4.Text = "Sayur Bening Daun Ubi" Then b = 30 ElseIf txtmenu4.Text = "Sayur Bening Sawi Hijau" Then b = 31 ElseIf txtmenu4.Text = "Sayur Manis Sawi Putih" Then b = 32 lseIf txtmenu4.Text = "Sayur Urap" Then b = 33 ElseIf txtmenu4.Text = "Sop Ayam" Then b = 34 ElseIf txtmenu4.Text = "Sop Daging" Then b = 35 ElseIf txtmenu4.Text = "Sop Kepiting" Then b = 36 ElseIf txtmenu4.Text = "Soto ayam" Then b = 37 ElseIf txtmenu4.Text = "Tauco Ikan Bawal" Then b = 38 ElseIf txtmenu4.Text = "Tauco Tahu Udang" Then b = 39 ElseIf txtmenu4.Text = "Terong Balado" Then b = 40


87

ElseIf txtmenu4.Text = "Tumis Brokoli" Then b = 41 ElseIf txtmenu4.Text = "Tumis Bunga Pepaya" Then b = 42 ElseIf txtmenu4.Text = "Tumis Genjer" Then b = 43 ElseIf txtmenu4.Text = "Tumis Kangkung Terasi" Then b = 44 ElseIf txtmenu4.Text = "Tumis Pare Pahit" Then b = 45 ElseIf txtmenu4.Text = "Tumis Pepaya Muda" Then b = 46 End If


Private Sub Form_Load() b=0 If a = 1 Then txthari.Text = "1" txtmenu1.Text = "Soto Ayam" txtmenu2.Text = "Perkedel Kentang" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False


88

ElseIf a = 2 Then txthari.Text = "2" txtmenu1.Text = "Sayur Asem" txtmenu2.Text = "Ayam Goreng Lengkuas" txtmenu3.Text = "Ikan Asin Goreng Tepung" txtmenu4.Text = "Sambal Terasi"

ElseIf a = 3 Then txthari.Text = "3" txtmenu1.Text = "Sop Kepiting" txtmenu2.Text = "Sambal Kecap" txtmenu3.Text = "Sambal Goreng Teri Kacang" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 4 Then txthari.Text = "4" txtmenu1.Text = "Lele Goreng Lengkuas" txtmenu2.Text = "Tumis Genjer" txtmenu3.Text = "Sambal Terasi" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 5 Then txthari.Text = "5" txtmenu1.Text = "Ayam Goreng Cabai Hijau" txtmenu2.Text = "Capcay Seafood" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False


89

lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 6 Then txthari.Text = "6" txtmenu1.Text = "Ikan Bawal Goreng" txtmenu2.Text = "Bacem Tempe Tahu" txtmenu3.Text = "Sambal Terasi" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 7 Then txthari.Text = "7" txtmenu1.Text = "Balado Ikan Kembung" txtmenu2.Text = "Sayur Bening Sawi Hijau" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 8 Then txthari.Text = "8" txtmenu1.Text = "Tauco Tahu Udang" txtmenu2.Text = "Sayur Bening Bayam" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False


90

txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 9 Then txthari.Text = "9" txtmenu1.Text = "Sambal Goreng Teri Kacang" txtmenu2.Text = "Gulai Daun Ubi Tumbuk" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 10 Then txthari.Text = "10" txtmenu1.Text = "Ikan Pepes" txtmenu2.Text = "Tumis Pepaya Muda" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 11 Then txthari.Text = "11" txtmenu1.Text = "Ayam Rica Rica" txtmenu2.Text = "Sayur Manis Sawi Putih" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False


91

lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 12 Then txthari.Text = "12" txtmenu1.Text = "Sop Daging" txtmenu2.Text = "Sambal Kecap" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 13 Then txthari.Text = "13" txtmenu1.Text = "Sambal Goreng Kentang Udang Pete" txtmenu2.Text = "Sayur Bening Daun Ubi" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 14 Then txthari.Text = "14" txtmenu1.Text = "Gulai Ikan Tongkol Aceh" txtmenu2.Text = "Tumis Pare Pahit" lblmenu3.Visible = False txtmenu3.Visible = False


92

cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 15 Then txthari.Text = "15" txtmenu1.Text = "Sambal Telur Balado" txtmenu2.Text = "Ikan Asin Goreng Tepung" txtmenu3.Text = "Sayur Urap" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False ElseIf a = 16 Then txthari.Text = "16" txtmenu1.Text = "Tauco Ikan Bawal" txtmenu2.Text = "Sayur Bening Bayam" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 17 Then txthari.Text = "17" txtmenu1.Text = "Ikan Tuna Sambal Balado" txtmenu2.Text = "Gulai Daun Singkong" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False


93

txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 18 Then txthari.Text = "18" txtmenu1.Text = "Sop Ayam" txtmenu2.Text = "Sambal Kecap" txtmenu3.Text = "Sambal Goreng Teri Kacang" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 19 Then txthari.Text = "19" txtmenu1.Text = "Balado Cumi" txtmenu2.Text = "Gulai Pakis" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 20 Then txthari.Text = "20" txtmenu1.Text = "Ikan Asam Padeh" txtmenu2.Text = "Tumis Brokoli" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False


94

cmdmenu4.Visible = False

ElseIf a = 21 Then txthari.Text = "21" txtmenu1.Text = "Ayam Goreng Lengkuas" txtmenu2.Text = "Tumis Kangkung Terasi" txtmenu3.Text = "Terong Balado" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 22 Then txthari.Text = "22" txtmenu1.Text = "Sambal Goreng Hati Ampela" txtmenu2.Text = "Tumis Bunga Pepaya" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 23 Then txthari.Text = "23" txtmenu1.Text = "Ayam Gulai" txtmenu2.Text = "Ikan Asin Goreng Tepung" txtmenu3.Text = "Sayur Bening Daun Ubi" txtmenu4.Text = "Sambal "

ElseIf a = 24 Then txthari.Text = "24" txtmenu1.Text = "Ikan Kembung Rebus Sambal Balado"


95

txtmenu2.Text = "Gulai Pakis" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 25 Then txthari.Text = "25" txtmenu1.Text = "Lele Goreng Lengkuas" txtmenu2.Text = "Tumis Kangkung Terasi" txtmenu3.Text = "Sambal Terasi" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 26 Then txthari.Text = "26" txtmenu1.Text = "Ayam Bakar" txtmenu2.Text = "Bacem Tempe Tahu" txtmenu3.Text = "Sambal Kecap" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 27 Then txthari.Text = "27" txtmenu1.Text = "Soto Ayam" txtmenu2.Text = "Perkedel Kentang" lblmenu3.Visible = False txtmenu3.Visible = False


96

cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 28 Then txthari.Text = "28" txtmenu1.Text = "Ayam Rica Rica" txtmenu2.Text = "Capcay Seafood" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 29 Then txthari.Text = "29" txtmenu1.Text = "Sambal Goreng Kentang Udang Pete" txtmenu2.Text = "Gulai Daun Singkong" lblmenu3.Visible = False txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 30 Then txthari.Text = "30" txtmenu1.Text = "Tauco Ikan Bawal" txtmenu2.Text = "Sayur Bening Sawi Hijau" lblmenu3.Visible = False


97

txtmenu3.Visible = False cmdmenu3.Visible = False lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False

ElseIf a = 31 Then txthari.Text = "31" txtmenu1.Text = "Sambal Telur Balado" txtmenu2.Text = "Ikan Asin Goreng Tepung" txtmenu3.Text = "Sayur Urap" lblmenu4.Visible = False txtmenu4.Visible = False cmdmenu4.Visible = False End If End Sub

Form Resep Private Sub cmdcetak_Click() CrystalReport1.SelectionFormula = "{Masakan.Nama_masakan}='" & txtnama.Text & "'" CrystalReport1.ReportFileName = App.Path & "\resep.rpt" CrystalReport1.PrintReport End Sub

Private Sub cmdkembali_Click() frmkombinasi1.Show Unload Me End Sub


98

Private Sub Form_Load() Data1.RecordSource = "Select * From Masakan where Kode_masakan='" & Val(b) & "'"

Select Case b Case 1 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\1.jpg") Case 2 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\2.jpg") Case 3 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\3.jpg") Case 4 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\4.jpg") Case 5 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\5.jpg") Case 6 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\6.jpg") Case 7 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\7.jpg") Case 8 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\8.jpg") Case 9 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\9.jpg") Case 10 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\10.jpg") Case 11 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\11.jpg") Case 12 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\12.jpg") Case 13 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\13.jpg") Case 14


99

Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\14.jpg") Case 15 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\15.jpg") Case 16 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\16.jpg") Case 17 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\17.jpg") Case 18 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\18.jpg") Case 19 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\19.jpg") Case 20 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\20.jpg") Case 21 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\21.jpg") Case 22 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\22.jpg") Case 23 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\23.jpg") Case 24 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\24.jpg") Case 25 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\25.jpg") Case 26 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\26.jpg") Case 27 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\27.jpg") Case 28 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\28.jpg") Case 29 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\29.jpg") Case 30


100

Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\30.jpg") Case 31 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\31.jpg") Case 32 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\32.jpg") Case 33 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\33.jpg") Case 34 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\34.jpg") Case 35 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\35.jpg") Case 36 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\36.jpg") Case 37 Image1. Picture = LoadPicture("E:\TA uty\Gambar Masakan\37.jpg") Case 38 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\38.jpg") Case 39 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\39.jpg") Case 40 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\40.jpg") Case 41 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\41.jpg") Case 42 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\42.jpg") Case 43 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\43.jpg") Case 44 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\44.jpg") Case 45 Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\45.jpg") Case 46


101

Image1.Picture = LoadPicture("E:\TA uty\Gambar Masakan\46.jpg") End Select End Sub


102

KANDUNGAN GIZI BAHAN MAKANAN

Tabel 1. Kandungan gizi beberapa bahan makanan Bahan

Prot.

Lemak

Karb.

Kal.

Beras putih 6,8 0,7 78,9 360 Beras ketan 6,7 0,7 79,4 362 Bihun 4,7 0,1 82,1 360 Biskuit 6,9 14,4 75,1 458 Jagung putih 9,2 3,9 73,7 355 Gadung 2,1 0,2 23,2 101 Ganyong 1,0 0,1 22,6 95 Gaplek 1,5 0,7 81,3 338 Katul beras 14,4 18,2 47,7 29,1 Kentang 2,0 0,1 19,1 83 Singkong 1,2 0,3 34,7 146 Terigu 8,9 1,3 77,3 365 Ubi rambat 1,8 0,7 27,9 123 Uwi 2,0 0,2 19,8 101 Daging ayam 18,2 25,0 0 302 Daging sapi 18,8 14,0 0 207 Bandeng 20,0 4,8 0 129 Ikan asin 42, 1,5 0 193 Ikan mas 16,0 2,0 0 86 Kerang 8,0 1,1 3,6 59 Teri 16,0 1,0 0 77 Udang 21,0 0,2 0,1 91 Telur ayam 12,8 11,5 0,7 162 Telur bebek 13,1 14,3 0,8 189 Tahu 7,8 4,6 1,6 68 Tempe 18,3 4,0 12,7 149 Catatan : Prot =protein, karb = karbohidrat, kal = kalori

Vitamin B1 B1 B1 B1 B1, C B1, C B1 B1 B1, C B1, C B1 A, B1, C B1, C A, B1 A, B1 A, B1 B1 A, B1 A, B1 A, B1 A, B1 A,B1 A, B1 B1 A, B1

Mineral Ca, P, Fe Sda Sda Sda Sda Sda Sda Sda Sda Sda Sda Sda Sda Sda Sda Sda sda Sda Sda Sda Sda Sda Sda Sda Sda Sda


103

Tabel 2. Nilai gizi beberapa jenis sayuran dan buah Kandungan mineral Ca (mg) P (mg) Fe (mg) K. Hijau 125 320 6,7 K. Kedelai 227 585 8,0 K. Merah 80 400 5,0 K. tanah 42 177 1,4 Bayam 267 67 3,9 Buncis 65 44 1,1 D. k.panjg 134 145 6,2 D. lobak 140 33 3,7 D. mangkok 474 49 4,0 D. talas 76 59 1,0 D. Melinjo 219 82 4,2 D. Pepaya 353 63 0,8 D. Singkong 165 54 2,0 Kangkung 70 50 2,5 Kol 46 31 0,5 Lobak 35 26 0,6 Nangka md 45 29 0,5 Sawi 220 38 2,9 Cabe rawit 45 85 2,5 Wortel 39 37 0,8 Terong 15 37 0,4 Tomat 5 27 0,5 adpokat 10 20 0,9 Apel 6 10 0,3 Belimbing 4 12 1,1 Jeruk kp 33 23 0,4 Duku 18 9 0,9 Mangga 9 13 0,2 Nangka 20 19 0,09 Nanas 16 11 0,3 Pisang 8 28 0,6 Pepaya 23 12 1,7 Semangka 7 12 0,2 Salak 28 18 4,2 Rambutan 16 16 0,5 Catatan : data dihitung untuk 100 gram bahan. Bahan

SI =

Kandungan vitamin A (SI) B1 (mg) C (mg) 157 0,64 0 110 1,07 0 0 0,60 0 0 0,44 5 6090 0,08 80 630 0,08 19 5240 0,28 29 1000 0,07 9 5450 0,06 83 2000 0,08 31 10.000 0,09 182 18250 0,15 140 11000 0,12 275 6300 0,07 32 80 0,06 50 10 0,03 32 25 0,07 9 6460 0,09 102 11050 0,24 70 12000 0,06 6 30 0,04 5 1500 0,06 40 180 0,05 13 90 0,04 5 170 0.03 35 420 0,07 31 0 0,05 9 6350 0,06 41 330 0,07 7 130 0,08 24 430 0,04 10 365 0,04 78 590 0,05 6 0 0,04 2 10 0 58

Satuan Internasional (1g Vit A = 3.000.000 SI)

Orang dewasa setiap hari memerlukan 1400 SI Vit. A.


104

Komisi ahli FAO/WHO/UNU (1985) telah memperkenalkan salah satu ukuran mutu gizi konsumsi pangan dengan cara rasio PE (Rasio Protein Energi). Rasio PE merupakan perbandingan energi dari protein senilai telur (PST) terhadap total energi yang dikonsumsi selama sehari. Protein senilai telur adalah protein kasar dikoreksi dengan mutu protein bahan pangan yang bersangkutan (protein score) dan nilai cernanya. Perhitungan energi dari PST yang diperoleh dari pangan yang dikonsumsi adalah dengan menggunakan faktor Atwater untuk protein, yaitu 4,0. Artinya setiap satu gram protein menghasilkan energi 4,0 Kalori, sehingga secara sederhana Rasio PR dirumuskan sebagai berikut:

Tabel 3. Susunan bahan makanan untuk menu sehari seorang laki-laki dewasa dengan berat badan 55 kg pekerja ringan Bahan Berat No. makanan (gram) 1. Beras 2. Tempe 3. Telur 4. Sayuran 5. Gula 6. Minyak 7. Santan Jumlah

400 40 80 150 60 20 50

Energi kalori 1452 60 130 77 220 180 162 2281

% 63,7 2,6 5,7 3,4 9,6 7,9 7,1 100

Protein senilai telur gram % 16,0 46,9 4,9 14,4 10,4 30,5 2,3 6,7 0,5 1,5 34,1 100

Maka rasio protein energinya adalah :

Dimana: nilai PST = 34,1 gram, dan total konsumsi energinya = 2281 Kalori.


105

Berapapun tingginya nilai Rasio PE tidak ada artinya apabila energi yang dikonsumsi masih belum memenuhi kecukupan energi Hal ini disebabkan protein makanan bahkan protein tubuh setelah habis cadangan lemak akan diubah menjadi energi untuk memenuhi kekurangan energi tubuh. Rasio PE untuk menilai mutu pangan seseorang atau sekelompok orang secara serempak selama satu hari atau rata-rata sehari. Komisi ahli FAO/WHO (1973) pernah menyarankan penggunaan mutu gizi konsumsi pangan yang mirip dengan cara Rasio PE, yaitu cara Protein-Energi Percent (PE-%). Rasio PE dan PE-% berbeda dalam hal mutu proteinnya, dimana protein dalam cara Rasio PE adalah dalam bentuk PST (NPU = 100), sedangkan dalam PE% dalam bentuk protein makanan (protein kasar).

Tabel 4. Kecukupan energi dan protein per kg berat badan per hari menurut kelompok umur, jenis kelamin, dan tingkat kegiatan orang dewasa. Energi Protein Protein�energi Kelompok umur (kal/kg bb) (g/kg bb) ( persen ) (th) L P L P L P 0 112 1,92 6,9 1-3 101 1,44 5,7 4-6 91 1,16 5,1 7-9 78 0,89 4,6 10-12 71 62 0,81 0,76 4,6 4,9 13-15 57 50 0,72 0,62 5,1 5,0 16-19 49 43 0,6 0,55 4,9 5,2 20-39 Kerja ringan 41 36 0,57 0,52 5,6 5,8 Kerja sedang 46 40 0,57 0,52 5,0 5,3 Kerja berat 54 47 0,57 0,52 4,3 4,4 40-49 44 38 0,57 0,52 5,2 5,5 50-59 42 36 0,57 0,52 5,5 5,7 60-69 47 32 0,57 0,52 6,2 6,5 70 + 32 28 0,57 0,52 7,0 7,4 * FAO/WHO, 1980. bb= berat badan th = tahun


106

KEBUTUHAN KALORI PER HARI

Untuk menjaga berat badan agar ramping atau tetap stabil, maka perhatikan jumlah kalori yang masuk ke dalam tubuh. Namun, kebutuhan kalori setiap orang ini berbeda-beda tergantung usia, aktivitas, dan berat badan. Rata-rata perempuan menurunkan berat badan dengan cara mengurangi porsi makannya, sayangnya hal ini belum tentu akan berhasil karena jumlah kalori yang disantap tidak dikurangi. Kelebihan kalori akan membuat tubuh kita menjadi gemuk, dan kekurangan kalori akan membuat kita sangat kurus bahkan kurang nutrisi. Cara yang paling baik untuk diet adalah mengetahui kebutuhan kalori harian kita jelas ahli gizi klinis, D. Ida Gunawan, MS, SpGK dalam acara peluncuran produk camilan beberapa waktu lalu di Jakarta. Ada banyak cara yang bisa digunakan untuk mengetahui berapa kalori yang kita butuhkan dalam sehari, salah satunya adalah rumus Harris Benedict Equation. Akan tetapi rumus ini tergolong sulit untuk diadaptasi karena terlalu banyak komponen yang harus diperhitungkan di dalamnya. Menurut Ida ada cara yang lebih mudah untuk menentukan kebutuhan kalori ini. Komponen yang harus diperhitungkan dalam menentukan kalori ini adalah berat badan ideal, kebutuhan basal, aktivitas fisik yang dilakukan dan juga koreksi usia kita tukasnya. Berikut cara menghitungnya : 1. Tentukan berat badan ideal (BB) Langkah awal yang harus diketahui adalah tinggi badan (TB) yang kita miliki saat ini. Berat badan (BB) ideal bisa diperhitungkan dengan cara :


107

BB Ideal = 0,9 x (TB-100). Ini akan menentukan berapa bobot tubuh yang seharusnya kita miliki. Para pria biasanya memiliki kelebihan berat badan karena memiliki massa otot yang lebih besar, sedangkan perempuan lebih berat karena massa lemaknya yang lebih tinggi. Contoh : jika kita adalah seorang perempuan berusia 45 tahun dan memiliki tinggi badan 165 c, maka BB ideal adalah = 0,9 x (165-100) = 58,5 kg.

2. Hitung kebutuhan basal (KB) Kebutuhan basal (KB) adalah kebutuhan minimal yang dibutuhkan untuk memenuhi kebutuhan saat tidur atau istirahat. Ini merupakan kebutuhan energi dan kalori yang paling mendasar untuk menggerakan jantung, paru, usus dan pencernaan saja. Kebutuhan basal laki-laki dan perempuan ini berbeda satu sama lain. KB perempuan KB pria

= BB Ideal x 25 Kkal

= BB Ideal x 30 KKal

Contoh : KB = 58,5 x 25 Kkal = 1462,5 Kkal

3. Aktivitas fisik (AF) Rata-rata semua orang pasti memiliki aktivitas masing-masing. Asupan kalori tubuh ini juga dipengaruhi oleh aktivitas yang dilakukan. Secara umum ada tiga kategori aktivitas fisik yang dilakukan yaitu ringan, sedang, dan berat. Aktivitas fisik ini dihitung dari total kebutuhan basal.


108

a.

Aktivitas ringan (10-20 persen) : Menyetir mobil (10 persen), mengajar (20 persen), berjalan (20 persen), kerja kantoran (10 persen), memancing (20 persen), membaca (10 persen).

b.

Aktivitas sedang (20-30 persen) : kerja rumah tangga (20 persen), bersepeda (30 persen), bowling (20 persen), berjalan cepat (30 persen), berkebun (30 persen).

c.

Aktivitas berat (40-50 persen) : aerobik (40 persen), bersepeda mendaki (40 persen), panjat tebing (50 persen), dansa (40 persen), jogging (40 persen), atlit (50 persen).

Jika dalam satu hari kita banyak beraktivitas, maka kebutuhan aktivitas yang diambil adalah aktivitas yang paling sering dilakukan setiap harinya. Contoh : Jika sehari-hari kita beraktivitas sebagai ibu rumah tangga maka, aktivitas fisik kita adalah = 20% x 1462,5 (kebutuhan basal) = 292,5 Kkal.

4. Koreksi usia (KU) Usia juga akan mempengaruhi kebutuhan kalori seseorang. Semakin bertambahnya usia, maka kebutuhan kalori dan asupan makanannya pun semakin sedikit. Untuk kita yang berusia 40-59 tahun, maka koreksi usianya mencapai 5 persen, usia 60-69 tahun maka koreksinya 10 persen, dan usia lebih dari 70 tahun koreksinya 20 persen. Contoh : Jika kita berusia 45 tahun, maka faktor koreksinya adalah 5 persen. Sehingga koreksi usia kita adalah = 5 % x 1462,5 Kkal (kebutuhan basal) = 73,125 Kkal.


109

5. Total kalori yang dibutuhkan (TK) Setelah mendapatkan semua komponen yang dibutuhkan, maka total kalori (TK) sehari ini bisa dihitung dengan rumus : TK = KB + AF - KU Contoh : dari perhitungan di atas diperoleh data, BB = 58,5 kg, KB = 1462,5 Kkal, AF = 292,5 Kkal, KU = 73,125 Kkal. Maka kebutuhan kalori per hari adalah TK = 1462,5 + 292.5 -73,125 = 1681,875 Kkal per hari. Akan tetapi, kebutuhan kalori ini sebaiknya dibagi dalam enam kali makan.


Listing Program : Universitas Sumatera Utara

Recommend Documents