Private Sub Form_Load() Image1.Picture = LoadPicture(App.Path & "\pra-setahun2.jpg") End Sub

LISTING PROGRAM

L-1

L-2

Listing Program Form Menu Utama Private Sub Form_Load() Image1.Picture = LoadPicture(App.Path & "\pra-setahun2.jpg") End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80C0FF LblBayi.ForeColor = &H80000012 LblAnak.ForeColor = &H80000012 LblRemaja.ForeColor = &H80000012 ShpTolong.BackColor = &H80C0FF End Sub Private Sub LblAnak_Click() FrmKategori.LblJudul.Caption = "Anak Segala Usia" FrmKategori.Lbl01.Caption = "1. Rambut, Kulit Kepala dan Kuku" FrmKategori.Lbl02.Caption = "2. Masalah-Masalah pada Mata" FrmKategori.Lbl03.Caption = "3. Sakit Kepala" FrmKategori.Lbl04.Caption = "4. Bercak dan Bintik" Load FrmKategori FrmKategori.Image1.Picture = LoadPicture(App.Path & "\pra-setahun3.jpg") FrmKategori.Show End Sub Private Sub LblAnak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) LblAnak.ForeColor = &H80000005 End Sub Private Sub LblBayi_Click() FrmKategori.LblJudul.Caption = "Bayi Pra Setahun" FrmKategori.Lbl01.Caption = "1. Diare pada Bayi" FrmKategori.Lbl02.Caption = "2. Masalah Timbangan Badan" FrmKategori.Lbl03.Caption = "3. Menangis Berlebihan" FrmKategori.Lbl04.Caption = "4. Masalah Kulit" Load FrmKategori FrmKategori.Image1.Picture = LoadPicture(App.Path & "\pra-setahun1.jpg") FrmKategori.Show End Sub

L-3

Private Sub LblBayi_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) LblBayi.ForeColor = &H80000005 End Sub Private Sub LblKeluar_Click() End End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblRemaja_Click() FrmKategori.LblJudul.Caption = "Remaja" FrmKategori.Lbl01.Caption = "1. Puber Terlambat" FrmKategori.Lbl02.Caption = "2. Masalah Kulit Remaja" FrmKategori.Lbl03.Caption = "3. Masalah Perilaku Remaja" FrmKategori.Lbl04.Caption = "4. Masalah Berat Badan pada Remaja" Load FrmKategori FrmKategori.Image1.Picture = LoadPicture(App.Path & "\pra-setahun6.jpg") FrmKategori.Show End Sub Private Sub LblRemaja_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) LblRemaja.ForeColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Private Sub MnuKeluar_Click() End End Sub

L-4

Listing Program Form Kategori Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC0C000 Lbl01.ForeColor = &H80000012 Lbl02.ForeColor = &H80000012 Lbl03.ForeColor = &H80000012 Lbl04.ForeColor = &H80000012 ShpTolong.BackColor = &HC0C000 End Sub Private Sub Lbl01_Click() Select Case Lbl01.Caption Case "1. Diare pada Bayi": Load FrmDiare FrmDiare.Show Case "1. Rambut, Kulit Kepala dan Kuku": Load FrmRKK FrmRKK.Show Case "1. Puber Terlambat" Load FrmPuber FrmPuber.Show End Select End Sub Private Sub Lbl01_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Lbl01.ForeColor = &H80000005 If Lbl01.Caption = "1. Puber Terlambat" Then Lbl02.Top = 3720 Lbl03.Top = 4440 Lbl04.Top = 5160 OptPutera.Visible = True OptPuteri.Visible = True End If End Sub Private Sub Lbl02_Click() Select Case Lbl02.Caption Case "2. Masalah Timbangan Badan": Load FrmTimbangan FrmTimbangan.Show

L-5

Case "2. Masalah-Masalah pada Mata": Load FrmMata FrmMata.Show Case "2. Masalah Kulit Remaja": Load FrmKulit FrmKulit.Show End Select End Sub Private Sub Lbl02_MouseMove(utton As Integer, Shift As Integer, X As Single, Y As Single) Lbl02.ForeColor = &H80000005 Lbl02.Top = 3000 Lbl03.Top = 3720 Lbl04.Top = 4440 OptPutera.Visible = False OptPuteri.Visible = False End Sub Private Sub Lbl03_Click() Select Case Lbl03.Caption Case "3. Menangis Berlebihan": Load FrmMenangis FrmMenangis.Show Case "3. Sakit Kepala": MsgBox "Maaf, program masih dalam tahap pengembangan", vbInformation, "Informasi" Case "3. Masalah Perilaku Remaja": MsgBox "Maaf, program masih dalam tahap pengembangan", vbInformation, "Informasi" End Select End Sub Private Sub Lbl03_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Lbl03.ForeColor = &H80000005 Lbl02.Top = 3000 Lbl03.Top = 3720 Lbl04.Top = 4440 OptPutera.Visible = False OptPuteri.Visible = False End Sub

L-6

Private Sub Lbl04_Click() Select Case Lbl04.Caption Case "4. Bercak dan Bintik": MsgBox "Maaf, program masih dalam tahap pengembangan", vbInformation, "Informasi" Case "4. Masalah Kulit": MsgBox "Maaf, program masih dalam tahap pengembangan", vbInformation, "Informasi" Case "4. Masalah Berat Badan pada Remaja": MsgBox "Maaf, program masih dalam tahap pengembangan", vbInformation, "Informasi" End Select End Sub Private Sub Lbl04_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Lbl04.ForeColor = &H80000005 Lbl02.Top = 3000 Lbl03.Top = 3720 Lbl04.Top = 4440 OptPutera.Visible = False OptPuteri.Visible = False End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub

L-7

Listing Program Form Diare Private Sub Form_Load() LblGejala.Caption = "Apakah suhu badannya 38 derajat Celcius atau lebih DAN/ATAU" + _ " apakah ia juga muntah?" LblPenang.Enabled = False End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC000& ShpYa.BackColor = &HC000& ShpTidak.BackColor = &HC000& ShpPenang.BackColor = &HC000& ShpKet.BackColor = &HC000& ShpTolong.BackColor = &HC000& End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_Click() Load FrmKetDir FrmKetDir.Show End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangDir FrmPenangDir.Show End Sub

L-8

Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTidak_Click() Select Case LblGejala.Caption Case "Apakah suhu badannya 38 derajat Celcius atau lebih DAN/ATAU" + _ " apakah ia juga muntah?": LblGejala.Caption = "Apakah ia jadi rewel ATAU menjadi sulit makan?" Case "Apakah ia jadi rewel ATAU menjadi sulit makan?": LblGejala.Caption = "Apakah ini merupakan awal pemberian ASI setelah serangan GASTROENTERITIS?" Case "Apakah ini merupakan awal pemberian ASI setelah serangan GASTROENTERITIS?": LblGejala.Caption = "Apakah anda lebih banyak memberinya susu botol?" Case "Apakah anda lebih banyak memberinya susu botol?": LblGejala.Caption = "Apakah ia baru meminum jus buah lebih banyak dari biasanya, atau memakan" + _ " sesuatu yang lebih manis dari biasa?" Case "Apakah ia baru meminum jus buah lebih banyak dari biasanya, atau memakan" + _ " sesuatu yang lebih manis dari biasa?": LblGejala.Caption = "Apakah ia juga menelan obat untuk gangguan lainnya?" Case "Apakah ia juga menelan obat untuk gangguan lainnya?": LblGejala.Caption = "Apakah anda baru mengenalkan makanan padat padanya?" Case "Apakah anda memberinya tambahan gula?": LblGejala.Caption = "Apakah ia baru meminum jus buah lebih banyak dari biasanya, atau memakan" + _ " sesuatu yang lebih manis dari biasa?" Case "Apakah anda baru mengenalkan makanan padat padanya?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub LblTidak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTidak.BackColor = &H80000005 End Sub

L-9

Private Sub LblYa_Click() Select Case LblGejala.Caption Case "Apakah suhu badannya 38 derajat Celcius atau lebih DAN/ATAU" + _ " apakah ia juga muntah?": LblGejala.Caption = "PERIKSAKAN KE DOKTER SEGERA!" + vbCrLf + _ "Sangat mungkin ia menderita GASTROENTERITIS, khususnya bila ia minum dari botol." + _ vbCrLf + "Penanggulangan : Klik tulisan 'Penanggulangan Lengkap' di bawah" LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True pesan Case "Apakah ia jadi rewel ATAU menjadi sulit makan?": LblGejala.Caption = "PERIKSAKAN KE DOKTER SEGERA!" + vbCrLf + _ "Sangat mungkin ia menderita GASTROENTERITIS, khususnya bila ia minum dari botol." + _ vbCrLf + "Penanggulangan : Klik tulisan 'Penanggulangan Lengkap' di bawah" LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True pesan Case "Apakah ini merupakan awal pemberian ASI setelah serangan GASTROENTERITIS?": LblGejala.Caption = "Mungkin Gejala GASTROENTERITIS-nya Muncul Lagi. Periksakan ke dokter." + _ vbCrLf + "Penanggulangan : Mungkin anda perlu mengulangi langkah perawatan GASTROENTERITIS" + _ " (Klik tulisan 'Penanggulangan Lengkap' di bawah) selama beberapa hari lagi, dan kemudian berangsur-angsur kembali ke menu normal." LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True pesan Case "Apakah anda lebih banyak memberinya susu botol?": LblGejala.Caption = "Apakah anda memberinya tambahan gula?" Case "Apakah anda memberinya tambahan gula?": LblGejala.Caption = "Tidak Tahan Gula bisa menyebabkan gangguan pencernaan." + vbCrLf + _ "Penanggulangan : Tepatilah selalu instruksi pabrik pembuatnya di saat meracik susu, dan jangan tambahkan gula." LblTidak.Enabled = False LblYa.Enabled = False pesan

L-10

Case "Apakah ia baru meminum jus buah lebih banyak dari biasanya, atau memakan" + _ " sesuatu yang lebih manis dari biasa?": LblGejala.Caption = "Kebanyakan gula dalam jus buah atau makanan bisa mengganggu pencernaan bayi." + _ vbCrLf + "Penanggulangan : Sari jeruk perlu dilarutkan dengan takaran sesuai instruksi pabrik." + _ " Makanan dan minuman bergula tidak menambah gizi bayi dan sebaiknya dihindarkan" + _ " karena selain bisa mengganggu pencernaan, juga bisa membuat bayi kegemukkan maupun merusak gigi." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah ia juga menelan obat untuk gangguan lainnya?": LblGejala.Caption = "Ada beberapa jenis obat yang bisa menimbulkan gangguan pencernaan karena" + _ " mengandung sirup agar disukai anak-anak." + vbCrLf + "Penanggulangan : Tak perlu segera menghentikan" + _ " obat tersebut, tetapi diskusikan hal ini dengan dokter." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah anda baru mengenalkan makanan padat padanya?": LblGejala.Caption = "Makanan yang belum terbiasa bisa mengganggu pencernaan bayi." + vbCrLf + _ "Penanggulangan : Tak perlu cemas bila hal itu jarang terjadi dan perutnya cepat kembali normal." + _ " Namun bila hal itu terus berulang," + _ " atau selalu terjadi setiap kali ia mendapatkan makanan tertentu, periksakan ke dokter." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub pesan() MsgBox "Akhir dari Diagnosa", vbInformation + vbOKOnly, "Selesai" End Sub

