Jawaban Soal 2 ( Husni Tamrin)

Kasus : Lihat disini kasus

Soal 2 (Husni Tamrin)

           1.      Program Data Mahasiswa

Listing Program

Public Class Form1

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

        RancangTabel()

    End Sub

    Sub RancangTabel()

        With LV

            .Columns.Add("NPM", 70, HorizontalAlignment.Center)

            .Columns.Add("Nama", 150, HorizontalAlignment.Center)

            .Columns.Add("Jenjang", 70, HorizontalAlignment.Left)

            .Columns.Add("Jurusan", 70, HorizontalAlignment.Left)

            .Columns.Add("Tahun", 50, HorizontalAlignment.Center)

            .Columns.Add("Nilai", 70, HorizontalAlignment.Center)

            .Columns.Add("Huruf", 50, HorizontalAlignment.Center)

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

        End With

    End Sub

    Sub IsiTable()

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

        Lst.SubItems.Add(n_angka.Text)

        Lst.SubItems.Add(n_huruf.Text)

        LV.Items.Add(Lst)

    End Sub

    Sub MasukTabel()

        Dim lst As New ListViewItem

        With lst

            .Text = Npm.Text

            .SubItems.Add(Nama.Text)

            .SubItems.Add(Jenjang.Text)

            .SubItems.Add(Jurusan.Text)

            .SubItems.Add(n_angka.Text)

            .SubItems.Add(n_huruf.Text)

            LV.Items.Add(lst)

        End With

    End Sub

    Sub Data()

        IsiTable()

        Npm.Text = ""

        Nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        tahun.Text = ""

        n_angka.Text = ""

        n_huruf.Text = ""

        Npm.Focus()

    End Sub

    Sub Proses()

        Dim x, y As String

        tahun.Text = "20" & Microsoft.VisualBasic.Left(Npm.Text, 2)

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

        y = Microsoft.VisualBasic.Mid(Npm.Text, 4, 2)

        If x = "1" Then

            jenjang.Text = "Sastra-I"

        ElseIf x = "2" Then

            jenjang.Text = "Diploma-I"

        ElseIf x = "3" Then

            jenjang.Text = "Diploma-III"

        Else

            jenjang.Text = ""

        End If

        If y = "1" Then

            jurusan.Text = "Teknik Informatika"

        End If

        If y = "2" Then

            jurusan.Text = "Teknisi Komputer"

        End If

        If y = "3" Then

            jurusan.Text = "Manajemen Informatika"

        End If

    End Sub

    Sub Bersih()

        Npm.Text = ""

        Nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        n_angka.Text = ""

        n_huruf.Text = ""

        tahun.Text = ""

        Npm.Focus()

    End Sub

    Private Sub Npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.TextChanged

        Call Proses()

    End Sub

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

        Call Bersih()

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Data()

    End Sub

    Private Sub n_angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles n_angka.KeyPress

        If e.KeyChar = Chr(13) Then

            If n_angka.Text >= 85 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"

            End If

        Else

            n_huruf.Text = "E"

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

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

    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 BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class