Public Class Form4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnHapus.Click
Nama.Text = ""
NPM.Text = ""
MataKuliah.Text = ""
NamaDosen.Text = ""
NilaiKehadiran.Text = ""
NilaiTugas.Text = ""
NilaiUTS.Text = ""
NilaiUAS.Text = ""
NilaiAkhir.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KodeDosen.Text = ""
KodeMataKuliah.Text = ""
NIlaiHuruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12110695"
Nama.Text = "Siti annisa"
Jenjang.Text = "S1"
Jurusan.Text = "TI"
Case "12110741"
Nama.Text = "Budi"
Jenjang.Text = "D3"
Jurusan.Text = "MI"
Case "12110574"
Nama.Text = "Ayu"
Jenjang.Text = "S1"
Jurusan.Text = "TI"
Case "12110927"
Nama.Text = "Putri"
Jenjang.Text = "S1"
Jurusan.Text = "SI"
Case "1202208"
Nama.Text = "Lisa Ati"
Jenjang.Text = "D3"
Jurusan.Text = "KA"
End Select
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 100 To 1 Step -1
NilaiKehadiran.Items.Add(i)
Next
For i = 100 To 1 Step -1
NilaiTugas.Items.Add(i)
Next
For i = 100 To 1 Step -1
NilaiUTS.Items.Add(i)
Next
For i = 100 To 1 Step -1
NilaiUAS.Items.Add(i)
Next i
NPM.Items.Add("12110574")
NPM.Items.Add("12110741")
NPM.Items.Add("12110695")
NPM.Items.Add("12110927")
NPM.Items.Add("1202208")
KodeMataKuliah.Items.Add("123")
KodeMataKuliah.Items.Add("456")
KodeMataKuliah.Items.Add("789")
KodeMataKuliah.Items.Add("012")
KodeDosen.Items.Add("012")
KodeDosen.Items.Add("345")
KodeDosen.Items.Add("678")
KodeDosen.Items.Add("901")
NilaiAkhir.Enabled = False
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnKeluar.Click
End
End Sub
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnProses.Click
NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
Select Case NilaiAkhir.Text
Case Is >= 80
NIlaiHuruf.Text = "A"
Keterangan.Text = "LULUS"
Case 70 To 79
NIlaiHuruf.Text = "B"
Keterangan.Text = "LULUS"
Case 60 To 69
NIlaiHuruf.Text = "C"
Keterangan.Text = "GAGAL"
Case 50 To 59
NIlaiHuruf.Text = "D"
Keterangan.Text = "GAGAL"
Case Is <= 49
NIlaiHuruf.Text = "E"
Keterangan.Text = "GAGAL"
End Select
NilaiAkhir.Enabled = False
End Sub
Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
Select Case KodeMataKuliah.Text
Case "123"
MataKuliah.Text = "VB"
Case "456"
MataKuliah.Text = "Matriks"
Case "789"
MataKuliah.Text = "arsitektur dan organisasi kom"
Case "012"
MataKuliah.Text = "struktur data"
End Select
NilaiAkhir.Enabled = False
End Sub
Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles KodeDosen.SelectedIndexChanged
Select Case KodeDosen.Text
Case "012"
NamaDosen.Text = "Mesran"
Case "345"
NamaDosen.Text = "Kennedi Tampubolon"
Case "678"
NamaDosen.Text = "Pilipus tarigan."
Case "901"
NamaDosen.Text = "alex riki s."
End Select
End Sub
Private Sub NilaiKehadiran_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles NilaiKehadiran.SelectedIndexChanged
End Sub
Private Sub NilaiAkhir_TextChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NilaiAkhir.TextChanged
End Sub
End Class
