menghilangkan masa kebodohan karena jiwa yang malas

Dalam kehidupan beragama, setiap orang memiliki tanggung jawab masing-masing, sebab dalam beragama islam maka kita di tuntut untuk kuat dan cerdas agar tidak mudah dibodoh-bodohi oleh orang yang suka mengeluh/golongan umat yang tersesat. Maka dalam kehidupan ini, penulis memiliki prinsip bahwa

jangan pernah memberikan kesempatan  pada setan untuk menguasai hati dan hawa nafsu, terutama bagi orang yang suka menunda-nunda waktu, karena orang yang suka menunda-nunda waktu berarti dia telah menyia-nyiakan rezeki yang di berikan oleh yang maha kuasa, sebab waktu adalah anugerah, waktu adalah amanah, waktu adalah rezeki bagi hamba Allah yang menggunakan dengan sebaik-baik mungkin.

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