Helmi stmik pringsewu

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 cmdjumlah_Click() Txtjmlh1 = Val(Txtn1) + Val(T...

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 ...

Private Sub Cmdhitung_Click() Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End Sub Private Sub Cmdbatal_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Txtnilai1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnilai2.SetFocus End If End Sub Private Sub Txtnilai2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnilai3.SetFocus End If End Sub Private Sub Txtnilai3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End If End Sub

Private Sub Cmdhitung_Click() Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End Sub Private Sub Cmdbatal_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub

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 txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub Private Sub txtnpm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub

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_Change() End Sub