Yuk! Belajar Pemograman Visual Basic dot Net di Mesran.Net

 https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7nysSljcdzTS8KD2TkhXMeuUVbgB1XL9jH_EilB96g6jUBUDZTfL84oigqhMV3inXKRJwGF8chRUuZeB1YxeUob0HSNXb7KLExX9aSXZ3ZDBc-Ba-AOZnngOlGa84WgJNDtQvOSQyogI/s1600/mesran+punya.jpghttp://mesran.blogspot.com


 https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiy6MiOT-v41h-gg1I8px6XXVcBcC2Ztw0BEuidgDHWMV4NT35PyJN6RUxJDV07fA3nXn3HAYdrQ0fBgDl0ms8PwsAUz5barZ3vRlsSR824DoxSZzne8L23TjJ_nnMUAr4qx-4wcRGaTPM/s1600/budidarma+punya.jpghttp://stmik-budidarma.ac.id

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgc21yoI6gayBIdgeoM0wrJfhc6HQB54MTHxh0dpkjT63wUpKd8QQZv9HwQi8xdiEJQXNLW-P3iR-MQ8rZqkTb58qRyO3E64RjQFIznEArKUg8f2ZP1F6Ujhst4fTXyBmp_WRi1VVyNNzg/s1600/mesrannet.jpghttp://mesran.net


Tugas Praktikum NILAI MAHASISWAhttp://novariapasaribu.blogspot.com/2014/12/nilai-mahasiswa.html

Public Class Form1

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

        NPM.Items.Add("13110001")

        NPM.Items.Add("13110002")

        NPM.Items.Add("13020003")

        NPM.Items.Add("13110004")

        NPM.Items.Add("13110005")

        M_Kuliah.Items.Add("Struktur Basis Data")

        M_Kuliah.Items.Add("Organisasi dan Arsitektur Komputer")

        M_Kuliah.Items.Add("Pemograman Visual")

        Call BUATTABEL()

    End Sub

    Sub BUATTABEL()

        LV2.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        LV2.Columns.Add("Nama", 80, HorizontalAlignment.Left)

        LV2.Columns.Add("Mata Kuliah", 120, HorizontalAlignment.Left)

        LV2.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Left)

        LV2.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Left)

        LV2.Columns.Add("Nilai Angka", 80, HorizontalAlignment.Left)

        LV2.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)

        LV2.View = View.Details

        LV2.GridLines = True

        LV2.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = NPM.Text

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(M_Kuliah.Text)

        lst.SubItems.Add(N_UTS.Text)

        lst.SubItems.Add(N_UAS.Text)

        lst.SubItems.Add(N_ANGKA.Text)

        lst.SubItems.Add(N_HURUF.Text)

        LV2.Items.Add(lst)

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Me.Close()

    End Sub

    Private Sub BtnIsiList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsiList.Click

        Call IsiTabel()

        NPM.Text = ""

        Nama.Text = ""

        M_Kuliah.Text = ""

        N_UTS.Text = ""

        N_UAS.Text = ""

        N_ANGKA.Text = ""

        N_HURUF.Text = ""

    End Sub

    Private Sub BtnH_NPM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnH_NPM.Click

        LV2.Items.Remove(LV2.SelectedItems(0))

    End Sub

    Private Sub BtnH_List_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnH_List.Click

        LV2.Items.Clear()

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        If NPM.Text = "13110001" Then

            Nama.Text = "Adrian"

        ElseIf NPM.Text = "13110002" Then

            Nama.Text = "Betty "

        ElseIf NPM.Text = "13020003" Then

            Nama.Text = "Citra"

        ElseIf NPM.Text = "13110004" Then

            Nama.Text = "Danny"

        ElseIf NPM.Text = "13110005" Then

            Nama.Text = "Ericka"

        End If

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        N_ANGKA.Text = (Val(N_UTS.Text) + Val(N_UAS.Text)) / (2)

        If N_ANGKA.Text >= 80 Then

            N_HURUF.Text = "A"

        ElseIf N_ANGKA.Text >= 70 Then

            N_HURUF.Text = "B"

        ElseIf N_ANGKA.Text >= 60 Then

            N_HURUF.Text = "C"

        ElseIf N_ANGKA.Text >= 50 Then

            N_HURUF.Text = "D"

        Else

            N_HURUF.Text = "E"

        End If

    End Sub

    Private Sub BtnH_Data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnH_Data.Click

        LV2.Items.Clear()

    End Sub

End Class

Demikianlah hasil postingan saya
Nama : Novaria Pasaribu
NPM  : 13110394
Selamat Belajar Pemrograman VB NET