Mari kunjungi mesran.net

Mesran.net merupakan sebuah web yang berisikan tentang informasi - informasi dan  pembelajaran bahasa pemprograman terutama pemprogrman VB.net . Di web ini kita dapat memahami dan mengerti tentang Pemprograman VB.net
Ini adalah salah satu pemprograman VB.net yang dapat dipelajari di mesran.net yang dapat anda pelajari
Memasukkan hasil nilai mahasiswa dengan menggunakan ListView

Dengan coding :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call buattabel()
        npm.Items.Add("1111001")
        npm.Items.Add("1111100")
        npm.Items.Add("1111010")
        makul.Items.Add("komunikasi data")
        makul.Items.Add("pemrograman")
        makul.Items.Add("soper")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "1111001" Then
            nama.Text = "Angga Kurniawan"
        ElseIf npm.Text = "1111100" Then
            nama.Text = "Ayu Ashari"
        ElseIf npm.Text = "1111010" Then
            nama.Text = "zulfa salsabila"
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nangka.Text = 0.4 * nuts.Text + 0.6 * nuas.Text

        If nangka.Text >= 80 Then
            nhuruf.Text = "A"
        ElseIf nangka.Text >= 70 Then
            nhuruf.Text = "B"
        ElseIf nangka.Text >= 60 Then
            nhuruf.Text = "C"
        ElseIf nangka.Text >= 50 Then
            nhuruf.Text = "D"
        Else
            nhuruf.Text = "E"
        End If
    End Sub
    Sub buattabel()
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Mata kuliah", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai Angka", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nilai huruf", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(makul.Text)
        lst.SubItems.Add(nuts.Text)
        lst.SubItems.Add(nuas.Text)
        lst.SubItems.Add(nangka.Text)
        lst.SubItems.Add(nhuruf.Text)

        lv.items.add(lst)
    End Sub

    Private Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisi.Click
        Call isitabel()
        npm.Text = ""
        nama.Text = ""
        makul.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        nangka.Text = ""
        nhuruf.Text = ""
    End Sub

    Private Sub btnhapusnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusnpm.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
        lv.Items.Clear()
    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
        npm.Text = " "
        nama.Text = " "
        makul.Text = " "
        nuts.Text = " "
        nuas.Text = " "
        nangka.Text = " "
        nhuruf.Text = " "
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class


Masih banyak lagi VB.net yang dapat anda pelajari di website mesran,net serta pemprograman - pemprograman lainnya  . Maka dari itu segera  kunjungilah mesran.net jika anda  ingin mendapatkan ilmu yang lebih bermanfaat.

Http://mesran.blogspot.com