Postingan Nilai Mahasiswa

Ini postingan saya untuk memenuhi tugas saya mata kuliah Pemograman visual

baik inilah program nya

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

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

        End

    End Sub

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

        NPM.Items.Add("12110377")

        NPM.Items.Add("12110404")

        NPM.Items.Add("12110400")

        NPM.Items.Add("12110597")

        NPM.Items.Add("12110321")

        KD.Items.Add("301")

        KD.Items.Add("302")

        KD.Items.Add("303")

        KD.Items.Add("304")

        KD.Items.Add("305")

        KMK.Items.Add("301")

        KMK.Items.Add("302")

        KMK.Items.Add("303")

        KMK.Items.Add("304")

        KMK.Items.Add("305")

        Dim x As Integer

        For x = 100 To 1 Step -3

            NK.Items.Add(x)

        Next (x)

        x = 100

        Do While x >= 1

            NT.Items.Add(x)

            x = x - 3

        Loop

        For x = 100 To 1 Step -3

            UTS.Items.Add(x)

        Next (x)

        For x = 100 To 1 Step -3

            UAS.Items.Add(x)

        Next (x)

    End Sub

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

        Select Case NPM.Text

            Case "12110377"

                NM.Text = "Meitri Widya Pradipta"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110404"

                NM.Text = "Kristina Nancy LumbanGaol"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110400"

                NM.Text = "Steven Leo Talenta Ginting"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110597"

                NM.Text = "Doni Armando"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110321"

                NM.Text = "Cahyo Shobirin"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

        End Select

    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged

        Select Case KD.Text

            Case "301"

                ND.Text = "Toni Limbong,S.Kom,M.Kom"

            Case "302"

                ND.Text = "Sinar Sinurat,ST,M.Kom"

            Case "303"

                ND.Text = "Mesran,S.Kom,M.Kom"

            Case "304"

                ND.Text = "Kennedi Tampubolon,S.Si"

            Case "305"

                ND.Text = "Kristian Siregar,S.Kom"

        End Select

    End Sub

    Private Sub KMK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMK.SelectedIndexChanged

        Select Case KMK.Text

            Case "301"

                MK.Text = "Sistem Basis Data"

            Case "302"

                MK.Text = "Matematika Diskrit"

            Case "303"

                MK.Text = "Pemrogaman Visual Basic"

            Case "304"

                MK.Text = "Kalkulus II"

            Case "305"

                MK.Text = "HTML"

        End Select

    End Sub

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

        NA.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * NT.Text + 0.1 * NK.Text()

        If NA.Text >= 50 Then

            KET.Text = "Lulus"

        Else

            KET.Text = "Gagal"

        End If

        If NA.Text >= 80 Then

            NH.Text = "A"

        ElseIf (NA.Text >= 70) And (NA.Text < 80) Then

            NH.Text = "B"

        ElseIf (NA.Text >= 60) And (NA.Text < 70) Then

            NH.Text = "C"

        ElseIf (NA.Text >= 50) And (NA.Text < 60) Then

            NH.Text = "D"

        Else

            NH.Text = "E"

        End If

    End Sub

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

        NPM.Text = ("")

        NM.Text = ("")

        Jenjang.Text = ("")

        Jurusan.Text = ("")

        KD.Text = ("")

        ND.Text = ("")

        KMK.Text = ("")

        MK.Text = ("")

        NK.Text = ("")

        NT.Text = ("")

        UTS.Text = ("")

        UAS.Text = ("")

        NA.Text = ("")

        NH.Text = ("")

        KET.Text = ("")

    End Sub

End Class

Dan hasilnya. .