LISTING PROGRAM. 1.Penamaan

LISTING PROGRAM

1.Penamaan

Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim latar As BitmapDrawable Dim halinfo As Panel Dim halket As Panel Dim halkalkulator As Panel Dim halabout As Panel Dim halexit As Panel Dim halutama As Panel Dim cmdInf As ImageView, cmdCal As ImageView, cmdabout As ImageView, cmdexit As ImageView Dim cmdG(6) As ImageView,cmdpoto As ImageView Dim page As Int Dim lblinfo(5) As Label Dim lblKet As Label Dim ket As String Dim cmdback As Button Dim lblnama As Label Dim lbljurusan As Label Dim lblfakultas As Label Dim lbltinggi As Label Dim lblhasil As Label Dim lbljenis As Label Dim pria As RadioButton Dim wanita As RadioButton Dim txttinggi As EditText Dim txthasil As EditText

Universitas Sumatera Utara

Dim cmdhitung As Button End Sub

2.Halaman Utama cmdback.Initialize("cmdback") cmdback.Text="back" Activity.AddView(cmdback,10%x, 90%y, 80%x, 12%x) halutama.Initialize("") Activity.AddView(halutama, 0, 0, 100%x, 100%y) If File.Exists(File.DirAssets,"bg1.jpg")=True Then latar.Initialize(LoadBitmap (File.DirAssets, "bg1.jpg")) halutama.Background = latar Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"inf.jpg")=True Then cmdInf.Initialize("cmdInf") cmdInf.Bitmap = LoadBitmap (File.DirAssets, "inf.jpg") cmdInf.Gravity = Gravity.FILL halutama.AddView(cmdInf, 15%x, 35%y, 30%x, 30%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"cal.jpg")=True Then cmdCal.Initialize("cmdcal") cmdCal.Bitmap = LoadBitmap (File.DirAssets, "cal.jpg") cmdCal.Gravity = Gravity.FILL halutama.AddView(cmdCal, 60%x, 35%y, 30%x, 30%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"about.jpg")=True Then cmdabout.Initialize("cmdabout") cmdabout.Bitmap = LoadBitmap (File.DirAssets, "about.jpg") cmdabout.Gravity = Gravity.FILL


halutama.AddView(cmdabout, 15%x, 65%y, 30%x, 30%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"exit.jpg")=True Then cmdexit.Initialize("cmdexit") cmdexit.Bitmap = LoadBitmap (File.DirAssets, "exit.jpg") cmdexit.Gravity = Gravity.FILL halutama.AddView(cmdexit, 60%x, 65%y, 30%x, 30%x) Else Msgbox("file tidak ada","peringatan") End If

3.Halaman Info halinfo.Initialize("") Activity.AddView(halinfo, 0, 0, 100%x, 100%y) halinfo.Visible=False If File.Exists(File.DirAssets,"latar.png")=True Then latar.Initialize(LoadBitmap (File.DirAssets, "latar.png")) halinfo.Background = latar Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"g1.png")=True Then cmdG(0).Initialize("cmdG0") cmdG(0).Bitmap = LoadBitmap (File.DirAssets, "g1.png") cmdG(0).Gravity = Gravity.FILL halinfo.AddView(cmdG(0), 10%x, 10%y, 80%x, 12%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"g2.png")=True Then cmdG(1).Initialize("cmdG1") cmdG(1).Bitmap = LoadBitmap (File.DirAssets, "g2.png") cmdG(1).Gravity = Gravity.FILL


halinfo.AddView(cmdG(1), 10%x, 20%y, 80%x, 12%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"g3.png")=True Then cmdG(2).Initialize("cmdG2") cmdG(2).Bitmap = LoadBitmap (File.DirAssets, "g3.png") cmdG(2).Gravity = Gravity.FILL halinfo.AddView(cmdG(2), 10%x, 30%y, 80%x, 12%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"g4.png")=True Then cmdG(3).Initialize("cmdG3") cmdG(3).Bitmap = LoadBitmap (File.DirAssets, "g4.png") cmdG(3).Gravity = Gravity.FILL halinfo.AddView(cmdG(3), 10%x, 40%y, 80%x, 12%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"g5.png")=True Then cmdG(4).Initialize("cmdG4") cmdG(4).Bitmap = LoadBitmap (File.DirAssets, "g5.png") cmdG(4).Gravity = Gravity.FILL halinfo.AddView(cmdG(4), 10%x, 50%y, 80%x, 12%x) Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"g6.png")=True Then cmdG(5).Initialize("cmdG5") cmdG(5).Bitmap = LoadBitmap (File.DirAssets, "g6.png") cmdG(5).Gravity = Gravity.FILL halinfo.AddView(cmdG(5), 10%x, 60%y, 80%x, 12%x) Else Msgbox("file tidak ada","peringatan") End If