L-11

Private Sub LblYa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpYa.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Timbangan Private Sub Form_Load() LblGejala.Caption = "Apakah bayi anda tampak tak sehat - misalnya, susah makan atau rewel" + _ " atau suka merengek?" LblPenang.Enabled = False End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKet_Click() Load FrmKetTim FrmKetTim.Show End Sub Private Sub LblTidak_Click() Select Case LblGejala.Caption Case "Apakah bayi anda tampak tak sehat - misalnya, susah makan atau rewel" + _ " atau suka merengek?": LblGejala.Caption = "Apakah bayi anda masih menetek sepenuhnya?" Case "Apakah bayi anda masih menetek sepenuhnya?": LblGejala.Caption = "Apakah bayi anda minum susu botol?" Case "Apakah anda selalu memberi ASI setiap kali ia menangis?": LblGejala.Caption = "Mungkin Kekurangan Makan yang membuat timbangan bayi anda kurang." + _

L-12

vbCrLf + "Penanggulangan : Menangis adalah cara bayi anda untuk menyatakan lapar." + _ " Penjadwalan yang terlalu ketat bisa membuat bayi anda kurang makan dan mengurangi" + _ " produksi ASI anda. Sebab itu sebaiknya tawarilah bayi anda ASI setiap kali ia menangis," + _ " bahkan walaupun ia menolaknya. Bila timbangannya masih terus kurang, periksalah ke dokter." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah anda selalu memberi susu setiap kali ia menangis?": LblGejala.Caption = "Kurang Makan mungkin penyebab kurangnya pertumbuhan bayi anda." + vbCrLf + _ " Penanggulangan : Menangis adalah cara bayi anda untuk menyatakan lapar." + _ " Penjadwalan yang terlalu ketat bisa membuat bayi anda kurang makan." + _ " Sebab itu sebaiknya tawarilah bayi anda ASI setiap kali ia menangis," + _ " bahkan walaupun ia menolaknya. Bila masih belum ada perkembangan dalam 2 minggu, periksakanlah ke dokter." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah anda banyak menambahkan air di saat mencampur makanannya?": LblGejala.Caption = "Adakah bayi anda menghabiskan makanannya?" Case "Adakah bayi anda menghabiskan makanannya?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah bayi anda minum susu botol?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub LblTidak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTidak.BackColor = &H80000005 End Sub

L-13

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC000& ShpYa.BackColor = &HC000& ShpTidak.BackColor = &HC000& ShpPenang.BackColor = &HC000& ShpKet.BackColor = &HC000& ShpTolong.BackColor = &HC000& End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblYa_Click() Select Case LblGejala.Caption Case "Apakah bayi anda tampak tak sehat - misalnya, susah makan atau rewel" + _ " atau suka merengek?": LblGejala.Caption = "Mungkin ada penyakit yang membuat timbangan bayi anda kurang." + _ " Periksakan ke dokter." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah bayi anda masih menetek sepenuhnya?": LblGejala.Caption = "Apakah anda selalu memberi ASI setiap kali ia menangis?" Case "Apakah anda selalu memberi ASI setiap kali ia menangis?": LblGejala.Caption = "Kekurangan ASI bisa membuat bayi anda kekurangan gizi." + _ vbCrLf + "Penanggulangan : Namun bila bayi anda sudah berusia lebih dari 3 bulan, mungkin" + _

L-14

" ia sudah membutuhkan makanan padat. Tanyakan hal itu ke dokter anda, yang mungkin akan" + _ " menyarankan anda memberi tambahan susu botol atau menyapihnya." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah anda selalu memberi susu setiap kali ia menangis?": LblGejala.Caption = "Apakah anda banyak menambahkan air di saat mencampur makanannya?" Case "Apakah anda banyak menambahkan air di saat mencampur makanannya?": LblGejala.Caption = "Makanan Terlalu Encer mungkin penyebab kurangnya pertumbuhan bayi anda." + vbCrLf + _ "Penanggulangan : Ikuti petunjuk pabrik di saat mencampur makanan bayi. Bila si bayi tampak" + _ " haus, tawarkan air matang dalam botol. Bila masih belum ada perkembangan dalam 2 minggu," + _ " periksakanlah ke dokter." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah bayi anda minum susu botol?": LblGejala.Caption = "Apakah anda selalu memberi susu setiap kali ia menangis?" Case "Adakah bayi anda menghabiskan makanannya?": LblGejala.Caption = "Peningkatan Selera Makan bisa berarti bayi anda mulai memerlukan makanan lebih banyak," + _ " walaupun anda sudah memberinya makan sesuai dosis." + vbCrLf + _ "Penanggulangan : Senantiasa tawarkan susu lagi sampai si bayi merasa kenyang." + _ " Sesudah verusia lebih 3 bulan, ia sudah siap mendapatkan makanan padat. Bila dalam 2 minggu" + _ " tetap belum ada perkembangan, atau bila anda memrlukan saran untuk menyapihnya, tanyakn pada dokter anda." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub LblYa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpYa.BackColor = &H80000005 End Sub

L-15

Private Sub pesan() MsgBox "Akhir dari Diagnosa", vbInformation + vbOKOnly, "Selesai" End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Menangis Berlebihan Private Sub Form_Load() LblGejala.Caption = "Adakah tangisan itu diawali dengan tiba-tiba beberapa jam lalu?" LblPenang.Enabled = False End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKet_Click() Load FrmKetMen FrmKetMen.Show End Sub Private Sub LblPenang_Click() Load FrmPenangMen FrmPenangMen.Show End Sub Private Sub LblTidak_Click() Select Case LblGejala.Caption Case "Adakah tangisan itu diawali dengan tiba-tiba beberapa jam lalu?": LblGejala.Caption = "Apakah sesudah diberi ASI ia tenang kembali?" Case "Apakah sesudah diberi ASI ia tenang kembali?": LblGejala.Caption = "Adakah pemberian air atau sari buah encer meredakan tangisnya?"

L-16

Case "Adakah pemberian air atau sari buah encer meredakan tangisnya?": LblGejala.Caption = "Apakah usia si bayi masih kurang dari 3 bulan?" Case "Apakah usia si bayi masih kurang dari 3 bulan?": LblGejala.Caption = "Apakah biasanya ia tenang kembali setelah digendong dan ditimang secukupnya?" Case "Apakah biasanya ia tenang kembali setelah digendong dan ditimang secukupnya?": LblGejala.Caption = "Apakah anda merasa tegang atau letih ATAU adakah sesuatu kekecewaan besar belakangan ini?" Case "Apakah anda merasa tegang atau letih ATAU adakah sesuatu kekecewaan besar belakangan ini?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah tangis seperti itu tak biasanya dia lakukan?": LblGejala.Caption = "Apakah sesudah diberi ASI ia tenang kembali?" Case "Adakah makannya yang terakhir wajar-wajar saja?": LblGejala.Caption = "BAWA KE DOKTER SEKARANG JUGA!" + vbCrLf + _ "Mungkin ini akibat rasa sakit, misalnya infeksi telinga bagian tengah, namun bila si bayi" + _ " menolak makanan, perlu penangan medis segera untuk mencegah gangguan yang lebih berat." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah bayi ini memang biasa menangis setelah makan?": LblGejala.Caption = "Adakah si bayi tenang sepanjang hari, tetapi rewel sekali di senja dan malam hari?" Case "Adakah si bayi tenang sepanjang hari, tetapi rewel sekali di senja dan malam hari?": LblGejala.Caption = "Apakah biasanya ia tenang kembali setelah digendong dan ditimang secukupnya?" Case "Adakah setelah bersendawa biasanya ia tenang kembali?": LblGejala.Caption = "Adakah si bayi tenang sepanjang hari, tetapi rewel sekali di senja dan malam hari?" End Select End Sub Private Sub LblTidak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

L-17

ShpTidak.BackColor = &H80000005 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC000& ShpYa.BackColor = &HC000& ShpTidak.BackColor = &HC000& ShpPenang.BackColor = &HC000& ShpKet.BackColor = &HC000& ShpTolong.BackColor = &HC000& End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblYa_Click() Select Case LblGejala.Caption Case "Adakah tangisan itu diawali dengan tiba-tiba beberapa jam lalu?": LblGejala.Caption = "Apakah tangis seperti itu tak biasanya dia lakukan?" Case "Apakah tangis seperti itu tak biasanya dia lakukan?": LblGejala.Caption = "Adakah makannya yang terakhir wajar-wajar saja?" Case "Adakah makannya yang terakhir wajar-wajar saja?": LblGejala.Caption = "Agaknya ada sesuatu gangguan yang membuat si bayi merasa tak enak badan" + _ vbCrLf + "Penanggulangan : Kalau nafsu makannya masih bagus, mungkin itu hanya gangguan kecil," + _ " seperti masuk angin atau Nappy Rash. Periksakan ke dokter bila nafsu makannya memburuk" + _ " atau bila ia masih tampak tak sehat sampai besok pagi." LblTidak.Enabled = False

L-18

LblYa.Enabled = False pesan Case "Apakah sesudah diberi ASI ia tenang kembali?": LblGejala.Caption = "Lapar umumnya penyebab tangis bayi, dan tangisan seorang bayi" + _ " sehat akan segera reda setelah diberi ASI." + vbCrLf + "Penanggulangan : Senantiasa" + _ " tawarkan makanan setiap kali bayi menangis, walaupun belum lama dari saat makannya." + _ " (Klik tulisan 'Keterangan Tambahan' di bawah, di bagian Frekuensi Makan)" LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Adakah pemberian air atau sari buah encer meredakan tangisnya?": LblGejala.Caption = "Kehausanlah penyebab tangisan itu, khususnya bila si bayi" + _ " minum susu botol dan udara terasa gerah. (Klik tulisan 'Keterangan Tambahan' di bawah, di bagian Minuman Tambahan)" LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah usia si bayi masih kurang dari 3 bulan?": LblGejala.Caption = "Apakah bayi ini memang biasa menangis setelah makan?" Case "Apakah bayi ini memang biasa menangis setelah makan?": LblGejala.Caption = "Adakah setelah bersendawa biasanya ia tenang kembali?" Case "Adakah setelah bersendawa biasanya ia tenang kembali?": LblGejala.Caption = "Angin yang terjebak di lambungnya membuatnya merasa tak nyaman dan menangis." + _ " (Klik tulisan 'Penanggulangan Lengkap' di bawah)" LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True pesan Case "Adakah si bayi tenang sepanjang hari, tetapi rewel sekali di senja dan malam hari?": LblGejala.Caption = "Kolik-Senja adalah istilah umum untuk tangisan seperti ini." + _ " Biasanya dimulai ketika bayi berusia 6 minggu dan berkurang setelah berusia 3 bulan." + _ " Banyak penyebab hal ini, antara lain nyeri kejang intestin, atau keletihan dan ketegangan ibunya" + _ " yang membuat produksi ASI-nya berkurang." + vbCrLf + "Penanggulangan : Tak ada pengobatan" + _

