![]() |
Sebelum |
CODING
PROGRAM
Public Class Form1
Private Sub Tutup_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Tutup.Click
Me.Close()
End Sub
Sub
buattabel()
LV.Columns.Add("Nama",
150, HorizontalAlignment.Left)
LV.Columns.Add("NPM",
50, HorizontalAlignment.Center)
LV.Columns.Add("N.
Hadir", 50, HorizontalAlignment.Center)
LV.Columns.Add("N.
Tugas", 50, HorizontalAlignment.Center)
LV.Columns.Add("N.
UTS", 50, HorizontalAlignment.Center)
LV.Columns.Add("N.
UAS", 50, HorizontalAlignment.Center)
LV.Columns.Add("Total
Nilai", 50, HorizontalAlignment.Center)
LV.Columns.Add("Nilai
Huruf", 80, HorizontalAlignment.Center)
LV.Columns.Add("Keterangan",
80, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub
isitabel()
Dim ist
As New
ListViewItem
ist.Text = Nama.Text
ist.SubItems.Add(NPM.Text)
ist.SubItems.Add(Hadir.Text)
ist.SubItems.Add(Tugas.Text)
ist.SubItems.Add(UTS.Text)
ist.SubItems.Add(UAS.Text)
ist.SubItems.Add(Total.Text)
ist.SubItems.Add(Huruf.Text)
ist.SubItems.Add(Keterangan.Text)
LV.Items.Add(ist)
End Sub
Private Sub Proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Proses.Click
Total.Text = (0.1 * Val(Hadir.Text)) +
(0.15 * Val(Tugas.Text)) + (0.3 * Val(UTS.Text)) + (0.45 * Val(UAS.Text))
If
Total.Text >= 80 Then
Huruf.Text = "A"
ElseIf
Total.Text >= 75 Then
Huruf.Text = "B+"
ElseIf
Total.Text >= 70 Then
Huruf.Text = "B"
ElseIf
Total.Text >= 65 Then
Huruf.Text = "C+"
ElseIf
Total.Text >= 56 Then
Huruf.Text = "C"
ElseIf
Total.Text >= 30 Then
Huruf.Text = "D"
ElseIf
Total.Text >= 0 Then
Huruf.Text = "E"
End If
If
Huruf.Text = "A" Or Huruf.Text = "B+"
Or Huruf.Text = "B"
Or Huruf.Text = "C+"
Or Huruf.Text = "C"
Then
Keterangan.Text = "LULUS"
Else
Keterangan.Text = "GAGAL"
End If
End Sub
Private Sub Batal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Batal.Click
Nama.Text = ""
NPM.Text = ""
Hadir.Text = ""
Tugas.Text = ""
UTS.Text = ""
UAS.Text = ""
Total.Text = ""
Huruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Simpan.Click
Call
isitabel()
Nama.Text = ""
NPM.Text = ""
Hadir.Text = ""
Tugas.Text = ""
UTS.Text = ""
UAS.Text = ""
Total.Text = ""
Huruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
buattabel()
End Sub
End Class
![]() |
Hasil |