Pengolahan NILAI MAHASISWA
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("13110657")
NPM.Items.Add("13110636")
NPM.Items.Add("13110641")
NPM.Items.Add("13110643")
NPM.Items.Add("13110666")
NPM.Items.Add("13110917")
Kd_dosen.Items.Add("MS004303")
Kd_dosen.Items.Add("YS004306")
Kd_dosen.Items.Add("TL004307")
Kd_dosen.Items.Add("MN004305")
Kd_dosen.Items.Add("MP004304")
Kd_dosen.Items.Add("PS004309")
Kd_MK.Items.Add("SD03")
Kd_MK.Items.Add("SO03")
Kd_MK.Items.Add("SBD03")
Kd_MK.Items.Add("PV03")
Kd_MK.Items.Add("MTL02")
Kd_MK.Items.Add("KD02")
Dim x As Integer
For x = 100 To 1 Step -1
Nilaikehadiran.Items.Add(x)
Nilaitugas.Items.Add(x)
nilaiuts.Items.Add(x)
nilaisuas.Items.Add(x)
Next
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "13110657"
nama.Text = "Syawaluddin Nainggolan"
jurusan.Text = "Teknik Informatika"
jenjang.Text = "S1"
Case "13110636"
nama.Text = "Dini Audina"
jurusan.Text = "Sistem Informasi"
jenjang.Text = "S1"
Case "13110641"
nama.Text = "Hidayat"
jurusan.Text = "Manajemen"
jenjang.Text = "PASKA SARJANA"
Case "13110643"
nama.Text = "Suhendrik"
jurusan.Text = "Akutansi"
jenjang.Text = "DI"
Case "13110666"
nama.Text = "Bagus Darwanto"
jurusan.Text = "Teknk Industri"
jenjang.Text = "DIII"
Case "13110917"
nama.Text = "Suhairi Triyadhi"
jurusan.Text = "Teknik Informatika"
jenjang.Text = "S1"
End Select
End Sub
Private Sub Kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_dosen.SelectedIndexChanged
Select Case Kd_dosen.Text
Case "MS004303"
namadosen.Text = "marzuki sinambela s.kom, m.kom "
Case "YS004306"
namadosen.Text = "yasir hasan s.kom, m.kom "
Case "TL004307"
namadosen.Text = "tonni limbong s.kom, m.kom "
Case "MP004304"
namadosen.Text = "megaria purba s.si, m.kom "
Case "MN004305"
namadosen.Text = "mesran s.kom, m.kom "
Case "PS004309"
namadosen.Text = "priswanto s.kom, m.kom "
End Select
End Sub
Private Sub Kd_MK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_MK.SelectedIndexChanged
Select Case Kd_MK.Text
Case "SD03"
matakuliah.Text = "Struktur Data"
Case "SO03"
matakuliah.Text = "Sistem Operasi"
Case "SBD03"
matakuliah.Text = "Sistem Basis Data"
Case "PV03"
matakuliah.Text = "Pemograman Visual"
Case "MTL02"
matakuliah.Text = "Matriks dan Transformasi Linier"
Case "KD02"
matakuliah.Text = "Komunikasi Data"
End Select
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.35 * nilaiuts.Text + 0.4 * nilaisuas.Text
If nilaiakhir.Text >= 50 Then
keterangan.Text = "Lulus"
Else
keterangan.Text = "Gagal"
End If
If nilaiakhir.Text >= 80 Then
nilaihuruf.Text = "A"
ElseIf nilaiakhir.Text >= 70 Then
nilaihuruf.Text = "B"
ElseIf nilaiakhir.Text >= 60 Then
nilaihuruf.Text = "C"
ElseIf nilaiakhir.Text >= 50 Then
nilaihuruf.Text = "D"
Else
nilaihuruf.Text = "E"
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 = ""
Kd_dosen.Text = ""
namadosen.Text = ""
Kd_MK.Text = ""
matakuliah.Text = ""
Nilaikehadiran.Text = ""
Nilaitugas.Text = ""
nilaiuts.Text = ""
nilaisuas.Text = ""
nilaiakhir.Text = ""
nilaihuruf.Text = ""
jurusan.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
End Class
Demikilahlah postingan saya...