Listing Programnya :
Public Class Form4
Sub buattabel()
LV.Columns.Add("NPM", 70, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 120, HorizontalAlignment.Left)
LV.Columns.Add("Jenjang", 50, HorizontalAlignment.Left)
LV.Columns.Add("Jurusan", 50, HorizontalAlignment.Center)
LV.Columns.Add("Nama Dosen", 100, HorizontalAlignment.Center)
LV.Columns.Add("Mata Kuliah", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nilai Akhir", 80, 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 lst As New ListViewItem
lst.Text = NPM.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Jenjang.Text)
lst.SubItems.Add(Jurusan.Text)
lst.SubItems.Add(NamaDosen.Text)
lst.SubItems.Add(MataKuliah.Text)
lst.SubItems.Add(NilaiAkhir.Text)
lst.SubItems.Add(NIlaiHuruf.Text)
lst.SubItems.Add(Keterangan.Text)
LV.Items.Add(lst)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.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
Select Case NPM.Text
Case "12110695"
Nama.Text = "Siti annisa"
Jenjang.Text = "S1"
Jurusan.Text = "TI"
Case "12110741"
Nama.Text = "Dinda Pratiwi"
Jenjang.Text = "D3"
Jurusan.Text = "MI"
Case "12110574"
Nama.Text = "Melly Fersi Fera"
Jenjang.Text = "S1"
Jurusan.Text = "TI"
Case "12110927"
Nama.Text = "Emmy Christina Sihombing"
Jenjang.Text = "S1"
Jurusan.Text = "SI"
Case "1202208"
Nama.Text = "Lista Septriani Simanjuntak"
Jenjang.Text = "D3"
Jurusan.Text = "KA"
End Select
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
NPM.Items.Add("12110574")
NPM.Items.Add("12110695")
NPM.Items.Add("12110741")
NPM.Items.Add("12110927")
NPM.Items.Add("1202208")
Dim i As Integer
For i = 100 To 1 Step -5
NilaiKehadiran.Items.Add(i)
Next
For i = 100 To 1 Step -5
NilaiTugas.Items.Add(i)
Next
For i = 100 To 1 Step -5
NilaiUTS.Items.Add(i)
Next
For i = 100 To 1 Step -5
NilaiUAS.Items.Add(i)
Next i
KodeMataKuliah.Items.Add("123")
KodeMataKuliah.Items.Add("456")
KodeMataKuliah.Items.Add("789")
KodeMataKuliah.Items.Add("012")
KodeDosen.Items.Add("012")
KodeDosen.Items.Add("345")
KodeDosen.Items.Add("678")
KodeDosen.Items.Add("901")
NilaiAkhir.Enabled = False
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
Select Case NilaiAkhir.Text
Case Is >= 80
NIlaiHuruf.Text = "A"
Keterangan.Text = "LULUS"
Case 70 To 79
NIlaiHuruf.Text = "B"
Keterangan.Text = "LULUS"
Case 60 To 69
NIlaiHuruf.Text = "C"
Keterangan.Text = "GAGAL"
Case 50 To 59
NIlaiHuruf.Text = "D"
Keterangan.Text = "GAGAL"
Case Is <= 49
NIlaiHuruf.Text = "E"
Keterangan.Text = "GAGAL"
End Select
NilaiAkhir.Enabled = False
isitabel()
NIlaiHuruf.Text = ""
Keterangan.Text = ""
Nama.Text = ""
NPM.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
NamaDosen.Text = ""
NilaiAkhir.Text = ""
MataKuliah.Text = ""
NilaiKehadiran.Text = ""
NilaiTugas.Text = ""
NilaiUTS.Text = ""
NilaiUAS.Text = ""
KodeDosen.Text = ""
KodeMataKuliah.Text = ""
End Sub
Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
Select Case KodeMataKuliah.Text
Case "123"
MataKuliah.Text = "Visual Basic"
Case "456"
MataKuliah.Text = "Matriks"
Case "789"
MataKuliah.Text = "arsitektur dan organisasi kom"
Case "012"
MataKuliah.Text = "struktur data"
End Select
NilaiAkhir.Enabled = False
End Sub
Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
Select Case KodeDosen.Text
Case "012"
NamaDosen.Text = "Mesran"
Case "345"
NamaDosen.Text = "Kennedi Tampubolon"
Case "678"
NamaDosen.Text = "Pilipus tarigan."
Case "901"
NamaDosen.Text = "alex riki s."
End Select
End Sub
Private Sub NilaiAkhir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiAkhir.KeyPress
If Asc(e.KeyChar) = 13 Then
NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
NilaiAkhir.Enabled = False
End If
End Sub
End Class
Hasil setelah programnya dijalankan :
Tidak ada komentar:
Posting Komentar