belajar visual basic part II

 Public Class Form1

    Private Sub Npm_SelecteedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "11120544"

                Nama.Text = "taufik"

            Case "16120545"

                Nama.Text = "arifin fitri yasa "

            Case "10120546"

                Nama.Text = "arofan fitri yana"

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Left(Npm.Text, 2)

        If i = "11" Then

            Jurusan.Text = "Sistem Informasi"

            Jenjang.Text = "SI"

        ElseIf i = "16" Then

            Jurusan.Text = "Teknik Informatika"

            Jenjang.Text = "D3"

        ElseIf i = "10" Then

            Jurusan.Text = "Komputer Akuntansi"

            Jenjang.Text = "D1"

        End If

    End Sub

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

        Npm.Items.Add("12110128")

        Npm.Items.Add("12110346")

        Npm.Items.Add("12110347")

        KoDO.Items.Add("11122")

        KoDO.Items.Add("11123")

        KoDO.Items.Add("11124")

        Dim i As Integer

        For i = 40 To 100

            Nk.Items.Add(i)

            NUS.Items.Add(i)

            Nt.Items.Add(i)

            Nu.Items.Add(i)

        Next i

    End Sub

    Private Sub KoDo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoDO.SelectedIndexChanged

        Select Case KoDO.Text

            Case ("11122")

                NaDo.Text = ("Mesran,SKom")

            Case ("11123")

                NaDo.Text = ("Sinar Sinurat")

            Case ("11124")

                NaDo.Text = ("Kristian Siregar")

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Right(KoDO.Text, 3)

        If i = "122" Then

            Koma.Text = "001"

            Matakuliah.Text = "Pemograman"

        ElseIf i = "123" Then

            Koma.Text = "002"

            Matakuliah.Text = "stuktur data"

        ElseIf i = "123" Then

            Koma.Text = "003"

            Matakuliah.Text = "HTML"

        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Npm.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KoDO.Text = ""

        NaDo.Text = ""

        Koma.Text = ""

        Matakuliah.Text = ""

        Nk.Text = ""

        Nt.Text = ""

        NUS.Text = ""

        Nu.Text = ""

        Ket.Text = ""

        NH.Text = ""

        NA.Text = ""

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        NA.Text = 0.01 * Nk.Text + 0.15 * Nt.Text + 0.3 * Nu.Text + 0.45 * NUS.Text

        If NA.Text <= 50 Then

            Ket.Text = "GagaL"

            NH.Text = "E"

        ElseIf NA.Text <= 60 Then

            Ket.Text = "Gagal"

            NH.Text = "D"

        ElseIf NA.Text <= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B"

        ElseIf NA.Text >= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B+"

        ElseIf NA.Text >= 80 Then

            Ket.Text = "Lulus"

            NH.Text = "A"

        End If

    End Sub

End Class