[SHARE] Cara Membuat Aplikasi Akademik Mahasiswa [Input Data dan Nilai] Menggunakan Visual Basic 2010

Kali ini kita akan belajar membuat aplikasi akademik data mahasiswa yang terdiri dari input NPM , Nilai , Dan Grade . Baik langsung ke praktek gan :D

1. Buka Microsoft Visual Studio 2010 ( versi 2005 dan 2008 pun boleh cuman kodingnya rada beda dikit gan :D )

2. Design tampilan seperti gambar di bawah ini :

Penampakan Design Form

3, Siapakn :

• 2 Group Box 
• 8 Label
• 8 Text Box
• 1 List View
• 2 Button

4. Ganti nama di propertinya seperti pada penampakan berikut :

Penampakan Nama Property

Bagi yang belum mengerti merubah nama di properti lihat penampakan berikut :

Penampakan Memasukan Properti Nama

Sampai sini paham yah

5. Sekarang kita akan membuat tabel di list view , lihat penampakan berikut :

Penampakan Design Form Aplikasi Akademik

Setelah di klik , masukan mantra berikut :

        ListView1.Columns.Add("N0.", 40, HorizontalAlignment.Center)

        ListView1.Columns.Add("NRP", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NILAI TUGAS", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NILAI QUIZ", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NILAI UTS", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NILAI UAS", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NILAI AKHIR", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NILAI MUTU", 100, HorizontalAlignment.Center)

        ListView1.GridLines = True

        ListView1.View = View.Details

        ListView1.FullRowSelect = True

Kopas saja gan biar cepet , yang penting ngerti :D

6. Setelah itu , klik button / tombol yang bertuliskan Input  , lalu masukan mantra berikut gan :

  nama = txtnama.Text

        If txtnrp.Text = Nothing Then

            MsgBox("Input Dulu NRP nya !!", MsgBoxStyle.Information)

        ElseIf txtnama.Text = Nothing Then

            MsgBox("Input Dulu Namanya !!!", MsgBoxStyle.Information)

        ElseIf txttugas.Text = Nothing Then

            MsgBox("Input Dulu Nilai Tugasnya !!!", MsgBoxStyle.Information)

        ElseIf txtquiz.Text = Nothing Then

            MsgBox("Input Dulu Nilai Quiz nya !!! ", MsgBoxStyle.Information)

        ElseIf txtuts.Text = Nothing Then

            MsgBox("Input Dulu Nilai Uts Nya !!!", MsgBoxStyle.Information)

        ElseIf txtuas.Text = Nothing Then

            MsgBox("Input Dulu Nilai Uas nya !!!", MsgBoxStyle.Information)

        Else

            tugas = txttugas.Text

            quiz = txtquiz.Text

            uts = txtquiz.Text

            uas = txtuas.Text

            na = ((0.1 * tugas) + (0.1 * quiz) + (0.3 * uts) + (0.5 * uas))

            txtakhir.Text = na

            no = no + 1

            Dim isi As New ListViewItem

            isi.Text = no

            isi.SubItems.Add(txtnrp.Text)

            If txtnama.Text = nama Then

                isi.SubItems.Add("-")

            Else

                isi.SubItems.Add(txtnama.Text)

            End If

            isi.SubItems.Add(txttugas.Text)

            isi.SubItems.Add(txtquiz.Text)

            isi.SubItems.Add(txtuts.Text)

            isi.SubItems.Add(txtuas.Text)

            isi.SubItems.Add(txtakhir.Text)

            isi.SubItems.Add(txtnilaimutu.Text)

            ListView1.Items.Add(isi)

        End If

        If na = 100 And na >= 81 Then

            txtnilaimutu.Text = "A"

        ElseIf na = 80 And na >= 71 Then

            txtnilaimutu.Text = "B"

        ElseIf na = 70 And na >= 60 Then

            txtnilaimutu.Text = "C"

        ElseIf na = 59 And na >= 50 Then

            txtnilaimutu.Text = "D"

        ElseIf na < 50 Then

            txtnilaimutu.Text = "E"

        End If

        If nama Then

            MessageBox.Show("Masukan Nama Anda Bukan Angka !!!")

        End If

7. Masukan Variabel nya , lihat penampakan berikut :

Masukan mantra variabel di bawah mantra Public Class ok gan :D

 Dim no As Integer
    Dim tugas, quiz, uts, uas, na
    Dim nama As Integer

 8 .Sekarang klik 2 kali tombol/button yang bertuliskan view ,, lalu masukan mantra berikut :

ListView1.Visible = True

9 . Oiya lupa , Cara membuat Group Box supaya ada namanya lihat penampakan berikut :

Penampakan memasukan Text Di Group Box

Ok , Sampai Tahap ini , pembuatan Aplikasi Akademik Mahasiswa [Input Data dan Nilai] Menggunakan Visual Basic 2010 telah selesai , bagi yang ingin filenya silahkan download di alamat di bawah ini :

https://drive.google.com/file/d/0B5wVQWVnzUJ_UFcxYVRSTVJnU1k/view?usp=sharing

Atau Kalau error di mari gan :D

https://app.box.com/s/7fiz6mc9wg82zo9izml9zjzupu8xla32

Silahkan gan , sedot lamot saja :D

Terimakasih :D