tugas VB : No. 1

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDPROSES_Click()
Dim a, b, c, d, f As String
Txtgajikotor.Text = Val(Txtgajipokok.Text) + Val(Txttunjangan.Text) – Val(Txtpotongan.Text)
txtpajak.Text = Val(Txtgajikotor.Text) * 0.1
Txtgajiyangditerima.Text = Val(Txtgajikotor.Text) – Val(txtpajak.Text)

End Sub

Private Sub CMDULANG_Click()
Txtgajipokok.SetFocus
Txtgajipokok.Text = “”
Txttunjangan.Text = “”
Txtpotongan.Text = “”
Txtgajikotor.Text = “”
txtpajak.Text = “”
Txtgajiyangditerima.Text = “”
End Sub