rosistmikpringsewu

Private Sub Check1_Click() label2fontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check1.Value End Sub Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() End End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub

Private Sub chkbold_Click() 'membuat teks tebal If chkbold.Value = 1 Then Lblteks.FontBold = True Else Lblteks.FontBold = False End If End Sub Private Sub chkitalic_Click() 'membuat teks italic If chkitalic.Value = 1 Then Lblteks.FontItalic = True Else Lblteks.FontItalic = False End If End Sub Private Sub chkstrikethru_Click() 'membuat teks strikethru If chkstrikethru.Value = 1 Then Lblteks.FontStrikethru = True Else Lblteks.FontStrikethru = False End If End Sub Private Sub chkunderline_Click() 'membuat teks underline If chkunderline.Value = 1 Then Lblteks.FontUnderline = True Else Lblteks.FontUnderline = False End If End Sub Private Sub Cmdexit_Click() End End Sub Private Sub optblue_Click() 'membuat teks berwarna biru Lblteks.ForeColor = vbBlue End Sub Private Sub optgreen_Click() 'membuat teks berwarna hijau Lblteks.ForeColor = vbGreen End Sub Private Sub Optred_Click() 'Membuat teks berwarna merah Lb...

Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdproses_Click() txtgk = Val(Txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End Sub Private Sub Cmdulang_Click() Txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" Txtgp.SetFocus End Sub Private Sub Txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttj.SetFocus End If End Sub Private Sub txtpt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtgk = Val(Txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End If End Sub Private Sub txttj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtpt.SetFocus End If End Sub

Private Sub cmdkeluar_Click() End End Sub Private Sub Cmdproses_Click() txtgk = Val(txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" End Sub

Private Sub cmdhitung_Click() txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - Val(txtdis) End Sub Private Sub cmdlagi_Click() txtha = "" txtdis = "" txtak = "" End Sub Private Sub cmdquit_Click() End End Sub Private Sub txtha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - Val(txtdis) End If End Sub

Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + (txtn2) txttotal2 = Val(txtn3) / (txtn4) txttotal3 = Val(txtn5) - (txtn6) txttotal4 = Val(txtn7) * (txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If ...

Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn2) txttotal2 = Val(txtn3) / Val(txtn4) txttotal3 = Val(txtn5) - Val(txtn6) txttotal4 = Val(txtn7) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetF...

Private Sub cmdhitung_Click() txttotal = Val(Txtnilai1) + (txtnilai2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() Txtnilai1 = "" txtnilai2 = "" txttotal = "" 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 txttotal = Val(Txtnilai1) + (txtnilai2) txttotal.SetFocus End If End Sub

Private Sub cmdhitung_Click() Txttotal = Val(Txtnilai1) + (Txtnilai2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txttotal = "" 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