tugas 2.4 bahasa pemrogaman 1

Private Sub GajiPokok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Tunjangan.SetFocus
End If
End Sub

Private Sub Tunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Potongan.SetFocus
End If
End Sub

Private Sub Potongan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan)
Pajak = Val(GajiKotor) * 0.1
GajiBersih = Val(GajiKotor) - Val(Pajak)
End If
End Sub

Private Sub Proses_Click()
GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan)
Pajak = Val(GajiKotor) * 0.1
GajiBersih = Val(GajiKotor) - Val(Pajak)
End Sub

Private Sub Ulang_Click()
GajiPokok.SetFocus
GajiPokok = ""
Tunjangan = ""
Potongan = ""
GajiKotor = ""
Pajak = ""
GajiBersih = ""
End Sub

Private Sub Keluar_Click()
End
End Sub