STMIK PRINGSEWU
Huruf Mutu Mahasiswa STMIK Pringsewu31SabtuJan 2015PostedbyazmainiinTak Berkategori≈Tinggalkan komentarPrivate Sub cbonpm_Click()Dim nama, jurusan, hm As StringSelect Casecbonpm.TextCase “14100250”nama = “Azmaini”jurusan = “Sistem Informasi”Case “14201033”nama = “sariyanti”jurusan = “manajemen informasi”Case “14204457”nama = “Milda Destiana”jurusan = “Manajemen Informasi”Case “14100445”nama = “eka aprilia”jurusan = “sistem informasi”Case “14100570”nama = “sulasmi”jurusan = “sistem informatika”Case “14100404”nama = “inayatul karoma”jurusan = “Sistem Informasi”Case “14100211”nama = ” adelia yustika”jurusan = “Sistem Informasi”Case “14201052”nama = “tia alfiana”jurusan = “Manajemen Informatika”Case “14100412”nama = “heni kartika sari”jurusan = “sistem informasi”Case “14100421”nama = “dwi astuti”jurusan = “Sistem Informasi”End Selecttxtnama.Text= namatxtjur.Text= jurusantxtquis.SetFocusEnd SubPrivate Sub cmdbatal_Click()cbonpm.SetFocuscbonpm.Text= ” ”txtnama.Text= ” ”txtjur.Text= ” ”txtqui