4.Halaman Keterangan

halket.Initialize("") Activity.AddView(halket, 0, 0, 100%x, 100%y) halket.Visible=False halket.Background = latar

lblKet.Initialize("") lblKet.Text = "" halket.AddView(lblKet, 10%x, 7%y, 80%x, 80%y)

5.Halaman Kalkulator

halkalkulator.Initialize("") Activity.AddView(halkalkulator, 0, 0, 100%x, 100%y) halkalkulator.Visible=False If File.Exists(File.DirAssets,"latar.png")=True Then latar.Initialize(LoadBitmap (File.DirAssets, "latar.png")) halkalkulator.Background = latar Else Msgbox("file tidak ada","peringatan") End If lbltinggi.Initialize("lbltinggi") lbltinggi.text="TINGGI BADAN ANDA" lbltinggi.TextColor = Colors.RGB(0,0,0) Activity.AddView(lbltinggi,10%x,18%y,80%x,10%x) lbltinggi.Visible = False lbljenis.Initialize("") lbljenis.text="JENIS KELAMIN ANDA" lbljenis.TextColor = Colors.RGB(0,0,0) Activity.AddView(lbljenis,10%x,25%y,80%x,10%x) lbljenis.Visible = False


lblhasil.Initialize("lblhasil") lblhasil.text="BERAT BADAN IDEAL" lblhasil.TextColor = Colors.RGB(0,0,0) Activity.AddView(lblhasil,10%x,40%y,80%x,10%x) lblhasil.Visible = False txttinggi.Initialize(" ") txttinggi.text="" Activity.AddView(txttinggi,60%x,18%y,30%x,12%x) txttinggi.Visible = False txthasil.Initialize(" ") txthasil.text="" Activity.AddView(txthasil,60%x,40%y,30%x,12%x) txthasil.Visible = False txthasil.Enabled=False pria.Initialize("pria") pria.text="PRIA" pria.TextColor = Colors.RGB(0,0,0) Activity.AddView(pria,60%x,25%y,80%x,10%x) pria.Visible = False wanita.Initialize("wanita") wanita.text="WANITA" wanita.TextColor = Colors.RGB(0,0,0) Activity.AddView(wanita,60%x,33%y,80%x,10%x) wanita.Visible = False cmdhitung.Initialize("cmdhitung") cmdhitung.text="HITUNG" Activity.AddView(cmdhitung,20%x,50%y,40%x,20%x) cmdhitung.Visible = False

6.Halaman About

halabout.Initialize("") Activity.AddView(halabout, 0, 0, 100%x, 100%y) halabout.Visible=False If File.Exists(File.DirAssets,"latar.png")=True Then latar.Initialize(LoadBitmap (File.DirAssets, "latar.png")) halabout.Background = latar


Else Msgbox("file tidak ada","peringatan") End If If File.Exists(File.DirAssets,"poto.jpg")=True Then cmdpoto.Initialize("cmdpoto") cmdpoto.Bitmap = LoadBitmap (File.DirAssets, "poto.jpg") cmdpoto.Gravity = Gravity.FILL halabout.AddView(cmdpoto, 10%x, 10%y, 80%x, 80%x) Else Msgbox("file tidak ada","peringatan") End If lblnama.Initialize("lblnama") lblnama.text="NAMA:WARDIANSYAH PADANG" lblnama.TextColor = Colors.RGB(0,0,0) Activity.AddView(lblnama,10%x,65%y,80%x,10%x) lblnama.Visible = False lbljurusan.Initialize("lbljurusan") lbljurusan.text="JURUSAN:TEKNIK INFORMATIKA" lbljurusan.TextColor = Colors.RGB(0,0,0) Activity.AddView(lbljurusan,10%x,70%y,80%x,10%x) lbljurusan.Visible = False lblfakultas.Initialize("lblfakultas") lblfakultas.text="FAKULTAS:MIPA USU" lblfakultas.TextColor = Colors.RGB(0,0,0) Activity.AddView(lblfakultas,10%x,75%y,80%x,10%x) lblfakultas.Visible = False End Sub

