TUGAS 2.2
Private Sub cmdhitung_Click() txtd.Text = Val(txtha.Text) * 0.1 txtak.Text = Val(txtha.Text) - Val(txtd.Text) End Sub private sub cmdulang_click() txtha="" txtd="" txtha="" txtha.setfocus end sub private sub cmdquit_() unload me end sub Private Sub txtha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then xtd.Text = Val(txtha.Text) * 0.1 txtak.Text = Val(txtha.Text) - Val(txtd.Text) end if end Sub