Tugas VB (menghitung gaji karyawan)

                     Langkah 1 :

-           Membuat  7 label

-          Mengganti Caption

-          Mengatur  Font Size

-          Mengatur alignment

Langkah 2:

-          Membuat 4 text box

-          Mengatur font size

-          Mengatur alignment

Langkah 3 :

               -          Membuat 2 command button

-          Mengubah caption

                  -        Mengatur font size

CODING

Private Sub Command1_Click()

 If Text4.Text = "Y" Then Text3.Text = (Val(Text1.Text) + (Text2.Text)) + ((Text1.Text * (10 / 100)))

 If Text4.Text = "N" Then Text3.Text = (Val(Text1.Text) + (Text2.Text))

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Text1_Change()

If Not IsNumeric(Text1.Text) Then

MsgBox "angka saja", vbOKOnly, admin

End If

End Sub

Private Sub Text2_Change()

If Not IsNumeric(Text2.Text) Then

MsgBox "angka saja", vbOKOnly, admin

End If

End Sub