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.
Tidak ada komentar:
Posting Komentar