PHOTO GUE

DATA MAHASISWA MENGUNAKAN VISUAL BASIC

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        npm.Items.Add("14110347")
        npm.Items.Add("14156723")
        npm.Items.Add("14098756")
        jurusan.Items.Add("TEKNIK INFORMATIKA")
        jurusan.Items.Add("MANAJEMEN INFORMATIKA")
        jurusan.Items.Add("DESIGN GRAFIS")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        If npm.Text = "14110347" Then
            nama.Text = "WAHYU HIDAYAT"
        ElseIf npm.Text = "14156723" Then
            nama.Text = "JOMAH"
        ElseIf npm.Text = "14098756" Then
            nama.Text = "MAHFOT"


        End If

    End Sub

    Private Sub jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jurusan.SelectedIndexChanged
        JENJANG.Items.Clear()

        If jurusan.Text = "TEKNIK INFORMATIKA" Then
            JENJANG.Text = ("S1")
        ElseIf jurusan.Text = "MANAJEMEN INFORMATIKA" Then
            JENJANG.Text = ("D3")
        ElseIf jurusan.Text = "DESIGN GRAFIS" Then
            JENJANG.Text = ("D1")


        End If

    End Sub

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

        If Asc(e.KeyChar) = 13 Then
            Select Case nilaiangka.Text
                Case Is >= 80
                    nilaihuruf.Text = "A"
                Case Is >= 70
                    nilaihuruf.Text = "B"
                Case Is >= 60
                    nilaihuruf.Text = "C"
                Case Is >= 50
                    nilaihuruf.Text = "D"
                Case Is >= 40
                    nilaihuruf.Text = "E"
               

            End Select

        End If

    End Sub
    Sub buattabel()
        lv.Columns.Add("npm", 80, HorizontalAlignment.Center)
        lv.Columns.Add("nama", 100, HorizontalAlignment.Center)
        lv.Columns.Add("jurusan", 100, HorizontalAlignment.Center)
        lv.Columns.Add("jenjang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("nilai angka", 100, HorizontalAlignment.Center)
        lv.Columns.Add("nilai huruf", 100, HorizontalAlignment.Center)
        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(nilaiangka.Text)
        LST.SubItems.Add(nilaihuruf.Text)
        lv.Items.Add(LST)
    End Sub

    Private Sub simpanlv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpanlv.Click
        ISITABEL()


    End Sub

    Private Sub hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdata.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        JENJANG.Text = ""
        nilaiangka.Text = ""
        nilaihuruf.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()

    End Sub
End Class