huruf mutu mahasiswa stmik pakai keypress
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