program-sederhana-vbnet-2008

setelah di desain, kita gak bisa langsung kelisting programnya, kita harus tau dulu gmana cara kerja Contoh Program Sederhana VB NET 2008 Form Nilai ini.
Ketentuannya adalah :
1. Untuk nama, jenjang, dan jurusan ditentukan oleh NPM, hanya saja;
   -  pada jenjang diambil dari nilai tengah yang dimulai dari 3 karakter pertama sebanyak 2 karater
   -  jurusan diambil dari nilai tengah yang dimulai dari 5 karakter pertama sebanyak 2 karater.
2. Nama dosen ditentukan oleh Kode dosen.
3. Mata kuliah di tentukan oleh kode mata kuliah
4. Nilai kehadiran, nilai tugas, nilai UTS, nilai UAS menggunakan perulangan dari 100 sampai 30 dan di kelang 3 digit.
5. nilai akhir = 10% * nilai kehadiran + 15 % * nilai tugas + 30% * nilai UTS + 45% * nilai UAS
6. jika nilai akhir lebih dari 90 maka nilai huruf = "A", keterangan = "LULUS"
    jika nilai akhir lebih dari 80 maka nilai huruf = "B", keterangan = "LULUS"
    jika nilai akhir lebih dari 70 maka nilai huruf = "C", keterangan = "LULUS"
    jika nilai akhir lebih dari 60 maka nilai huruf = "D", keterangan = "LULUS"
    jika nilai akhir dibawah 50 maka nilai huruf = "E", keterangan = "GAGAL"

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("1211012")

        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 "12110124"

                nama.Text = "muhammad hidayat"

                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