tugas ListView

Public Class Form1
Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x, y, z As String
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
y = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
z = Microsoft.VisualBasic.Left(npm.Text, 2)
If x = “0” Then
If y = “2” Then
jenjang.Text = “D3”
jurusan.Text = “manajemen informatika”
End If
ElseIf x = “1” Then
jenjang.Text = “SI”
If y = “2” Then
jurusan.Text = “teknik informatika”
ElseIf y = “3” Then
jurusan.Text = “sistem informasi”
End If
End If
End Sub

Private Sub angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles angka.KeyPress
If e.KeyChar = Chr(13) Then
carinilai()
End If
End Sub
Sub carinilai()
If angka.Text >= 90 Then
huruf.Text = “A”
ElseIf angka.Text >= 85 Then
huruf.Text = “B”
ElseIf angka.Text >= 70 Then
huruf.Text = “C”
ElseIf angka.Text >= 50 Then
huruf.Text = “D”
Else
huruf.Text = “E”
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Sub buattabel()
With Lv
.Columns.Add(“npm”, 80, HorizontalAlignment.Center)
.Columns.Add(“nama”, 100, HorizontalAlignment.Left)
.Columns.Add(“jenjang”, 100, HorizontalAlignment.Left)
.Columns.Add(“jurusan”, 100, HorizontalAlignment.Left)
.Columns.Add(“tahun”, 100, HorizontalAlignment.Left)
.Columns.Add(“nilai angka”, 80, HorizontalAlignment.Left)
.Columns.Add(“nilai huruf”, 80, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub

Private Sub BtnSimpanKeListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListView.Click
masuktabel()
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(tahun.Text)
.SubItems.Add(angka.Text)
.SubItems.Add(huruf.Text)
Lv.Items.Add(lst)
End With
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 = “”
tahun.Text = “”
angka.Text = “”
huruf.Text = “”
End Sub

Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
LV.Items.Clear()
End Sub

Private Sub BtnHapusDataYangDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataYangDiPilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

End Class