Penginputan Nilai Mahasiswa
Berikut ini perintahnya
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110400")
NPM.Items.Add("12110321")
NPM.Items.Add("12110336")
NPM.Items.Add("12110597")
NPM.Items.Add("12110320")
Kd_Dosen.Items.Add("201")
Kd_Dosen.Items.Add("202")
Kd_Dosen.Items.Add("203")
Kd_Dosen.Items.Add("204")
Kd_Dosen.Items.Add("205")
Kd_Matakuliah.Items.Add("111")
Kd_Matakuliah.Items.Add("112")
Kd_Matakuliah.Items.Add("113")
Kd_Matakuliah.Items.Add("114")
Kd_Matakuliah.Items.Add("115")
Dim x As Integer
For x =
100 To 1 Step
-3
N_Kehadiran.Items.Add(x)
Next
(x)
x = 100
Do While x >= 1
N_Tugas.Items.Add(x)
x = x - 3
Loop
For x =
100 To 1 Step
-3
N_UTS.Items.Add(x)
Next
(x)
For x =
100 To 1 Step
-3
N_UAS.Items.Add(x)
Next
(x)
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NPM.SelectedIndexChanged
Select Case NPM.Text
Case
"12110597"
Nama.Text = "Doni Armando"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case
"12110321"
Nama.Text = "Cahyo Shobirin"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case
"12110336"
Nama.Text = "Dasner Ramon Butarbutar"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case
"12110320"
Nama.Text = "Yuyun Purnomo"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case
"12110400"
Nama.Text = "Steven
"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik
Informatika"
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
"201"
Nama_Dosen.Text = "Kennedi Tampubolon,S.Si"
Case
"202"
Nama_Dosen.Text = "Sinar Sinurat,ST,M.Kom"
Case
"203"
Nama_Dosen.Text = "Mesran,S.Kom,M.Kom"
Case
"204"
Nama_Dosen.Text = "Toni Limbong,S.Kom,M.Kom"
Case
"205"
Nama_Dosen.Text = "Kristian Siregar,S.Kom"
End Select
End Sub
Private Sub Kd_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles
Kd_Matakuliah.SelectedIndexChanged
Select Case Kd_Matakuliah.Text
Case
"111"
Mt_Kuliah.Text = " Kalkulus II "
Case
"112"
Mt_Kuliah.Text = "Matematika Diskrit"
Case
"113"
Mt_Kuliah.Text = "Pemrogaman Visual Basic"
Case
"114"
Mt_Kuliah.Text = " Sistem Basisdata"
Case
"115"
Mt_Kuliah.Text = "HTML"
End Select
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 = ("")
Jurusan.Text = ("")
Kd_Dosen.Text = ("")
Nama_Dosen.Text = ("")
Kd_Matakuliah.Text = ("")
Mt_Kuliah.Text = ("")
N_Kehadiran.Text = ("")
N_Tugas.Text = ("")
N_UTS.Text = ("")
N_UAS.Text = ("")
N_Akhir.Text = ("")
N_Huruf.Text = ("")
Keterangan.Text = ("")
End Sub
Private Sub Btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnproses.Click
N_Akhir.Text = 0.45 * N_UAS.Text + 0.3
* N_UTS.Text + 0.15 * N_Tugas.Text + 0.1 * N_Kehadiran.Text()
If
N_Akhir.Text >= 50 Then
Keterangan.Text = "Lulus"
Else
Keterangan.Text = "Gagal"
End If
If N_Akhir.Text >= 80 Then
N_Huruf.Text = "A"
ElseIf
N_Akhir.Text >= 70 Then
N_Huruf.Text = "B"
ElseIf
N_Akhir.Text >= 60 Then
N_Huruf.Text = "C"
ElseIf
N_Akhir.Text >= 50 Then
N_Huruf.Text = "D"
Else
N_Huruf.Text = "E"
End If
End Sub
Private Sub Btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
Dosen Pmbimbing LINK nya atau Belajar Bahasa Pemrograman
