Prima Aji Pamungkas

Private Sub Cmd1_click() Txt4 = Val(Txt1) + Val(Txt2) - Val(Txt3) Txt5 = Val(Txt4) * 0.1 Txt6 = Val(Txt4) - Val(Txt5) End Sub Private Sub Cmd2_Click() Txt1 = "" Txt2 = "" Txt3 = "" Txt4 = "" Txt5 = "" Txt6 = "" End Sub Private Sub Cmd3_Click() Unload Me End Sub

Private Sub Cmd1_Click() Txt2 = Val(Txt1) * 0.15 Txt3 = Val(Txt1) - Val(Txt2) End Sub Private Sub Cmd2_Click() Txt1 = "" Txt2 = "" Txt3 = "" End Sub Private Sub Cmd3_Click() Unload Me End Sub Private Sub Txt1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt2 = Val(Txt1) * 0.15 Txt3 = Val(Txt1) - Val(Txt2) End If End Sub  

Private Sub Cmd1_Click() Txt2 = Val(Txt1) * 0.15 Txt3 = Val(Txt1) - Val(Txt2) End Sub Private Sub Cmd2_Click() Txt1 = "" Txt2 = "" Txt3 = "" End Sub Private Sub Cmd3_Click() Unload Me End Sub

Private Sub txt1_Change() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdbatal_Click() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdhitung_Click() Txtjmlh1 = Val(Txtn1) + Val(Txtn2) txtjmlh2 = Val(txtn3) - Val(Txtn4) txtjmlh3 = Val(txtn5): Val (txtn6) txtjmlh4 = Val(txtn7) * Val(txtn8) Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4) End Sub Private Sub cmdjuml...

Private Sub txt1_Change() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdbatal_Click() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdhitung_Click() Txtjmlh1 = Val(Txtn1) + Val(Txtn2) txtjmlh2 = Val(txtn3) - Val(Txtn4) txtjmlh3 = Val(txtn5) : Val(txtn6) txtjmlh4 = Val(txtn7) * Val(txtn8) Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4) End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private S...

PROGRAM 4 Private Sub Cmdhitung_Click()  txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3) End Sub Private Sub Cmdbatal_Click() Txtn1 = "" txtn2 = "" txtn3 = "" txtjmlh = "" Txtn1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtn1 = "" txtn2 = "" txtn3 = "" txtjmlh = "" Txtn1.SetFocus End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn3.SetFocus End If End Sub Private Sub txtn3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3) End If End Sub

PROGRAM 3 MENGGUNAKAN MANUAL Private Sub Cmdhitung_Click() txtjumlah = Val(txtn1) + Val(txtn2) + Val(txtn3) End Sub Private Sub Cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn1.SetFocus End Sub