Dwi Nur'aini

    Mungkin saat ini anda masih bingung belajar bahasa pemrograman ???? Upsss jangan khawatir, karena saya yakin anda bisa memecahkan persoalan dalam belajar bahasa pemrograman.
Mesran[dot]Net merupakan website yang membantu anda khususnya yang ingin selalu belajar tentang pembahasan materi
bahasa pemrograman, karena di Mesran[dot]Net kita bisa banyak belajar tetang bahasa pemrogaman, mulai dari Bahasa Pemrograman Pascal, Pemrograman C/C++, Pemrograman VB6, Pemrograman Visual Basic.Net, dan disamping itu juga
anda bisa mengetahui tips/trik bagaimana cara belajar bahasa pemrograman.

    Di Mesran[dot]Net juga kita bisa menambah ilmu atau pun pengetahuan tentang Bahasa Pemrograman yang kurang kita pahami ketika saat belajar-mengajar diruangan kampus. Jadi menurut saya anda jangan takut ataupun tidak bisa
dalam belajar bahasa pemrograman.

    Dan mungkin itulah yang bisa saya sampaikan dalam postingan saya kali ini, semoga dengan adanya Mesran[dot]Net anda dan terutama diri saya bisa menguasai belajar tentang bahasa pemrograman.

    Satukan tekat untuk semangat dalam belajar bahasa pemrograman. " Lebih baik mencoba namun hasilnya gagal, daripada anda berhasil namun tidak pernah mencoba sama sekali".

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