Membuat Data Mahasiswa Dengan VB 2008

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110437")
        npm.Items.Add("12110456")
        npm.Items.Add("12110457")
        npm.Items.Add("12110490")
        npm.Items.Add("12110477")
        Me.Text = " FORM NILAI "
        Me.BackColor = Color.SkyBlue

        kdosen.Items.Add("01")
        kdosen.Items.Add("02")
        kdosen.Items.Add("03")
        kdosen.Items.Add("04")
        kdosen.Items.Add("05")

        kode_mt.Items.Add("001")
        kode_mt.Items.Add("002")
        kode_mt.Items.Add("003")
        kode_mt.Items.Add("004")
        kode_mt.Items.Add("005")

        nk.Items.Add("50")
        nk.Items.Add("60")
        nk.Items.Add("70")
        nk.Items.Add("80")
        nk.Items.Add("90")
        nk.Items.Add("100")


        nt.Items.Add("50")
        nt.Items.Add("60")
        nt.Items.Add("70")
        nt.Items.Add("80")
        nt.Items.Add("90")
        nt.Items.Add("100")


        nuts.Items.Add("50")
        nuts.Items.Add("60")
        nuts.Items.Add("70")
        nuts.Items.Add("80")
        nuts.Items.Add("90")
        nuts.Items.Add("100")

        nu.Items.Add("50")
        nu.Items.Add("60")
        nu.Items.Add("70")
        nu.Items.Add("80")
        nu.Items.Add("90")
        nu.Items.Add("100")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110437"
                nama.Text = "Joko Syahputra"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
            Case "12110438"
                nama.Text = "Denny Ramadhan"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
            Case "12110457"
                nama.Text = "Danu Setiawan"
                jenjang.Text = "D1"
                jurusan.Text = "teknik komputer"
            Case "12110490"
                nama.Text = "Anggi Yoga Pratama"
                jenjang.Text = "S1"
                jurusan.Text = "teknik Informatika"
            Case Else
                nama.Text = "Rizky Robby"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
        End Select
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
        If kdosen.Text = "01" Then
            ndosen.Text = "Mesran"
        ElseIf kdosen.Text = "02" Then
            ndosen.Text = "Sinar Sinurat"
        ElseIf kdosen.Text = "03" Then
            ndosen.Text = "Tonni Limbong"
        ElseIf kdosen.Text = "04" Then
            ndosen.Text = "Herry Sunandar"
        ElseIf kdosen.Text = "05" Then
            ndosen.Text = "Yasir Hasan"

        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nuts.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kode_mt.Text = ""
        mkuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        nu.Text = ""
        nu.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mt.SelectedIndexChanged
        Select Case kode_mt.Text
            Case "001"
                mkuliah.Text = "visuL Basic"
            Case "002"
                mkuliah.Text = "Matematika Diskrit"
            Case "003"
                mkuliah.Text = "Sistem Basis Data"
            Case "003"
                mkuliah.Text = "Matriks"
            Case Else
                mkuliah.Text = "Sistem Operasi"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nu.Text
        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
            keterangan.Text = "Sangat Memuaskan"

        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
            keterangan.Text = "Memuaskan"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
            keterangan.Text = "Cukup Memuaskan"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
            keterangan.Text = " Buruk"
        Else
            nhuruf.Text = "E"
            keterangan.Text = "Sangat Buruk"
        End If
    End Sub

End Class