MiftahulH STMIK Pringsewu

Private Sub Cmdproses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.2 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Cmdulang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.2 Text6 = Val(Text4) - Val(Text5) End If End Sub

Private Sub Cmdproses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.2 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Cmdulang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4 = Val(Text1) + Val(Text2) - Val(Text3) End If End Sub

Private Sub Cmdhitung_Click() Txtdis = Val(Txtha) * 0.15 Txtak = Val(Txtha) - Val(Txtdis) End Sub Private Sub Cmdulangi_Click() Txtha.SetFocus Txtha = "" Txtdis = "" Txtak = "" End Sub     Private Sub Cmdquit_Click() Unload Me End Sub Private Sub Txtha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtdis = Val(Txtha) * 0.15 Txtak = Val(Txtha) - Val(Txtdis) End If End Sub

Private Sub Cmdhitung_Click() Txtdis = Val(Txtha) * 0.15 Txtak = Val(Txtha) - Val(Txtdis) End Sub Private Sub Cmdulangi_Click() Txtha.SetFocus Txtha = "" Txtdis = "" Txtak = "" End Sub     Private Sub Cmdquit_Click() Unload Me End Sub

Private Sub Cmdhitung_Click() Txth1 = Val(Txtn1) + Val(Txtn2) Txth2 = Val(Txtn3) - Val(Txtn4) Txth3 = Val(Txtn5) * Val(Txtn6) Txth4 = Val(Txtn7) / Val(Txtn8) Txth5 = Val(Txth1) + Val(Txth2) + Val(Txth3) + Val(Txth4) End Sub Private Sub Cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" Txtn4 = "" Txtn5 = "" Txtn6 = "" Txtn7 = "" Txtn8 = "" Txth1 = "" Txth2 = "" Txth3 = "" Txth4 = "" Txth5 = "" End Sub Private Sub Cmdkeluar_Click() Unload Me 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 Txtn4.SetFocus End If End