Bahasa Pemrograman VB (Visual Basic)

Belajar Bahasa Pemrograman

Public Class Form4

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

        Nama.Text = ""

        NPM.Text = ""

        MataKuliah.Text = ""

        NamaDosen.Text = ""

        NilaiKehadiran.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        NilaiUAS.Text = ""

        NilaiAkhir.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KodeDosen.Text = ""

        KodeMataKuliah.Text = ""

        NIlaiHuruf.Text = ""

        Keterangan.Text = ""

    End Sub

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

        Select Case NPM.Text

            Case "12110695"

                Nama.Text = "Siti annisa"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110741"

                Nama.Text = "Budi"

                Jenjang.Text = "D3"

                Jurusan.Text = "MI"

            Case "12110574"

                Nama.Text = "Ayu"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110927"

                Nama.Text = "Putri"

                Jenjang.Text = "S1"

                Jurusan.Text = "SI"

            Case "1202208"

                Nama.Text = "Lisa Ati"

                Jenjang.Text = "D3"

                Jurusan.Text = "KA"

        End Select

    End Sub

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

        Dim i As Integer

        For i = 100 To 1 Step -1

            NilaiKehadiran.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiTugas.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiUTS.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiUAS.Items.Add(i)

        Next i

        NPM.Items.Add("12110574")

        NPM.Items.Add("12110741")

        NPM.Items.Add("12110695")

        NPM.Items.Add("12110927")

        NPM.Items.Add("1202208")

        KodeMataKuliah.Items.Add("123")

        KodeMataKuliah.Items.Add("456")

        KodeMataKuliah.Items.Add("789")

        KodeMataKuliah.Items.Add("012")

        KodeDosen.Items.Add("012")

        KodeDosen.Items.Add("345")

        KodeDosen.Items.Add("678")

        KodeDosen.Items.Add("901")

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

        Select Case NilaiAkhir.Text

            Case Is >= 80

                NIlaiHuruf.Text = "A"

                Keterangan.Text = "LULUS"

            Case 70 To 79

                NIlaiHuruf.Text = "B"

                Keterangan.Text = "LULUS"

            Case 60 To 69

                NIlaiHuruf.Text = "C"

                Keterangan.Text = "GAGAL"

            Case 50 To 59

                NIlaiHuruf.Text = "D"

                Keterangan.Text = "GAGAL"

            Case Is <= 49

                NIlaiHuruf.Text = "E"

                Keterangan.Text = "GAGAL"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged

        Select Case KodeMataKuliah.Text

            Case "123"

                MataKuliah.Text = "VB"

            Case "456"

                MataKuliah.Text = "Matriks"

            Case "789"

                MataKuliah.Text = "arsitektur dan organisasi kom"

            Case "012"

                MataKuliah.Text = "struktur data"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged

        Select Case KodeDosen.Text

            Case "012"

                NamaDosen.Text = "Mesran"

            Case "345"

                NamaDosen.Text = "Kennedi Tampubolon"

            Case "678"

                NamaDosen.Text = "Pilipus tarigan."

            Case "901"

                NamaDosen.Text = "alex riki s."

        End Select

    End Sub

    Private Sub NilaiKehadiran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiKehadiran.SelectedIndexChanged

       

    End Sub

    Private Sub NilaiAkhir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiAkhir.TextChanged

       

    End Sub

End Class