Membuat Aplikasi Grade Mahasiswa di VB.Net

Pada kesempatan kali ini saya akan mencoba menjelaskan cara membuat aplikasi grade nilai mahasiswa, sebenarnya ini adalah tugas yang diberikan oleh dosen saya untuk menggantikan pertemuan kuliah minggu depan yang ditiadakan, karena biasanya seminggu menjelang UTS ada beberapa dosen yang meniadakan pertemuan kuliah dan menggantikanya dengan tugas (saya biasa menyebutnya Minggu tenang), tapi tidak semua dosen dikampus saya menerapkan budaya seperti itu, padahal menurut saya itu kan salah satu bentuk simbiosis mutualisme yang saling menguntungkan? jadi pak dosen dapat libur dan saya dapet waktu tidur tambahan yang sangat berharga  . tapi saya menghargai keputusan bapak/ibu dosen yang lain dan Alhamdulillah malam ini tugas dari si Ibu dosen mata kuliah Aplikasi Visual ini sudah selesai dan saya bisa membagikan step-step pembuatan apliaksi ini untuk teman-teman blogger semua barang kali ada yang mendapatkan tugas serupa. semoga penjelasan saya nanti mudah dipahami ya. oke langsung aja simak step by stepnya berikut ini

• Step pertama, kita harus  punya Aplikasi Visual Studio 2013, kalo belum punya silahkan download di website resminya. saat mendownload saya sarankan pilih yang Express saja karena lebih ringan dan fiturnya cukup lengkap.

• Step kedua buka aplikasi, create new project - windows form Application - beri nama "GRADENILAI" - OK 

Aplikasi Grade nilai mahasiswa

• Step Ketiga buatlah Form seperti gambar dibawah ini

Aplikasi Grade nilai mahasiswa

Ket :

1. Nama Form = Grade nilai
2. Data Menggunakan Grup Box, nama Variabel = datamah
3. Nim menggunakan Label, Nama Variabel tidak dirubah
4. Nama Mahasiswa menggunakan Label, Nama Varibel tidak dirubah
5. TexBox1 menggunakan Textbox, Nama Variabel = NIM1
6. TextBox2 menggunakan Textbox, nama Variabel = NAMA1
7. Nilai Menggunakan Grup Box, nama Variabel =Nilai
8. Nilai UTS menggunakan Label, nama Variabel tidak dirubah
9. Nilai UAS menggunakan Label, nama Variabel tidak dirubah
10. Nilai Tugas menggunakan Label, nama Variabel tidak dirubah
11. Nilai Absen menggunakan Label, nama Variabel tidak dirubah
12. Textbox3/Textbox nilai UTS menggunakan Textbox, nama Variabel = UTS
13. Textbox4/Textbox nilai UAS menggunakan Textbox, nama Variabel = UAS
14. Textbox 5/Textbox nilai tugas menggunakan Textbox, nama Variabel = TUGAS
15. Textbox 6/ Textbox nilai Absen menggunakan Textbox, nama Variabel = ABSEN
16. Button Proses menggunakan Button, nama variabel = proses
17. Button Reset menggunakan Button, nama Variabel = reset
18. Button Cetak menggunakan Buttin, nama Variabel = Cetak
19. nilai & grade menggunakan Label, nam Variabel tidak dirubah
20. Textbox nilai menggunakan Textbox, atur sedemikian rupa, nama Variabel = NILAI, Disabled = True
21. Textbox grade menggunakan Textbox, atur sedemikian rupa, nama Variabel = GRADE1, Disabled true
22. Copyright ...... Abaikan

• Double click pada form1 pada bagian solution explorer,  langsung dengan double click pada form, copy kode berikut lalu pastekan kedalamnya

    Dim UTS1 As Integer = 0
    Dim UAS1 As Integer = 0
    Dim TUGAS1 As Integer = 0
    Dim ABSEN1 As Integer = 0
    Dim Jumlah As Integer = 0
    Dim Rata As Integer = 0
    Dim Grade As String = ""
    Dim Nama2 As String = ""
    Dim Nin As String = ""

• Berikutnya Kembali ke Design Form, double click button proses lalu copy kodingan berikut dan pastekan ke dalamnya

 UTS1 = Val(UTS.Text)
        UAS1 = Val(UAS.Text)
        TUGAS1 = Val(TUGAS.Text)
        ABSEN1 = Val(ABSEN.Text)
        Nama2 = NAMA1.Text
        Nin = NIM1.Text

        Jumlah = UTS1 + UAS1 + TUGAS1 + ABSEN1
        Rata = Jumlah / 4

        If Rata >= 85 Then
            Grade = "A"
        ElseIf Rata >= 75 Then
            Grade = "B"
        ElseIf Rata >= 60 Then
            Grade = "C"
        ElseIf Rata >= 40 Then
            Grade = "D"
        ElseIf Rata >= 0 Then
            Grade = "E"
        End If

        NILAI.Text = Rata
        GRADE1.Text = Grade
        Cetak.Enabled = True

• Berikutnya kembali ke design form,  Double klik button reset lalu copy kodingan berikut ini dan paste kan ke dalam nya

        Cetak.Enabled = False
        Me.NAMA1.Clear()
        Me.NIM1.Clear()
        Me.UTS.Clear()
        Me.UAS.Clear()
        Me.ABSEN.Clear()
        Me.TUGAS.Clear()
        Me.NILAI.Clear()
        Me.GRADE1.Clear()

• Kembali ke design form double click button Cetak,  copy kodingan berikut ini lalu paste kan kedalamnya

        Dim nilaio = Rata.ToString
        Dim gradeo = Grade.ToString
        MsgBox("Nama : " + Nama2 + Chr(13) + Chr(10) + "NIM : " + Nin + Chr(13) + Chr(10) + "NILAI : " + nilaio + Chr(13) + Chr(10) + "GRADE : " + gradeo + Chr(13) + Chr(10))

Apabila teman-teman semua benar melakukan step nya maka program sudah bisa di running, apabila ada kesalahan silahkan lihat pesan errornya dan segera diperbaiki. program yang suadh di running akan menampilkan form seperti berikut 

Aplikasi grade nilai mahasiswa

Apabila di isi dengan data yang benar kita meng klik button proses maka akan textbox nilai dan grade akan terisi hasil nilai dan grade, apabila kita klik button cetak maka aplikasi akan menampilkan popup message berisi informasi Nim, Nama, Nilai dan Grade.

Aplikasi grade nilai mahasiswa

Apabila Button Reset di klik maka seluriuh Textbox yang ada di form akan kosong, dan Button Cetak disabled nya menjadi False.

Demikianlah tutorial singkat Membuat aplikasi grade nilai mahasiswa dengan VB.NET yang sudah saya jelaskan diatas, apabila ada yang tidak jelas dan koreksi atau ada pertanyaan seputar Visual studio saya sangat terbuka dan mepersilahkan bagi semua pembaca untuk berkomentar. atau bagi pembaca semua yang ingin source code aplikasi sederhana ini silahkan bisa langsung mencantumkan Email via komentar dibawah postingan Insyallah saya cepat meresponya. Demikian postingan saya kali ini semoga bermanfaat bagi kita semua