listview

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Tabel()
End Sub
Sub Tabel()
ListView1.Columns.Add(“NPM”, 60, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nama”, 110, HorizontalAlignment.Left)
ListView1.Columns.Add(“Jurusan”, 130, HorizontalAlignment.Center)
ListView1.Columns.Add(“Jenjang”, 70, HorizontalAlignment.Center)
ListView1.Columns.Add(“Tahun Masuk”, 90, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Angka”, 75, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Huruf”, 75, HorizontalAlignment.Center)
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.View = View.Details
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(Angka.Text)
Lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(Lst)
End Sub
Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
Dim Lst As String
TahunMasuk.Text = “20″ & Microsoft.VisualBasic.Left(NPM.Text, 2)
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
If Lst = “01″ Then
Jenjang.Text = “Diploma I”
ElseIf Lst = “02″ Then
Jenjang.Text = “Diploma III”
ElseIf Lst = “03″ Then
Jenjang.Text = “Strata I”
End If
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If Lst = “01″ Then
Jurusan.Text = “Manajemen Informatika”
ElseIf Lst = “02″ Then
Jurusan.Text = “Sistem Informasi”
ElseIf Lst = “03″ Then
Jurusan.Text = “Teknik Komputer”
ElseIf Lst = “04″ Then
Jurusan.Text = “Akutansi”
End If
End Sub
Private Sub Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Angka.TextChanged
If Angka.Text >= “80″ Then
Huruf.Text = “A”
ElseIf Angka.Text >= “70″ Then
Huruf.Text = “B”
ElseIf Angka.Text >= “60″ Then
Huruf.Text = “C”
ElseIf Angka.Text >= “50″ Then
Huruf.Text = “D”
Else
Huruf.Text = “E”
End If
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 = “”
Angka.Text = “”
Huruf.Text = “”
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Tabel()
End Sub
Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
ListView1.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