Posting kali ini membuat program nilai mahasiswa. Tenang, saya akan tetap berikan sourcecodenya juga. Silakan design form kalian masing-masing.
Silakan isi list programnya.
Public Class Form1
Dim w As Byte
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
hidupmati(False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False)
w = 1
rubahbutton(True, False, False, False, False, True)
buattabel()
NPM.Items.Add("13110057")
NPM.Items.Add("13120147")
NPM.Items.Add("13130289")
NPM.Items.Add("13120344")
NPM.Items.Add("13110490")
kodedosen.Items.Add("lab01")
kodedosen.Items.Add("lab02")
kodedosen.Items.Add("lab03")
kodematakuliah.Items.Add("K01")
kodematakuliah.Items.Add("K02")
kodematakuliah.Items.Add("K03")
Dim x As Integer
For x = 100 To 1 Step -3
nHadir.Items.Add(x)
nTugas.Items.Add(x)
nUTS.Items.Add(x)
nUAS.Items.Add(x)
Next
nakhir.Enabled = False
huruf.Enabled = False
ket.Enabled = False
End Sub
Sub jurjen()
Dim jen = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If jen = "11" Then
jenjang.Text = "S1"
ElseIf jen = "12" Then
jenjang.Text = "D3"
ElseIf jen = "13" Then
jenjang.Text = "D1"
End If
If jur = "00" Then
jurusan.Text = "TI"
ElseIf jur = "01" Then
jurusan.Text = "SI"
ElseIf jur = "02" Then
jurusan.Text = "MI"
ElseIf jur = "03" Then
jurusan.Text = "KA"
ElseIf jur = "04" Then
jurusan.Text = "DG"
End If
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = "13110057" Then
nama.Text = "Abya Aliya"
Call jurjen()
ElseIf NPM.Text = "13120147" Then
nama.Text = "Soenan Widjaya"
Call jurjen()
ElseIf NPM.Text = "13130289" Then
nama.Text = "Eric Evan"
Call jurjen()
ElseIf NPM.Text = "13120344" Then
nama.Text = "Vita Sara"
Call jurjen()
ElseIf NPM.Text = "13110490" Then
nama.Text = "Firman Muhammad"
Call jurjen()
End If
End Sub
Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
If kodedosen.Text = "lab01" Then
namadosen.Text = "Mesran, M.Kom"
ElseIf kodedosen.Text = "lab02" Then
namadosen.Text = "Guidio Leonarde Ginting, M.Kom"
ElseIf kodedosen.Text = "lab03" Then
namadosen.Text = "Surya Darma Nst, M.Kom"
End If
End Sub
Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged
If kodematakuliah.Text = "K01" Then
namamatakuliah.Text = "Pemrograman Visual I"
ElseIf kodematakuliah.Text = "K02" Then
namamatakuliah.Text = "Sistem Basis Data"
ElseIf kodematakuliah.Text = "K03" Then
namamatakuliah.Text = "Arsitektur Data"
End If
End Sub
Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bproses.Click
nAkhir.Text = 0.1 * nHadir.Text + 0.15 * nTugas.Text + 0.3 * nUTS.Text + 0.45 * nUAS.Text
If nakhir.Text >= 90 Then
huruf.Text = "A"
ket.Text = "LULUS"
ElseIf nakhir.Text >= 80 Then
huruf.Text = "B"
ket.Text = "LULUS"
ElseIf nakhir.Text >= 70 Then
huruf.Text = "C"
ket.Text = "LULUS"
ElseIf nakhir.Text >= 60 Then
huruf.Text = "D"
ket.Text = "LULUS"
ElseIf nakhir.Text <= 50 Then
huruf.Text = "E"
ket.Text = "GAGAL"
End If
End Sub
Sub bersih()
NPM.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kodedosen.Text = ""
namadosen.Text = ""
kodematakuliah.Text = ""
namamatakuliah.Text = ""
nHadir.Text = ""
ntugas.Text = ""
nUTS.Text = ""
nUAS.Text = ""
nakhir.Text = ""
huruf.Text = ""
ket.Text = ""
NPM.Focus()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click
bersih()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click
Me.Close()
End Sub
Sub buattabel()
LV.Columns.Add("No", 30, HorizontalAlignment.Center)
LV.Columns.Add("NPM", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Jenjang", 70, HorizontalAlignment.Left)
Lv.Columns.Add("Jurusan", 70, HorizontalAlignment.Left)
LV.Columns.Add("Kode", 70, HorizontalAlignment.Left)
LV.Columns.Add("Dosen", 70, HorizontalAlignment.Left)
LV.Columns.Add("Kode", 70, HorizontalAlignment.Left)
LV.Columns.Add("Mata Kuliah", 70, HorizontalAlignment.Left)
LV.Columns.Add("Kehadiran", 70, HorizontalAlignment.Left)
Lv.Columns.Add("Nilai Tugas", 70, HorizontalAlignment.Left)
LV.Columns.Add("UTS", 70, HorizontalAlignment.Left)
LV.Columns.Add("UAS", 70, HorizontalAlignment.Left)
Lv.Columns.Add("Nilai Akhir", 70, HorizontalAlignment.Left)
LV.Columns.Add("Huruf", 70, HorizontalAlignment.Left)
LV.Columns.Add("Ket", 70, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim Isi As New ListViewItem
Isi.Text = w
Isi.SubItems.Add(NPM.Text)
Isi.SubItems.Add(nama.Text)
Isi.SubItems.Add(jenjang.Text)
Isi.SubItems.Add(jurusan.Text)
Isi.SubItems.Add(kodedosen.Text)
Isi.SubItems.Add(namadosen.Text)
Isi.SubItems.Add(kodematakuliah.Text)
Isi.SubItems.Add(namamatakuliah.Text)
Isi.SubItems.Add(nHadir.Text)
Isi.SubItems.Add(ntugas.Text)
Isi.SubItems.Add(nUTS.Text)
Isi.SubItems.Add(nUAS.Text)
Isi.SubItems.Add(nakhir.Text)
Isi.SubItems.Add(huruf.Text)
Isi.SubItems.Add(ket.Text)
Lv.Items.Add(Isi)
w = w + 1
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click
isitabel()
End Sub
Sub hidupmati(ByVal q1 As Boolean, ByVal q2 As Boolean, ByVal q3 As Boolean, ByVal q4 As Boolean, ByVal q5 As Boolean, ByVal q6 As Boolean, ByVal q7 As Boolean, ByVal q8 As Boolean, ByVal q9 As Boolean, ByVal q10 As Boolean, ByVal q11 As Boolean, ByVal q12 As Boolean, ByVal q13 As Boolean, ByVal q14 As Boolean, ByVal q15 As Boolean, ByVal q16 As Boolean)
NPM.Enabled = q1
nama.Enabled = q2
jenjang.Enabled = q3
jurusan.Enabled = q4
kodedosen.Enabled = q5
namadosen.Enabled = q6
kodematakuliah.Enabled = q7
namamatakuliah.Enabled = q8
nHadir.Enabled = q9
nTugas.Enabled = q10
nUTS.Enabled = q11
nUAS.Enabled = q12
nAkhir.Enabled = q13
huruf.Enabled = q14
ket.Enabled = q15
LV.Enabled = q16
End Sub
Private Sub bbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbaru.Click
hidupmati(True, True, True, True, True, True, True, True, True, True, True, True, False, False, False, True)
rubahbutton(True, True, True, True, True, True)
NPM.Focus()
bersih()
End Sub
Private Sub HapusItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusitem.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Sub rubahbutton(ByVal e1 As Boolean, ByVal e2 As Boolean, ByVal e3 As Boolean, ByVal e4 As Boolean, ByVal e5 As Boolean, ByVal e6 As Boolean)
bbaru.Enabled = e1
bsimpan.Enabled = e2
bproses.Enabled = e3
bhapus.Enabled = e4
hapusitem.Enabled = e5
bkeluar.Enabled = e6
End Sub
End Class
Silakan copas gaes, semoga bermanfaat. Gud Nite.
Tidak ada komentar:
Posting Komentar