L-19

" Kolik-Senja yang efektif. Yang perlu dijaga adalah mengurangi ketegangan orangtua karena" + _ " tangisan bayinya yang terus menerus. Usahakan agar tidak terlalu capai di malam hari dengan," + _ " misalnya, tidur siang secukupnya. Bergantianlah menolong si bayi, atau sesekali mintalah" + _ " bantuan perawat bayi yang bisa dipercaya. Diskusikan hal itu dengan dokter sehingga ia bisa" + _ " memberi penenang untuk si bayi ataupun memberi saran yang berguna." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah biasanya ia tenang kembali setelah digendong dan ditimang secukupnya?": LblGejala.Caption = "Kebutuhan perhatian dan kenyamanan umumnya menjadi penyebab tangisan." + _ " Ada bayi yang cukup puas dengan dibiarkan sendiri dibuaiannya, namun ada juga yang amat" + _ " membutuhkan 'kehadiran' orangtuanya." + vbCrLf + "Penanggulangan : Timanglah si bayi secukupnya." + _ " Di usia sekian tidak perlu cemas ia akan jadi manja, dan ia akan lebih bahagia karena merasa" + _ " semakin aman. Bila perlu, gunakan gendongan agar anda bisa sambil membereskan urusan rumah tangga." + _ " Untuk bayi yang lebih tua sebaiknya ditempatkan sedemikian agar ia bisa senantiasa melihat anda." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah anda merasa tegang atau letih ATAU adakah sesuatu kekecewaan besar belakangan ini?": LblGejala.Caption = "Kepekaan terhadap ketegangan di sekitarnya terutama pada ibunya bisa membuat" + _ " bayi cemas dan cenderung rewel tanpa sebab yang jelas." + vbCrLf + _ "Penanggulangan : umumnya bayi akan terbiasa pada suasana baru dalam seminggu atau lebih, dan selama" + _ " itu anda perlu memberi perhatian lebih besar padanya. Bila kiranya rewelnya akibat anda tegang," + _ " usahakan melepaskan diri dari ketegangan itu. Diskusikan hal itu dengan dokter, mungkin ia bisa membantu." + _ " Perlu sesekali mencari bantuan medis jika tangisan si bayi sampai membuat anda kehilangan kendali" + _ " dan menyakitinya."

L-20

LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub LblYa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpYa.BackColor = &H80000005 End Sub Private Sub pesan() MsgBox "Akhir dari Diagnosa", vbInformation + vbOKOnly, "Selesai" End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Rambut, Kulit Kepala dan Kuku Private Sub Form_Load() LblGejala.Caption = "Apakah tiba-tiba timbul daerah botak di kepala anak anda?" LblPenang.Enabled = False End Sub Private Sub LblTidak_Click() Select Case LblGejala.Caption Case "Apakah tiba-tiba timbul daerah botak di kepala anak anda?": LblGejala.Caption = "Apakah rambut si anak makin menipis?" Case "Apakah rambut si anak makin menipis?": LblGejala.Caption = "Gatalkah kulit kepala si anak?" Case "Gatalkah kulit kepala si anak?": LblGejala.Caption = "Apakah di kulit kepala si anak terdapat kerak berminyak?" Case "Apakah di kulit kepala si anak terdapat kerak berminyak?": LblGejala.Caption = "Apakah kulit kepala si anak bersisik?"

L-21

Case "Apakah kulit kepala si anak bersisik?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah usia si anak masih kurang dari setahun?": LblGejala.Caption = "Apakah kulit di daerah kebotakan tersebut bersisik dan meradang?" Case "Apakah kulit di daerah kebotakan tersebut bersisik dan meradang?": LblGejala.Caption = "Alopecia Areata adalah salah satu kemungkinan penimbul kerontokan rambut." + _ " Penyebabnya belum diketahuoi, namun mungkin berkaitan dengan penyakit fisik atau kejutan" + _ " emosi. Periksakan ke dokter." + vbCrLf + "Penanggulangan : Gejala ini akan sembuh sendiri" + _ " tanpa perawatan. Kebotakan permanen amat jarang terjadi." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah usia si anak masih dibawah 1 tahun?": LblGejala.Caption = "Apakah si anak sedang meminum sejenis obat dari dokter?" Case "Apakah si anak sedang meminum sejenis obat dari dokter?": LblGejala.Caption = "Penipisan rambut bisa terjadi akibat sakit beberapa bulan yang lalu atau" + _ " bisa juga tanpa sebab jelas." + vbCrLf + "Penanggulangan : Selain memastikan bahwa si anak cukup sehat" + _ " dan makanannya cukup seimbang (Klik tulisan 'Penanggulangan Lengkap' di bawah, bagian Makanan Sehat)," + _ " tak ada cara lain untuk membuat rambut anak tumbuh tebal. Bila rambutnya panjang, hindari" + _ " ikatan karet atau jalinan yang terlalu kuat. Gunakan sikat nilon atau sikat yang lemas karena" + _ " sikat yang keras bisa memutuskan rambut. Rambut bisa tampak lebih tebal bila dipotong pendek." + _ " Periksakan ke dokter bila anda masih cemas." LblTidak.Enabled = False LblYa.Enabled = False pesan LblPenang.Enabled = True Case "Apakah dengan keramas gatalnya bisa hilang selama beberapa hari?":

L-22

LblGejala.Caption = "Mungkin Itu Akibat Kutu Rambut, terutama bila ada teman si anak" + _ " yang juga mengalami. Kutu rambut mudah menular ke orang lain dan bukan karena" + _ " rambut kurang bersih. Periksakan ke dokter." + vbCrLf + _ "Penanggulangan : Bisa diobati dengan shampo khusus berdasarkan resep dokter, untuk beberapa kali" + _ " pemakaian. Setiap kali keramas, sisirlah rambut si anak dengan sisir-rapat agar semua telur" + _ " yang menempel di rambut juga ikut terangkat." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub LblYa_Click() Select Case LblGejala.Caption Case "Apakah tiba-tiba timbul daerah botak di kepala anak anda?": LblGejala.Caption = "Apakah usia si anak masih kurang dari setahun?" Case "Apakah usia si anak masih kurang dari setahun?": LblGejala.Caption = "Gesekan Terus-Menerus pada kasur atau tempat duduknya, bisa menghilangkan" + _ " rambut bayi yang halus." + vbCrLf + _ "Penanggulangan : Bagian botak itu akan hilang sendiri setelah tumbuh rambut baru yang" + _ " lebih kuat." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah kulit di daerah kebotakan tersebut bersisik dan meradang?": LblGejala.Caption = "Kurap, infeksi jamur yang bisa menimbulkan kebotakan bila menyerang kulit" + _ " kepala. Periksakan ke dokter." + vbCrLf + "Penanggulangan : Bila dokter memastikan diagnosa" + _ " ini, ia akan memberikan obat dan salep Antifungal. untuk mencegah infeksi ulang, bersihkan" + _ " baik-baik sisir dan sikat rambut si anak. Begitu infeksinya teratasi, rambut si anak akan" + _ " tumbuh kembali." LblTidak.Enabled = False LblYa.Enabled = False pesan

L-23

Case "Apakah rambut si anak makin menipis?": LblGejala.Caption = "Apakah usia si anak masih dibawah 1 tahun?" Case "Apakah usia si anak masih dibawah 1 tahun?": LblGejala.Caption = "Menipisnya Rambut bayi dalam tahun pertama hanya akan belangsung dalam" + _ " waktu singkat." + vbCrLf + "Penanggulangan : Dalam beberapa bualn berikutnya akan tumbuh" + _ " rambut baru yang lebih kuat dan mungkin warnanya akan berbeda dengan rambutnya saat dilahirkan." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Gatalkah kulit kepala si anak?": LblGejala.Caption = "Apakah dengan keramas gatalnya bisa hilang selama beberapa hari?" Case "Apakah dengan keramas gatalnya bisa hilang selama beberapa hari?": LblGejala.Caption = "Ketombe, yang kadang-kadang timbul akibat Dermatitis Seborrhoeic (sejenis eksim)," + _ " adalah penyebab terbanyak gatal di kulit kepala. Hal itu juga bisa berkembang menjadi kulit" + _ " kepala bersisik." + vbCrLf + "Penanggulangan : Ketombe bisa diatasi dengan berbagai shampo" + _ " anti ketombe yang bisa dibeli bebas. Bila itu tak menolong, periksakan ke dokter, yang mungkin" + _ " akan memberikan salep untuk dioleskan ke kulit kepala." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah si anak sedang meminum sejenis obat dari dokter?": LblGejala.Caption = "Ada Beberapa Jenis Obat yang bisa membuat rambut rontok. Tanyakan hal ini pada dokter" LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah di kulit kepala si anak terdapat kerak berminyak?": LblGejala.Caption = "Suatu kelainan tak berbahaya yang disebut Dermatitis Seborrhoeic;" + _ " sejenis eksim yang biasa dialami bayi di bawah usia setahun." + vbCrLf + _ "Penanggulangan : Usapkan salep atau minyak bayi dengan lembut, lalu cuci kepalanya untuk" + _ " menghilangkan kerak. Bila bagian yang terkena kerak cukup luas, dokter akan memberikan krim khusus." LblTidak.Enabled = False

L-24