7.Proses Click

Sub cmdCal_click halutama.Visible = False halkalkulator.Visible = True cmdback.Visible = True cmdback.BringToFront


lbltinggi.Visible = True lblhasil.Visible = True lbljenis.Visible = True txttinggi.Visible = True txthasil.Visible = True pria.Visible = True wanita.Visible = True cmdhitung.Visible = True pria.Checked=True End Sub Sub cmdexit_click Activity.Finish End Sub Sub cmdabout_click halutama.Visible = False halabout.Visible = True cmdback.Visible = True cmdback.BringToFront lblnama.Visible = True lbljurusan.Visible = True lblfakultas.Visible = True End Sub Sub cmdinf_click halutama.Visible = False halinfo.Visible = True cmdback.Visible = True cmdback.BringToFront End Sub

Sub cmdG0_click ket = "GIZI BAYI :" & CRLF & " Tahapan Bayi merupakan tahapan kehidupan pertama setelah manusia dilahirkan.Laju pertumbuhan selama sebelum lahir dan sewaktu bayi lebih cepat dari tahapan kehidupan lain setelahnya.Kehidupan yang pertama-tama adalah paling rawan untuk pertumbuhan dan perkembangan.Pertumbuhan adalah perubahan ukuran fisik dari waktu ke waktu, baik dari segi DIMENSI,PROPORSI, maupun KOMPOSISI tubuh.Pada manusia, ukuran fisik (tubuh) disebut juga dengan istilah ANTROPOMETRI.Bayi sesaat dilahirkan akan melakukan penyesuaian diri terhadap suhu, pernafasan, sirkulasi darah, pencernaan dan proses pengosongan (buang


air kecil dan besar) sehingga berat badan turun.Pada waktu bayi berumur 10 hari sampai 14 hari berat badan waktu lahir tercapai kembali.Perkembangan adalah perubahan kemampuan anak dalam gerakan motorik kasar/halus,kecerdasan, mental,perilaku dari waktu ke waktu." lblKet.Gravity = Gravity.LEFT halinfo.Visible = False halket.Visible = True lblKet.TextColor = Colors.RGB(0,0,0) lblKet.text = ket End Sub Sub cmdG1_click ket ="KARAKTERISTIK GIZI BALITA" & CRLF & " Disebut juga usia : pra - sekolah Batasan umur 3 – 5 tahun Mampu mengatakan “tidak” terhadap makanan yang ditawarkan Saat tepat ditanamkan kebiasaan makan yang baik" & CRLF & CRLF & " PENATALAKSANAAN GIZI " & CRLF & "1. Kembangkan kebiasaan makan yang baik anak sejak dini diperkenalkan dengan makanan beragam kebiasaan makan orang tua sangat mempengaruhi anak" & CRLF & "2. Hindari pengucapan ketidaksenangan terhadap makanan di hadapan anak" & CRLF & "3. Hormati kesukaan anak terhadap makanan tertentu pelanpelan ubah ke arah kebiasaan makan yang baik" & CRLF & "4. Biarkan anak mencoba makan sendiri " & CRLF & "5. Minimumkan risiko obesitas dengan menghindari makanan yang melebihi kebutuhan" & CRLF & "6. Jika anak masih terasa lapar dapat diberi buah yang memberi rasa kenyang " lblKet.Gravity = Gravity.LEFT halinfo.Visible = False halket.Visible = True lblKet.TextColor = Colors.RGB(0,0,0) lblKet.text = ket End Sub Sub cmdG2_click ket = "GIZI ANAK SEKOLAH" & CRLF & CRLF & " Pertumbuhan dan Perkembangan anak usia Sekolah Dasar: " & CRLF & CRLF & "1. Jasmani Periode ini disebut periode memanjang secara fisik. Fungsi organ otak mulai terbentuk mantap sehingga perkembangan kecerdasannya cukup pesat. " & CRLF & CRLF & "2. Jiwani Anak mulai banyak melihat dan bertanya, fantasinya berkurang karena melihat kenyataan,


