Cara Membuat Program Pengimputan Nilai Mahasiswa dengan VB.Net 2008

Selamat Siang !!!
Terimakasih telah berkunjung di Blog Nasib Marbun . 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 :

•  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"

• Name TextBox

Nama = "nama"
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"

• ListView

 ListView1 = "lv"

• Data Input 

NPM
Nama
Mata Kuliah
Nilai UTS
Nilai UAS
Nilai Angka
Nilai Huruf

• Fungsi Setiap Button 

Proses = Menghasilkan Nilai angka dan Nilai Huruf
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

• 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)

• 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

•  Double Klik Hapus Data

Ketikkan Koding :
        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 = ""

• Double Klik Hapus List

Ketikkan Koding :
 lv.Items.Clear()

•  Double Klik Hapus NPM

Ketikkan Koding :
lv.Items.Remove(lv.SelectedItems(0))

• Double Klik Keluar

Ketikkan Koding :
Me.Close()


Setelah Pengetikan Koding selesai silahkan Tekan Tombol F5 untuk menjalankan Program !!!















Program telah selesai, Semoga Artikel Cara Membuat Program Pengimputan Nilai Mahasiswa dengan VB.Net 2008 ini dapat bermanfaat bagi anda !!!