LblYa.Enabled = False pesan Case "Apakah kulit kepala si anak bersisik?": LblGejala.Caption = "Kemungkinan besar penyebabnya adalah ketombe." + vbCrLf + _ "Ketombe, yang kadang-kadang timbul akibat Dermatitis Seborrhoeic (sejenis eksim)," + _ " adalah penyebab terbanyak gatal di kulit kepala. Hal itu juga bisa berkembang menjadi kulit" + _ " kepala bersisik." + vbCrLf + "Penanggulangan : Ketombe bisa diatasi dengan berbagai shampo" + _ " anti ketombe yang bisa dibeli bebas. Bila itu tak menolong, periksakan ke dokter, yang mungkin" + _ " akan memberikan salep untuk dioleskan ke kulit kepala." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah anda merasa tegang atau letih ATAU adakah sesuatu kekecewaan besar belakangan ini?": LblGejala.Caption = "Kepekaan terhadap ketegangan di sekitarnya terutama pada ibunya bisa membuat" + _ " bayi cemas dan cenderung rewel tanpa sebab yang jelas." + vbCrLf + _ "Penanggulangan : umumnya bayi akan terbiasa pada suasana baru dalam seminggu atau lebih, dan selama" + _ " itu anda perlu memberi perhatian lebih besar padanya. Bila kiranya rewelnya akibat anda tegang," + _ " usahakan melepaskan diri dari ketegangan itu. Diskusikan hal itu dengan dokter, mungkin ia bisa membantu." + _ " Perlu sesekali mencari bantuan medis jika tangisan si bayi sampai membuat anda kehilangan kendali" + _ " dan menyakitinya." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKet_Click() Load FrmKetRKK

L-25

FrmKetRKK.Show End Sub Private Sub LblPenang_Click() Load FrmPenangRKK FrmPenangRKK.Show End Sub Private Sub LblTidak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTidak.BackColor = &H80000005 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC000& ShpYa.BackColor = &HC000& ShpTidak.BackColor = &HC000& ShpPenang.BackColor = &HC000& ShpKet.BackColor = &HC000& ShpTolong.BackColor = &HC000& End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblYa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpYa.BackColor = &H80000005 End Sub

L-26

Private Sub pesan() MsgBox "Akhir dari Diagnosa", vbInformation + vbOKOnly, "Selesai" End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Masalah – Masalah pada Mata Private Sub Form_Load() LblGejala.Caption = "Apakah anak anda mengalami cedera yang berakibat pada mata?" LblPenang.Enabled = False End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC000& ShpYa.BackColor = &HC000& ShpTidak.BackColor = &HC000& ShpPenang.BackColor = &HC000& ShpKet.BackColor = &HC000& ShpTolong.BackColor = &HC000& End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_Click() Load FrmKetMata FrmKetMata.Show

L-27

End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangMata FrmPenangMata.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTidak_Click() Select Case LblGejala.Caption Case "Apakah anak anda mengalami cedera yang berakibat pada mata?": LblGejala.Caption = "Adakah benda asing; misalnya sebutir pasir; di dalam mata?" Case "Adakah benda asing; misalnya sebutir pasir; di dalam mata?": LblGejala.Caption = "Apakah bagian putih mata tampak memerah?" Case "Apakah bagian putih mata tampak memerah?": LblGejala.Caption = "Apakah kelopak mata memerah dan gatal?" Case "Apakah kelopak mata memerah dan gatal?": LblGejala.Caption = "Apakah timbul bintit di salah satu kelopak mata?" Case "Apakah timbul bintit di salah satu kelopak mata?": LblGejala.Caption = "Apakah air matanya keluar walau si anak tidak menangis?" Case "Apakah air matanya keluar walau si anak tidak menangis?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah ada suatu cairan lengket yang keluar dari mata?": LblGejala.Caption = "Iritasi Mata akibat asap, bahan kimia (misalnya yang dipakai di kolam renang), atau reaksi" + _ " alergi (misalnya pada debu rumah). Namun bila hal itu juga dialami anak lain, mungkin itu akibat infeksi vitus" + _

L-28

" (Konjungtivitis Viral)." + vbCrLf + "Penanggulangan : Apabila asap penyebabnya, tak ada cara lain selain" + _ " menghindari asap tersebut. Begitu pula dengan reaksi alergi:hindari obyek alergi tersebut;namun biasanya ini tak" + _ " mudah dilakukan. Tanyakan hal ini ke dokter. Konjungtivitis Viral akan sembuh sendiri tanpa pengobatan, namun" + _ " perlu dicegah penularannya. Bila merah di mata masih ada sampai lebih dari seminggu atau bila terasa sakit," + _ " periksalah ke dokter." Case "Apakah usia si anak masih kurang dari setahun?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub LblTidak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTidak.BackColor = &H80000005 End Sub Private Sub LblYa_Click() Select Case LblGejala.Caption Case "Apakah anak anda mengalami cedera yang berakibat pada mata?": LblGejala.Caption = "BAHAYA! CARI DOKTER SELEKAS MUNGKIN!" + vbCrLf + "Cedera pada mata selalu memerlikan perhatian" + _ " dokter." + vbCrLf + "Penanggulangan : Lakukan langkah-langkah pertolongan pertama (klik tulisan 'Penanggulangan" + _ " Lengkap' di bawah) dan bawalah si anak ke Unit Gawat Darurat (UGD) rumah sakit terdekat, dimana ahlinya senantiasa" + _ " siap sedia." LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True pesan Case "Adakah benda asing; misalnya sebutir pasir; di dalam mata?": LblGejala.Caption = "Benda Asing bisa menimbulkan sakit, merah dan berair." + vbCrLf + "Penanggulangan : Lakukanlah" + _ " pertolongan pertama (klik tulisan 'Penanggulangan Lengkap' di bawah) dan bila tidak berhasil, carilah pertolongan" + _ " medis."

L-29

LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True pesan Case "Apakah bagian putih mata tampak memerah?": LblGejala.Caption = "Apakah ada suatu cairan lengket yang keluar dari mata?" Case "Apakah ada suatu cairan lengket yang keluar dari mata?": LblGejala.Caption = "Konjungtivitis (radang pada selaput pembungkus mata dan pinggiran kelopak) akibat infrksi." + _ " Periksakan ke dokter." + vbCrLf + "Penanggulangan : Dokter akan memberikan tetes mata antibiotik. Cairan lengket" + _ "itu bisa dibersihkan memakai air hangat. Pejamkan mata si anak dan usaplah dengan kain katun bersih. Pisahkan" + _ " handuk dan lap muka si anak agar tak menulari anggota rumah yang lain." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah kelopak mata memerah dan gatal?": LblGejala.Caption = "Biepharitis (peradangan tepian kelopak) bisa menimbulkan gejala gatal dan mengelupas pada" + _ " kelopak mata; dan umum terjadi pada anak yang berketombe (gatal dan mengelupas di kulit kepala). Periksakan ke dokter." + _ vbCrLf + "Penanggulangan : Dokter akan memberikan salep mata. bila si anak berketombe, obati dengan shampo anti ketombe." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah timbul bintit di salah satu kelopak mata?": LblGejala.Caption = "Agaknya ini adalah Stye (infeksi mirip bisul di pangkal bulu mata). Gejala ini umum terjadi" + _ " pada anak-anak." + vbCrLf + "Penanggulangan : Stye akan hilang sendiri dalam seminggu tanpa perawatan khusus. Ia akan pecah" + _ " dan mengeluarkan nanah, atau mengering. Bila pecah, hapuslah nanahnya hati-hati dengan katun bersih dibasahi air" + _ " matang. Periksakan ke dokter bila belum sembuh dalam seminggu, atau bila matanyamenjadi merah dan sakit, atau bila" + _ " Stye-nya muncul kembali." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah air matanya keluar walau si anak tidak menangis?": LblGejala.Caption = "Apakah usia si anak masih kurang dari setahun?" Case "Apakah usia si anak masih kurang dari setahun?":

L-30

LblGejala.Caption = "Saluran yang bertugas menahan air mata tidak keluar tersumbat." + vbCrLf + "Penanggulangan :" + _ " Ini biasa terjadi pada bayi dan biasanya akan sembuh sendiri sampai usia setahun. Periksakan ke dokter, yang akan" + _ " mengajar anda mengurut saluran tersebut untuk menghilangkan sumbatannya." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub pesan() MsgBox "Akhir dari Diagnosa", vbInformation + vbOKOnly, "Selesai" End Sub Private Sub LblYa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpYa.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Pubertas Terlambat (Pemuda dan Gadis) Private Sub Form_Load() If FrmKategori.OptPutera.Value = True Then Label1.Caption = "Pubertas Terlambat (Pemuda)" LblGejala.Caption = "Apakah usianya masih di bawah 12 tahun?" Else Label1.Caption = "Pubertas Terlambat (Gadis)" LblGejala.Caption = "Sudahkah puteri anda mengalami haid pertama?" End If LblPenang.Enabled = False

L-31

End Sub Private Sub LblTidak_Click() If FrmKategori.OptPutera.Value = True Then Select Case LblGejala.Caption Case "Apakah usianya masih di bawah 12 tahun?": LblGejala.Caption = "Adakah muncul salah satu dari tanda-tanda pubertas berikut?" + vbCrLf + "# tumbuhnya bulu-bulu" + _ " kelamin dan di tubuhnya" + vbCrLf + "# pembesaran alat genital" Case "Adakah muncul salah satu dari tanda-tanda pubertas berikut?" + vbCrLf + "# tumbuhnya bulu-bulu" + _ " kelamin dan di tubuhnya" + vbCrLf + "# pembesaran alat genital": LblGejala.Caption = "Adakah usianya belum 14 tahun?" Case "Adakah usianya belum 14 tahun?": LblGejala.Caption = "Keterlambatan Masa Puber sampai usia 14 jarang terjadi, dan boleh jadi diakibatkan oleh defisiensi" + _ " hormon atau kelainan kromosom. Periksakan ke dokter." + vbCrLf + "Penanggulangan : Dari pemeriksaannya mungkin dokter" + _ " akan mengambil contoh darah untuk memeriksa kandungan hormon serta sifat kromosomnya. Bila ternyata memang ada" + _ " defisiensi hormon, ia akan memberi resep tambahan hormon. Cara ini bisa menjamin bahwa pubertas akan berlangsung normal." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select Else Select Case LblGejala.Caption Case "Sudahkah puteri anda mengalami haid pertama?": LblGejala.Caption = "Adakah muncul salah satu dari tanda-tanda pubertas berikut?" + vbCrLf + "# tumbuhnya bulu-bulu" + _ " kelamin" + vbCrLf + "# pembesaran payudara atau putingnya" Case "Adakah muncul salah satu dari tanda-tanda pubertas berikut?" + vbCrLf + "# tumbuhnya bulu-bulu" + _ " kelamin" + vbCrLf + "# pembesaran payudara atau putingnya": LblGejala.Caption = "Apakah usianya masih di bawah 14 tahun?" Case "Apakah usianya masih di bawah 14 tahun?": LblGejala.Caption = "Kelambatan Usia Puber umumnya akibat faktor keturunan biasa. Namun ini juga bisa akibat buruknya" + _ " kesehatan, pemberian obat tertentu dan, walau jarang, kelainan hormonal atau kromosom." + _ " Periksakan ke dokter." + vbCrLf + "Penanggulangan : Dokter akan memeriksa puteri anda, dan mungkin perlu melakukan" + _

