Assalamualaikum,,,
Blognya Igaph kembali mempostingkan Contoh Program VB NET 2008 yang sebelumnya mungkin pernah mempostingkan hal yang sama, tapi dengan pokok pembahasan yang berbeda.
Tapi kali ini Blognya Igaph selain membuat postingan ini sekaligus menyelesaikan Tugas Belajar Bahasa Pemrograman.
Tapi kali ini Blognya Igaph selain membuat postingan ini sekaligus menyelesaikan Tugas Belajar Bahasa Pemrograman.
Nah, kali ini yang dibahas adalah Contoh Program Sederhana VB.NET 2008 Form Nilai.
Langsung aja ke TKP.
Pertama, Buka VB.Net 2008 sobat, dan desain form berikut keterangan name nya juga jangan lupa .
setelah di desain, kita gak bisa langsung kelisting programnya, kita harus tau dulu gmana cara kerja Contoh Program Sederhana VB NET 2008 Form Nilai ini.
Ketentuannya adalah :
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 2 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 90 maka nilai huruf = "A", keterangan = "LULUS"
jika nilai akhir lebih dari 80 maka nilai huruf = "B", keterangan = "LULUS"
jika nilai akhir lebih dari 70 maka nilai huruf = "C", keterangan = "LULUS"
jika nilai akhir lebih dari 60 maka nilai huruf = "D", keterangan = "LULUS"
jika nilai akhir dibawah 50 maka nilai huruf = "E", keterangan = "GAGAL"
ini dia listing Contoh Program Sederhana VB NET 2008 Form Nilai.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110102")
NPM.Items.Add("12120244")
NPM.Items.Add("12130346")
NPM.Items.Add("12110496")
NPM.Items.Add("12130557")
kddosen.Items.Add("lab01")
kddosen.Items.Add("lab02")
kddosen.Items.Add("lab03")
kddosen.Items.Add("lab04")
kddosen.Items.Add("lab05")
kdmakul.Items.Add("K01")
kdmakul.Items.Add("K02")
kdmakul.Items.Add("K03")
kdmakul.Items.Add("K04")
kdmakul.Items.Add("K05")
Dim x As Integer
For x = 100 To 1 Step -3
nkehadiran.Items.Add(x)
ntugas.Items.Add(x)
nUTS.Items.Add(x)
nUAS.Items.Add(x)
Next
nakhir.Enabled = False
nhuruf.Enabled = False
keterangan.Enabled = False
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Dim jen = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If NPM.Text = "12110102" Then
nama.Text = "Jailamm Igaph S"
If jen = "11" Then
jenjang.Text = "S1"
ElseIf jen = "12" Then
jenjang.Text = "D3"
ElseIf jen = "13" Then
jenjang.Text = "D1"
End If
If jur = "01" Then
jurusan.Text = "Tehnik Informatika"
ElseIf jur = "02" Then
jurusan.Text = "Sistem Informatika"
ElseIf jur = "03" Then
jurusan.Text = "Manajemen Informatika"
ElseIf jur = "04" Then
jurusan.Text = "Komputerisasi Akuntansi"
ElseIf jur = "05" Then
jurusan.Text = "Desain Grafis"
End If
ElseIf NPM.Text = "12120244" Then
nama.Text = "Chanif Arvani"
If jen = "11" Then
jenjang.Text = "S1"
ElseIf jen = "12" Then
jenjang.Text = "D3"
ElseIf jen = "13" Then
jenjang.Text = "D1"
End If
If jur = "01" Then
jurusan.Text = "Tehnik Informatika"
ElseIf jur = "02" Then
jurusan.Text = "Sistem Informatika"
ElseIf jur = "03" Then
jurusan.Text = "Manajemen Informatika"
ElseIf jur = "04" Then
jurusan.Text = "Komputerisasi Akuntansi"
ElseIf jur = "05" Then
jurusan.Text = "Desain Grafis"
End If
ElseIf NPM.Text = "12130346" Then
nama.Text = "Agus Setiawan"
If jen = "11" Then
jenjang.Text = "S1"
ElseIf jen = "12" Then
jenjang.Text = "D3"
ElseIf jen = "13" Then
jenjang.Text = "D1"
End If
If jur = "01" Then
jurusan.Text = "Tehnik Informatika"
ElseIf jur = "02" Then
jurusan.Text = "Sistem Informatika"
ElseIf jur = "03" Then
jurusan.Text = "Manajemen Informatika"
ElseIf jur = "04" Then
jurusan.Text = "Komputerisasi Akuntansi"
ElseIf jur = "05" Then
jurusan.Text = "Desain Grafis"
End If
ElseIf NPM.Text = "12110496" Then
nama.Text = "Reza Aryansyah"
If jen = "11" Then
jenjang.Text = "S1"
ElseIf jen = "12" Then
jenjang.Text = "D3"
ElseIf jen = "13" Then
jenjang.Text = "D1"
End If
If jur = "01" Then
jurusan.Text = "Tehnik Informatika"
ElseIf jur = "02" Then
jurusan.Text = "Sistem Informatika"
ElseIf jur = "03" Then
jurusan.Text = "Manajemen Informatika"
ElseIf jur = "04" Then
jurusan.Text = "Komputerisasi Akuntansi"
ElseIf jur = "05" Then
jurusan.Text = "Desain Grafis"
End If
ElseIf NPM.Text = "12130557" Then
nama.Text = "Lia Syafitri"
If jen = "11" Then
jenjang.Text = "S1"
ElseIf jen = "12" Then
jenjang.Text = "D3"
ElseIf jen = "13" Then
jenjang.Text = "D1"
End If
If jur = "01" Then
jurusan.Text = "Tehnik Informatika"
ElseIf jur = "02" Then
jurusan.Text = "Sistem Informatika"
ElseIf jur = "03" Then
jurusan.Text = "Manajemen Informatika"
ElseIf jur = "04" Then
jurusan.Text = "Komputerisasi Akuntansi"
ElseIf jur = "05" Then
jurusan.Text = "Desain Grafis"
End If
End If
End Sub
Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
If kddosen.Text = "lab01" Then
namadosen.Text = "Mesran, M.Kom"
ElseIf kddosen.Text = "lab02" Then
namadosen.Text = "Nelly Astuti Hsb, M.Kom"
ElseIf kddosen.Text = "lab03" Then
namadosen.Text = "Surya Darma Nst, M.Kom"
ElseIf kddosen.Text = "lab04" Then
namadosen.Text = "Guidio, M.Kom"
ElseIf kddosen.Text = "lab05" Then
namadosen.Text = "Efori Bu'ulolo, M.Kom"
End If
End Sub
Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmakul.SelectedIndexChanged
If kdmakul.Text = "K01" Then
namamakul.Text = "Pemrograman Visual I"
ElseIf kdmakul.Text = "K02" Then
namamakul.Text = "Sistem Basis Data"
ElseIf kdmakul.Text = "K03" Then
namamakul.Text = "Arsitektur Data"
ElseIf kdmakul.Text = "K04" Then
namamakul.Text = "Sistem Operasi"
ElseIf kdmakul.Text = "K05" Then
namamakul.Text = "Algoritma"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nUTS.Text + 0.45 * nUAS.Text
If nakhir.Text >= 90 Then
nhuruf.Text = "A"
keterangan.Text = "LULUS"
ElseIf nakhir.Text >= 80 Then
nhuruf.Text = "B"
keterangan.Text = "LULUS"
ElseIf nakhir.Text >= 70 Then
nhuruf.Text = "C"
keterangan.Text = "LULUS"
ElseIf nakhir.Text >= 60 Then
nhuruf.Text = "D"
keterangan.Text = "LULUS"
ElseIf nakhir.Text <= 50 Then
nhuruf.Text = "E"
keterangan.Text = "GAGAL"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
NPM.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kddosen.Text = ""
namadosen.Text = ""
kdmakul.Text = ""
namamakul.Text = ""
nkehadiran.Text = ""
ntugas.Text = ""
nUTS.Text = ""
nUAS.Text = ""
nakhir.Text = ""
nhuruf.Text = ""
keterangan.Text = ""
NPM.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Dan Jika Contoh Program Sederhana VB NET 2008 Form Nilai ini di jalan akan menjadi seperti ini,
Nah sekianlah postingan Contoh Program Sederhana VB NET 2008 Form Nilai ini, semoga dapat bermanfaat untuk sahabat semua. Terima kasih.
Posting Komentar