Review - Pencabangan Case ( Membuat Form Nilai Mahasiswa )

hmmmm....kali ini saya di beri tugas oleh dosen saya yang bernama Bapak Mesran, M.Kom,tentang hasil review dari pelajaran yang telah kami pelajari. beliau mengajar di semester 3 ini dalam  mata kuliah Pemograman Visual khususnya Microsoft VisualBasic atau yanag sering kita dengar dengan  Program Vb.Net , tentu bukan mudah untuk membuat program namun berkat bantuan dari teman - teman saya alhamdulilah saya bisa mengerjakan dan memposting Review tentang pelajaran yang telah kami pelajari, nah...berikut program yang saya buat semoga dapat di terima....


Cara Membuat Nilai Pada Mic.Visual Basic ( pertemuan 7 )


Public Class Form2
    Sub addbersih()
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        namadosen.Text = ""
        kodematkul.Text = ""
        namamatkul.Text = ""
        nhadir.Text = ""
        ntugas.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        nahir.Text = ""
        nhruf.Text = ""
        keterangan.Text = ""
    End Sub
    Sub addkodematkul()
        kodematkul.Items.Add("A 01")
        kodematkul.Items.Add("A 02")
        kodematkul.Items.Add("A 03")
        kodematkul.Items.Add("A 04")
        kodematkul.Items.Add("A 05")
        kodematkul.Items.Add("A 06")
        kodematkul.Items.Add("A 07")
        kodematkul.Items.Add("A 08")
        kodematkul.Items.Add("A 09")
    End Sub
    Sub addkodedosen()
        kodedosen.Items.Add("D 001")
        kodedosen.Items.Add("D 002")
        kodedosen.Items.Add("D 003")
        kodedosen.Items.Add("D 004")
        kodedosen.Items.Add("D 005")
        kodedosen.Items.Add("D 006")
        kodedosen.Items.Add("D 007")
        kodedosen.Items.Add("D 008")
    End Sub
    Sub addnpm()
        npm.Items.Add("12110208")
        npm.Items.Add("12110209")
        npm.Items.Add("12110210")
        npm.Items.Add("12110211")
        npm.Items.Add("12110212")
    End Sub
    Sub addlooping()
        Dim x As Integer
        For x = 100 To 1 Step -3
            nhadir.Items.Add(x)
            ntugas.Items.Add(x)
            nuts.Items.Add(x)
            nuas.Items.Add(x)
        Next x
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call addnpm()
        Call addkodedosen()
        Call addkodematkul()
        Call addlooping()
    End Sub
    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110208"
                nama.Text = "Sri Ayuni"
                jenjang.Text = "S I"
                jurusan.Text = "Teknik Informatika"
            Case "12110209"
                nama.Text = "Riki Sudirman"
                jenjang.Text = "S I"
                jurusan.Text = "Teknik Informatika"
            Case "12110210"
                nama.Text = "Muhammad Rafly"
                jenjang.Text = "S I"
                jurusan.Text = "Teknik Informatika"
            Case "12110211"
                nama.Text = "Muhamad Shodiq"
                jenjang.Text = "D III "
                jurusan.Text = "Sistem Informasi"
            Case "12110212"
                nama.Text = "Rini Astuti"
                jenjang.Text = "D I"
                jurusan.Text = "Teknik Komputer"
            Case Else
                nama.Text = "-"
        End Select
        keterangan.Text = "-"
    End Sub
    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "D 001"
                namadosen.Text = "Mesran S,kom. M,kom."
            Case "D 002"
                namadosen.Text = "Syahrizal S,Kom. M,Kom."
            Case "D 003"
                namadosen.Text = "Sinar Sinurat ST. M,Kom."
            Case "D 004"
                namadosen.Text = "Tonny Limbong S,Kom. M,Kom."
            Case "D 004"
                namadosen.Text = "ABD Sani Sembiring S,Kom M,Kom."
            Case "D 005"
                namadosen.Text = "ABD Halim S,Kom. M,Kom."
            Case "D 006"
                namadosen.Text = "Melda Panjaitan"
            Case "D 007"
                namadosen.Text = "Kennedy Tampubolon"
            Case "D 008"
                namadosen.Text = "Yasir Hasan S,Kom. M,Kom."
            Case Else
                namadosen.Text = "-"
        End Select
    End Sub
    Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged
        Select Case kodematkul.Text
            Case "A 01"
                namamatkul.Text = "Visual Basic"
            Case "A 02"
                namamatkul.Text = "Turbo Pascal"
            Case "A 03"
                namamatkul.Text = "Sistem Operasi"
            Case "A 04"
                namamatkul.Text = "Teknik Digital"
            Case "A 05"
                namamatkul.Text = "Bahas Ingris"
            Case "A 06"
                namamatkul.Text = "Struktur Data"
            Case "A 07"
                namamatkul.Text = "Kalkulus"
            Case "A 08"
                namamatkul.Text = "Prangkat Lunak Aplikasi"
            Case "A 09"
                namamatkul.Text = "Fisika Lanjutan"
            Case Else
                namamatkul.Text = "-"
        End Select
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nahir.Text = nhadir.Text * 0.1 + ntugas.Text * 0.15 + nuts.Text * 0.3 + nuas.Text * 0.45
        If nahir.Text >= 81 Then
            nhruf.Text = "A"
        ElseIf nahir.Text >= 75 Then
            nhruf.Text = "B+"
        ElseIf nahir.Text >= 70 Then
            nhruf.Text = "B"
        ElseIf nahir.Text >= 65 Then
            nhruf.Text = "C+"
        ElseIf nahir.Text >= 60 Then
            nhruf.Text = "C"
        ElseIf nahir.Text >= 50 Then
            nhruf.Text = "D"
        Else
            nhruf.Text = "E"
        End If


        If nahir.Text >= 50 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAL"

        End If

    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Call addbersih()
    End Sub
End Class

INI HASIL AKHIRNYA....

nah....sekarang ada lagi ini hasil review nya, coba di lihat lagi deh.....

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebarang.Items.Add("TS001")
        kodebarang.Items.Add("TS002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")


    End Sub

    Private Sub barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim x, y As String
        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kodebarang.Text, 3)
        If x = "TS" Then
            merk.Text = "Thosiba"
            If y = "001" Then
                namabarang.Text = "Flashdisk 4GB"
            Else
                namabarang.Text = "Flashdisk 2GB"
            End If
        Else
            merk.Text = "V-Gen"
            If y = "001" Then
                namabarang.Text = "Flashdisk 4GB"
            Else
                namabarang.Text = "flashdisk 2GB"


            End If

        End If

    End Sub
End Class

ini hasil akhirnya.....

hehehehe....itu lah hasil dari pembuatan program VB.Net review  yang saya buat, mungkin anda tersenyum melihatnya, wajar saja kami dalam proses belajar, tapi setidaknya kita dapat memahami bagaimana pembuatan program itu sendiri dan anda dapat mengembangkannya masing - masing sesuai kemampuan anda. selamat belajar dan Good Luck ya flends....