Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Tugas Praktikum NILAI MAHASISWA (Pelajaran di Kelas) 

Public Class Form1

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

        MK.Items.Add("Sistem Basis Data")

        MK.Items.Add("Struktur Data")

        MK.Items.Add("Arsitektur Dan Organisasi Komputer")

        MK.Items.Add("Pemograman Visual")

        MK.Items.Add("Sistem Operasi")

        MK.Items.Add("Komunikasi Data")

        For i = 100 To 10 Step -5

            NH.Items.Add(i)

            NT.Items.Add(i)

            NUT.Items.Add(i)

            NUA.Items.Add(i)

        Next

        NA.Enabled = False

        Huruf.Enabled = False

        Call settable()

    End Sub

    Sub settable()

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

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

        LV.Columns.Add("Mata Kuliah", 150, HorizontalAlignment.Center)

        LV.Columns.Add("N Hadir", 100, HorizontalAlignment.Center)

        LV.Columns.Add("N Tugas", 100, HorizontalAlignment.Center)

        LV.Columns.Add("N UTS", 100, HorizontalAlignment.Center)

        LV.Columns.Add("N UAS", 100, HorizontalAlignment.Center)

        LV.Columns.Add("N Akhir", 100, HorizontalAlignment.Center)

        LV.Columns.Add("N Huruf", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim x As New ListViewItem

        x.Text = NPM.Text

        x.SubItems.Add(Nama.Text)

        x.SubItems.Add(MK.Text)

        x.SubItems.Add(NH.Text)

        x.SubItems.Add(NT.Text)

        x.SubItems.Add(NUT.Text)

        x.SubItems.Add(NUA.Text)

        x.SubItems.Add(NA.Text)

        x.SubItems.Add(Huruf.Text)

        LV.Items.Add(x)

        MK.Text = ""

        NH.Text = ""

        NT.Text = ""

        NUT.Text = ""

        NUA.Text = ""

        NA.Text = ""

        Huruf.Text = ""

    End Sub

    Private Sub TSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSimpan.Click

        Call isitable()

    End Sub

    Private Sub TProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TProses.Click

        NA.Text = Val(NH.Text * 0.1) + Val(NT.Text * 0.15) + Val(NUT.Text * 0.35) + Val(NUA.Text * 0.4)

        If NA.Text >= 90 Then

            Huruf.Text = "A"

        ElseIf NA.Text >= 80 Then

            Huruf.Text = "B+"

        ElseIf NA.Text >= 70 Then

            Huruf.Text = "B"

        ElseIf NA.Text >= 60 Then

            Huruf.Text = "C+"

        ElseIf NA.Text >= 50 Then

            Huruf.Text = "C"

        ElseIf NA.Text >= 40 Then

            Huruf.Text = "D"

        ElseIf NA.Text >= 10 Then

            Huruf.Text = "E"

        End If

    End Sub

    Private Sub THL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THL.Click

        If LV.SelectedItems.Count <> 0 Then

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

        Else

            MsgBox("Pilih Dulu Listnya")

        End If

    End Sub

    Private Sub TKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKeluar.Click

        Dim x As String

        x = MsgBox("Tekan OK Jika Anda Ingin Keluar", MsgBoxStyle.OkCancel, "Pesan")

        If x = vbOK Then

            Me.Close()

        End If

    End Sub

End Class

Demikian lah postingan saya 

Nama:Jan Herbiono Malau

Npm :13110919