- Listing Program :disini
Public Class Form1
Sub TABEL()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("NAMA", 80, HorizontalAlignment.Left)
LV.Columns.Add("JURUSAN", 80, HorizontalAlignment.Left)
LV.Columns.Add("JENJANG", 80, HorizontalAlignment.Left)
LV.Columns.Add("TAHUN MASUK", 80, HorizontalAlignment.Left)
LV.Columns.Add("NILAI ANGKA", 80, HorizontalAlignment.Left)
LV.Columns.Add("NILAI HURUF", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
Dim TBL As New ListViewItem
TBL.Text = NPM.Text
TBL.SubItems.Add(NAMA.Text)
TBL.SubItems.Add(JURUSAN.Text)
TBL.SubItems.Add(JENJANG.Text)
TBL.SubItems.Add(T_MASUK.Text)
TBL.SubItems.Add(N_ANGKA.Text)
TBL.SubItems.Add(N_HURUF.Text)
LV.Items.Add(TBL)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TABEL()
NPM.Items.Add("0911532")
NPM.Items.Add("0831513")
NPM.Items.Add("1021478")
NPM.Items.Add("0701100")
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged
End Sub
Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
ISITABEL()
NPM.Text = ""
NAMA.Text = ""
JURUSAN.Text = ""
JENJANG.Text = ""
T_MASUK.Text = ""
'N_ANGKA.Text = ""
N_HURUF.Text = ""
End Sub
Private Sub BERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BERSIH.Click
LV.Items.Clear()
End Sub
Private Sub HAPUS1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS1.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Dim xnpm As String
xnpm = Microsoft.VisualBasic.Left(NPM.Text, 2)
Select Case xnpm
Case "09"
T_MASUK.Text = "2009"
Case "08"
T_MASUK.Text = "2008"
Case "10"
T_MASUK.Text = "2010"
Case "07"
T_MASUK.Text = "2007"
End Select
xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
Select Case xnpm
Case "1"
JENJANG.Text = "Strata I"
Case "3"
JENJANG.Text = "Diploma III"
Case "2"
JENJANG.Text = "Diploma II"
Case "0"
JENJANG.Text = "Diploma I"
End Select
xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
If xnpm = "11" Then
JURUSAN.Text = "Teknik Informatika"
ElseIf xnpm = "31" Then
JURUSAN.Text = "Manajemen Informatika"
ElseIf xnpm = "21" Then
JURUSAN.Text = "Komputerisasi Akuntansi"
ElseIf xnpm = "01" Then
JURUSAN.Text = "Sistem Informasi"
End If
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
If N_ANGKA.Text >= 80 Then
N_HURUF.Text = "A"
ElseIf N_ANGKA.Text >= 70 Then
N_HURUF.Text = "B"
ElseIf N_ANGKA.Text >= 60 Then
N_HURUF.Text = "C"
ElseIf N_ANGKA.Text >= 50 Then
N_HURUF.Text = "D"
Else
N_ANGKA.Text = "E"
End If
End Sub
End Class
0 comments:
Post a Comment