LAMPIRAN 1. Form Menu Utama
Properti Form Menu Utama Kontrol Form Label1
Properti Caption Caption Forecolor Font FontStyle Size
Nilai Menu Utama INFORMASI PSIKOLOGI PERKEMBANGAN ANAK HIPERAKTIF &H0000C000& Bold 8
Label2
AutoSize Caption
TRUE Hiperaktif adalah… &H000000FF&
Picture1 Picture2 Picture3 Picture4 Picture5 Picture6 Picture7 Command1 Command2 Command3 Command4
Forecolor Font FontStyle Size AutoSize Picture Picture Picture Picture Picture Picture Picture Caption Caption Caption Caption
Listing Program Form Menu Utama Option Explicit Sub warnasemula() Label2.ForeColor = &HFF0000 Label4.ForeColor = &HFF0000 Label5.ForeColor = &HFF0000 Label6.ForeColor = &HFF0000 Label7.ForeColor = &HFF0000 End Sub Private Sub Label2_Click() frmaktif.Show Unload Me End Sub Private Sub Label4_Click() frmhiper.Show Unload Me End Sub
Bold 10 TRUE (Bitmap) (Bitmap) (Bitmap) (Bitmap) (Bitmap) (Bitmap) (Bitmap) Ciri-ciri anak aktif Ciri-Ciri anak Hiperaktif Kesehatan-Zat bantu anak hiperaktif Langkah-langkah Menanggulangi Anak Hiperaktif
Private Sub Label5_Click() frmlangkah.Show Unload Me End Sub Private Sub Label6_Click() frmSehat.Show Unload Me End Sub Private Sub Label7_Click() End End Sub Private Sub Timer1_Timer() Label1.Move Label1.Left - 40 If Label1.Left < -Label1.Width Then Label1.Left = Picture2.Width End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) warnasemula End Sub Private Sub label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.ForeColor = &HFF00& End Sub Private Sub label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label4.ForeColor = &HFF00& End Sub Private Sub label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label5.ForeColor = &HFF00& End Sub Private Sub label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label6.ForeColor = &HFF00& End Sub Private Sub label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label7.ForeColor = &HFF00& End Sub
2. Form Ciri-ciri anak aktif
Properti Form Ciri-ciri anak aktif Kontrol Form Option1 Option2 Option3 Option4 Option5 Option6 Picture1 Text1
Properti Caption Caption Caption Caption Caption Caption Caption Picture Text
Nilai Anak Hiperaktif 1. Fokus ( Perhatian Kuat ) 2. Lebih Penurut 3. Konstruktif 4. Ada waktu lelah 5. Lebih sabar 6. Intelektualitas tinggi (Bitmap) (Dikosongkan)
Forecolor Font FontStyle Size Menu Utama File
Sub Menu Bantuan Kembali
&H000000FF& Bold 14 Variabel Help Kembali
Listing Program Form Ciri-ciri anak aktif Private Sub Help_Click() frmbantu.Show End Sub Private Sub Kembali_Click() frmMenu.Show Unload Me End Sub Private Sub Option1_Click() If Option1.Value = True Then Text1.Text = " Anak aktif memiliki kemampuan kuat untuk memfokuskan perhatian. Ketika bermain pasel misalnya, anak aktif cenderung melakukan problem solving dengan baik. Berbeda dari anak hiperaktif yang umumnya cepat bosan sehingga tidak bisa menyelesaikan atau hanya mempermainkannya saja." PicFile = App.Path & "\fokus.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.Text = " Sikap menentang pada anak aktif tidak sekuat pada anak hiperaktif. Ia masih bisa diberi tahu dan dapat mematuhinya dengan lebih baik. Misalnya, ketika dilarang untuk tidak merusak mainan dengan memberikan alasannya, anak aktif mau berusaha mematuhi. Mainan, seperti mobil-mobilan atau boneka akan dimainkan sesuai dengan fungsinya masing-masing." PicFile = App.Path & "\penurut.jpg" Picture1.Picture = LoadPicture(PicFile) End If
End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.Text = " Ketika diberikan mainan, pasel umpamanya, si aktif akan berusaha melakukan hal sesuai permintaan. Setidaknya, ia akan berusaha untuk menyusun secara konstruktif permainan tersebut. Demikian pula terhadap mainan lain, anak aktif mau memelihara dengan baik benda-benda yang dimilikinya." PicFile = App.Path & "\konstruktif.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option4_Click() If Option4.Value = True Then Text1.Text = " Anak aktif umumnya memiliki batas mobilitas. Ketika merasa lelah, dia akan menghentikan kegiatannya dan beristirahat. Walau begitu, pada beberapa kasus ditemukan anak aktif yang waktu istirahatnya sangat sedikit sehingga kesannya tidak pernah lelah seperti anak hiperaktif." PicFile = App.Path & "\lelah.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option5_Click() If Option5.Value = True Then Text1.Text = " Anak aktif punya kesabaran yang lebih tinggi dibandingkan anak hiperaktif. Ketika menyelesaikan pasel misalnya, anak aktif berusaha dengan keras dan sabar untuk menyelesaikan tugasnya hingga tuntas. Hal ini berkaitan dengan daya kreativitas yang biasanya tidak dimiliki anak hiperaktif." PicFile = App.Path & "\sabar.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option6_Click() If Option6.Value = True Then Text1.Text = " Umumnya, anak aktif punya kecenderungan menjadi anak cerdas. Ia memiliki tenaga, rasa ingin tahu, dan kesempatan yang lebih besar untuk mengetahui hal-hal baru. Sebaiknya kesempatan ini dimanfaatkan orang tua untuk menstimulasi anak dengan sebaik-baiknya." PicFile = App.Path & "\tinggi.jpg" Picture1.Picture = LoadPicture(PicFile)
End If End Sub 3. Form Langkah-langkah
Properti Form Langkah-langkah Kontrol Form Text1
Picture1 Picture2
Properti Caption Text Forecolor Font FontStyle Size Picture Picture
Nilai Langkah-langkah ( Dikosongkan ) &H000000FF& Bold 14 (Bitmap) (Bitmap)
Picture3
Picture
Menu Utama File
Sub Menu Bantuan Kembali
(Bitmap) Variabel Help Kembali
Listing Program Form Langkah-langkah Private Sub Form_Load() Text1.Text = "Pertama, PERIKSALAH." + vbCrLf + vbCrLf + "mengonsultasikan persoalan yang diderita anaknya kepada ahli terapi psikologi anak. Ini penting karena gangguan hiperaktivitas bisa berpengaruh pada kesehatan mental dan fisik anak, serta kemampuannya dalam menyerap pelajaran dan bersosialisasi. Tujuannya untuk mendapatkan petunjuk dari orang yang tepat tentang apa saja yang bisa Anda lakukan di rumah. Selain itu juga berguna untuk menghapus rasa bersalah dan memperbaiki sikap Anda agar tak terlalu menuntut anak secara berlebihan. Di sini biasanya para ahli akan memberikan obat yang sesuai atau sebuah terapi." PicFile = App.Path & "\psikologi.jpg" Picture1.Picture = LoadPicture(PicFile) End Sub Private Sub Help_Click() frmbantu.Show End Sub Private Sub Kembali_Click() frmMenu.Show Unload Me End Sub Private Sub Picture2_Click() If Text1.Text = "Ketujuh, MINTA dia bicara." + vbCrLf + vbCrLf + "Ini sangat penting Anda terapkan. Ingat, anak hiperaktif cenderung susah berkomunikasi dan bersosialisai, sibuk dengan dirinya sendiri. Karena itu, bantulah anak dalam bersosialisasi agar ia mempelajari nilai-nilai apa saja yang dapat diterima kelompoknya. Misalnya melakukan aktivitas bersama, sehingga Anda bisa mengajarkan anak bagaimana bersosialisasi dengan teman dan lingkungan. Ini memang butuh kesabaran dan kelembutan." + vbCrLf + vbCrLf + "Nah, itulah dasardasar pengelolaan jika anak Anda mengidap hiperaktif. Dia tak berbahaya, hanya butuh SENTUHAN dan PERHATIAN LEBIH." Then
Text1.Text = "Keenam, KENALI arah minatnya." + vbCrLf + vbCrLf + "Jika dia bergerak terus, jangan panik, ikutkan saja, dan catat baik-baik, kemana sebenarnya tujuan dari keaktifan dia. Jangan dilarang semuanya, nanti dia prustasi. Yang paling penting adalah mengenali bakat atau kecenderungan perhatiannya secara dini. Dengan begitu, Anda bisa memberikan ruang gerak yang cukup bagi aktivitas anak untuk menyalurkan kelebihan energinya. Misalnya, mengikutkan anak pada klub sepakbola di bawah umur atau berenang, agar anak belajar bergaul dan disiplin. Anak juga belajar bersosial karena ia harus mengikuti tatacara kelompoknya." PicFile = App.Path & "\LL6.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Keenam, KENALI arah minatnya." + vbCrLf + vbCrLf + "Jika dia bergerak terus, jangan panik, ikutkan saja, dan catat baik-baik, kemana sebenarnya tujuan dari keaktifan dia. Jangan dilarang semuanya, nanti dia prustasi. Yang paling penting adalah mengenali bakat atau kecenderungan perhatiannya secara dini. Dengan begitu, Anda bisa memberikan ruang gerak yang cukup bagi aktivitas anak untuk menyalurkan kelebihan energinya. Misalnya, mengikutkan anak pada klub sepakbola di bawah umur atau berenang, agar anak belajar bergaul dan disiplin. Anak juga belajar bersosial karena ia harus mengikuti tatacara kelompoknya." Then Text1.Text = "Kelima, BANGKITKAN kepercayaan dirinya." + vbCrLf + vbCrLf + "Jika mampu, ini juga bisa dipelajari, gunakan teknik-teknik pengelolaan perilaku, seperti menggunakan penguat positif. Misalnya memberikan pujian bila anak makan dengan tertib atau berhasil melakukan sesuatu dengan benar, memberikan disiplin yang konsisten, dan selalu memonitor perilaku anak. Tujuannya untuk meningkatkan rasa percaya diri anak. Dalam tahap ini, usahakan emosi Anda berada di titik stabil, sehingga dia tahu, penguat positif itu tidak datang atas kendali amarah. Ingat, anak hiperaktif rata-rata juga sangat sensitif." PicFile = App.Path & "\LL5.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Kelima, BANGKITKAN kepercayaan dirinya." + vbCrLf + vbCrLf + "Jika mampu, ini juga bisa dipelajari, gunakan teknik-teknik pengelolaan perilaku, seperti menggunakan penguat positif. Misalnya memberikan pujian bila anak makan dengan tertib atau berhasil melakukan sesuatu dengan benar, memberikan disiplin yang konsisten, dan selalu memonitor perilaku anak. Tujuannya untuk meningkatkan rasa percaya diri anak. Dalam tahap ini, usahakan emosi Anda berada di titik stabil, sehingga dia tahu, penguat positif itu tidak datang atas kendali amarah. Ingat, anak hiperaktif rata-rata juga sangat sensitif." Then Text1.Text = "Keempat, TELATENLAH." + vbCrLf + vbCrLf + "Jika dia telah betah untuk duduk lebih lama, bimbinglah anak untuk melatih koordinasi mata dan tangan dengan cara menghubungkan titik-titik yang membentuk angka atau huruf. Latihan ini juga bertujuan untuk memperbaiki cara menulis angka yang tidak baik dan salah. Selanjutnya anak bisa diberi latihan menggambar bentuk sederhana dan
mewarnai. Latihan ini sangat berguna untuk melatih motorik halusnya. Bisa pula mulai diberikan latihan berhitung dengan berbagai variasi penjumlahan, pengurangan, perkalian, dan pembagian. Mulailah dengan penjumlahan atau pengurangan dengan angka-angka dibawah 10. Setelah itu baru diperkenalkan konsep angka 0 dengan benar." PicFile = App.Path & "\LL4.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Keempat, TELATENLAH." + vbCrLf + vbCrLf + "Jika dia telah betah untuk duduk lebih lama, bimbinglah anak untuk melatih koordinasi mata dan tangan dengan cara menghubungkan titik-titik yang membentuk angka atau huruf. Latihan ini juga bertujuan untuk memperbaiki cara menulis angka yang tidak baik dan salah. Selanjutnya anak bisa diberi latihan menggambar bentuk sederhana dan mewarnai. Latihan ini sangat berguna untuk melatih motorik halusnya. Bisa pula mulai diberikan latihan berhitung dengan berbagai variasi penjumlahan, pengurangan, perkalian, dan pembagian. Mulailah dengan penjumlahan atau pengurangan dengan angka-angka dibawah 10. Setelah itu baru diperkenalkan konsep angka 0 dengan benar." Then Text1.Text = "Ketiga, LATIH kefokusannya. " + vbCrLf + vbCrLf + "Jangan tekan dia, terima kaeadaan itu. Perlakukan anak dengan hangat dan sabar, tapi konsisten dan tegas dalam menerapkan norma dan tugas. Kalau anak tidak bisa diam di satu tempat, coba pegang kedua tangannya dengan lembut, kemudian ajaklah untuk duduk diam. Mintalah agar anak menatap mata Anda ketika berbicara atau diajak berbicara. Berilah arahan dengan nada yang lembuat, tanpa harus membenatk. Arahan ini penting sekali untuk melatih anak disiplin dan berkonsentrasi pada satu pekerjaan. Anda harus konsisten. Jika meminta dia melakukan sesuatu, jangan berikandia ancaman tapi pengertian, yang membuatnya tahu kenapa Anda berharap dia melakukan itu." PicFile = App.Path & "\LL3.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Ketiga, LATIH kefokusannya. " + vbCrLf + vbCrLf + "Jangan tekan dia, terima kaeadaan itu. Perlakukan anak dengan hangat dan sabar, tapi konsisten dan tegas dalam menerapkan norma dan tugas. Kalau anak tidak bisa diam di satu tempat, coba pegang kedua tangannya dengan lembut, kemudian ajaklah untuk duduk diam. Mintalah agar anak menatap mata Anda ketika berbicara atau diajak berbicara. Berilah arahan dengan nada yang lembuat, tanpa harus membenatk. Arahan ini penting sekali untuk melatih anak disiplin dan berkonsentrasi pada satu pekerjaan. Anda harus konsisten. Jika meminta dia melakukan sesuatu, jangan berikandia ancaman tapi pengertian, yang membuatnya tahu kenapa Anda berharap dia melakukan itu." Then Text1.Text = "Kedua, PAHAMILAH." + vbCrLf + vbCrLf + "Untuk bisa menangani anak hiperatif, ada baiknya pula jika Anda dan anggota keluarga
mengikuti support group dan parenting skill-training. Tujuannya agar bisa lebih memahami sikap dan perilaku anak, serta apa yang dibutuhkan anak, baik secara psikologis, kognitif (intelektual) maupun fisiologis. Jika si anak merasa bahwa orang tua dan anggota keluarga lain bisa mengerti keinginannya, perasaannya, frustasinya, maka kondisi ini akan meningkatkan kemungkinan anak bisa tumbuh seperti layaknya orang-orang normal lainnya." PicFile = App.Path & "\LL2.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Kedua, PAHAMILAH." + vbCrLf + vbCrLf + "Untuk bisa menangani anak hiperatif, ada baiknya pula jika Anda dan anggota keluarga mengikuti support group dan parenting skill-training. Tujuannya agar bisa lebih memahami sikap dan perilaku anak, serta apa yang dibutuhkan anak, baik secara psikologis, kognitif (intelektual) maupun fisiologis. Jika si anak merasa bahwa orang tua dan anggota keluarga lain bisa mengerti keinginannya, perasaannya, frustasinya, maka kondisi ini akan meningkatkan kemungkinan anak bisa tumbuh seperti layaknya orang-orang normal lainnya." Then Text1.Text = "Pertama, PERIKSALAH." + vbCrLf + vbCrLf + "mengonsultasikan persoalan yang diderita anaknya kepada ahli terapi psikologi anak. Ini penting karena gangguan hiperaktivitas bisa berpengaruh pada kesehatan mental dan fisik anak, serta kemampuannya dalam menyerap pelajaran dan bersosialisasi. Tujuannya untuk mendapatkan petunjuk dari orang yang tepat tentang apa saja yang bisa Anda lakukan di rumah. Selain itu juga berguna untuk menghapus rasa bersalah dan memperbaiki sikap Anda agar tak terlalu menuntut anak secara berlebihan. Di sini biasanya para ahli akan memberikan obat yang sesuai atau sebuah terapi." PicFile = App.Path & "\psikologi.jpg" Picture1.Picture = LoadPicture(PicFile) End If End If End If End If End If End If End Sub Private Sub Picture3_Click() If Text1.Text = "Pertama, PERIKSALAH." + vbCrLf + vbCrLf + "mengonsultasikan persoalan yang diderita anaknya kepada ahli terapi psikologi anak. Ini penting karena gangguan hiperaktivitas bisa berpengaruh pada kesehatan mental dan fisik anak, serta kemampuannya dalam menyerap pelajaran dan bersosialisasi. Tujuannya untuk mendapatkan petunjuk dari orang yang tepat tentang apa saja yang bisa Anda lakukan di rumah. Selain itu juga berguna untuk menghapus rasa bersalah dan memperbaiki
sikap Anda agar tak terlalu menuntut anak secara berlebihan. Di sini biasanya para ahli akan memberikan obat yang sesuai atau sebuah terapi." Then Text1.Text = "Kedua, PAHAMILAH." + vbCrLf + vbCrLf + "Untuk bisa menangani anak hiperatif, ada baiknya pula jika Anda dan anggota keluarga mengikuti support group dan parenting skill-training. Tujuannya agar bisa lebih memahami sikap dan perilaku anak, serta apa yang dibutuhkan anak, baik secara psikologis, kognitif (intelektual) maupun fisiologis. Jika si anak merasa bahwa orang tua dan anggota keluarga lain bisa mengerti keinginannya, perasaannya, frustasinya, maka kondisi ini akan meningkatkan kemungkinan anak bisa tumbuh seperti layaknya orang-orang normal lainnya." PicFile = App.Path & "\LL2.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Kedua, PAHAMILAH." + vbCrLf + vbCrLf + "Untuk bisa menangani anak hiperatif, ada baiknya pula jika Anda dan anggota keluarga mengikuti support group dan parenting skill-training. Tujuannya agar bisa lebih memahami sikap dan perilaku anak, serta apa yang dibutuhkan anak, baik secara psikologis, kognitif (intelektual) maupun fisiologis. Jika si anak merasa bahwa orang tua dan anggota keluarga lain bisa mengerti keinginannya, perasaannya, frustasinya, maka kondisi ini akan meningkatkan kemungkinan anak bisa tumbuh seperti layaknya orang-orang normal lainnya." Then Text1.Text = "Ketiga, LATIH kefokusannya. " + vbCrLf + vbCrLf + "Jangan tekan dia, terima kaeadaan itu. Perlakukan anak dengan hangat dan sabar, tapi konsisten dan tegas dalam menerapkan norma dan tugas. Kalau anak tidak bisa diam di satu tempat, coba pegang kedua tangannya dengan lembut, kemudian ajaklah untuk duduk diam. Mintalah agar anak menatap mata Anda ketika berbicara atau diajak berbicara. Berilah arahan dengan nada yang lembuat, tanpa harus membenatk. Arahan ini penting sekali untuk melatih anak disiplin dan berkonsentrasi pada satu pekerjaan. Anda harus konsisten. Jika meminta dia melakukan sesuatu, jangan berikandia ancaman tapi pengertian, yang membuatnya tahu kenapa Anda berharap dia melakukan itu." PicFile = App.Path & "\LL3.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Ketiga, LATIH kefokusannya. " + vbCrLf + vbCrLf + "Jangan tekan dia, terima kaeadaan itu. Perlakukan anak dengan hangat dan sabar, tapi konsisten dan tegas dalam menerapkan norma dan tugas. Kalau anak tidak bisa diam di satu tempat, coba pegang kedua tangannya dengan lembut, kemudian ajaklah untuk duduk diam. Mintalah agar anak menatap mata Anda ketika berbicara atau diajak berbicara. Berilah arahan dengan nada yang lembuat, tanpa harus membenatk. Arahan ini penting sekali untuk melatih anak disiplin dan berkonsentrasi pada satu pekerjaan. Anda harus konsisten. Jika meminta dia melakukan sesuatu, jangan berikandia
ancaman tapi pengertian, yang membuatnya tahu kenapa Anda berharap dia melakukan itu." Then Text1.Text = "Keempat, TELATENLAH." + vbCrLf + vbCrLf + "Jika dia telah betah untuk duduk lebih lama, bimbinglah anak untuk melatih koordinasi mata dan tangan dengan cara menghubungkan titik-titik yang membentuk angka atau huruf. Latihan ini juga bertujuan untuk memperbaiki cara menulis angka yang tidak baik dan salah. Selanjutnya anak bisa diberi latihan menggambar bentuk sederhana dan mewarnai. Latihan ini sangat berguna untuk melatih motorik halusnya. Bisa pula mulai diberikan latihan berhitung dengan berbagai variasi penjumlahan, pengurangan, perkalian, dan pembagian. Mulailah dengan penjumlahan atau pengurangan dengan angka-angka dibawah 10. Setelah itu baru diperkenalkan konsep angka 0 dengan benar." PicFile = App.Path & "\LL4.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Keempat, TELATENLAH." + vbCrLf + vbCrLf + "Jika dia telah betah untuk duduk lebih lama, bimbinglah anak untuk melatih koordinasi mata dan tangan dengan cara menghubungkan titik-titik yang membentuk angka atau huruf. Latihan ini juga bertujuan untuk memperbaiki cara menulis angka yang tidak baik dan salah. Selanjutnya anak bisa diberi latihan menggambar bentuk sederhana dan mewarnai. Latihan ini sangat berguna untuk melatih motorik halusnya. Bisa pula mulai diberikan latihan berhitung dengan berbagai variasi penjumlahan, pengurangan, perkalian, dan pembagian. Mulailah dengan penjumlahan atau pengurangan dengan angka-angka dibawah 10. Setelah itu baru diperkenalkan konsep angka 0 dengan benar." Then Text1.Text = "Kelima, BANGKITKAN kepercayaan dirinya." + vbCrLf + vbCrLf + "Jika mampu, ini juga bisa dipelajari, gunakan teknik-teknik pengelolaan perilaku, seperti menggunakan penguat positif. Misalnya memberikan pujian bila anak makan dengan tertib atau berhasil melakukan sesuatu dengan benar, memberikan disiplin yang konsisten, dan selalu memonitor perilaku anak. Tujuannya untuk meningkatkan rasa percaya diri anak. Dalam tahap ini, usahakan emosi Anda berada di titik stabil, sehingga dia tahu, penguat positif itu tidak datang atas kendali amarah. Ingat, anak hiperaktif rata-rata juga sangat sensitif." PicFile = App.Path & "\LL5.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Kelima, BANGKITKAN kepercayaan dirinya." + vbCrLf + vbCrLf + "Jika mampu, ini juga bisa dipelajari, gunakan teknik-teknik pengelolaan perilaku, seperti menggunakan penguat positif. Misalnya memberikan pujian bila anak makan dengan tertib atau berhasil melakukan sesuatu dengan benar, memberikan disiplin yang konsisten, dan selalu memonitor perilaku anak. Tujuannya untuk meningkatkan rasa percaya diri anak. Dalam tahap ini, usahakan emosi Anda berada di titik stabil,
sehingga dia tahu, penguat positif itu tidak datang atas kendali amarah. Ingat, anak hiperaktif rata-rata juga sangat sensitif." Then Text1.Text = "Keenam, KENALI arah minatnya." + vbCrLf + vbCrLf + "Jika dia bergerak terus, jangan panik, ikutkan saja, dan catat baik-baik, kemana sebenarnya tujuan dari keaktifan dia. Jangan dilarang semuanya, nanti dia prustasi. Yang paling penting adalah mengenali bakat atau kecenderungan perhatiannya secara dini. Dengan begitu, Anda bisa memberikan ruang gerak yang cukup bagi aktivitas anak untuk menyalurkan kelebihan energinya. Misalnya, mengikutkan anak pada klub sepakbola di bawah umur atau berenang, agar anak belajar bergaul dan disiplin. Anak juga belajar bersosial karena ia harus mengikuti tatacara kelompoknya." PicFile = App.Path & "\LL6.jpg" Picture1.Picture = LoadPicture(PicFile) Else If Text1.Text = "Keenam, KENALI arah minatnya." + vbCrLf + vbCrLf + "Jika dia bergerak terus, jangan panik, ikutkan saja, dan catat baik-baik, kemana sebenarnya tujuan dari keaktifan dia. Jangan dilarang semuanya, nanti dia prustasi. Yang paling penting adalah mengenali bakat atau kecenderungan perhatiannya secara dini. Dengan begitu, Anda bisa memberikan ruang gerak yang cukup bagi aktivitas anak untuk menyalurkan kelebihan energinya. Misalnya, mengikutkan anak pada klub sepakbola di bawah umur atau berenang, agar anak belajar bergaul dan disiplin. Anak juga belajar bersosial karena ia harus mengikuti tatacara kelompoknya." Then Text1.Text = "Ketujuh, MINTA dia bicara." + vbCrLf + vbCrLf + "Ini sangat penting Anda terapkan. Ingat, anak hiperaktif cenderung susah berkomunikasi dan bersosialisai, sibuk dengan dirinya sendiri. Karena itu, bantulah anak dalam bersosialisasi agar ia mempelajari nilai-nilai apa saja yang dapat diterima kelompoknya. Misalnya melakukan aktivitas bersama, sehingga Anda bisa mengajarkan anak bagaimana bersosialisasi dengan teman dan lingkungan. Ini memang butuh kesabaran dan kelembutan." + vbCrLf + vbCrLf + "Nah, itulah dasardasar pengelolaan jika anak Anda mengidap hiperaktif. Dia tak berbahaya, hanya butuh SENTUHAN dan PERHATIAN LEBIH." PicFile = App.Path & "\LL7.jpg" Picture1.Picture = LoadPicture(PicFile) End If End If End If End If End If End If End Sub
4. Form Kesehatan
Properti Form Kesehatan Kontrol Form Text1
Picture1 Picture2 Picture3
Properti Caption Text Forecolor Font FontStyle Size Picture Picture Picture
Nilai Langkah-langkah ( Dikosongkan ) &H000000FF& Bold 14 (Bitmap) (Bitmap) (Bitmap)
Menu Utama File
Sub Menu Bantuan Kembali
Variabel Help Kembali
Listing Program Form Kesehatan Private Sub Form_Load() Text1.Text = "Anda memiliki anak yang hiperaktif? Menurut penelitian hiperaktif pada anak ternyata ada hubungan dengan konsumsi suplemen zat seng. Dalam sebuah penelitian anak dengan memperhatikan deficit hyperactivity disorder (ADHD) ditemukan bahwa anak yang mendapat ekstra seng menujukan perilaku mereka berkembang lebih cepat." PicFile = App.Path & "\suplemen.jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "SUPLEMEN" End Sub Private Sub Help_Click() frmbantu.Show End Sub Private Sub Kembali_Click() frmMenu.Show Unload Me End Sub Private Sub Picture2_Click() If Text1.Text = "Walaupun ada beberapa efek samping yang diketahui dari kelompok anak yang mengkonsumsi seng, para peneliti yakin seng memiliki pengaruh positif pada anak dengan ADHD karena membantu mengatur fungsi neurotransmitter dopamine." Then Text1.Text = "Hasilnya diketahui perilaku anak dari kedua kelompok itu mengalami peningkatan selama penelitian namun mereka yang mengkonsumsi suplemen seng menujukan perkembangan perilaku yang lebih diakhir waktu penelitian selama enam minggu." PicFile = App.Path & "\suplemen[1].jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "SUPLEMEN dan VITAMIN" Else
If Text1.Text = "Hasilnya diketahui perilaku anak dari kedua kelompok itu mengalami peningkatan selama penelitian namun mereka yang mengkonsumsi suplemen seng menujukan perkembangan perilaku yang lebih diakhir waktu penelitian selama enam minggu." Then Text1.Text = "Dalam sebuah penelitian terhadap 44 anak dengan ADHD, para peneliti Iran memberi setengah dari mereka suplemen seng dengan pengobatan methylphenidate konvensional sementara sisanya mengkonsumsi placebo dengan pengobatan biasa." PicFile = App.Path & "\placebo.jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "PLACEBO" Else If Text1.Text = "Dalam sebuah penelitian terhadap 44 anak dengan ADHD, para peneliti Iran memberi setengah dari mereka suplemen seng dengan pengobatan methylphenidate konvensional sementara sisanya mengkonsumsi placebo dengan pengobatan biasa." Then Text1.Text = "Sekitar satu dari 25 anak usia sekolah diketahui terpangaruh ADHD dengan gejala-gejala seperti masalah konsentrasi, hiperaktif dan impulsif. Paling umum pengobatan dilakukan dengan menggunakan stimulus namun penelitian menemukan vitamin dan kekurangan mineral memiliki hubungan dengan ADHD. Karena itu suplemen makanan berperan dalam mengatur kondisi tersebut." PicFile = App.Path & "\stimulus.jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "STIMULUS" Else If Text1.Text = "Sekitar satu dari 25 anak usia sekolah diketahui terpangaruh ADHD dengan gejala-gejala seperti masalah konsentrasi, hiperaktif dan impulsif. Paling umum pengobatan dilakukan dengan menggunakan stimulus namun penelitian menemukan vitamin dan kekurangan mineral memiliki hubungan dengan ADHD. Karena itu suplemen makanan berperan dalam mengatur kondisi tersebut." Then Text1.Text = "Anda memiliki anak yang hiperaktif? Menurut penelitian hiperaktif pada anak ternyata ada hubungan dengan konsumsi suplemen zat seng. Dalam sebuah penelitian anak dengan memperhatikan deficit hyperactivity disorder (ADHD) ditemukan bahwa anak yang mendapat ekstra seng menujukan perilaku mereka berkembang lebih cepat." PicFile = App.Path & "\suplemen.jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "SUPLEMEN" End If End If End If End If
End Sub Private Sub Picture3_Click() If Text1.Text = "Anda memiliki anak yang hiperaktif? Menurut penelitian hiperaktif pada anak ternyata ada hubungan dengan konsumsi suplemen zat seng. Dalam sebuah penelitian anak dengan memperhatikan deficit hyperactivity disorder (ADHD) ditemukan bahwa anak yang mendapat ekstra seng menujukan perilaku mereka berkembang lebih cepat." Then Text1.Text = "Sekitar satu dari 25 anak usia sekolah diketahui terpangaruh ADHD dengan gejala-gejala seperti masalah konsentrasi, hiperaktif dan impulsif. Paling umum pengobatan dilakukan dengan menggunakan stimulus namun penelitian menemukan vitamin dan kekurangan mineral memiliki hubungan dengan ADHD. Karena itu suplemen makanan berperan dalam mengatur kondisi tersebut." PicFile = App.Path & "\stimulus.jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "STIMULUS" Else If Text1.Text = "Sekitar satu dari 25 anak usia sekolah diketahui terpangaruh ADHD dengan gejala-gejala seperti masalah konsentrasi, hiperaktif dan impulsif. Paling umum pengobatan dilakukan dengan menggunakan stimulus namun penelitian menemukan vitamin dan kekurangan mineral memiliki hubungan dengan ADHD. Karena itu suplemen makanan berperan dalam mengatur kondisi tersebut." Then Text1.Text = "Dalam sebuah penelitian terhadap 44 anak dengan ADHD, para peneliti Iran memberi setengah dari mereka suplemen seng dengan pengobatan methylphenidate konvensional sementara sisanya mengkonsumsi placebo dengan pengobatan biasa." PicFile = App.Path & "\placebo.jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "PLACEBO" Else If Text1.Text = "Dalam sebuah penelitian terhadap 44 anak dengan ADHD, para peneliti Iran memberi setengah dari mereka suplemen seng dengan pengobatan methylphenidate konvensional sementara sisanya mengkonsumsi placebo dengan pengobatan biasa." Then Text1.Text = "Hasilnya diketahui perilaku anak dari kedua kelompok itu mengalami peningkatan selama penelitian namun mereka yang mengkonsumsi suplemen seng menujukan perkembangan perilaku yang lebih diakhir waktu penelitian selama enam minggu." PicFile = App.Path & "\suplemen[1].jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "SUPLEMEN dan VITAMIN" Else
If Text1.Text = "Hasilnya diketahui perilaku anak dari kedua kelompok itu mengalami peningkatan selama penelitian namun mereka yang mengkonsumsi suplemen seng menujukan perkembangan perilaku yang lebih diakhir waktu penelitian selama enam minggu." Then Text1.Text = "Walaupun ada beberapa efek samping yang diketahui dari kelompok anak yang mengkonsumsi seng, para peneliti yakin seng memiliki pengaruh positif pada anak dengan ADHD karena membantu mengatur fungsi neurotransmitter dopamine." PicFile = App.Path & "\dopamine.jpg" Picture1.Picture = LoadPicture(PicFile) Text2.Text = "DOPAMINE" End If End If End If End If End Sub 5. Form Ciri-ciri Anak Hiperaktif
Properti Form Ciri-ciri Anak Hiperaktif Kontrol Form Option1 Option2 Option3 Option4 Option5 Option6 Option7 Picture1 Text1
Menu Utama File
Properti Caption Caption Caption Caption Caption Caption Caption Caption Picture Text Forecolor Font FontStyle Size Sub Menu Bantuan Kembali
Nilai Ciri-ciri Anak Hiperaktif 1. Tidak Fokus 2. Menentang 3. Destruktif 4. Tak kenal lelah 5. Tanpa tujuan 6. Tidak sabar dan usil 7. Intelektualitas rendah (Bitmap) (Dikosongkan) &H000000FF& Bold 14 Variabel Help Kembali
Listing Program Form Ciri-ciri Anak Hiperaktif Private Sub Help_Click() frmbantu.Show End Sub Private Sub Kembali_Click() frmMenu.Show Unload Me End Sub Private Sub Option1_Click() If Option1.Value = True Then Text1.Text = " Anak dengan gangguan hiperaktivitas tidak bisa berkonsentrasi lebih dari lima menit. Dengan kata lain, ia tidak bisa diam dalam waktu lama dan mudah teralihkan perhatiannya kepada hal lain. Misalnya, ketika anak sedang bermain mobil-mobilan kemudian datang anak lain membawa bola, anak akan langsung mengubah fokus perhatiannya ke bola tersebut." + vbCrLf + " Tak hanya itu, anak dengan gangguan hiperaktivitas tidak memiliki fokus jelas. Dia berbicara
semaunya berdasarkan apa yang ingin diutarakan tanpa ada maksud jelas sehingga kalimatnya seringkali sulit dipahami. Demikian pula pola interaksinya dengan orang lain." + vbCrLf + " Biasanya yang bersangkutan selalu cuek kala dipanggil sehingga orang tua sering mengeluh kalau anaknya pura-pura tidak mendengar.Dengan perilaku seperti ini, anak cenderung tidak mampu melakukan sosialisasi dengan baik." PicFile = App.Path & "\tdkfokus.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.Text = " Anak dengan gangguan hiperaktivitas umumnya memiliki sikap penentang/pembangkang atau tidak mau dinasehati. Misalnya, penderita akan marah jika dilarang berlari ke sana kemari, coret-coret atau naik-turun tak berhenti. Penolakannya juga bisa ditunjukkan dengan sikap cuek." PicFile = App.Path & "\menentang.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.Text = " Perilakunya bersifat destruktif atau merusak. Ketika menyusun lego misalnya, anak aktif akan menyelesaikannya dengan baik sampai lego tersusun rapi. Sebaliknya anak hiperaktif bukan menyelesaikannya malah menghancurkan mainan lego yang sudah tersusun rapi. Terhadap barang-barang yang ada di rumah, seperti vas atau pajangan lain, kecenderungan anak untuk menghancurkannya juga sangat besar. Oleh karena itu, anak hiperaktif sebaiknya dijauhkan dari barang-barang yang mudah dipegang dan mudah rusak." PicFile = App.Path & "\destruktif.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option4_Click() If Option4.Value = True Then Text1.Text = " Anak dengan gangguan hiperaktivitas sering tidak menunjukkan sikap lelah. Sepanjang hari dia akan selalu bergerak ke sana kemari, lompat, lari, berguling, dan sebagainya. Hal inilah yang seringkali membuat orang tua kewalahan dan tidak sanggup meladeni perilakunya."
PicFile = App.Path & "\tdklelah.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option5_Click() If Option5.Value = True Then Text1.Text = " Semua aktivitas dilakukan tanpa tujuan jelas. Kalau anak aktif, ketika naik ke atas kursi punya tujuan, misalnya ingin mengambil mainan atau bermain peran sebagai Superman. Anak hiperaktif melakukannya tanpa tujuan. Dia hanya naik dan turun kursi saja." PicFile = App.Path & "\tanpatjn.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option6_Click() If Option6.Value = True Then Text1.Text = " Yang bersangkutan juga tidak memiliki sifat sabar. Ketika bermain dia tidak mau menunggu giliran. Tak hanya itu, anak hiperaktif pun seringkali mengusili temannya tanpa alasan yang jelas. Misalnya, tiba-tiba memukul, mendorong, menimpuk, dan sebagainya meskipun tidak ada pemicu yang harus membuat anak melakukan hal seperti itu." PicFile = App.Path & "\tdksabar.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub Private Sub Option7_Click() If Option7.Value = True Then Text1.Text = " Seringkali intelektualitas anak dengan gangguan hiperaktivitas berada di bawah rata-rata anak normal. Mungkin karena secara psikologis mentalnya sudah terganggu sehingga ia tidak bisa menunjukkan kemampuan kreatifnya." + vbCrLf + " Nah, anak yang hanya sekadar aktif, pada otaknya tidak terdapat gangguan. Hanya saja energi yang terkumpul berlimpah dan si kecil berkeinginan untuk selalu bergerak sehingga ia mempunyai mobilitas yang cukup tinggi dibandingkan anak lain. Secara kasat mata anak aktif dan hiperaktif memiliki kesamaan perilaku, padahal kalau ditilik lebih lanjut ada perbedaannya." PicFile = App.Path & "\intekrendah.jpg" Picture1.Picture = LoadPicture(PicFile) End If End Sub
