Mahasiswa/i STMIK BUDIDARMA MEDAN
 Senin, 18 November 2013Belajar Membuat Program Sederhana dengan menggunakan Visual Basic
Hallo Sahabat Qu...................
Blognya Irwan Gowasa 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 Irwan Gowasa selain membuat postingan ini sekaligus menyelesaikan Tugas Belajar Membuat Program Sederhana Dengan Menggunakan Visual Basic
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 Belajar Membuat Program Sederhana dengan menggunakan Visual Basic
Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load NPM.Items.Add("12110333") NPM.Items.Add("12110047") NPM.Items.Add("12115933") KodeDosen.Items.Add("201") KodeDosen.Items.Add("202") KodeDosen.Items.Add("203") KodeMatakuliah.Items.Add("A11") KodeMatakuliah.Items.Add("A12") KodeMatakuliah.Items.Add("A13") 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 Select Case NPM.Text Case "12110333" Nama.Text = "Irwan Gowasa" Jenjang.Text = "S1" Jurusan.Text = "Teknik informatika" Case "12110047" Nama.Text = "Eko" Jenjang.Text = "S1" Jurusan.Text = "Sistem informasi" Case "12115933" Nama.Text = "Febri Riswanda" Jenjang.Text = "D3" Jurusan.Text = "Teknik Informatika" Case Else Nama.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 "201" NamaDosen.Text = "Mesran S.Kom, M.Kom" Case "202" NamaDosen.Text = "Guidio M.Kom" Case "203" NamaDosen.Text = "Sinar Sinurat ST, 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 If Jenjang.Text = "1" Then Jenjang.Text = "Diploma 1" ElseIf Jenjang.Text = "3" Then Jenjang.Text = "Diploma 3" ElseIf Jenjang.Text = "4" Then Jenjang.Text = "Strata 1" End If If Jurusan.Text = "01" Then Jurusan.Text = "Manajemen Informatika" ElseIf Jurusan.Text = "02" Then Jurusan.Text = "Sistem Informatika" ElseIf Jurusan.Text = "03" Then Jurusan.Text = "Teknik komputer" ElseIf Jurusan.Text = "04" Then Jurusan.Text = "Akuntansi" 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 "A11" NamaMatakuliah.Text = "Pemrograman Visual" Case "A12" NamaMatakuliah.Text = "Komunikasi Data" Case "A13" NamaMatakuliah.Text = "Struktur Data" Case Else NamaMatakuliah.Text = "_" End Select End Sub End Class Dan jika postingan Contoh Belajar Membuat Program Sederhana dengan menggunakan Visual Basic ini di jalan akan menjadi seperti ini,  Nah sekianlah postingan ini, Contoh Belajar Membuat Program Sederhana dengan menggunakan Visual Basic semoga dapat bermanfaat untuk sahabat semua. Terima kasih.
Langganan:
Komentar (Atom)
| |||||||||||||||||||||||||||||||||