L-32

" pemeriksaan bagian dalam vagina. Mungkin ia juga akan memeriksa karakteristik hormon dan kromosom dalam darahnya." + _ " Kadang-kadang mungkin perlu mengirimkan si anak ke spesialis untuk mendapatkan diagnosa dan perawatan dengan hormon." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End If End Sub Private Sub LblYa_Click() If FrmKategori.OptPutera.Value = True Then Select Case LblGejala.Caption Case "Apakah usianya masih di bawah 12 tahun?": LblGejala.Caption = "Seringkali Perkembangan Puber sudah terlihat di usia ini, dan tak perlu" + _ " dicemaskan bila dia masih kekanak-kanakan. Mungkin ia memang agak terlambat dibanding teman maupun fadis seusianya." + _ " Pubertas memang lebih cepat dalam anak gadis." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Adakah muncul salah satu dari tanda-tanda pubertas berikut?" + vbCrLf + "# tumbuhnya bulu-bulu" + _ " kelamin dan di tubuhnya" + vbCrLf + "# pembesaran alat genital": LblGejala.Caption = "Munculnya Salah Satu Dari Gejala aktivitas hormonal tersebut merupakan petunjuk pasti bahwa dia" + _ " sudah memasuki masa puber, walaupun perkembangan lainnya belum terlihat. Patokan mungkin tidak urut seperti pada" + _ " tabel di 'Keterangan Tambahan', dan variasi tersebut tidak berakibat apapun dalam perkembangan jangka panjang." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Adakah usianya belum 14 tahun?": LblGejala.Caption = "Perkembangan Yang Amat Terlambatpun tak perlu terlalu dicemaskan. Amat mungkin hal itu karena" + _ " sifat bawaan dan atau putera anda memang lebih kecil dari anak seusianya sejak masa anak-anak. Bisa juga hal itu" + _ " karena ia pernah sakit dan menerima pengobatan tertentu dalam waktu lama. Periksakan ke dokter bila tetap belum" + _

L-33

" ada pertanda pubertas pada usianya yang ke-14 atau bila pertumbuhan badannya di bawah standar." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select Else Select Case LblGejala.Caption Case "Sudahkah puteri anda mengalami haid pertama?": LblGejala.Caption = "Munculnya Menstruasi adalah petunjuk nyata bahwa aktivitas hormon pengatur perkembangan seksual" + _ " berjalan normal. Tak ada yang perlu dicemaskan secara medis, bahkan kalau payudaranya tampak kecil atau pertumbuhan" + _ " bulu kelaminnya amat jarang. Umumnya haid pertama memamg belum teratur, bahkan kadang bisa menghilang selama beberapa" + _ " bulan berturutan. Anda tak perlu cemas, kecuali bila ia menunjukkan gejala sakit yang lain." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Adakah muncul salah satu dari tanda-tanda pubertas berikut?" + vbCrLf + "# tumbuhnya bulu-bulu" + _ " kelamin" + vbCrLf + "# pembesaran payudara atau putingnya": LblGejala.Caption = "Tanda Awal Aktivitas Hormonal seperti itu umumnya mendahului haid pertama dan merupakan perkembangan" + _ " normal seorang gadis. Periksa ke dokter bila ia belum mendapat haid pada usia 14." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah usianya masih di bawah 14 tahun?": LblGejala.Caption = "Belum Ada Yang Perlu Dicemaskan pada usia sekian. Banyak gadis, umumnya yang bertubuh kecil dari" + _ " sebayanya, belum menunjukkan perkembangan seksual sampai usia belasan. Periksakan ke dokter bila ia belum mendapat" + _ " haid pada usia 14 atau bila pertumbuhan badannya di bawah standar." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End If End Sub

L-34

Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKet_Click() Load FrmKetPuber FrmKetPuber.Show End Sub Private Sub LblPenang_Click() Load FrmPenangRKK FrmPenangRKK.Show End Sub Private Sub LblTidak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTidak.BackColor = &H80000005 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC000& ShpYa.BackColor = &HC000& ShpTidak.BackColor = &HC000& ShpPenang.BackColor = &HC000& ShpKet.BackColor = &HC000& ShpTolong.BackColor = &HC000& End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub

L-35

Private Sub LblYa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpYa.BackColor = &H80000005 End Sub Private Sub pesan() MsgBox "Akhir dari Diagnosa", vbInformation + vbOKOnly, "Selesai" End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Gangguan Kulit pada Remaja Private Sub Form_Load() LblGejala.Caption = "Adakah gejala-gejala seperti berikut?" + vbCrLf + "# binitk merah meradang, bertitik putih di tengah" + _ vbCrLf + "# benjolan merah di bawah kulit" LblPenang.Enabled = False End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &HC000& ShpYa.BackColor = &HC000& ShpTidak.BackColor = &HC000& ShpPenang.BackColor = &HC000& ShpKet.BackColor = &HC000& ShpTolong.BackColor = &HC000& End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

L-36

ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_Click() Load FrmKetKulit FrmKetKulit.Show End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangKulit FrmPenangKulit.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTidak_Click() Select Case LblGejala.Caption Case "Adakah gejala-gejala seperti berikut?" + vbCrLf + "# binitk merah meradang, bertitik putih di tengah" + _ vbCrLf + "# benjolan merah di bawah kulit": LblGejala.Caption = "Apakah kulit tampak lebih berminyak?" Case "Apakah kulit tampak lebih berminyak?": LblGejala.Caption = "Periksakan ke dokter bila belum bisa mendiagnosa dari dari program ini." LblTidak.Enabled = False LblYa.Enabled = False pesan Case "Apakah bintiknya meluas di bagian wajah, dada, atau punggung?": LblGejala.Caption = "Apakah bintik itu meninggalkan bekas di kulit?" Case "Apakah bintik itu meninggalkan bekas di kulit?": LblGejala.Caption = "Jerawat jinak umumnya bisa diobati sendiri (Klik tulisan 'Penanggulangan Lengkap' di bawah)." LblTidak.Enabled = False LblYa.Enabled = False pesan

L-37

LblPenang.Enabled = True End Select End Sub Private Sub LblTidak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTidak.BackColor = &H80000005 End Sub Private Sub LblYa_Click() Select Case LblGejala.Caption Case "Adakah gejala-gejala seperti berikut?" + vbCrLf + "# binitk merah meradang, bertitik putih di tengah" + _ vbCrLf + "# benjolan merah di bawah kulit": LblGejala.Caption = "Apakah bintiknya meluas di bagian wajah, dada, atau punggung?" Case "Apakah bintiknya meluas di bagian wajah, dada, atau punggung?": LblGejala.Caption = "Jerawat ganas, khususnya bla sampai membuat risih atau bila meninggalkan bekas parut," + _ " perlu ditangani secara profesional. Periksakan ke dokter." + vbCrLf + "Penanggulangan : Dokter akan" + _ " memeriksa kulit anda dan menyarankan perawatan sendiri (Klik tulisan 'Penanggulangan Lengkap' di bawah). Sebagai tambahan," + _ " tergantung tingkat keparahannya, ia mungkin akan mengirim anda ke spesialis kulit (dermatolog) dan/atau memberi resep" + _ " antibiotika, atau bentuk perawatan lainnya." LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True pesan Case "Apakah bintik itu meninggalkan bekas di kulit?": LblGejala.Caption = "Jerawat ganas, khususnya bla sampai membuat risih atau bila meninggalkan bekas parut," + _ " perlu ditangani secara profesional. Periksakan ke dokter." + vbCrLf + "Penanggulangan : Dokter akan" + _ " memeriksa kulit anda dan menyarankan perawatan sendiri (Klik tulisan 'Penanggulangan Lengkap' di bawah). Sebagai tambahan," + _ " tergantung tingkat keparahannya, ia mungkin akan mengirim anda ke spesialis kulit (dermatolog) dan/atau memberi resep" + _ " antibiotika, atau bentuk perawatan lainnya." LblTidak.Enabled = False LblYa.Enabled = False LblPenang.Enabled = True

L-38

pesan Case "Apakah kulit tampak lebih berminyak?": LblGejala.Caption = "Kulit berminyak tidak memerlukan perawatan medis bila tidak menimbulkan jerawat. Namun itu bisa membuat" + _ " risih." + vbCrLf + "Penanggulangan : Sering membasuh dengan sabun lunak dan air, umumnya sudah cukup. Larutan kosmetik" + _ " penyegar kulit juga akan bisa menolong." LblTidak.Enabled = False LblYa.Enabled = False pesan End Select End Sub Private Sub pesan() MsgBox "Akhir dari Diagnosa", vbInformation + vbOKOnly, "Selesai" End Sub Private Sub LblYa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpYa.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Keterangan Tambahan untuk Diare Private Sub Form_Load() Text1.Text = "PENCEGAHAN GASTROENTERITIS" + vbCrLf + vbCrLf + _ "Bila ada anggota keluarga anda yang GASTROENTERITIS, jaga agar tidak menulari bayi," + _ " atau bila penderitanya si bayi, jaga agar tidak menular pada lainnya. Lakukan" + _ " langkah-langkah pencegahan sebagai berikut :" + vbCrLf + vbCrLf + _ "# Cuci tangan setiap kali usai dari kamar kecil." + vbCrLf + _ "# Sterilkan semua peralatan makan sebaik-baiknya." + vbCrLf + _

L-39

"# Cuci tangan anda setiap kali hendak menyiapkan makanan bayi atau seusai mengganti popok bayi." + _ vbCrLf + "# Sediakan handuk khusus untuk si bayi yang bisa sering dicuci." + vbCrLf + vbCrLf + _ "Mencegah Penularan" + vbCrLf + _ "Di negeri-negeri beriklim panas, anda perlu lebih waspada. Aliran air bisa membawa infeksi," + _ " sehingga sebaiknya didihkan dulu semua air minum dan bersihkan baik-baik semua alat makan." + _ " Buah dan sayur segar kerapkali menjadi sarana infeksi dan sebaiknya dihindari. Bila iklimnya" + _ " amat panas, bayi anda (ASI maupun bukan) mungkin akan memerlukan cairan lebih banyak untuk" + _ " mencegah dehidrasi." Text2.Text = "PENCEGAHAN DEHIDRASI" + vbCrLf + vbCrLf + _ "Bila bayi anda terus menerus diare, apalagi bila disertai muntah, waspadalah terhadap bahaya" + _ " dehidrasi (kurangnya cairan tubuh). Maka berilah bayi anda cairan secukupnya, walaupun ia tak mau" + _ " menelan makanan atau susu (Klik tulisan 'Penanggulangan Lengkap' di bawah). Bahkan walau" + _ " tampaknya si bayi cukup banyak menelan cairan, anda harus waspada terhadap terjadinya dehidrasi." + _ vbCrLf + vbCrLf + _ "Tanda-Tanda Dehidrasi" + vbCrLf + _ "# Mata atau ubun-ubun cekung" + vbCrLf + "# Mulut kering" + vbCrLf + "# Popoknya kering selama lebih dari 3 jam" + _ vbCrLf + "# Rewel dan merengek terus-menerus" + vbCrLf + "# Elastisitas kulit berkurang" End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H8000000F ShpKeluar.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub

