Soal 1
Berikut ini design form untuk mencari nilai mahasiswa menggunakan ListView :
Listing Program :
Public Class Form1
Sub BuatTabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nama Dosen", 180, HorizontalAlignment.Left)
LV.Columns.Add("Kode Mata Kuliah", 80, HorizontalAlignment.Left)
LV.Columns.Add("Mata Kuliah", 180, HorizontalAlignment.Left)
LV.Columns.Add("Nilai Kehadiran", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nilai Tugas", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)
LV.Columns.Add("Keterangan", 80, HorizontalAlignment.Left)
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(namamhs.Text)
Lst.SubItems.Add(jenjang.Text)
Lst.SubItems.Add(jurusan.Text)
Lst.SubItems.Add(kodedosen.Text)
Lst.SubItems.Add(namadosen.Text)
Lst.SubItems.Add(kodematakuliah.Text)
Lst.SubItems.Add(matakuliah.Text)
Lst.SubItems.Add(nkehadiran.Text)
Lst.SubItems.Add(ntugas.Text)
Lst.SubItems.Add(nuts.Text)
Lst.SubItems.Add(nuas.Text)
Lst.SubItems.Add(nakhir.Text)
Lst.SubItems.Add(nhuruf.Text)
Lst.SubItems.Add(keterangan.Text)
LV.Items.Add(Lst)
End Sub
Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
npm.Text = ""
namamhs.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kodedosen.Text = ""
namadosen.Text = ""
kodematakuliah.Text = ""
matakuliah.Text = ""
nkehadiran.Text = ""
ntugas.Text = ""
nuts.Text = ""
nuas.Text = ""
nakhir.Text = ""
nhuruf.Text = ""
keterangan.Text = ""
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
If nakhir.Text >= 80 Then
nhuruf.Text = "A"
ElseIf nakhir.Text >= 70 Then
nhuruf.Text = "B"
ElseIf nakhir.Text >= 60 Then
nhuruf.Text = "C"
ElseIf nakhir.Text >= 50 Then
nhuruf.Text = "D"
Else
nhuruf.Text = "E"
End If
If nakhir.Text >= 60 Then
keterangan.Text = "LULUS"
Else
keterangan.Text = "GAGAL"
End If
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select npm.Text
Case "12110010"
namamhs.Text = "apry anita"
jenjang.Text = "Diploma I"
jurusan.Text = "Sistem Informasi"
Case "12110020"
namamhs.Text = "katarina"
jenjang.Text = "Diploma III"
jurusan.Text = "Manejemen Informasi"
Case "12110030"
namamhs.Text = "batara putra"
jenjang.Text = "Strata I"
jurusan.Text = "Teknik Informasi"
End Select
End Sub
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
Select Case kodedosen.Text
Case "00111"
namadosen.Text = "Mesran M.Kom"
Case "00222"
namadosen.Text = "Aulia S.Kom"
Case "00333"
namadosen.Text = "Alex M.Kom"
End Select
End Sub
Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged
Select Case kodematakuliah.Text
Case "01"
matakuliah.Text = "Pemograman Visual"
Case "02"
matakuliah.Text = "Sistem Operasi"
Case "03"
matakuliah.Text = "Struktur Data"
End Select
End Sub
Private Sub nkehadiran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nkehadiran.SelectedIndexChanged
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110010")
npm.Items.Add("12110020")
npm.Items.Add("12110030")
kodedosen.Items.Add("00111")
kodedosen.Items.Add("00222")
kodedosen.Items.Add("00333")
kodematakuliah.Items.Add("01")
kodematakuliah.Items.Add("02")
kodematakuliah.Items.Add("03")
Dim x As Byte
For x = 10 To 100
nkehadiran.Items.Add(x)
ntugas.Items.Add(x)
nuts.Items.Add(x)
nuas.Items.Add(x)
Next
BuatTabel()
End Sub
Private Sub simpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpankelistview.Click
IsiTabel()
npm.Text = ""
namamhs.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kodedosen.Text = ""
namadosen.Text = ""
kodematakuliah.Text = ""
matakuliah.Text = ""
nkehadiran.Text = ""
ntugas.Text = ""
nuts.Text = ""
nuas.Text = ""
nakhir.Text = ""
nhuruf.Text = ""
keterangan.Text = ""
End Sub
Private Sub hapusdataygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdataygdipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub hapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemuadata.Click
LV.Items.Clear()
End Sub
End Class
Demikian disampaikan,, terimakasih......
Tidak ada komentar:
Posting Komentar