Dwi Nur'aini

Selesaikanlah Kasus Berikut :
JUDUL SOAL  (SOAL)

Berikut Jawaban Program :

Desain program:


Listing program:
Public Class Form1
    Sub BuatTabel()
        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        lv.Columns.Add("NPM", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Jenjang", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Kd_Dosen", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Nm_Dosen", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Kd_Matkul", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Matkul", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Kehadiran", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Tugas", 180, HorizontalAlignment.Left)
        lv.Columns.Add("UTS", 180, HorizontalAlignment.Left)
        lv.Columns.Add("UAS", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Nil_Akhir", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Huruf", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Keterangan", 180, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim list As New ListViewItem
        list.Text = Nama.Text
        list.SubItems.Add(NPM.Text)
        list.SubItems.Add(Jenjang.Text)
        list.SubItems.Add(Jurusan.Text)
        list.SubItems.Add(Nm_Dosen.Text)
        list.SubItems.Add(Kd_Makul.Text)
        list.SubItems.Add(matkul.Text)
        list.SubItems.Add(Kehadiran.Text)
        list.SubItems.Add(Tugas.Text)
        list.SubItems.Add(Uts.Text)
        list.SubItems.Add(UAS.Text)
        list.SubItems.Add(nakhir.Text)
        list.SubItems.Add(hrf.Text)
        list.SubItems.Add(Keterangan.Text)
        lv.Items.Add(list)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        NPM.Items.Add("12110381")
        NPM.Items.Add("12110382")
        NPM.Items.Add("12110383")
        NPM.Items.Add("12110384")
        NPM.Items.Add("12110385")
        Kd_Dosen.Items.Add("301")
        Kd_Dosen.Items.Add("302")
        Kd_Dosen.Items.Add("303")
        Kd_Dosen.Items.Add("304")
        Kd_Dosen.Items.Add("305")
        Kd_Makul.Items.Add("401")
        Kd_Makul.Items.Add("402")
        Kd_Makul.Items.Add("403")
        Kd_Makul.Items.Add("404")
        Kd_Makul.Items.Add("405")
        Dim s As Integer
        For s = 1 To 100
            Kehadiran.Items.Add(s)
            Tugas.Items.Add(s)
            Uts.Items.Add(s)
            UAS.Items.Add(s)
        Next s
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case (NPM.Text)
            Case "12110381"
                Nama.Text = "Dwi"
                Jenjang.Text = "S1"
                Jurusan.Text = "T1"
            Case "12110382"
                Nama.Text = "Rina"
                Jenjang.Text = "D3"
                Jurusan.Text = "MI"
            Case "12110383"
                Nama.Text = "Wani"
                Jenjang.Text = "S1"
                Jurusan.Text = "SI"
            Case "12110384"
                Nama.Text = "Fitri"
                Jenjang.Text = "D3"
                Jurusan.Text = "MI"
            Case "12110385"
                Nama.Text = "Ria"
                Jenjang.Text = "S1"
                Jurusan.Text = "TI"
        End Select
    End Sub
    Private Sub Kd_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Dosen.SelectedIndexChanged
        Select Case (Kd_Dosen.Text)
            Case "301"
                Nm_Dosen.Text = "Yasir Hasan, S.Kom"
            Case "302"
                Nm_Dosen.Text = "Tonni Limbong, S.Kom,M.Kom"
            Case "303"
                Nm_Dosen.Text = "Surya Darma Nasution, S.Kom"
            Case "304"
                Nm_Dosen.Text = "Kennedi Tampubolon, S.Si"
            Case "305"
                Nm_Dosen.Text = "Pristiwanto, S.Kom"
        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Kd_Dosen.Text = ""
        Nm_Dosen.Text = ""
        Kd_Makul.Text = ""
        matkul.Text = ""
        Kehadiran.Text = ""
        Tugas.Text = ""
        Uts.Text = ""
        UAS.Text = ""
        NA.Text = ""
        Huruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
        NA.Text = 0.1 * Kehadiran.Text + 0.15 * Tugas.Text + 0.4 * Uts.Text + 0.6 * UAS.Text
        If NA.Text >= 80 Then
            Huruf.Text = "A"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 70 Then
            Huruf.Text = "B"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 60 Then
            Huruf.Text = "C+"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 50 Then
            Huruf.Text = "C"
            Keterangan.Text = "Perbaikan"
        ElseIf NA.Text >= 40 Then
            Huruf.Text = "D"
            Keterangan.Text = "Mengulang"
        Else
            Huruf.Text = "E"
            Keterangan.Text = "Tidak Lengkap"
        End If
    End Sub

    Private Sub Kd_Makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Makul.SelectedIndexChanged
        Select Case (Kd_Makul.Text)
            Case "401"
                matkul.Text = "Struktur Data"
            Case "402"
                matkul.Text = "Sistem Operasi"
            Case "403"
                matkul.Text = "Sistem Basis Data"
            Case "404"
                matkul.Text = "Pemrograman Visual"
            Case "405"
                matkul.Text = "Komunikasi Data"
        End Select
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpanlv.Click
        IsiTabel()
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Kd_Dosen.Text = ""
        Nm_Dosen.Text = ""
        Kd_Makul.Text = ""
        matkul.Text = ""
        Kehadiran.Text = ""
        Tugas.Text = ""
        Uts.Text = ""
        UAS.Text = ""
        nakhir.Text = ""
        hrf.Text = ""
        Kehadiran.Text = ""
    End Sub

    Private Sub hapuslv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuslv.Click
        lv.Items.Clear()
    End Sub
End Class




Hasil program:


Demikilahlah postingan saya  Nama : (Dwi Nuraini)  NPM : (12110364)
Selamat Pemrograman VB NET