Cara Membuat Aplikasi Perhitungan Nilai Mahasiswa menggunakan VB.NET dengan Validasi TryParse dan Status Kelulusan

Dalam beberapa hari yang lalu kita sudah membahas artikel tentang operator aritmatika dan fungsi If..Then..Else. Sehubungan dengan itu, kali ini Admin akan membuat sebuah Aplikasi sederhana yang menggabungkan fungsi keduanya yaitu fungsi aritmatika dan fungsi if..then..else serta fungsi lainnya yang mendukung. Tentu kalian bertanya-tanya aplikasi apakah itu? yaitu Aplikasi Perhitungan Nilai Mahasiswa.

Form Input Perhitungan Nilai Mahasiswa - VB.NET


Di jaman perkembangan teknologi yang semakin canggih dimana semua instansi berlomba lomba untuk meningkatkan perangkatnya demi hasil yang lebih baik, cepat dan efisien. Begitu juga dengan dunia pendidikan seperti sekolah dan kampus, mereka juga mengembangkan perangkatnya demi pengolahan data akademiknya, salah satu penerapan perangkatnya adalah membuat sebuah Aplikasi untuk menghitung nilai mahasiswa secara otomatis dengan tujuan mempermudah para guru atau dosen dapat menghitung nilai akhir mahasiswanya untuk menentukan Grade serta kelulusan secara cepat, akurat dan efisien.

Untuk itu dalam blog artikel kali ini Admin akan membuat aplikasinya dengan visual basic .net dengan fitur validasi input untuk menghindari kesalahan akibat data yang tidak valid.

Beberapa konsep dasar dalam membuat Aplikasi Perhitungan Nilai Mahasiswa

Komponen yang Dibutuhkan

  • TextBox untuk input:
  • Nilai Tugas
  • Nilai UTS
  • Nilai UAS
  • Button untuk proses perhitungan
  • Label untuk menampilkan:
  • Nilai Akhir
  • Status Kelulusan (Lulus / Tidak Lulus)

Logika Penilaian

  • Tugas: 30%
  • UTS: 30%
  • UAS: 40%
  • Nilai akhir ≥ 60 → Lulus
  • Nilai akhir < 60 → Tidak Lulus
  • Nilai Akhir = (Tugas × 0.3) + (UTS × 0.3) + (UAS × 0.4)


Berikut dibawah ini adalah langkah-langkah membuat  Aplikasi Perhitungan Nilai Mahasiswa menggunakan VB.NET dengan Validasi TryParse dan Status Kelulusan :

1. Buka Microsoft Visual Studio Anda

2. Klik Create a New Project

3. Cari template Windows Form App (WinForms) dan klik templatenya

4. Klik Next

5. Ketik nama Project > Folder Peyimpanan

6. Klik Next

7. Pilih Framework .NET 6.0

8. Klik Create (tunggu...sampai Form1 muncul)

9. Tanamkan nama-nama Kontrol dibawah ini di Form1

Kontrol Name Keterangan
Label Label1 Nama Mahasiswa
TextBox TextBoxNama Input nama
Label Label2 Nilai Tugas
TextBox TextBoxTugas 0–100
Label Label3 Nilai UTS
TextBox TextBoxUTS 0–100
Label Label4 Nilai UAS
TextBox TextBoxUAS 0–100
Button ButtonHitung Hitung
Button ButtonClear Clear
Label Label5 Nilai Akhir
Label LabelNilaiAkhir Output
Label Label6 Grade
Label LabelGrade Output
Label Label7 Status
Label LabelStatus LabelStatus

10. Desainlah Form seperti gambar dibawah ini :

Desain Form Input Nilai Mahasiswa - VB.Net

11. Buka jendela kode lalu bersihkan kode yang ada dengan CTRL+A dan Del, kemudian copy-paste kode dibawah ini :

Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form1
    Private Sub ButtonHitung_Click(sender As Object, e As EventArgs) Handles ButtonHitung.Click
        Dim tugas, uts, uas, nilaiAkhir As Double
        Dim grade As String
        Dim status As String

        ' Validasi Nama
        If TextBoxNama.Text = "" Then
            MsgBox("Nama mahasiswa harus diisi!", vbInformation, "Peringatan")
            TextBoxNama.Focus()
            Exit Sub
        End If

        ' Validasi Nilai Tugas
        If Not Double.TryParse(TextBoxTugas.Text, tugas) OrElse tugas < 0 OrElse tugas > 100 Then
            MsgBox("Nilai Tugas harus berupa angka 0 - 100!", vbCritical, "Error")
            TextBoxTugas.Focus()
            Exit Sub
        End If

        ' Validasi Nilai UTS
        If Not Double.TryParse(TextBoxUTS.Text, uts) OrElse uts < 0 OrElse uts > 100 Then
            MsgBox("Nilai UTS harus berupa angka 0 - 100!", vbCritical, "Error")
            TextBoxUTS.Focus()
            Exit Sub
        End If

        ' Validasi Nilai UAS
        If Not Double.TryParse(TextBoxUAS.Text, uas) OrElse uas < 0 OrElse uas > 100 Then
            MsgBox("Nilai UAS harus berupa angka 0 - 100!", vbCritical, "Error")
            TextBoxUAS.Focus()
            Exit Sub
        End If

        ' Hitung Nilai Akhir
        nilaiAkhir = (tugas * 0.3) + (uts * 0.3) + (uas * 0.4)

        ' Tentukan Grade
        If nilaiAkhir >= 85 Then
            grade = "A"
        ElseIf nilaiAkhir >= 75 Then
            grade = "B"
        ElseIf nilaiAkhir >= 65 Then
            grade = "C"
        ElseIf nilaiAkhir >= 50 Then
            grade = "D"
        Else
            grade = "E"
        End If

        ' Tentukan Status Kelulusan
        If nilaiAkhir >= 65 Then
            status = "LULUS"
            LabelStatus.ForeColor = Color.Green
        Else
            status = "TIDAK LULUS"
            LabelStatus.ForeColor = Color.Red
        End If

        ' Tampilkan Hasil
        LabelNilaiAkhir.Text = nilaiAkhir.ToString("0.00")
        LabelGrade.Text = grade
        LabelStatus.Text = Status
    End Sub

    Private Sub ButtonClear_Click(sender As Object, e As EventArgs) Handles ButtonClear.Click
        TextBoxNama.Text = ""
        TextBoxTugas.Text = ""
        TextBoxUTS.Text = ""
        TextBoxUAS.Text = ""
        LabelNilaiAkhir.Text = "0"
        LabelGrade.Text = "0"
        LabelStatus.Text = "#"
        LabelStatus.ForeColor = Color.Black
        TextBoxNama.Focus()

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        LabelNilaiAkhir.Text = "0"
        LabelGrade.Text = "0"
        LabelStatus.Text = "#"
    End Sub


End Class

12. Jalankan Project Anda, sekarang coba uji program anda dengan menginput Nilai.

Itulah artikel pada hari ini membahas tentang Cara Membuat Aplikasi Perhitungan Nilai Mahasiswa menggunakan VB.NET dengan Validasi TryParse dan Status Kelulusan, semoga artikel ini bermanfaat buat kita semua.Amin.
Selamat mecoba semoga berhasil.

Post a Comment for "Cara Membuat Aplikasi Perhitungan Nilai Mahasiswa menggunakan VB.NET dengan Validasi TryParse dan Status Kelulusan"