Latihan Form Nilai Mahasiswa
Public Class Form3
Sub buattabel()
LV.Columns.Add("npm", 80, HorizontalAlignment.Center)
LV.Columns.Add("nama", 80, HorizontalAlignment.Left)
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110328")
npm.Items.Add("12020328")
npm.Items.Add("12030328")
kode_dosen.Items.Add("D01")
kode_dosen.Items.Add("D02")
kode_dosen.Items.Add("D03")
kode_matakuliah.Items.Add("M01")
kode_matakuliah.Items.Add("M02")
kode_matakuliah.Items.Add("M03")
Dim i As Integer
For i = 1 To 100
nilai_kehadiran.Items.Add(i)
Next i
i = 1
Do While i <= 100
nilaitugas.Items.Add(i)
i = i + 1
Loop
i = 100
Do Until i = 0
nilaiuts.Items.Add(i)
i = i - 1
Loop
i = 100
While i >= 1
nilaiuas.Items.Add(i)
i = i - 1
End While
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subhapus.Click
Me.Close()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subproses.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kode_dosen.Text = ""
nama_dosen.Text = ""
kode_matakuliah.Text = ""
namamatakuliah.Text = ""
nilai_kehadiran.Text = ""
nilaitugas.Text = ""
nilaiakhir.Text = ""
nilaiuas.Text = ""
nilaiuts.Text = ""
nilaihuruf.Text = ""
keterangan.Text = ""
npm.Focus()
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110555"
nama.Text = "RAUDATUL HASANAH"
Case "12020328"
nama.Text = "FITRI"
Case "12110666"
nama.Text = "HERNI"
End Select
Dim x As String
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
Select Case x
Case "11"
jenjang.Text = "S1"
jurusan.Text = "Sistem Informasi"
Case "02"
jenjang.Text = "D3"
jurusan.Text = "Teknik Informatika"
Case Else
jenjang.Text = "D1"
jurusan.Text = "Desain Grafis"
End Select
End Sub
Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
Select Case kode_dosen.Text
Case "D01"
nama_dosen.Text = "M Syahrizal, S.Kom"
Case "D02"
nama_dosen.Text = "Mesran, M.Kom"
Case "D03"
nama_dosen.Text = "Sony Sinaga, S.Kom,"
End Select
End Sub
Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
Select Case kode_matakuliah.Text
Case "M01"
namamatakuliah.Text = "Sistem Operasi"
Case "M02"
namamatakuliah.Text = "Pemograman Visual"
Case "M03"
namamatakuliah.Text = "Sistem Basis Data"
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subhapussemua.Click
nilaiakhir.Text = 0.1 * Val(nilai_kehadiran.Text) + 0.15 * Val(nilaitugas.Text) + 0.35 * Val(nilaiuts.Text) + 0.4 * Val(nilaiuas.Text)
Select Case nilaiakhir.Text
Case 100 To 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 = "Lulus"
Case 50 To 59
nilaihuruf.Text = "D"
keterangan.Text = "Gagal"
Case 0 To 49
nilaihuruf.Text = "E"
keterangan.Text = "Gagal"
End Select
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged
End Sub
End Class