L-40

Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangDir FrmPenangDir.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Keterangan Tambahan Masalah Timbangan Private Sub Form_Load() Text1.Text = "Umumnya berat bayi turun sekitar 150 gram dalam seminggu pertama setelah lahir." + _ " Ini hal wajar dan bukan merupakan tanda bahwa ASI anda kurang atau si bayi kurang makan." + _ " Umumnya berat bayi kembali meningkat setelah hari ke lima dan kembali ke berat waktu" + _ " lahir pada hari ke sepuluh. Setelah itu, beratnya akan bertambah secara kontinu." LblPenang.Enabled = False Image1.Picture = LoadPicture(App.Path & "\diagram-berat.jpg") End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub

L-41

Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Keterangan Tambahan Menangis Berlebihan Private Sub Form_Load() Text1.Text = "Para ahli perawatan anak menyarankan pemberian makan sesering ia meminta, peminum ASI" + _ " maupun susu-botol. Bayi ASI yang baru lahir, biasanya makan amat sering, sampai setiap 2 jam." + _ " Peminum susu-botol, umumnya meminta minum setiap selang 3 jam. Lambat laun minumnya akan makin" + _ " jarang, dan pada usia 6 bulan umumnya bayi sudah terbiasa dengan makan 4 kali sehari, dan hanya" + _ " sekali terbangun di tengah malam untuk meminta minum." Text2.Text = "Kebanyakan bayi ASI dan beberapa diantara bayi susu-botol tidak memerlukan makanan" + _ " tambahan pada minggu-minggu pertama. Namun bila udara terasa gerah atau bila tampaknya susu belum" + _ " memuaskan si bayi, berilah minum air putih. Kelak, bila ia sudah mulai disapih, ia akan lebih" + _ " menyukai minuman non-susu. Ingat, sirop yang kurang cukup encer bisa menimbulkan diare padanya," + _ " dan juga menimbulkan kecenderungan kegemukan ataupun gigi keropok. Air putih atau sari buah tanpa" + _ " pemanis akan lebih baik."

L-42

End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpPenang.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangMen FrmPenangMen.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Keterangan Tambahan Rambut, Kulit Kepala dan Kuku Private Sub Form_Load() Text1.Text = "Rambut anak-anak perlu dibersihkan baik-baik secara rutin (dua kali seminggu). Selain" + _

L-43

" shampo khusus untuk menghilangkan ketombe, banyak lagi shampo murah yang bisa digunakan; karena" + _ " shampo yang mahalpun tak bisa menumbuhkan rambut seorang anak." + vbCrLf + "Namun untuk bayi dan anak kecil" + _ " sebaiknya digunakan shampo bayi (yang lembut) yang tidak pedas di mata. Cukup satu usapan saja," + _ " kecuali bila rambutnya amat kotor. Bilaslah baik-baik sesudahnya. Biarkan rambut mengering sendiri," + _ " bila memungkinkan." + vbCrLf + vbCrLf + _ "Mengatasi Ketidak-sukaan Pada Keramas." + vbCrLf + _ "Banyak anak kecil yang tidak suka dikeramas, karena takut airnya mengenai mata. Melakukannya sambil" + _ " bermain-main mungkin akan bisa membuatnya menyukainya." Text2.Text = "Kuku bayi dan anak-anak perlu dijaga tetap pendek. Pada bayi hal ini untuk mencegah" + _ " luka garukan sedangkan pada anak yang lebih besar hal ini untuk mencegah si anak menggigiti kuku" + _ " dan bisa terkena infeksi dari kotoran di balik kuku. Untuk memotong kuku bayi, gunakan gunting" + _ " berujung tumpul." + vbCrLf + "Kuku Jari" + vbCrLf + "Kuku tangan harus dipotong mengikuti bentuk" + _ " ujung jari." + vbCrLf + "Kuku Ibu Jari Kaki" + vbCrLf + "Kuku ibu jari kaki harus dipotong lurus" + _ " rata agar kelak tidak tumbuh menusuk daging di usia dewasa." + vbCrLf + vbCrLf + _ "Menggigiti Kuku" + vbCrLf + "Menggigiti kuku adalah kebiasaan yang biasa timbul pada anak-anak usia" + _ " sekolah dasar. Hal itu bisa timbul karena meniru anak lain atau akibat gugup. Tak membahayakan" + _ " kesehatan, hanya membuat kuku menjadi tidak rata dan bila tergigit terlalu dalam akan menimbulkan" + _ " rasa perih." + vbCrLf + "Bila anak anda cenderung menggigiti kukunya, potonglah kukunya pendek dan" + _ " rata. Doronglah ia untuk tampil dengan penuh percaya diri. Alat perawat kuku (Manicure Set) dan" + _ " cat kuku mungkin bisa menolong. Rasa tak enak cat kuku umumnya tak akan membahayakan dan bisa" + _ " membuat si anak tak suka. Umumnya seorang anak akan berhenti menggigiti kuku setelah memasuki usia remaja." Image1.Picture = LoadPicture(App.Path & "\rambut-mandi.jpg") Image2.Picture = LoadPicture(App.Path & "\kuku-jari.jpg") Image3.Picture = LoadPicture(App.Path & "\kuku-jari-kaki.jpg") End Sub

L-44

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpPenang.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangRKK FrmPenangRKK.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Keterangan Tambahan Masalah pada Mata Private Sub Form_Load() Text1.Text = "Ada sementara anak yang kelopak matanya yang atas turun; yang disebut Ptosis. Hal ini" + _ " umumnya merupakan bawaan sejak lahir, dan terjadi karena lemahnya otot kelopak yang terkena." + _

L-45

" Kadang-kadang Ptosis juga bisa timbul di usia anak-anak karena suatu gangguan otot atau syaraf." + _ vbCrLf + vbCrLf + "Resiko" + vbCrLf + "Bila Ptosis-nya amat parah sampai menutupi penglihatan, dan tak" + _ " dirawat, bisa menimbulkan kemunduran penglihatan di mata yang tertutup." + vbCrLf + vbCrLf + _ "Penanggulangan :" + vbCrLf + "Periksakan ke dokter. Hal ini bisa diatasi dengan operasi untuk" + _ " memperkuat otot kelopak mata, atau dengan kaca mata khusus. Ptosis yang timbul akibat gangguan" + _ " syaraf atau otot bisa disembuhkan dengan mengobati sumber gangguannya. Anak yang mengalami hal ini," + _ " mungkin akan memerlukan penutup mata untuk mata yang sehat, untuk memaksa mata yang 'malas' agar" + _ " bekerja lebih keras." End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F ShpPenang.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangMata FrmPenangMata.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub

L-46

Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Keterangan Tambahan Puber Terlambat (Pemuda dan Gadis) Private Sub Form_Load() Text1.Text = "Anak-anak tumbuh rata-rata sebesar 5 cm pertahun. Salah satu pertanda awal pubertas adalah pertambahan sampai 9 cm pertahun." + _ " Pertumbuhan cepat ini akan berlangsung sampai 4 tahun, dan amat pesat pada 2 tahun pertama. Di saat sama, berat badan juga meningkat pesat," + _ " pinggul melebar, dan terjadi penumpukan lemak dipinggang dan paha." Text2.Text = "Tahap pertama pertumbuhan payudara umumnya berbentuk pembesaran puting dan areola (lingkaran gelap di sekitar puting); yang disebut" + _ " 'budding'. Sekitar setahun berikutnya, payudara mulai membesar dan puting serta aerola menghitam. Pertumbuhan payudara umumnya berakhir di" + _ " usia 15." Text3.Text = "Awalnya bulu kemaluan tumbuh tipis di sekitar genital. Lambat laun menjadi gelap dan kasar dalam 2 - 3 tahun berikutnya dan melebar" + _ " menutupi seluruh bagian. Bulu ketiak muncul 1- 2 tahun setelah munculnya bulu kemaluan. Bentuk, warna dan tebal bulu-bulu tubuh dipengaruhi" + _ " oleh faktor keturunan dan jenis." Text4.Text = "Kelenjar keringat apokrin menghasilkan keringat yang berbeda dengan kelenjar epokrin yang aktif di seluruh tubuh sejak bayi. Di masa" + _ " remaja kelenjar apokrin menjadi aktif di balik lengan, selangkang dan sekitar puting; menghasilkan keringat yang bisa menimbukan bau badan" + _ " bila tidak rajin dibasuh." Text5.Text = "Usia rata-rata menarche (haid pertama) di Inggris dewasa ini adalah 13 tahun. Umumnya terjadi 2 tahun setelah awal lonjakan" + _ " pertumbuhan dan terjadi setelah berat si gadis tak kurang dari 45 kg. Si gadis mungkin akan mengalami keluarnya cairan putih tipis setahun" + _ " menjelang menarche. Di tahun-tahun pertama, haid masih belum teratur dan bahkan bisa berhenti selama beberapa bulan. Umumnya haid sudah akan" + _ " teratur setelah usia 16."

L-47

Text6.Text = "Anak-anak tumbuh rata-rata sebesar 5 cm pertahun. Salah satu pertanda awal pubertas adalah pertambahan sampai 10 cm pertahun selama 2 - 3 tahun." + _ " Pertumbuhan akan terus terjadi namun tak terlalu pesat lagi. Pertambahan berat badan juga meningkat. Bahu dan dada akan melebar dan badan" + _ " memanjang. Otot lengan dan kaki membesar. Nafsu makan sangat besar di usia ini." Text7.Text = "Aktivitas hormon di awal puber merangsang perkembangan kelenjar-kelenjar seks jantan: testis; membesar dengan pesat. Kulit skrotum" + _ " menghitam, penis memanjang dan membesar. Dalam dua tahun berikutnya, umumnya ia sudah bisa berejakulasi." Text8.Text = "Umumnya diawali dengan pertumbuhan bulu kelamin, yang setahun kemudian diikuti bulu di wajah, ketiak, dan sesuai keturunan, di bagian" + _ " tubuh lainnya sepewrti kaki, dada dan perut." Text9.Text = "Kelenjar keringat apokrin menghasilkan keringat yang berbeda dengan kelenjar epokrin yang aktif di seluruh tubuh sejak bayi. Di masa" + _ " remaja kelenjar apokrin menjadi aktif di balik lengan, selangkang dan sekitar puting; menghasilkan keringat yang bisa menimbukan bau badan" + _ " bila tidak rajin dibasuh." Text10.Text = "Kotak suara (larynx) mulai membesar dan menonjol menjadi jakun. Suara membesar (serak) dalam setahun atau lebih akibat pembesaran itu. " LblPenang.Enabled = False If FrmPuber.Label1.Caption = "Pubertas Terlambat (Pemuda)" Then SSTab1.Tab = 1 Else SSTab1.Tab = 0 End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H8000000F ShpKeluar.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005