ingatan kuat, daya kritis mulai tumbuh, ingin berinisiatif dan bertanggung jawab." & CRLF & CRLF & "3. Rohani Anak mulai memasukkan dalam pikirannya tentang Tuhan mulai memisahkan konsep pikiran tentang Tuhan dengan orangtuanya. " & CRLF & CRLF & "4. Sosial Kegiatan anak mulai berkelompok dan mengarah pada tujuan tetapi masih egosentris." lblKet.Gravity = Gravity.LEFT halinfo.Visible = False halket.Visible = True lblKet.TextColor = Colors.RGB(0,0,0) lblKet.text = ket End Sub Sub cmdG3_click ket = "Kebutuhan Gizi Remaja " & CRLF & "Energi: " & CRLF & "Sangat diperlukan dalam jumlah banyak untuk pertumbuhan dan aktivitaas yang meningkat pada usia tersebut. " & CRLF & "Protein: " & CRLF & "Kecukupan protein per kg BB relatif lbh rendah dibanding masa sebelumnya: 7-8 % dari total energi atau 45-72 g per hari. Dilihat secara total kebt protein meningkat, karena: Peningkatan massa tubuh tak berlemak Kebutuhan eritrosit dan myoglobin Perubahan hormonal Pada Perempuan yang diet energi maka protein akan digunakan untuk glukoneogenesis (menghasilkan energi) " & CRLF & "Vitamin: " & CRLF & "Vit B (tiamin, riboflavin, niasin) diperlukan dalam jumlah cukup karena memerlukan energi banyak Vit D sangat penting untuk pembentukan tulang (rangka) Kebutuhan Vit A, E, C, As.Folat & B6 sama dengan dewasa. " & CRLF & "Mineral: " & CRLF & "Sejumlah mineral yang berpeluang defisiensi: besi, kalsium dan seng krn banyak dibutuhkan untuk materi pertumbuhan." lblKet.Gravity = Gravity.LEFT halinfo.Visible = False halket.Visible = True lblKet.TextColor = Colors.RGB(0,0,0) lblKet.text = ket End Sub Sub cmdG4_click ket = "Gizi Orang Dewasa" & CRLF & "12 Pedoman Umum Gizi Seimbang : " & CRLF & "1. Makanlah aneka ragam makanan " & CRLF & "2. Makanlah pangan untuk memenuhi kecukupan energi " & CRLF & "3. Makanlah sumber karobohidrat setengah


dari kebutuhan energi. Konsumsi dibatasi antara 50-60 %, dg komposisi pangan. dari padi-padian 50 %, umbi2an 6 % dan gula 5 % (3-4 sdm) " & CRLF & "4. Batasi konsumsi lemak dan minyak sampai seperempat dari kecukupan energi (Kisarannya 10 – 25 % atau 3-4 sdm minyak per hari) " & CRLF & "5. Gunakan ragam beryodium (6 g atau 1 sdm/hari) " & CRLF & "6.Makanlah sumber zat besi " & CRLF & "7. Berikan ASI saja pada bayi sampai usia 4 bulan " & CRLF & "8. Biasakan makan pagi " & CRLF & "9. Minumlah air bersih, aman dan cukup jumlahnya Sekitar 2 lt atau 8 gelas " & CRLF & "10. Lakukan kegiatan fisik dan olahraga secara teratur " & CRLF & "11. Hindari minuman beralkohol " & CRLF & "12. Makanlah pangan yang aman bagi kesehatan " lblKet.Gravity = Gravity.LEFT halinfo.Visible = False halket.Visible = True lblKet.TextColor = Colors.RGB(0,0,0) lblKet.text = ket End Sub Sub cmdG5_click ket = "" & CRLF & "Karakteristik Lansia " & CRLF & "1. Sel-sel mengecil atau komposisi sel pembentukan jaringan ikat baru menggantikan sel-sel yang menghilang 2. terjadi kemunduran organ (proses degeneratif) " & CRLF & "Contoh kemunduran organ: " & CRLF & "Kulit : " & CRLF & "Kulit berubah menjadi tipis, kering, keriput dan tidak elastis lagi. Fungsi kulit sebagai penyekat suhu lingkungan dan perisai terhadap masuknya kuman terganggu. " & CRLF & "Rambut : " & CRLF & "Rontok, warna menjadi putih, kering dan tidak mengkilat Berkaitan dengan perubahan degeneratif kulit. " & CRLF & "Otot : " & CRLF & "Jumlah sel otot berkurang, ukurannya antrofi,Jumlah sel otot berkurang, ukurannya antrofi, jumlah jaringan ikat bertambah volume otot secara keseluruhan menyusut, fungsinya menurun dan kekuatannya berkurang. Jantung dan pembuluh darah : kekuatan mesin pompa jantung berkurang pembuluh darah penting khusus yang di jantung dan otak mengalami kekakuan lapisan intim menjadi kasar akibat merokok, hipertensi, diabetes mellitus, kadar kolesterol tinggi hipertensi, diabetes mellitus, kadar kolesterol tinggi dan lain-lain yang memudahkan timbulnya penggumpalan darah dan trombosis " & CRLF & "Tulang : " & CRLF & "Pada proses menua kadar kapur (kalsium) dalam tulang menurun tulang menjadi kropos (osteoporosis) & mudah patah Seks : Produksi hormon seks pada pria dan wanita menurun dengan bertambahnya umur."


