Belajar program visual basic

Aplikasi Nilai Mahasiswa/I

Listing Program

Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110096")
        npm.Items.Add("12110098")
        npm.Items.Add("12110034")

        kode_dosen.Items.Add("KW9000")
        kode_dosen.Items.Add("KW8000")
        kode_dosen.Items.Add("KW1000")

        Kode_mat.Items.Add("KD001")
        Kode_mat.Items.Add("KD002")
        Kode_mat.Items.Add("KD003")

        Dim i As Integer
        For i = 100 To 30 Step -1
            nilai_krhadiran.Items.Add(i)
            Ntugas.Items.Add(i)
            nuts.Items.Add(i)
            nuas.Items.Add(i)
        Next
        nama.Enabled = False
        jenjang.Enabled = False
        jurusan.Enabled = False
        nama_dosen.Enabled = False
        mat_kul.Enabled = False
        nilai_akhir.Enabled = False
        N_huruf.Enabled = False
        textbox8.Enabled = False

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110034"
                nama.Text = "Lya syahfitri"
                jenjang.Text = "S1"
                jurusan.Text = "TI"
            Case "12110096"
                nama.Text = "Reza ariansyah"
                jenjang.Text = "S1"
                jurusan.Text = "TI"
            Case "12110098"
                nama.Text = "agus setiawan"
                jenjang.Text = "S1"
                jurusan.Text = "TI"
            Case Else
                nama.Text = ""
                jenjang.Text = ""
                jurusan.Text = ""

        End Select
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "KW8000"
                nama_dosen.Text = "mesran, M.kom"
            Case "KW9000"
                nama_dosen.Text = "abdul asani sembiring, M.kom"
            Case "KW1000"
                nama_dosen.Text = "Tonni Limbong, S.kom,M.kom"


        End Select
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_mat.SelectedIndexChanged
        Select Case Kode_mat.Text
            Case "KD001"
                mat_kul.Text = "program visual"
            Case "KD002"
                mat_kul.Text = "sistem operasi"
            Case "KD003"
                mat_kul.Text = " Sistem basis data"
        End Select

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nilai_akhir.Text = 0.1 * nilai_krhadiran.Text + 0.15 * Ntugas.Text + 0.3 * nuts.Text + 0.45 * nuts.Text
        If nilai_akhir.Text >= 90 Then
            N_huruf.Text = "A"
            textbox8.Text = "lulus"
        ElseIf nilai_akhir.Text >= 80 Then
            N_huruf.Text = "B"
            textbox8.Text = "lulus"
        ElseIf nilai_akhir.Text >= 70 Then
            N_huruf.Text = "C"
            textbox8.Text = "lulus"
        ElseIf nilai_akhir.Text >= 60 Then
            N_huruf.Text = "D"
            textbox8.Text = "lulus"
        Else
            N_huruf.Text = "E"
            textbox8.Text = "tidak lulus"


        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        nama_dosen.Text = ""
        mat_kul.Text = ""
        npm.Text = ""
        kode_dosen.Text = ""
        Kode_mat.Text = ""
        nilai_krhadiran.Text = ""
        Ntugas.Text = ""
        nilai_akhir.Text = ""
        N_huruf.Text = ""
        nuts.Text = ""
        nuas.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
End Class