yannastmikpringsewu

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 "17100028" nama = "Ida Ayu Wulandari" jurusan = "Tehnik Informatika" Case "17100001" nama = "Mardalenna" 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.Text = "" End Sub Private Su...

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.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 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 "17100028" nama = "Ida Ayu Wulandari" jurusan = "Tehnik Informatika" Case "17100001" nama = "Mardalenna" 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.Text = "" End Sub Private Su...

Private Sub Chkbold_Click() 'membuat teks miring If ChKBOLD.Value = 1 Then     LBLTEKS.FontBold = True Else     LBLTEKS.FontBold = False End If End Sub Private Sub Chkitalic_Click() 'membuat teks miring If ChkITALIC.Value = 1 Then     LBLTEKS.FontItalic = True Else     LBLTEKS.FontItalic = False End If End Sub Private Sub Chkstrikethru_Click() 'membuat teks garis tengah If Chkstrikethru.Value = 1 Then     LBLTEKS.FontStrikethru = True Else     LBLTEKS.FontStrikethru = False End If End Sub Private Sub Chkunderline_Click() 'membuat teks garis bawah 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 Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub OptBLUE_Click() 'membuat teks berwarna biru LBLTEKS.ForeColor = vbBlue ...

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() Unload Me 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 cmdhitung_Click() txtha = "" txtdis = "" txtha = "" End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtha = "" txtdis = "" txtha = "" 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