qoirum jamilah

P1 Private Sub cmdHitung_Click() txtdiskon = Val(txtharga) * 0.15 Txthak = Val(txtharga) - Val(txtdiskon) End Sub Private Sub cmdQuit_Click() End End Sub Private Sub cmdUlangi_Click() txtharga = "" txtdiskon = "" Txthak = "" txtharga.SetFocus End Sub P2 Private Sub txtharga_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txthak.SetFocus txtdiskon = Val(txtharga) * 0.15 Txthak = Val(txtharga) - Val(txtdiskon) End If End Sub Private Sub cmdQuit_Click() End End Sub Private Sub cmdUlangi_Click() txtharga = "" txtdiskon = "" Txthak = "" txtharga.SetFocus End Sub P3 Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan) txtpajak = Val(txtgajik) * 0.05 txtgajid = Val(txtg...

TAMPILAN TUGAS 1 PROGRAM 1 (Data Mahasiswa tanpa Keypress) Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub TAMPILAN TUGAS 1 PROGRAM 2 (Data Mahasiswa Menggunakan Keypress) Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub txtnpm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txt...