tugas 2.3

Private Sub cmdkluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) - Val(txtpt.Text)

txtpj.Text = Val(txtgk.Text) * (0.1)

txtgd.Text = Val(txtgk.Text) - Val(txtgd.Text)

End Sub

Private Sub cmdulang_Click()

txtgp = ""

txttj = ""

txtpt = ""

txtgk = ""

txtpj = ""

txtgd = ""

End Sub