Membuat Perhitungan Nilai Mahasiswa di VB.NET 2010

Hallo apa kabarnya ? baik ? bagus deh kalau begitu hehehe. Owh iya saya ingin tanya nih sama kalian, kalian masih SD,SMP,SMA atau sudah KULIAH ? heeem kalau saya sudah kuliah hehehehe.
Belajar yang tekun ya biar mendapatkan nilai yang memuaskan, apalagi kalian jika sudah kuliah tidak bisa main-main lagi.

Dalam dunia pemograman membuat perhitungan nilai mahasiswa tidak hanya di liat dari nilainya saja tetapi dilihat juga dari grade dan keterangannya. Grade adalah sebuah huruf yang biasa dipakai dalam urusan nilai dan keterangannya adalah sebuah keterangan yang akan menjawab dari nilai mahasiswa lulus atau tidaknya.
Pada kesempatan ini saya ingin membuat program perhitungan nilai mahasiswa. Lanjut saja untuk memulai programnya :

Baca Juga : Membuat Login Sederhana di VB.NET 2010

1. Buka Microsoft Visual Studio 2010.
2. Pilih Windows Form Application.
3. Label sebanyak 8.
    Membuat button sebanyak 3 buah yaitu BtnHitung, BtnBersih dan BtnKeluar.
    TextBox sebanyak 7 yaitu : TxtNilaiAbsen, TxtNilaiTugas, TxtNilaiUTS, TxtNilaiUAS, TxtTotalNilai, TxtGrade, TxtKeterangan.
4. GroupBox sebanyak 2
    Warna berada di properties > BackColor.

Setelah selesai maka tampilannya sebagai berikut :

Klik BtnHitung sebanyak 2x lalu isikan codingnya sebagai berikut :

        Dim Absen As Double
        Dim Tugas As Double
        Dim UTS As Double
        Dim UAS As Double
        Dim Grade As String
        Dim TotalNilai As Double
        Dim Keterangan As String

        Keterangan = TxtKeterangan.Text
        Grade = TxtGrade.Text
        Tugas = Val(TxtNilaiTugas.Text)
        UTS = Val(TxtNilaiUts.Text)
        UAS = Val(TxtNilaiUas.Text)
        TotalNilai = (0.1 * Absen + 0.2 * Tugas + 0.3 * UTS + 0.4 * UAS)
        TxtTotalNilai.Text = TotalNilai

        If TotalNilai <= 56 Then
            Grade = "E"
            Keterangan = "Nilai Anda Sangat kurang"
        ElseIf TotalNilai <= 65 Then
            Grade = "D"
            Keterangan = "Nilai Anda Kurang"
        ElseIf TotalNilai <= 75 Then
            Grade = "C"
            Keterangan = "Nilai Anda Cukup! Anda Lulus"
        ElseIf TotalNilai <= 85 Then
            Grade = "B"
            Keterangan = "Nilai Anda Baik! Anda Lulus"
        ElseIf TotalNilai > 85 Then
            Grade = "A"
            Keterangan = "Nilai Anda Sangat Baik"
        End If

        TxtGrade.Text = Grade
        TxtKeterangan.Text = Keterangan
    End Sub

Lalu klik BtnBersih sebanyak 2x lalu isikan codingnya sebagai berikut :

        TxtNilaiAbsen.Text = ""
        TxtNilaiTugas.Text = ""
        TxtNilaiUts.Text = ""
        TxtNilaiUas.Text = ""
        TxtTotalNilai.Text = ""
        TxtGrade.Text = ""
        TxtKeterangan.Text = ""
    End Sub

Lalu klik BtnKeluar sebanyak 2x lalu isikan codingnya sebagai berikut :

        Dim keluar As MsgBoxResult
        keluar = MsgBox("Apakan anda akan keluar?", MsgBoxStyle.YesNo, "Peringatan")
        If keluar = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub

Note : MsgBox adalah sebuah pringatan atau pesan

Baca Juga : Membuat Login Sederhana di VB.NET 2010

Maka kodingnya seperti berikut :