rosistmikpringsewu

Private Sub cmdbatal_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtprogram = "" txttahun = "" txtnomor = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtprogram = "" txttahun = "" txtnomor = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim pro As String txttahun = "20" & Left(txtnpm, 2) pro = Mid(txtnpm, 3, 1) If pro = "1" Then txtjurusan = "Sistem Informasi" ElseIf pro = "2" Then txtjurusan = "Manajemen Informasi" ElseIf pro = "3" Then txtjurusan = "Teknik Informasi" End If pro = Mid(txtnpm, 4, 2) If pro = "00" Then txtprogram = "Strata Satu" ElseIf pro = "01" Then txtprogram = "Diplomat Tiga" ElseIf pro = "02" Then txtprogram = ...