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

Sebelum

CODING PROGRAM

Public Class Form1

    Private Sub Tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup.Click

        Me.Close()

    End Sub

    Sub buattabel()

        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)

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

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

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

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

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

        LV.Columns.Add("Total Nilai", 50, HorizontalAlignment.Center)

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

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

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim ist As New ListViewItem

        ist.Text = Nama.Text

        ist.SubItems.Add(NPM.Text)

        ist.SubItems.Add(Hadir.Text)

        ist.SubItems.Add(Tugas.Text)

        ist.SubItems.Add(UTS.Text)

        ist.SubItems.Add(UAS.Text)

        ist.SubItems.Add(Total.Text)

        ist.SubItems.Add(Huruf.Text)

        ist.SubItems.Add(Keterangan.Text)

        LV.Items.Add(ist)

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        Total.Text = (0.1 * Val(Hadir.Text)) + (0.15 * Val(Tugas.Text)) + (0.3 * Val(UTS.Text)) + (0.45 * Val(UAS.Text))

        If Total.Text >= 80 Then

            Huruf.Text = "A"

        ElseIf Total.Text >= 75 Then

            Huruf.Text = "B+"

        ElseIf Total.Text >= 70 Then

            Huruf.Text = "B"

        ElseIf Total.Text >= 65 Then

            Huruf.Text = "C+"

        ElseIf Total.Text >= 56 Then

            Huruf.Text = "C"

        ElseIf Total.Text >= 30 Then

            Huruf.Text = "D"

        ElseIf Total.Text >= 0 Then

            Huruf.Text = "E"

        End If

        If Huruf.Text = "A" Or Huruf.Text = "B+" Or Huruf.Text = "B" Or Huruf.Text = "C+" Or Huruf.Text = "C" Then

            Keterangan.Text = "LULUS"

        Else

            Keterangan.Text = "GAGAL"

        End If

    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click

        Nama.Text = ""

        NPM.Text = ""

        Hadir.Text = ""

        Tugas.Text = ""

        UTS.Text = ""

        UAS.Text = ""

        Total.Text = ""

        Huruf.Text = ""

        Keterangan.Text = ""

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        Call isitabel()

        Nama.Text = ""

        NPM.Text = ""

        Hadir.Text = ""

        Tugas.Text = ""

        UTS.Text = ""

        UAS.Text = ""

        Total.Text = ""

        Huruf.Text = ""

        Keterangan.Text = ""

    End Sub

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

        Call buattabel()

    End Sub

End Class

Hasil