MODUL hal 32

LISTING PROGRAM MODUL Hal.32

Public Class Form1

    Sub buattabel()

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

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

        LV.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Tahun Masuk", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Angka", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Huruf", 180, HorizontalAlignment.Left)

        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(jurusan.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(tahunmasuk.Text)

        lst.SubItems.Add(nilaiangka.Text)

        lst.SubItems.Add(nilaihuruf.Text)

        LV.Items.Add(lst)

    End Sub

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

        buattabel()

    End Sub

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

        isitabel()

        npm.Text = ""

        nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        tahunmasuk.Text = ""

        nilaiangka.Text = ""

        nilaihuruf.Text = ""

    End Sub

    Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusdatadipilh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdatadipilh.Click

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

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        End

    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

        npm.Text = ""

        nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        tahunmasuk.Text = ""

        nilaiangka.Text = ""

        nilaihuruf.Text = ""

    End Sub

    Sub nilaiangka_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nilaiangka.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            tahunmasuk.Text = "2009"

            Microsoft.VisualBasic.Mid(npm.Text, 2)

            x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

            If x = "1" Then

                jenjang.Text = "Diploma I"

            ElseIf x = "3" Then

                jenjang.Text = "Diploma III"

            ElseIf x = "4" Then

                jenjang.Text = "strata I"

            End If

            x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

            If x = "01" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf x = "02" Then

                jurusan.Text = "Sistem Informasi"

            ElseIf x = "03" Then

                jurusan.Text = "Teknik Komputer"

            ElseIf x = "04" Then

                jurusan.Text = "Akuntansi"

            End If

            If nilaiangka.Text >= 90 Then

                nilaihuruf.Text = "A"

            ElseIf nilaiangka.Text >= 80 Then

                nilaihuruf.Text = "B"

            ElseIf nilaiangka.Text >= 70 Then

                nilaihuruf.Text = "C"

            ElseIf nilaiangka.Text >= 60 Then

                nilaihuruf.Text = "D"

            Else

                nilaihuruf.Text = "E"

            End If

        End If

    End Sub

End Class