Menggunakan select case
·
Listing untuktombol new input
Private sub command 1_click()
Option1.value = false
Option2.value=false
Text1.text =””
Text2.text =””
End sub
·
Listing untuktombol exit
Private sub command2.click()
M=msgbox (“andainginkeluar ?”,
vbyesno +vbquestion,”)
If
m= vbyes then
Unload me
Me.show
End if
End sub
·
Listing untuktombol check
M= text2.text
D= “denganumur”
S= text1.text
Select case val (text2.text)
Case is <=5
Msgboxs+d+u “tahunandamasihbalita”
,vbok only
Case is <=12
Msgboxs+d+u
“tahunandamasihanak-anak” ,vbok only
Case is <=18
Msgboxs+d+u “tahunandamasihremaja”
,vbok only
Case is <=27
Msgboxs+d+u “tahunandamasihdewasa”
,vbok only
Case is <=39
Msgboxs+d+u
“tahunandamasihom/tante” ,vbok only
Case is <=55
Msgboxs+d+u “tahunandamasihnenek/kakek”
,vbok only
Case is >55
Msgboxs+d+u
“tahunandamanula/lansia” ,vbok only
End select
End sub
