Program yg saya post kali ini tentang belajar vb.net dengan menggunakan case,if jamak,if ganda,dan if tunggal..dan juga menambahkan sebuah program dengan keychar yg gunanya untuk mempermudah kita dalam memproses tanpa menekan tombol proses.
Sebelum dijalankan programnya seperti tampilan dibawah ini..
Baik,saya langsung saja memberikan listing programnya..
Ketentuan soal sebagai berikut :
1. Untuk nama, jenjang, dan jurusan ditentukan oleh NPM, hanya saja;
- pada jenjang diambil dari nilai tengah yang dimulai dari 3 karakter pertama sebanyak 2 karater
- jurusan diambil dari nilai tengah yang dimulai dari 5 karakter pertama sebanyak 1 karater.
2. Nama dosen ditentukan oleh Kode dosen.
3. Mata kuliah di tentukan oleh kode mata kuliah
4. Nilai kehadiran, nilai tugas, nilai UTS, nilai UAS menggunakan perulangan dari 100 sampai 1 dan di kelang 3 digit.
5. nilai akhir = 10% * nilai kehadiran + 15 % * nilai tugas + 30% * nilai UTS + 45% * nilai UAS
6. jika nilai akhir lebih dari atau sama dengan 80 maka nilai huruf = "A", keterangan = "LULUS"
jika nilai akhir lebih dari atau sama dengan 70 maka nilai huruf = "B", keterangan = "LULUS"
jika nilai akhir lebih dari atau sama dengan 60 maka nilai huruf = "C", keterangan = "LULUS"
jika nilai akhir lebih dari atau sama 50 maka nilai huruf = "D", keterangan = "LULUS"
jika nilai akhir dibawah 50 maka nilai huruf = "E", keterangan = "GAGAL"
Ini coding programnya:
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12111003")
NPM.Items.Add("13100987")
NPM.Items.Add("12072133")
NPM.Items.Add("12072240")
NPM.Items.Add("12114311")
KodeDosen.Items.Add("700")
KodeDosen.Items.Add("703")
KodeDosen.Items.Add("305")
KodeMatakuliah.Items.Add("C11")
KodeMatakuliah.Items.Add("C12")
KodeMatakuliah.Items.Add("C13")
Dim i As Byte
For i = 1 To 100
NilaiKehadiran.Items.Add(i)
NilaiTugas.Items.Add(i)
NilaiUTS.Items.Add(i)
NilaiUAS.Items.Add(i)
Next
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Dim x, y As String
x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)
Select Case NPM.Text
Case "12111003"
Nama.Text = "Rahmat Hidayat"
Case "13100987"
Nama.Text = "Sherin Dini"
Case "12072133"
Nama.Text = "Tini Anggraini"
Case "12072240"
Nama.Text = "Putri Hamdani"
Case "12114311"
Nama.Text = "Febri Riswanda"
Case Else
Nama.Text = "_"
End Select
Select Case x
Case "11"
Jenjang.Text = "Strata 1"
Case "10"
Jenjang.Text = "DIII"
Case "07"
Jenjang.Text = "DI"
Case Else
Jenjang.Text = "_"
End Select
Select Case y
Case "1"
Jurusan.Text = "Teknik Informatika"
Case "4"
Jurusan.Text = "Sistem Informasi"
Case "0"
Jurusan.Text = "Manajemen Informatika"
Case "2"
Jurusan.Text = "Akutansi"
Case Else
Jurusan.Text = "_"
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 "700"
NamaDosen.Text = "Hery Sunandar, ST, M.kom"
Case "703"
NamaDosen.Text = "Harvei D.Hutahaean, Mkom"
Case "705"
NamaDosen.Text = "Guidio L Ginting S.kom, M.kom"
Case Else
NamaDosen.Text = "_"
End Select
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text
If NilaiAkhir.Text >= 80 Then
NilaiHuruf.Text = "A"
ElseIf NilaiAkhir.Text >= 70 Then
NilaiHuruf.Text = "B"
ElseIf NilaiAkhir.Text >= 60 Then
NilaiHuruf.Text = "C"
ElseIf NilaiAkhir.Text >= 50 Then
NilaiHuruf.Text = "D"
Else
NilaiHuruf.Text = "E"
End If
If NilaiAkhir.Text >= 50 Then
Keterangan.Text = "Lulus"
Else
Keterangan.Text = "Gagal"
End If
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 = ""
KodeDosen.Text = ""
NamaDosen.Text = ""
KodeMatakuliah.Text = ""
NamaMatakuliah.Text = ""
NilaiKehadiran.Text = ""
NilaiTugas.Text = ""
NilaiUTS.Text = ""
NilaiUAS.Text = ""
NilaiAkhir.Text = ""
NilaiHuruf.Text = ""
Keterangan.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Btnproses_Click(sender, e)
End If
End Sub
Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
Select Case KodeMatakuliah.Text
Case "C11"
NamaMatakuliah.Text = "Matriks dan Transpormasi Linear"
Case "C12"
NamaMatakuliah.Text = "Sistem Basis Data"
Case "C13"
NamaMatakuliah.Text = "Komunikasi Data"
Case Else
NamaMatakuliah.Text = "_"
End Select
End Sub
End Class
Dan setelah codingnya dijalankan maka tampilan program seperti di bawah ini.
