QUIS SENIN SOAL 2.

SOAL QUIS DISANA

Tugas Pak Mesran 2

Listing Program

Public Class Form1

    Sub tabel()
        ListView1.Columns.Add("NPM", 70, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 170, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jenjang", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nilai Angka", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True



    End Sub

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

    End Sub

    Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
        Dim x As String
        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
        If x = "3" Then
            JENJANG.Text = "Diploma I"
        ElseIf x = "2" Then
            JENJANG.Text = "Diploma III"
        ElseIf x = "1" Then
            JENJANG.Text = "Strata I"
        End If

        x = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
        If x = "11" Then
            JURUSAN.Text = "Manajemen Informatika"
        ElseIf x = "16" Then
            JURUSAN.Text = "Teknik Informatika"
        ElseIf x = "17" Then
            JURUSAN.Text = "Teknik Informatika"
        ElseIf x = "22" Then
            JURUSAN.Text = "Teknik Informatika"
        ElseIf x = "33" Then
            JURUSAN.Text = "Sistem Informasi"
        ElseIf x = "44" Then
            JURUSAN.Text = "Akuntansi"
        End If
        THNMSUK.Text = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)

    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(THNMSUK.Text)
        lst.SubItems.Add(NLAIANGKA.Text)
        lst.SubItems.Add(NLAIHRUF.Text)
        ListView1.Items.Add(lst)

    End Sub

    Private Sub btnsmpanlistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsmpanlistview.Click
        Call isitabel()
        NPM.Text = ""
        NAMA.Text = ""
        JURUSAN.Text = ""
        JENJANG.Text = ""
        THNMSUK.Text = ""
        NLAIANGKA.Text = ""
        NLAIHRUF.Text = ""
    End Sub

    Private Sub NLAIANGKA_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles NLAIANGKA.KeyDown
        If e.KeyCode = Keys.Enter Then
            e.SuppressKeyPress = True
            Select Case NLAIANGKA.Text
                Case Is >= 85
                    NLAIHRUF.Text = "A"
                Case 70 To 80
                    NLAIHRUF.Text = "B"
                Case 60 To 69
                    NLAIHRUF.Text = "C"
                Case 50 To 59
                    NLAIHRUF.Text = "D"
                Case Is <= 49
                    NLAIHRUF.Text = "E"
            End Select
        End If
    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 = ""
        THNMSUK.Text = ""
        NLAIANGKA.Text = ""
        NLAIHRUF.Text = ""
    End Sub

    Private Sub btnhpussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpussemuadata.Click
        ListView1.Items.Clear()
        NPM.Text = ""
        NAMA.Text = ""
        JURUSAN.Text = ""
        JENJANG.Text = ""
        THNMSUK.Text = ""
        NLAIANGKA.Text = ""
        NLAIHRUF.Text = ""
    End Sub

    Private Sub btnhpusdataygdplih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpusdataygdplih.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class

Hasil Gambar Program Sebelum Berjalan




Hasil Gambar Program Sesudah Berjalan