soal 2 hlaman33

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

Sample-1