ini merupakan tugas program sederhana penilaian mahasiswa yang di beri pada kelas TI-M1222 smester ganjil.
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110662")
NPM.Items.Add("12110663")
NPM.Items.Add("12110664")
NPM.Items.Add("12110665")
kodedosen.Items.Add("1110")
kodedosen.Items.Add("1111")
kodedosen.Items.Add("1112")
kodemakul.Items.Add("A011")
kodemakul.Items.Add("A012")
kodemakul.Items.Add("A013")
For i =
100 To 1 Step
-1
NK.Items.Add(i)
Next i
For i =
100 To 1 Step
-1
N_Tugas.Items.Add(i)
Next i
For i =
100 To 1 Step
-1
N_UTS.Items.Add(i)
Next i
For i =
100 To 1 Step
-1
N_UAS.Items.Add(i)
Next i
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NPM.SelectedIndexChanged
Select Case NPM.Text
Case
"12110662"
Nama.Text = "Fajar"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case
"12110663"
Nama.Text = "Ridho"
Jenjang.Text = "D3"
Jurusan.Text = "Managemen Informatika"
Case
"12110664"
Nama.Text = "Rahmad"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case
"12110665"
Nama.Text = "Arifin"
Jenjang.Text = "S1"
Jurusan.Text = "sitem imformasi"
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
"1110"
Nama_dosen.Text = "Mesran,M.Kom"
Case
"1111"
Nama_dosen.Text = "megaria purba,M.Kom"
Case
"1112"
Nama_dosen.Text = "Rival,S.Kom"
Case
Else
Nama.Text = "Kennedi Tampubolon"
End Select
End Sub
Private Sub kodemakul_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kodemakul.SelectedIndexChanged
Select Case kodemakul.Text
Case
"A011"
Makul.Text = "Pemrograman Visual"
Case
"A012"
Makul.Text = "Arsitektur dan Organisasi"
Case
"A013"
Makul.Text = "Sistem
Basis Data"
Case
Else
Makul.Text = "Matriks dan Transformasi Linear"
End Select
End Sub
Private Sub btn_proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_proses.Click
NA.Text = 0.1 * NK.Text + 0.15 *
N_Tugas.Text + 0.3 * N_UTS.Text + 0.45 * N_UAS.Text
If
NA.Text >= 80 Then
ket.Text = "Dengan
Pujian"
ElseIf
NA.Text >= 75 Then
ket.Text = "Sangat
Memuaskan"
ElseIf
NA.Text >= 70 Then
ket.Text = "Memuaskan"
ElseIf
NA.Text >= 65 Then
ket.Text = "Cukup
Memuaskan"
ElseIf
NA.Text >= 60 Then
ket.Text = "Cukup"
ElseIf
NA.Text >= 50 Then
ket.Text = "Tidak
Memuaskan"
Else
ket.Text = "Gagal"
End If
End Sub
Private Sub btn_keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_keluar.Click
End
End Sub
Private Sub btn_hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_hapus.Click
NPM.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
kodedosen.Text = ""
Nama_dosen.Text = ""
kodemakul.Text = ""
Makul.Text = ""
NK.Text = ""
N_Tugas.Text = ""
N_UTS.Text = ""
N_UAS.Text = ""
NA.Text = ""
ket.Text = ""
End Sub
End Class