L-48

End Sub Private Sub LblPenang_Click() Load FrmPenangDir FrmPenangDir.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Keterangan Tambahan Masalah Kulit Remaja Private Sub Form_Load() Text1.Text = "Ini adalah bintik hitam kecil yang umumnya timbul di sekitar hidung dan dagu. Timbul dari sel kulit yang sudah mati dan sebum yang" + _ " terkumpul dalam folikel bulu, yang akan menjadi tak berwarna bila terkena udara. Bisa diikuti dengan tumbuhnya jerawat atau bintik sejenisnya" + _ " sendiri. Bila hanya black-head, tak perlu ada perawatan khusus. Namun bila ia semakin menyebar samapai membuat risih, bisa dihilangkan dengan" + _ " penghilang blackhead atau dengan ramuan pengamplas (lulur, misalnya). Lihat Jerawat di 'Penanggulangan Lengkap'. Memencetnya akan bisa" + _ " berakibat infeksi." End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F ShpPenang.BackColor = &H8000000F End Sub

L-49

Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblPenang_Click() Load FrmPenangKulit FrmPenangKulit.Show End Sub Private Sub LblPenang_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpPenang.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Penanggulangan Lengkap Diare Private Sub Form_Load() Text1.Text = "Bila dokter membolehkan bayi anda dirawat di rumah, mungkin" + _ " ia akan meminta anda menghentikan semua pemberian susu dan makanan padat" +_ " selama 24 jam, dan kemudian secara berangsur memberikan lagi makanan kembali" + _ " seperti biasa. Contoh untuk bayi ASI, sudah disapih dan bayi susu-botol akan" + _ " dijelaskan di sini. Sebaiknya berikan larutan glukosa, daripada susu atau minuman" + _

L-50

" lain. Sementara si bayi masih sering muntah, sering-seringlah memberi minum" + _ " (setiap jam). Dan selanjutnya nanti barulah ia bisa diberi minum sesuai jadwal" + _ " ataupun setiap kali ia tampak haus." + vbCrLf + vbCrLf + _ "Menghitung Kebutuhan Cairan Bayi Anda" + vbCrLf + "Bayi pengidap GASTROENTERITIS" + _ " mambutuhkan cairan sebanyak tertentu setiap hari agar tidak mengalami dehidrasi." + _ " Untuk menghitung jumlah yang tepat bagi bayi anda, carilah berat badan yang sesuai" + _ " di kolom kiri tabel di tab 'Tabel', lalu lihat ke angka sebelahnya yang menunjukkan" + _ " banyaknya cairan yang ia perlukan per hari. Tak ada bayi yang memerlukan kurang" + _ " dari 1/2 liter atau lebih dari 1,5 liter." + vbCrLf + vbCrLf + "Membuat Larutan Glukosa" + _ vbCrLf + "Larutan glucosa bisa dibuat sendiri dengan" + _ " mencampurkan 3 sendok teh ke dalam 200 ml air matang. Atau dengan sekantung sachet" + _ " glucosa dan puyer mineral yang bisa diperoleh dari toko-toko kimia, dicampur dengan" + _ " air matang sesuai instruksinya." + vbCrLf + vbCrLf + "Bayi ASI" + vbCrLf + _ "Jangan susui dulu selama 24 jam pertama sakitnya, cukup berikan saja larutan glukosa" + _ " dalam jumlah yang sesuai. Pada hari berikutnya, kurangi pemberian larutan glukosa" + _ " pada setiap saat makan dengan seperlimanya, lalu berikan ASI sesudahnya. Selama" + _ " masa perawatan tersebut, kurangi ketidak-nyamanan di payudara anda dengan mengeluarkan ASI-nya." + vbCrLf + vbCrLf + "Bayi Sudah Disapih" + vbCrLf + "Bila si bayi sudah disapih," + " jangan beri susu ataupun produk susu selama 5 hari. Cukup berikan saja larutan" + _ " larutan glukosa sebanyak yang sesuai untuk usianya. Jangan berikan makanan padat" + _ " pada hari pertama, namun secara berangsur berikan bubur buah atau sayur mulai hari" + _ " kedua sampai hari keenam, dimana mulai hari keenam ia sudah biasa diberi menu seperti biasa." Text4.Text = "Hari 1" + vbCrLf + "Jangan beri susu. Hanya berikan larutan glukosa setiap jangka waktu tertentu." + vbCrLf + _ vbCrLf + "Hari 2" + vbCrLf + "Berikan campuran susu dan larutan glukosa dengan perbanfingan 1:4 pada setiap waktu makan." + vbCrLf + _

L-51

vbCrLf + "Hari 3" + vbCrLf + "Berikan campuran susu dan larutan glukosa dengan perbanfingan 2:3 pada setiap waktu makan." + vbCrLf + _ vbCrLf + "Hari 4" + vbCrLf + "Berikan campuran susu dan larutan glukosa dengan perbanfingan 3:2 pada setiap waktu makan." + vbCrLf + _ vbCrLf + "Hari 5" + vbCrLf + "Berikan campuran susu dan larutan glukosa dengan perbanfingan 4:1 pada setiap waktu makan." + vbCrLf + _ vbCrLf + "Hari 6" + vbCrLf + "Kembali ke menu normal." + vbCrLf + "Catatan : Setiap kali gejala muncul, kembalilah" + vbCrLf + _ " ke menu 'Hari 1' dan panggil dokter." Image1.Picture = LoadPicture(App.Path & "\botol1.jpg") Image2.Picture = LoadPicture(App.Path & "\botol2.jpg") Image3.Picture = LoadPicture(App.Path & "\botol3.jpg") Image4.Picture = LoadPicture(App.Path & "\botol4.jpg") Image5.Picture = LoadPicture(App.Path & "\botol5.jpg") End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpKet.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_Click() Load FrmKetDir FrmKetDir.Show End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblTolong_Click()

L-52

Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Penanggulangan Lengkap Menangis berlebihan Private Sub Form_Load() Text1.Text = "Umumnya bayi juga menelan udara selagi minum, khususnya bayi yang segera melahap" + _ " begitu diberi ASI. Kelebihan angin di lambungnya bisa membuatnya mual dan menangis (kolik)." + _ " Sebab itu sebaiknya bantulah ia agar bisa bersendawa setiap seusai menetek." + vbCrLf + _ "Berikut adalah beberapa posisi ideal untuk itu." + vbCrLf + vbCrLf + _ "Posisi Bersendawa." + vbCrLf + "# Ketika memberi ASI, usahakan agar posisi si bayi agak tegak (Gambar 1)." + _ vbCrLf + "# Seusai makan, bantulah ia bersendawa dengan meletakkan kepalanya di bahu (Gambar 3), atau di atas" + _ " lutut anda, atau di pangkuan anda (Gambar 2)." Image1.Picture = LoadPicture(App.Path & "\sendawa-atas.jpg") Image2.Picture = LoadPicture(App.Path & "\sendawa-bawah.jpg") Image3.Picture = LoadPicture(App.Path & "\sendawa-kiri.jpg") End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpKet.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005

L-53

End Sub Private Sub LblKet_Click() Load FrmKetMen FrmKetMen.Show End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Penanggulangan Lengkap Rambut, Kulit Kepala dan Kuku Private Sub Form_Load() Text1.Text = "Makanan sehat adalah yang mengandung zat-zat yang dibutuhkan tubuh untuk berfungsi" + _ " efisien; misalnya untuk memperbaiki sel yang rusak, atau untuk tumbuh pada anak-anak. Tabel di bawah" + _ " menunjukkan kelompok kategori makanan dan nilai gizinya. Di negara-negara Barat, masalah kekurangan" + _ " gizi amat jarang terjadi. Yang sering dijumpai adalah kelebihan gizi, baik berupa kalori yang" + _ " dimakan (yang berakibat kegemukan) ataupun lemak dan hidrat-arang (misalnya gula dan terigu)." + _ " Memperbanyak ragam makanan akan menambah gizi bagi seorang anak. Bahkan walaupun si anak sedang" + _ " rewel dalam hal makanan, ia tak akan mengalami kurang gizi." Text2.Text = "Protein diperlukan untuk pertumbuhan, perbaikan dan penggantian jaringan tubuh. Produk" + _ " hewani seperti daging, ikan, telur, keju dan produk susu lainnya; amat banyak mengandung protein." + _

L-54

" Dari bahan nabati, antara lain kacang-kacangan (kacang hijau, kedelai dan sebagainya)" + vbCrLf + vbCrLf + _ "Hidrat-Arang untuk menambah energi, namun bila kelebihan akan disimpan dalam tubuh sebagai lemak." + _ " Yang banyak mengandung hidrat-arang adalah gula, beras, jagung dan umbiumbian." + vbCrLf + vbCrLf + vbCrLf + _ "Lemak juga merupakan sumber energi dan menghasilkan kalori lebih banyak dari makanan lainnya. Makan" + _ " yang banyak berlemak adalah yang berasal dari kacang-kacangan." + vbCrLf + vbCrLf + _ "Serat adalah bahan yang tak dapat dicerna oleh sistem pencernaan. Tidak mengandung gizi ataupun energi," + _ " hanya berguna untuk kelancaran kegiatan pencernaan." + vbCrLf + vbCrLf + _ "Vitamin, adalah bahan kimia kompleks yang diperlukan tubuh dalam jumlah sedikit. Anak makannya normal" + _ " tak punya kecenderungan kekurangan vitamin." + vbCrLf + vbCrLf + _ "Mineral dan garam-garaman diperlukan dalam jumlah sedang. Termasuk di dalamnya zat besi, potasium," + _ " kalsium, dan sodium (terdapat dalam garam meja). Seorang anak akan terhindar dari kekurangan zat-" + _ "zat ini bila makannya seimbang." + vbCrLf + vbCrLf + _ "Kalori adalah satuan untuk mengukur besarnya nilai energi dalam makanan. Bila seseorang memakan lebih" + _ " lebih banyak kalori dari yang dipakainya, sisanya akan disimpan sebagai lemak. Sebaliknya, bila" + _ " lebih banyak energi yang dimakan, simpanan lemak itu akan dipakai dan tubuh akan tampak menjadi" + _ " kurus. Makanan yang banyak mengandung lemak atau kalori umumnya bernilai kalori tinggi." Text3.Text = "Umumnya makanan berprotein dari sumber hewani banyak mengandung lemak, jadi sebaiknya" + _ " pilihlah yang berasal dari sumber nabati." + vbCrLf + vbCrLf + vbCrLf + vbCrLf + vbCrLf + _ "Dalam memilih makanan hidrat-arang, sebaiknya pilihlah beras merah atau jagung yang mengandung serat" + _ " serta zat yang lainnya, dibanding gula atau makanan jadi lain yang hanya mengandung energi." + vbCrLf + vbCrLf + _ "Usahakan sesedikit mungkin memakan makanan berlemak." + vbCrLf + vbCrLf + vbCrLf + vbCrLf + _ "Untuk mendapatkan serat, pilihlah makanan darpi padi-padian , buah dan sayuran." + vbCrLf + vbCrLf + vbCrLf + vbCrLf + _ "Vitamin bisa hilang bila makanan dimasak terlalu lama. Jadi sebaiknya makanlah sayur sebagai lalapan" + _

