mencari nilai mahasiswa menggunakan visual basic

mencari nilai mahasiswa menggunakan visual basic

Langkah-langkah dalam mengerjakan nya:
1. buatlah  formya seperti dibawah ini :

2. setelah itu buatlah desain awal formnya seperti dibawah ini:

3. setelah desain sudah dibuat , selanjutnya gantilah text dan name yang ada pada gambar diatas menjadi

 untuk namenya sesuaikan dengan text yg ada pada label
 text = name
npm = npm
nama = nama
jenjang = jenjang
jurusan = juru
kode dosen = kodos
nama dosen = nados
kode mata kuliah = komaku
mata kuliah = maku
kehadiran = keha
nilai tugas = nitu
nilai uts = niut
nilai uas = niua
nilai akhir = niak
nilai huruf = nihu
keterangan = ket
untuk buttonnya
name = text
btnhapus = hapus
btnproses = proses
btnkeluar = keluar

4. setelah langkah ke 3 selesai maka selanjutnya kita mengisi syntaksnya seperti dibawah ini :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110631")
        npm.Items.Add("12110636")
        npm.Items.Add("12110641")
        npm.Items.Add("12110643")
        npm.Items.Add("12110666")
        npm.Items.Add("12110917")
        kodos.Items.Add("MS004303")
        kodos.Items.Add("YS004306")
        kodos.Items.Add("TL004307")
        kodos.Items.Add("MN004305")
        kodos.Items.Add("MP004304")
        kodos.Items.Add("PS004309")
        komaku.Items.Add("SD03")
        komaku.Items.Add("SO03")
        komaku.Items.Add("SBD03")
        komaku.Items.Add("PV03")
        komaku.Items.Add("MTL02")
        komaku.Items.Add("KD02")
        Dim x As Integer
        For x = 100 To 1 Step -1
            keha.Items.Add(x)
            nitu.Items.Add(x)
            niut.Items.Add(x)
            niua.Items.Add(x)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110631"
                nama.Text = "lukman wijaya"
                juru.Text = "Teknik Informatika"
                jenjang.Text = "S1"
            Case "12110636"
                nama.Text = "Dini Audina"
                juru.Text = "Sistem Informasi"
                jenjang.Text = "S1"
            Case "12110641"
                nama.Text = "Hidayat"
                juru.Text = "Manajemen"
                jenjang.Text = "PASKA SARJANA"
            Case "12110643"
                nama.Text = "Suhendrik"
                juru.Text = "Akutansi"
                jenjang.Text = "DI"
            Case "12110666"
                nama.Text = "Bagus Darwanto"
                juru.Text = "Teknk Industri"
                jenjang.Text = "DIII"
            Case "12110917"
                nama.Text = "Suhairi Triyadhi"
                juru.Text = "Teknik Informatika"
                jenjang.Text = "S1"

        End Select
    End Sub

    Private Sub kodos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodos.SelectedIndexChanged
        Select Case kodos.Text
            Case "MS004303"
                nados.Text = "marzuki sinambela s.kom, m.kom  "
            Case "YS004306"
                nados.Text = "yasir hasan s.kom, m.kom "

            Case "TL004307"
                nados.Text = "tonni limbong s.kom, m.kom "
            Case "MP004304"
                nados.Text = "megaria purba s.si, m.kom "
            Case "MN004305"
                nados.Text = "mesran s.kom, m.kom "
            Case "PS004309"
                nados.Text = "priswanto s.kom, m.kom "

        End Select
    End Sub

    Private Sub komaku_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles komaku.SelectedIndexChanged
       
        Select Case komaku.Text
            Case "SD03"
                maku.Text = "Struktur Data"
            Case "SO03"
                maku.Text = "Sistem Operasi"
            Case "SBD03"
                maku.Text = "Sistem Basis Data"
            Case "PV03"
                maku.Text = "Pemograman Visual"
            Case "MTL02"
                maku.Text = "Matriks dan Transformasi Linier"
            Case "KD02"
                maku.Text = "Komunikasi Data"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        niak.Text = 0.1 * keha.Text + 0.15 * nitu.Text + 0.35 * niut.Text + 0.4 * niua.Text
        If niak.Text >= 50 Then
            ket.Text = "Lulus"
        Else
            ket.Text = "Gagal"
        End If
        If niak.Text >= 80 Then
            nihu.Text = "A"
        ElseIf niak.Text >= 70 Then
            nihu.Text = "B"
        ElseIf niak.Text >= 60 Then
            nihu.Text = "C"
        ElseIf niak.Text >= 50 Then
            nihu.Text = "D"
        Else
            nihu.Text = "E"

        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        kodos.Text = ""
        nados.Text = ""
        komaku.Text = ""
        maku.Text = ""
        keha.Text = ""
        nitu.Text = ""
        niut.Text = ""
        niua.Text = ""
        niak.Text = ""
        nihu.Text = ""
        juru.Text = ""
        ket.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class