Membuat List View DI VB NET

Hai teman-teman kali ini saya akan memosting sebuah program list view dngan menggunakan VB NET
nah langsung saja ya teman-teman

langkah pertama,kita harus membuat form nya dlu seperti gambar  di bawah ini.,.!!!!

  

nah,setelah selesai membuat formnya,lalu tugas kita selanjutnya adalah membuat perintah atau mengimput codingya,supaya programnya bisa kita jalankan,,

cara pengetikan codingya seperti di bawah ini.,.

Public Class Form1

    Sub buattable()

        LV.Columns.Add("Npm", 60, HorizontalAlignment.Left)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jenjang/Jurusan", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Dosen", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Kode Matakuliah", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Matakuliah", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Kehadiran", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Tugas", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai UTS", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai UAS", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Huruf", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Keterangan", 70, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = Npm.Text

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(JJ.Text)

        lst.SubItems.Add(KoDo.Text)

        lst.SubItems.Add(NaDO.Text)

        lst.SubItems.Add(KoMa.Text)

        lst.SubItems.Add(Matakuliah.Text)

        lst.SubItems.Add(NilaiK.Text)

        lst.SubItems.Add(NilaiT.Text)

        lst.SubItems.Add(NilaiU.Text)

        lst.SubItems.Add(NilaiUA.Text)

        lst.SubItems.Add(NH.Text)

        lst.SubItems.Add(Ket.Text)

        LV.Items.Add(lst)

    End Sub

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

        Npm.Items.Add("11120544")

        Npm.Items.Add("12110740")

        Npm.Items.Add("10120546")

        KoDO.Items.Add("k1234567")

        KoDO.Items.Add("R4567890")

        KoDO.Items.Add("S0987654")

        Dim i As Integer

        For i = 40 To 100

            NilaiK.Items.Add(i)

            NilaiT.Items.Add(i)

            NilaiU.Items.Add(i)

            NilaiUA.Items.Add(i)

        Next i

        buattable()

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "11120544"

                Nama.Text = "Ahmad Hafizi"

            Case "12110740"

                Nama.Text = "Edwin Raymon Damanik"

            Case "10120546"

                Nama.Text = "Parningotan Rambe"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Left(Npm.Text, 2)

        If i = "11" Then

            JJ.Text = "SI/Sistem Informasi"

        ElseIf i = "12" Then

            JJ.Text = "D3/sistem informasi"

        ElseIf i = "10" Then

            JJ.Text = "D1/Komputer Akuntansi"

        End If

    End Sub

    Private Sub KoDo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoDo.SelectedIndexChanged

        Select Case KoDo.Text

            Case ("k1234567")

                NaDO.Text = ("Mesran,SKom,M.Kom")

            Case ("R4567890")

                NaDO.Text = ("Sinar Sinurat,ST,M.Kom")

            Case ("S0987654")

                NaDO.Text = ("Harvei hutabarat,S.Kom,M.Kom")

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Right(KoDo.Text, 3)

        If i = "567" Then

            KoMa.Text = "001"

            Matakuliah.Text = "Pemograman Visual"

        ElseIf i = "890" Then

            KoMa.Text = "002"

            Matakuliah.Text = "Sistem informasi"

        ElseIf i = "654" Then

            KoMa.Text = "003"

            Matakuliah.Text = "Struktur Data"

        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Npm.Text = ""

        Nama.Text = ""

        JJ.Text = ""

        KoDo.Text = ""

        NaDo.Text = ""

        KoMa.Text = ""

        Matakuliah.Text = ""

        NilaiK.Text = ""

        NilaiT.Text = ""

        NilaiU.Text = ""

        NilaiUA.Text = ""

        Ket.Text = ""

        NH.Text = ""

        NA.Text = ""

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        NA.Text = 0.01 * NilaiK.Text + 0.15 * NilaiT.Text + 0.3 * NilaiU.Text + 0.45 * NilaiUA.Text

        If NA.Text < 50 Then

            Ket.Text = "GagaL"

            NH.Text = "E"

        ElseIf NA.Text <= 51 Then

            Ket.Text = "Gagal"

            NH.Text = "D"

        ElseIf NA.Text <= 60 Then

            Ket.Text = "Lulus"

            NH.Text = "C"

        ElseIf NA.Text <= 61 Then

            Ket.Text = "Lulus"

            NH.Text = "B"

        ElseIf NA.Text <= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B+"

        ElseIf NA.Text >= 80 Then

            Ket.Text = "Lulus"

            NH.Text = "A"

        End If

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        isitable()

    End Sub

    Private Sub BtnSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSemuaData.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdata.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

  

  nah setelah selesai penginputan codingya,nah lalu kita jalnkan programnya dengan menekan F5 atau klik debug di atas menu taksbarnya.,.

dan halisnya seperti gambar dibawah ini.,.

 

Nah sekian dari saya,semoga dapat bermanfaat bagi kita semua.,.