lblKet.Gravity = Gravity.LEFT halinfo.Visible = False halket.Visible = True lblKet.TextColor = Colors.RGB(0,0,0) lblKet.text = ket End Sub

8.Proses Back

Sub cmdback_click If halinfo.Visible =True Then halinfo.Visible = False halutama.Visible = True cmdback.Visible = False Else If halket.Visible = True Then halket.Visible = False halinfo.Visible = True Else If halabout.Visible = True Then halabout.Visible = False halutama.Visible = True lblnama.Visible = False lbljurusan.Visible = False lblfakultas.Visible = False cmdback.Visible = False Else If halkalkulator.Visible = True Then halkalkulator.Visible = False halutama.Visible = True lbltinggi.Visible = False lbljenis.Visible = False lblhasil.Visible = False cmdback.Visible = False txttinggi.Visible = False txthasil.Visible = False pria.Visible = False wanita.Visible = False cmdhitung.Visible = False End If End Sub


9.Proses Hitung

Sub cmdhitung_click Dim persen As Double If txttinggi.Text="" Then Msgbox("Data belum di isi","peringatan") Else If pria.checked = True Then persen=0.1 Else If wanita.Checked = True Then persen=0.15 End If txthasil.Text = txttinggi.Text-100-(persen * (txttinggi.text - 100)) End If End Sub


SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang bertanda tangan dibawah ini, menerangkan bahwa Tugas Akhir Mahasiswa Program Diploma 3 Teknik Informatika :

Nama

:

WARDIANSYAH PADANG

NIM

:

112406120

Program Studi

:

DIPLOMA (D-3) TEKNIK INFORMATIKA

Judul Tugas Akhir :

SISTEM

INFORMASI

KEBUTUHAN

GIZI

PEMBUATAN DENGAN

APLIKASI

MENGGUNAKAN

PEMROGRAMAN ANDROID

Telah melaksanakan uji program Tugas Akhir Mahasiswa tersebut diatas pada tanggal ................................. Dengan Hasil

:

Sukses / Gagal

Demikian Surat Keterangan ini dibuat untuk melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Departemen Matematika FMIPA USU Medan.

Medan,

Juni 2014

Dosen Pembimbing,

Prof. Dr. Opim Salim Sitompul, M.Sc NIP. 19610817 198701 1 001


KEMENTRIAN PENDIDIKAN DAN KEBUDAYAAN

UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM Jl. Bioteknologi No. 1 Kampus USU Telp. (061) 8211050 Fax. (061) 8214290 Medan-20155 Email : [email protected]

KARTU BIMBINGAN TUGAS AKHIR MAHASISWA Nama Mahasiswa Nomor Stambuk Judul Tugas Akhir

: : :

WARDANSYAH PADANG 112406120 Sistem Informasi Pembuatan Aplikasi Kebutuhan Gizi Dengan Menggunakan Pemrograman Android Prof. Dr. Opim Salim Sitompul, M.Sc

Dosen Pembimbing : Tanggal Mulai Bimbingan : Tanggal Selesai Bimbingan :

No

Tanggal Asisten Bimbingan

Pembahasan pada Asistensi Mengenai, pada Bab

Paraf Dosen Pembimbing

Keterangan

1 2 3 4 5 6 7 8

Diketahui, Program Studi D3 Teknik Informatika, FMIPA USU Ketua,

Disetujui Pembimbing Utama/ Penanggung Jawab,

Dr. Elly Rosmaini, M.Si NIP. 19600520 198503 2 002

Prof. Dr. Opim Salim Sitompul, M.Sc NIP. 19610817 198701 1 001


LISTING PROGRAM. 1.Penamaan

Recommend Documents