Source Code Aplikasi Data Mahasiswa Dengan Visual Basic

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini

Private Sub CmdBatal_Click()
    TxtNama.SetFocus
    TxtNama.Text = ""
    TxtNpm.Text = ""
    TxtJurusan.Text = ""
    TxtPrody.Text = ""
    TxtTahunMasuk.Text = ""
    TxtNomorUrut.Text = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    TxtNama.SetFocus
    TxtNama.Text = ""
    TxtNpm.Text = ""
    TxtJurusan.Text = ""
    TxtPrody.Text = ""
    TxtTahunMasuk.Text = ""
    TxtNomorUrut.Text = ""
End Sub

Private Sub CmdProses_Click()
    Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant
   
    Kode = TxtNpm
   
    TahunMasuk = "20" & Left(Kode, 2)
    TxtTahunMasuk = TahunMasuk
   
    KodeJurusan = Mid(Kode, 3, 1)
    Select Case KodeJurusan
        Case "1"
            Jurusan = "Sistem Informasi"
        Case "2"
            Jurusan = "Teknik Informatika"
        Case "3"
            Jurusan = "Manajemen Informatika"
        Case "4"
            Jurusan = "Komputer Akuntansi"
    End Select
    TxtJurusan = Jurusan
   
    KodePrody = Mid(Kode, 4, 2)
    Select Case KodePrody
        Case "01"
            Prody = "Strata Satu"
        Case "02"
            Prody = "Diplomat Empat"
        Case "03"
            Prody = "Diplomat Tiga"
        Case "04"
            Prody = "Diplomat Dua"
    End Select
    TxtPrody = Prody
   
    NomorUrut = Right(Kode, 3)
    TxtNomorUrut = NomorUrut
End Sub

Share this post