rosistmikpringsewu

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100006" nama = "Rosi Elvia" jurusan = "Sistem Informasi" Case "17100034" nama = "Marisca nova linda" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select Txtnama.Text = nama Txtjurusan.Text = jurusan Txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" Txtnama.Text = "" Txtjurusan.Text = "" Txtquis.Text = "" Txttugas.Text = "" Txtuts.Text = "" Txtuas.Text = "" Txtna.Text = "" Txthm.T...

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100006" nama = "Rosi Elvia" jurusan = "Sistem Informasi" Case "17100034" nama = "Marisca nova linda" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select Txtnama.Text = nama Txtjurusan.Text = jurusan Txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" Txtnama.Text = "" Txtjurusan.Text = "" Txtquis.Text = "" Txttugas.Text = "" Txtuts.Text = "" Txtuas.Text = "" Txtna.Text = "" Txthm.T...

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