Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
buatTable()
End Sub
Private Sub npm_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles npm.TextChanged
Call
addjurusan()
Call
addjenjang()
Call
addtahun()
End Sub
Private Sub nAngka_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles nAngka.TextChanged
Call
addnhuruf()
End Sub
Private Sub btnSimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnSimpan.Click
Call
isiTable()
Call
bersih()
End Sub
Private Sub btnBersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnBersih.Click
Call
bersih()
End Sub
Private Sub btnHapusSemua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnHapusSemua.Click
LV.Items.Clear()
End Sub
Private Sub btnHapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnHapus.Click
On Error Resume Next
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnKeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnKeluar.Click
End
End Sub
Sub
addjurusan()
Select Case Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
Case
"11"
jurusan.Text = "Teknik Informatika"
Case
"12"
jurusan.Text = "Sistem Informatika"
Case
"13"
jurusan.Text = "Manajemen Informatika"
End Select
End Sub
Sub
addjenjang()
Select Case Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
Case
"1"
jenjang.Text = "S1"
Case
"2"
jenjang.Text = "D3"
Case
"3"
jenjang.Text = "D1"
End Select
End Sub
Sub
addtahun()
thnMasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
End Sub
Sub
addnhuruf()
On Error Resume Next
If
nAngka.Text >= 80 Then
nHuruf.Text = "A"
ElseIf
nAngka.Text >= 70 Then
nHuruf.Text = "B"
ElseIf
nAngka.Text >= 60 Then
nHuruf.Text = "C"
ElseIf
nAngka.Text >= 50 Then
nHuruf.Text = "D"
ElseIf
nAngka.Text < 50 Then
nHuruf.Text = "E"
End If
End Sub
Sub
buatTable()
LV.Columns.Add("NPM",
50, HorizontalAlignment.Center)
LV.Columns.Add("Nama",
180, HorizontalAlignment.Left)
LV.Columns.Add("Jurusan",
150, HorizontalAlignment.Left)
LV.Columns.Add("Jenjang",
70, HorizontalAlignment.Center)
LV.Columns.Add("Tahun
Masuk", 90, HorizontalAlignment.Left)
LV.Columns.Add("Nilai
Angka", 70, HorizontalAlignment.Center)
LV.Columns.Add("Nilai
Huruf", 70, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub
isiTable()
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(thnMasuk.Text)
lst.SubItems.Add(nAngka.Text)
lst.SubItems.Add(nHuruf.Text)
LV.Items.Add(lst)
End Sub
Sub
bersih()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
jenjang.Text = ""
thnMasuk.Text = ""
nAngka.Text = ""
nHuruf.Text = ""
npm.Focus()
End Sub
End Class
Tidak ada komentar:
Posting Komentar