Program Penginputan Nilai Mahasiswa menggunakan VB.Net

Belajar Bahasa Pemograman

Berikut ini adalah Perintah untuk vb.design nya

Public Class Form1

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

        NPM.Items.Add("12110400")

        NPM.Items.Add("12110321")

        NPM.Items.Add("12110336")

        NPM.Items.Add("12110597")

        NPM.Items.Add("12110320")

        Kode_Dosen.Items.Add("301")

        Kode_Dosen.Items.Add("302")

        Kode_Dosen.Items.Add("303")

        Kode_Dosen.Items.Add("304")

        Kode_Dosen.Items.Add("305")

        Kode_MataKuliah.Items.Add("301")

        Kode_MataKuliah.Items.Add("302")

        Kode_MataKuliah.Items.Add("303")

        Kode_MataKuliah.Items.Add("304")

        Kode_MataKuliah.Items.Add("305")

        Dim x As Integer

        For x = 100 To 1 Step -3

            Kehadiran.Items.Add(x)

        Next (x)

        x = 100

        Do While x >= 1

            Tugas.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 "12110400"

                Nama.Text = "Steven Leo T.Ginting"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110321"

                Nama.Text = "Cahyo Shobirin"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110336"

                Nama.Text = "Dasner Ramon Butar-butar"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110597"

                Nama.Text = "Doni Armando"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110320"

                Nama.Text = "Yuyun Purnomo"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

        End Select

    End Sub

    Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Dosen.SelectedIndexChanged

        Select Case Kode_Dosen.Text

            Case "301"

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

            Case "302"

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

            Case "303"

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

            Case "304"

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

            Case "305"

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

        End Select

    End Sub

    Private Sub Kode_MataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_MataKuliah.SelectedIndexChanged

        Select Case Kode_MataKuliah.Text

            Case "301"

                Mata_Kuliah.Text = "Sistem Basis Data"

            Case "302"

                Mata_Kuliah.Text = "Matematika Diskrit"

            Case "303"

                Mata_Kuliah.Text = "Pemrogaman Visual Basic"

            Case "304"

                Mata_Kuliah.Text = "Kalkulus II"

            Case "305"

                Mata_Kuliah.Text = "HTML"

        End Select

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        NPM.Text = ("")

        Nama.Text = ("")

        Jenjang.Text = ("")

        Jurusan.Text = ("")

        Kode_Dosen.Text = ("")

        Nama_Dosen.Text = ("")

        Kode_MataKuliah.Text = ("")

        Mata_Kuliah.Text = ("")

        Kehadiran.Text = ("")

        Tugas.Text = ("")

        UTS.Text = ("")

        UAS.Text = ("")

        Akhir.Text = ("")

        Huruf.Text = ("")

        Keterangan.Text = ("")

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        Akhir.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * Tugas.Text + 0.1 * Kehadiran.Text()

        If Akhir.Text >= 50 Then

            Keterangan.Text = "Lulus"

        Else

            Keterangan.Text = "Gagal"

        End If

        If Akhir.Text >= 80 Then

            Huruf.Text = "A"

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

            Huruf.Text = "B"

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

            Huruf.Text = "C"

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

            Huruf.Text = "D"

        Else

            Huruf.Text = "E"

        End If

    End Sub

End Class

mesran.blogspot.com