Tugas 2.3

Tugas 2.3
Penghitungan Gaji Tanpa Keypress

Source Code :


Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdProses_Click()
Dim A, B, C, D, E, F As Double
txtD.Text = Val(txtA.Text) + Val(txtB.Text) - Val(txtC.Text)
txtE.Text = Val(txtD.Text) * (0.1)
txtF.Text = Val(txtD.Text) - Val(txtE.Text)
End Sub

Private Sub cmdUlang_Click()
txtA = ""
txtB = ""
txtC = ""
txtD = ""
txtE = ""
txtF = ""
End Sub