Public Class btnhapusdatayangdipilihPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
NPM.Items.Add("12110178")
NPM.Items.Add("12110180")
kodedosen.Items.Add("AA")
kodedosen.Items.Add("AB")
kodematakuliah.Items.Add("A11")
kodematakuliah.Items.Add("A12")
Dim i As Integer
For i = 1 To 100
nilaikehadiran.Items.Add(i)
Nilai_Tugas.Items.Add(i)
Nilai_UTS.Items.Add(i)
Nilai_UAS.Items.Add(i)
Next i
End Sub
Sub BuatTabel()
LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Left)
LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nama Dosen", 80, HorizontalAlignment.Left)
LV.Columns.Add("Kode Mata Kuliah", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nama Mata Kuliah", 80, 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 = Nama.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(namamatakuliah.Text)
lst.SubItems.Add(nilaikehadiran.Text)
lst.SubItems.Add(Nilai_Tugas.Text)
lst.SubItems.Add(Nilai_UTS.Text)
lst.SubItems.Add(Nilai_Akhir.Text)
lst.SubItems.Add(Nilai_Huruf.Text)
lst.SubItems.Add(Keterangan.Text)
LV.Items.Add(lst)
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12110178"
Nama.Text = "Firman Gea"
Case "12110180"
Nama.Text = "Dani"
End Select
Dim x As String
x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
If x = "4" Then
Jenjang.Text = "Diploma I"
ElseIf x = "3" Then
Jenjang.Text = " Diploma 3"
ElseIf x = "1" Then
Jenjang.Text = "Strata I"
End If
x = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)
If x = "10" Then
Jurusan.Text = "Teknik Komputer"
ElseIf x = "11" Then
Jurusan.Text = "Sistem Informas"
ElseIf x = "12" Then
Jurusan.Text = "Manajemen Informatika"
ElseIf x = "13" Then
Jurusan.Text = "Akuntansi"
End If
End Sub
Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
Select Case kodedosen.Text
Case "AA"
namadosen.Text = "Mesran, M.Kom"
Case "AB"
namadosen.Text = "Toni Limbong, M.Kom"
End Select
End Sub
Private Sub Kode_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged
Select Case kodematakuliah.Text
Case "A11"
namamatakuliah.Text = "Pemrograman Visual"
Case "A12"
namamatakuliah.Text = "Pemrograman HTML"
End Select
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Nilai_Akhir.Text = 0.1 * nilaikehadiran.Text + 0.15 * Nilai_Tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
End Sub
Private Sub Nilai_Akhir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nilai_Akhir.TextChanged
If Nilai_Akhir.Text >= "80" Then
Nilai_Huruf.Text = "A"
Keterangan.Text = "Sangat Memuaskan"
ElseIf Nilai_Akhir.Text >= "70" Then
Nilai_Huruf.Text = "B"
Keterangan.Text = "Memuaskan"
ElseIf Nilai_Akhir.Text >= "60" Then
Nilai_Akhir.Text = "C"
Keterangan.Text = "Menyenangkan"
ElseIf Nilai_Akhir.Text >= "50" Then
Nilai_Huruf.Text = "D"
Keterangan.Text = "Menyedihkan"
Else
Nilai_Huruf.Text = "E"
Keterangan.Text = "Gagal"
End If
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
NPM.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
kodedosen.Text = ""
namadosen.Text = ""
kodematakuliah.Text = ""
namamatakuliah.Text = ""
nilaikehadiran.Text = ""
Nilai_Tugas.Text = ""
Nilai_UTS.Text = ""
Nilai_UAS.Text = ""
Nilai_Akhir.Text = ""
Nilai_Huruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
kodedosen.Text = ""
namadosen.Text = ""
kodematakuliah.Text = ""
namamatakuliah.Text = ""
nilaikehadiran.Text = ""
Nilai_Tugas.Text = ""
Nilai_UTS.Text = ""
Nilai_UAS.Text = ""
Nilai_Akhir.Text = ""
Nilai_Huruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
LV.Items.Clear()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
Post a Comment