Soal dari kasus di atas adalah sebagai berikut:
Jika dipilih form NPM maka:
12110447 nama "Mimie"
12120445 nama"Dian"
Dua digit "11 / 12" untuk menunjukan Jenjang dan Jurusan.
Kode_Dosen
"D1" nama dosen "Mesran, M.Kom"
"D2" nama dosen "Tonny Limbong, S.Kom, M.Kom"
Kode_Matakuliah
"MK1" nama matakuliah "Pemograman Visual"
"MK2" nama matakuliah "Sistem Basis Data"
Nilai_Angka = 10% Nilai_Kehadiran + 15% Nilai_Tugas + 35% Nilai_UTS + 40% Nilai_UAS.
Dengan Keterangan lulus:
80 - 100 "A" keterangan "LULUS"
70 - 79 "B" keterangan "LULUS"
60 - 69 "C" keterangan "LULUS"
50 - 59 "D" keterangan "GAGAL"
49 "E" keterangan "GAGAL"
Berikut list program yang di input :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110447")
NPM.Items.Add("12120445")
Kode_Dosen.Items.Add("D1")
Kode_Dosen.Items.Add("D2")
Kode_Matakuliah.Items.Add("MK1")
Kode_Matakuliah.Items.Add("MK2")
Dim i As Integer
For i = 1 To 100
Nilai_Kehadiran.Items.Add(i)
Next i
i = 1
Do While i <= 100
Nilai_Tugas.Items.Add(i)
i = i + 1
Loop
i = 100
Do Until i = 0
Nilai_UTS.Items.Add(i)
i = i - 1
Loop
i = 100
While i >= 1
Nilai_UAS.Items.Add(i)
i = i - 1
End While
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12110447"
Nama.Text = "Mimie"
Case "12120445"
Nama.Text = "Dian Fadillah"
Case "....."
Nama.Text = "...."
Case Else
Nama.Text = "-"
End Select
Dim x As String
x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
Select Case x
Case "11"
Jenjang.Text = "SI"
Jurusan.Text = "Sistem Informasi"
Case "12"
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 "D1"
Nama_Dosen.Text = "Mesran m.kom"
Case "D2"
Nama_Dosen.Text = "Tonny Limbong,S.Kom,M.Kom"
Case "....."
Nama_Dosen.Text = "....."
Case Else
Nama_Dosen.Text = "-"
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 "MK1"
Nama_Matakuliah.Text = "Pemograman Visual"
Case "MK2"
Nama_Matakuliah.Text = "Sistem Basis Data"
Case "....."
Nama_Matakuliah.Text = "....."
Case Else
Nama_Matakuliah.Text = "-"
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 = ""
Kode_Dosen.Text = ""
Nama_Dosen.Text = ""
Kode_Matakuliah.Text = ""
Nama_Matakuliah.Text = ""
Nilai_Kehadiran.Text = ""
Nilai_Tugas.Text = ""
Nilai_UTS.Text = ""
Nilai_UAS.Text = ""
Nilai_Angka.Text = ""
Nilai_Huruf.Text = ""
Keterangan.Text = ""
NPM.Focus()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
Nilai_Angka.Text = 0.1 * Val(Nilai_Kehadiran.Text) + 0.15 * Val(Nilai_Tugas.Text) + 0.35 * Val(Nilai_UTS.Text) + 0.4 * Val(Nilai_UAS.Text)
Select Case Nilai_Angka.Text
Case Is >= 100
Nilai_Huruf.Text = "A"
Keterangan.Text = "LULUS"
Case 70 To 79
Nilai_Huruf.Text = "B"
Keterangan.Text = "LULUS"
Case 60 To 69
Nilai_Huruf.Text = "C"
Keterangan.Text = "LULUS"
Case 50 To 59
Nilai_Huruf.Text = "D"
Keterangan.Text = "GAGAL"
Case Is <= 49
Nilai_Huruf.Text = "E"
Keterangan.Text = "GAGAL"
End Select
End Sub
End Class
Untuk menjalankan program tekan tombol Debug atau F5, dan hasilnya dapat dilihat sebagai berikut:
Selamat mencoba di rumah....!!!
:)