TUGAS VB 1

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDPROSES_Click()
Dim A, B, C, D, E, F As String
TXTGAJIKOTOR.Text = Val(TXTGAJI.Text) + Val(TXTTUNJANGAN.Text) – Val(TXTPOTONGAN.Text)
TXTPAJAK.Text = Val(TXTGAJIKOTOR.Text) * 0.1
TXTGAJITERIMA.Text = Val(TXTGAJIKOTOR.Text) – Val(TXTPAJAK.Text)
End Sub

Private Sub CMDULANG_Click()
TXTGAJI.SetFocus
TXTGAJI.Text = “”
TXTTUNJANGAN.Text = “”
TXTPOTONGAN.Text = “”
TXTGAJIKOTOR.Text = “”
TXTPAJAK.Text = “”
TXTGAJITERIMA = “”
End Sub

Private Sub TXTGAJI_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTUNJANGAN.SetFocus
End If
End Sub

Private Sub TXTTUNJANGAN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTPOTONGAN.SetFocus
End If
End Sub