Tes-Tes

LISTING

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