L-55

" dan buah mentah." + vbCrLf + vbCrLf + vbCrLf + _ "Terlalu banyak garam malah merugikan, jadi sebaiknya jangan terlalu banyak memakan garam-garaman." + _ vbCrLf + vbCrLf + vbCrLf + vbCrLf + _ "Makanan anak harus cukup mengandung kalori, namun jangan terlalu banyak. Untunglah bahwa mekanisme" + _ "pengaturan nafsu makan anak-anak biasanya sudah menjamin cukupnya kalori dari makanannya." End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpKet.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_Click() Load FrmKetRKK FrmKetRKK.Show End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

L-56

ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Penanggulangan Lengkap Masalah pada Mata Private Sub Form_Load() Text1.Text = "Cedera pada mata anak perlu ditangani selekasnya. Selain kemasukan benda asing yang sudah bisa dikeluarkan," + _ " segeralah bawa si anak ke Unit Gawat Darurat rumah sakit terdekat selekas mungkin, begitu selesai melakukan pertolongan" + _ " pertama." + vbCrLf + vbCrLf + "Luka Pada Mata Atau Kelopak mata" + vbCrLf + "Tutup mata yang terkena dengan kain bersih" + _ " dan ikat longgar dengan perban. Jangan ditekan. Tutup juga mata yang sebelah. Lalu cari pertolongan medis (Gambar 6)." + vbCrLf + _ vbCrLf + "Terpukul Di Daerah mata" + vbCrLf + "Lakukanlah langkah pertolongan pertama seperti di atas, tetapi gunakan" + _ " kompres dingin untuk menutup mata yang terkena (Gambar 6)." + vbCrLf + vbCrLf + "Mata Terkena Bahan Kimia" + vbCrLf + _ "Bila mata seorang anak terpecik bahan kimia (misalnya larutan pemutih pakaian), segera alirkan air banyak-banyak ke mata" + _ " yang terkena. Miringkan kepala si anak dengan bagian mata yang terkena di sebelah bawah, dan buka kelopak matanya dengan" + _ " jari. Setelah semua bekas bahan kimia sudah terhapus, tutup kedua matanya dengan pembalut bersih dan carilah bantuan medis (Gambar 7)." + _ vbCrLf + vbCrLf + "Benda Asing Masuk Ke Mata" + vbCrLf + "Jangan berusaha mengeluarkan hal-hal berikut dari mata anak :" + _ vbCrLf + "# benda yang tertancap di mata" + vbCrLf + "# butiran logam" + vbCrLf + "# benda di bagian mata yang berwarna" + _ vbCrLf + vbCrLf + "Pada keadaan seperti di atas, tutup kedua mata dan carilah bantuan medis." + vbCrLf + vbCrLf + "Benda asing lainnya," + _ " misalnya butiran kotoran atau bulu mata, yang terselip di balik kelopak atau di bagian putih mata, bisa dihilangkan" + _ " sebagai berikut :" + vbCrLf + "1. Bila bendanya terlihat di putih mata atau di balik kelopak mata bagian bawah, ambillah" + _ " itu dengan menggunakan ujung sapu tangan yang lembab dan bersih (Gambar 1)." + vbCrLf + "2. Bila bendanya tak terlihat, tarik" + _ " kelopak bagian atas ke bawah sampai menutupi kelopak bagian bawah dan tahanlah sejenak, untuk merubah posisi benda tersebut (Gambar 2)." + _ vbCrLf + "3. Jika bendanya masih tetap ada, mungkin ia berada di balik kelopak atas. Mintalah si anak melihat ke bawah." + _ " Tahan bulu mata di kelopak mata atas dan tarik ke bawah (Gambar 3)." + vbCrLf + "4. Tempatkan sebatang korek api, tusuk gigi atau" + _

L-57

" sebatang kapas telinga di atas kelopak mata atas dan balikkan kelopak itu di atasnya (Gambar 4)." + vbCrLf + "5. Bila benda itu sudah" + _ " bisa terlihat, ambillah dengan hati-hati seperti pada langkah pertama (Gambar 5)." + vbCrLf + vbCrLf + "Jika anda belum berhasil" + _ " juga, balutlah mata yang cedera dengan hati-hati dan carilah pertolongan medis." Image1.Picture = LoadPicture(App.Path & "\mata1.jpg") Image2.Picture = LoadPicture(App.Path & "\mata2.jpg") Image3.Picture = LoadPicture(App.Path & "\mata3.jpg") Image4.Picture = LoadPicture(App.Path & "\mata4.jpg") Image5.Picture = LoadPicture(App.Path & "\mata5.jpg") Image6.Picture = LoadPicture(App.Path & "\mata-perban.jpg") Image7.Picture = LoadPicture(App.Path & "\mata-siram.jpg") End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpKet.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_Click() Load FrmKetMata FrmKetMata.Show End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub

L-58

Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub Listing Program Form Penanggulangan Lengkap Gangguan Kulit pada Remaja Private Sub Form_Load() Text1.Text = "Jerawat adalah istilah untuk sekelompok gejala di kulit yang umum timbul di wajah, dada, dan punggung atas." + _ " Disebabkan oleh penyumbatan dan infeksi folikel rambut di kulit, terutama di masa remaja ketika aktifitas hormonal" + _ " meningkatkan produksi sebum (minyak kulit alami) yang membuat kulit lebih rawan terhadap gangguan ini." + vbCrLf + vbCrLf + _ "Gejala" + vbCrLf + "Ada beberapa jenis jerawat. Berikut ini yang paling umum :" + vbCrLf + "Blackhead (Lihat 'Keterangan Tambahan')." + _ vbCrLf + "Pustules : Binitil meradang dengan pusat berwarna putih. Timbul oleh aktifitas bakteri di dalam sebum yang terkumpul" + _ " di folikel rambut." + vbCrLf + "Cysta : Benjolan meradang lunak di bawah kulit akibat pembentukan jaringan parut di sekitar" + _ " daerah radang di bawah kulit. Jerawat cysta bisa meninggalkan bekas parut." + vbCrLf + vbCrLf + "Pengobatan sendiri" + vbCrLf + _ "Jerawat jinak bisa diobati sendiri dengan obat berikut yang bisa dibeli bebas di apotik :" + vbCrLf + "Krim, larutan," + _ " dan sabun anti bakteri untuk membasuh kulit : untuk mengurangi aktifitas bakteri." + vbCrLf + "Larutan peroksida-belerang" + _ " atau peroksida-benzoil : bisa mengobati jerawat agak ganas, namun perlu berhatihati karena bisa membuat kulit perih." + _ vbCrLf + "Lulur dan keratolika : mengupas kulit terluar dan menghilangkan sumbatan folikel rambut serta black-head. Namun" + _ " tak boleh dipakai terlalu sering atau terlalu kuat. Tak boleh digunakan bila kulit sedang meradang." + vbCrLf + vbCrLf + _ " Sebagai tambahan perawatan di atas, banyak yang berpendapat bahwa sinar matahari bisa mengurangi jerawat." + vbCrLf + vbCrLf + _ "Perawatan Profesional" + vbCrLf + "Bila pengobatan sendiri tak berhasil, atau bila jerawatnya sangat parah sampai membuat" + _ " risih atau menakutkan, mungkin dokter akan memberi resep berikut : " + vbCrLf + "Keratolotika : agak lebih kuat dibandingkan" + _ " obat bebas, namun cara kerjanya sama." + vbCrLf + "Antibiotika : untuk ditelan dalam dosis kecil dalam waktu cukup lama." + _ " Untuk melawan aktifitas bakteri d kulit dan seringkali bisa mengatasi jerawat yang cukup parah." + vbCrLf + _

L-59

"Obat-Obat Lain : berbagai obat termasuk hormon dan turunan vitamin A biasa diberikan untuk orang dewasa dengan jerawat parah," + _ " namun dokter mungkin akan segan memberikannya pada pasien remaja." End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H8000000F ShpKet.BackColor = &H8000000F ShpTolong.BackColor = &H8000000F End Sub Private Sub LblKeluar_Click() Unload Me End Sub Private Sub LblKeluar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKeluar.BackColor = &H80000005 End Sub Private Sub LblKet_Click() Load FrmKetKulit FrmKetKulit.Show End Sub Private Sub LblKet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpKet.BackColor = &H80000005 End Sub Private Sub LblTolong_Click() Load FrmTolong FrmTolong.Show End Sub Private Sub LblTolong_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ShpTolong.BackColor = &H80000005 End Sub

L-60

LAMPIRAN OUTPUT

L-61

1. Form Menu Utama

2. Form Kategori

L-62

3. Form Diare

4. Form Timbangan

L-63

5. Form Menangis Berlebihan

6. Form Rambut, Kulit Kepala dan Kuku

L-64

7. Form Masalah – Masalah pada Mata

L-65

8. Form Pubertas Terlambat (Pemuda dan Gadis)

L-66

9. Form Gangguan Kulit pada Remaja

10. Form Keterangan Tambahan Diare

L-67

11. Form Keterangan Tambahan Masalah Timbangan

12. Form Keterangan Tambahan Menangis Berlebihan

L-68

13. Form Keterangan Tambahan Rambut, Kulit Kepala dan Kuku

14. Form Keterangan Tambahan Masalah pada Mata

L-69

15. Form Keterangan Tambahan Puber Terlambat (Pemuda dan Gadis)

L-70

16. Form Keterangan Tambahan Masalah Kulit Remaja

17. Form Penanggulangan Lengkap Diare

L-71

18. Form Penanggulangan Lengkap Menangis berlebihan

19. Form Penanggulangan Lengkap Rambut, Kulit Kepala dan Kuku

L-72

20. Form Penanggulangan Lengkap Masalah pada Mata

21. Form Penanggulangan Lengkap Gangguan Kulit pada Remaja