APLIKASI PERHITUNGAN GAJI WITH KEYPRESS
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 Private Sub txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 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 If End Sub
Komentar
Posting Komentar