Contoh Program Sederhana VB.NET 2008 Form Nilai


Assalamualaikum,,,
Blognya Igaph kembali mempostingkan Contoh Program VB NET 2008 yang sebelumnya mungkin pernah mempostingkan hal yang sama, tapi dengan pokok pembahasan yang berbeda.
Tapi kali ini Blognya Igaph selain membuat postingan ini sekaligus menyelesaikan Tugas Belajar Bahasa Pemrograman.

Nah, kali ini yang dibahas adalah Contoh Program Sederhana VB.NET 2008 Form Nilai.
Langsung aja ke TKP.
Pertama, Buka VB.Net 2008 sobat, dan desain form berikut keterangan name nya juga jangan lupa .


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


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("12110102")
        NPM.Items.Add("12120244")
        NPM.Items.Add("12130346")
        NPM.Items.Add("12110496")
        NPM.Items.Add("12130557")

        kddosen.Items.Add("lab01")
        kddosen.Items.Add("lab02")
        kddosen.Items.Add("lab03")
        kddosen.Items.Add("lab04")
        kddosen.Items.Add("lab05")

        kdmakul.Items.Add("K01")
        kdmakul.Items.Add("K02")
        kdmakul.Items.Add("K03")
        kdmakul.Items.Add("K04")
        kdmakul.Items.Add("K05")

        Dim x As Integer
        For x = 100 To 1 Step -3
            nkehadiran.Items.Add(x)
            ntugas.Items.Add(x)
            nUTS.Items.Add(x)
            nUAS.Items.Add(x)
        Next

        nakhir.Enabled = False
        nhuruf.Enabled = False
        keterangan.Enabled = False

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Dim jen = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
        If NPM.Text = "12110102" Then
            nama.Text = "Jailamm Igaph S"
            If jen = "11" Then
                jenjang.Text = "S1"
            ElseIf jen = "12" Then
                jenjang.Text = "D3"
            ElseIf jen = "13" Then
                jenjang.Text = "D1"
            End If
            If jur = "01" Then
                jurusan.Text = "Tehnik Informatika"
            ElseIf jur = "02" Then
                jurusan.Text = "Sistem Informatika"
            ElseIf jur = "03" Then
                jurusan.Text = "Manajemen Informatika"
            ElseIf jur = "04" Then
                jurusan.Text = "Komputerisasi Akuntansi"
            ElseIf jur = "05" Then
                jurusan.Text = "Desain Grafis"
            End If
        ElseIf NPM.Text = "12120244" Then
            nama.Text = "Chanif Arvani"
            If jen = "11" Then
                jenjang.Text = "S1"
            ElseIf jen = "12" Then
                jenjang.Text = "D3"
            ElseIf jen = "13" Then
                jenjang.Text = "D1"
            End If
            If jur = "01" Then
                jurusan.Text = "Tehnik Informatika"
            ElseIf jur = "02" Then
                jurusan.Text = "Sistem Informatika"
            ElseIf jur = "03" Then
                jurusan.Text = "Manajemen Informatika"
            ElseIf jur = "04" Then
                jurusan.Text = "Komputerisasi Akuntansi"
            ElseIf jur = "05" Then
                jurusan.Text = "Desain Grafis"
            End If
        ElseIf NPM.Text = "12130346" Then
            nama.Text = "Agus Setiawan"
            If jen = "11" Then
                jenjang.Text = "S1"
            ElseIf jen = "12" Then
                jenjang.Text = "D3"
            ElseIf jen = "13" Then
                jenjang.Text = "D1"
            End If
            If jur = "01" Then
                jurusan.Text = "Tehnik Informatika"
            ElseIf jur = "02" Then
                jurusan.Text = "Sistem Informatika"
            ElseIf jur = "03" Then
                jurusan.Text = "Manajemen Informatika"
            ElseIf jur = "04" Then
                jurusan.Text = "Komputerisasi Akuntansi"
            ElseIf jur = "05" Then
                jurusan.Text = "Desain Grafis"
            End If
        ElseIf NPM.Text = "12110496" Then
            nama.Text = "Reza Aryansyah"
            If jen = "11" Then
                jenjang.Text = "S1"
            ElseIf jen = "12" Then
                jenjang.Text = "D3"
            ElseIf jen = "13" Then
                jenjang.Text = "D1"
            End If
            If jur = "01" Then
                jurusan.Text = "Tehnik Informatika"
            ElseIf jur = "02" Then
                jurusan.Text = "Sistem Informatika"
            ElseIf jur = "03" Then
                jurusan.Text = "Manajemen Informatika"
            ElseIf jur = "04" Then
                jurusan.Text = "Komputerisasi Akuntansi"
            ElseIf jur = "05" Then
                jurusan.Text = "Desain Grafis"
            End If
        ElseIf NPM.Text = "12130557" Then
            nama.Text = "Lia Syafitri"
            If jen = "11" Then
                jenjang.Text = "S1"
            ElseIf jen = "12" Then
                jenjang.Text = "D3"
            ElseIf jen = "13" Then
                jenjang.Text = "D1"
            End If
            If jur = "01" Then
                jurusan.Text = "Tehnik Informatika"
            ElseIf jur = "02" Then
                jurusan.Text = "Sistem Informatika"
            ElseIf jur = "03" Then
                jurusan.Text = "Manajemen Informatika"
            ElseIf jur = "04" Then
                jurusan.Text = "Komputerisasi Akuntansi"
            ElseIf jur = "05" Then
                jurusan.Text = "Desain Grafis"
            End If
        End If

    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
        If kddosen.Text = "lab01" Then
            namadosen.Text = "Mesran, M.Kom"
        ElseIf kddosen.Text = "lab02" Then
            namadosen.Text = "Nelly Astuti Hsb, M.Kom"
        ElseIf kddosen.Text = "lab03" Then
            namadosen.Text = "Surya Darma Nst, M.Kom"
        ElseIf kddosen.Text = "lab04" Then
            namadosen.Text = "Guidio, M.Kom"
        ElseIf kddosen.Text = "lab05" Then
            namadosen.Text = "Efori Bu'ulolo, M.Kom"
        End If

    End Sub

    Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmakul.SelectedIndexChanged

        If kdmakul.Text = "K01" Then
            namamakul.Text = "Pemrograman Visual I"
        ElseIf kdmakul.Text = "K02" Then
            namamakul.Text = "Sistem Basis Data"
        ElseIf kdmakul.Text = "K03" Then
            namamakul.Text = "Arsitektur Data"
        ElseIf kdmakul.Text = "K04" Then
            namamakul.Text = "Sistem Operasi"
        ElseIf kdmakul.Text = "K05" Then
            namamakul.Text = "Algoritma"
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nUTS.Text + 0.45 * nUAS.Text
        If nakhir.Text >= 90 Then
            nhuruf.Text = "A"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text >= 80 Then
            nhuruf.Text = "B"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "C"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "D"
            keterangan.Text = "LULUS"
        ElseIf nakhir.Text <= 50 Then
            nhuruf.Text = "E"
            keterangan.Text = "GAGAL"
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NPM.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kddosen.Text = ""
        namadosen.Text = ""
        kdmakul.Text = ""
        namamakul.Text = ""
        nkehadiran.Text = ""
        ntugas.Text = ""
        nUTS.Text = ""
        nUAS.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""
        NPM.Focus()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

Dan Jika Contoh Program Sederhana VB NET 2008 Form Nilai ini di jalan akan menjadi seperti ini,


Nah sekianlah postingan Contoh Program Sederhana VB NET 2008 Form Nilai ini, semoga dapat bermanfaat untuk sahabat semua. Terima kasih.

Share this article :

Posting Komentar

 
Support : Creating Website | Igaph Sinaga | Mas Template
Copyright © 2013. Blognya Igaph - All Rights Reserved
Template Created by Creating Website Published by Igaph Sinaga
Proudly powered by Blogger