Selamat
Siang !!!
Terimakasih telah berkunjung di Blog Ilmu komputer
Kali ini saya menuliskan Artikel Cara Membuat Program Pengimputan Nilai Mahasiswa
dengan VB.Net 2008. Tujuan dari peulisan artikel ini tidak lain untuk membantu anda yang
sedang membuat program yang sama seperti judul diatas agar lebih memperkecil
kesulitan anda dalam pembuatan program tersebut.
Ketentuan di dalam Program Pengimputan Nilai Mahasiswa ini yaitu :
Ketentuan di dalam Program Pengimputan Nilai Mahasiswa ini yaitu :
- 7 Buah Label
- 2 Buah Combobox
- 5 Buah TextBox
- 6 Buah Button
- 1 Buah ListView
Pada
Tollbox yang digunakan memiliki ketentuan Name, yaitu :
- Name Combobox
NPM = "npm"
Mata Kuliah = "makul"
Mata Kuliah = "makul"
- Name TextBox
Nama = "nama"
Nilai UTS = "uts"
Nilai UAS = "uas"
Nilai Angka = "angka"
Nilai Huruf = "huruf"
Nilai UTS = "uts"
Nilai UAS = "uas"
Nilai Angka = "angka"
Nilai Huruf = "huruf"
- Name Button
Prosses = "proses"
Hapus Data = "hapusdata"
Isi List = "isilist"
Hapus List = "hapusnpm"
Hapus NPM = "hapusnpm"
Keluar = "keluar"
Hapus Data = "hapusdata"
Isi List = "isilist"
Hapus List = "hapusnpm"
Hapus NPM = "hapusnpm"
Keluar = "keluar"
- ListView
ListView1 = "lv"
- Data Input
NPM
Nama
Mata Kuliah
Nilai UTS
Nilai UAS
Nilai Angka
Nilai Huruf
Nama
Mata Kuliah
Nilai UTS
Nilai UAS
Nilai Angka
Nilai Huruf
- Fungsi Setiap Button
Hapus Data = Menghapus Data yang telah dihasilkan Proses
Isi List = Menyimpan Data ke dalam ListView
Hapus List = Menghapus seluruh data yang ada di dalam ListView
Hapus NPM = Menghapus Data berdasarkan NPM yang dipilih
Keluar = Keluar dari program atau menghentikan program
Langkah-langkah Membuat Pengimputan Nilai Mahasiswa
dengan VB.Net 2008 :
- Mendesain di Form (Seperti Gambar di bawah)
- Mengganti Name TollBox (Sesuai dengan ketentuan)
- Double Klik Form
Ketikkan
Koding :
Call buattabel()
makul.Items.Add("C Sharp")
makul.Items.Add("VB.NET")
makul.Items.Add("Basis Data")
npm.Items.Add("13110126")
npm.Items.Add("13110127")
npm.Items.Add("13110128")
makul.Items.Add("Konsep Pemograman")
makul.Items.Add("Teknik Digital")
makul.Items.Add("Visual Basic")
makul.Items.Add("Komunikasi Data")
End Sub
Call buattabel()
makul.Items.Add("C Sharp")
makul.Items.Add("VB.NET")
makul.Items.Add("Basis Data")
npm.Items.Add("13110126")
npm.Items.Add("13110127")
npm.Items.Add("13110128")
makul.Items.Add("Konsep Pemograman")
makul.Items.Add("Teknik Digital")
makul.Items.Add("Visual Basic")
makul.Items.Add("Komunikasi Data")
End Sub
- Di bawah End Sub Ketikkan :
Sub
buattabel()
lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 150, HorizontalAlignment.Center)
lv.Columns.Add("Mata Kuliah", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai UTS", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai UAS", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Angka", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 150, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitable()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(makul.Text)
lst.SubItems.Add(uts.Text)
lst.SubItems.Add(uas.Text)
lst.SubItems.Add(angka.Text)
lst.SubItems.Add(huruf.Text)
lv.Items.Add(lst)
lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 150, HorizontalAlignment.Center)
lv.Columns.Add("Mata Kuliah", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai UTS", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai UAS", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Angka", 150, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 150, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitable()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(makul.Text)
lst.SubItems.Add(uts.Text)
lst.SubItems.Add(uas.Text)
lst.SubItems.Add(angka.Text)
lst.SubItems.Add(huruf.Text)
lv.Items.Add(lst)
- Double Klik Proses
Ketikkan
Koding :
angka.Text = 0.4 * uts.Text + Val(0.6 * uas.Text)
If angka.Text >= 80 Then
huruf.Text = "A"
ElseIf angka.Text >= 70 Then
huruf.Text = "B"
ElseIf angka.Text >= 60 Then
huruf.Text = "C"
ElseIf angka.Text >= 50 Then
huruf.Text = "D"
Else
huruf.Text = "E"
End If
angka.Text = 0.4 * uts.Text + Val(0.6 * uas.Text)
If angka.Text >= 80 Then
huruf.Text = "A"
ElseIf angka.Text >= 70 Then
huruf.Text = "B"
ElseIf angka.Text >= 60 Then
huruf.Text = "C"
ElseIf angka.Text >= 50 Then
huruf.Text = "D"
Else
huruf.Text = "E"
End If
- Double Klik Hapus Data
Ketikkan Koding :
npm.Text = ""
nama.Text = ""
makul.Text = ""
uts.Text = ""
uas.Text = ""
angka.Text = ""
huruf.Text = ""
npm.Text = ""
nama.Text = ""
makul.Text = ""
uts.Text = ""
uas.Text = ""
angka.Text = ""
huruf.Text = ""
- Double Klik Isi List
Ketikkan
Koding :
Call isitable()
npm.Text = ""
nama.Text = ""
makul.Text = ""
uts.Text = ""
uas.Text = ""
angka.Text = ""
huruf.Text = ""
Call isitable()
npm.Text = ""
nama.Text = ""
makul.Text = ""
uts.Text = ""
uas.Text = ""
angka.Text = ""
huruf.Text = ""
- Double Klik Hapus List
Ketikkan
Koding :
lv.Items.Clear()
lv.Items.Clear()
- Double Klik Hapus NPM
Ketikkan
Koding :
lv.Items.Remove(lv.SelectedItems(0))
lv.Items.Remove(lv.SelectedItems(0))
- Double Klik Keluar
Me.Close()
Setelah Pengetikan Koding selesai silahkan Tekan Tombol F5 untuk menjalankan Program !!!