Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
npm.Items.Add("12110485")
npm.Items.Add("12110020")
npm.Items.Add("11120483")
npm.Items.Add("10110478")
kodedosen.Items.Add("KKTI01")
kodedosen.Items.Add("KKTI02")
kodedosen.Items.Add("KKTI03")
kodedosen.Items.Add("KKTI04")
kdmatakuliah.Items.Add("MT01")
kdmatakuliah.Items.Add("MT02")
kdmatakuliah.Items.Add("MT03")
kdmatakuliah.Items.Add("MT04")
Dim i As Integer
For i = 10 To 100
nk.Items.Add(i)
Next i
Dim j As Integer
For j = 10 To 100
nt.Items.Add(j)
Next j
Dim k As Integer
For k = 10 To 100
uts.Items.Add(k)
Next k
Dim l As Integer
For l = 10 To 100
uas.Items.Add(l)
Next l
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110485"
nama.Text = "Dezy Wandrio"
Case "12110020"
nama.Text = " Invandri Lubis"
Case "12020483"
nama.Text = " Firda auli"
Case "12030478"
nama.Text = "Park cu Yoon"
End Select
Dim i As String
i = Microsoft.VisualBasic.Left(npm.Text, 2)
If i = "12" Then
jenjang.Text = "S1"
jurusan.Text = "Teknik Informatika"
ElseIf i = "11" Then
jenjang.Text = "D3"
jurusan.Text = "Manajemen Informatika"
ElseIf i = "10" Then
jenjang.Text = "D1"
jurusan.Text = "Jaringan Komunikasi"
End If
End Sub
Sub BuatTabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Center)
LV.Columns.Add("Kode matakuliah", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama matakuliah", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nilai kehadiran", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nilai tugas", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nilai UAS", 80, 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(Kodedosen.Text)
lst.SubItems.Add(nmdosen.Text)
lst.SubItems.Add(kdmatakuliah.Text)
lst.SubItems.Add(matakuliah.Text)
lst.SubItems.Add(nk.Text)
lst.SubItems.Add(nt.Text)
lst.SubItems.Add(uts.Text)
lst.SubItems.Add(uas.Text)
lst.SubItems.Add(na.Text)
lst.SubItems.Add(nh.Text)
lst.SubItems.Add(Keterangan.Text)
LV.Items.Add(lst)
End Sub
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
Select Case kodedosen.Text
Case "KKTI01"
nmdosen.Text = "Mesran,M.Kom"
Case "KKTI02"
nmdosen.Text = "Ahmad Zakir,St,M.Kom"
Case "KKTI03"
nmdosen.Text = " M.Syahrizal,S.Kom,M.kom"
Case "KKTI04"
nmdosen.Text = "Maranata,ST,M.Kom"
End Select
End Sub
Private Sub kdmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakuliah.SelectedIndexChanged
Select Case kdmatakuliah.Text
Case "MT01"
matakuliah.Text = "struktur data"
Case "MT02"
matakuliah.Text = "Pemograman Visual"
Case "MT03"
matakuliah.Text = "Komunikasi Data"
Case "MT04"
matakuliah.Text = "Arsitektur Dan Organissi"
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * uts.Text + 0.45 * uas.Text
If na.Text >= 80 Then
nh.Text = "A"
keterangan.Text = "Lulus"
ElseIf na.Text >= 70 Then
nh.Text = "B"
keterangan.Text = "Lulus"
ElseIf na.Text >= 60 Then
nh.Text = "C"
keterangan.Text = "Lulus"
ElseIf na.Text >= 50 Then
nh.Text = "D"
keterangan.Text = "Gagal"
Else
nh.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 = ""
jurusan.Text = ""
jenjang.Text = ""
kodedosen.Text = ""
nmdosen.Text = ""
kdmatakuliah.Text = ""
matakuliah.Text = ""
nk.Text = ""
nt.Text = ""
uts.Text = ""
uas.Text = ""
na.Text = ""
nh.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 btnhapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussatu.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
jenjang.Text = ""
kodedosen.Text = ""
nmdosen.Text = ""
kdmatakuliah.Text = ""
matakuliah.Text = ""
nk.Text = ""
nt.Text = ""
uts.Text = ""
uas.Text = ""
na.Text = ""
nh.Text = ""
keterangan.Text = ""
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub
End Class
berikut hasilnya :
GOOD LUCK ...!!!
Tidak ada komentar:
Posting Komentar