Senin, 08 Mei 2017

Menghitung_Nilai_Mahasiswa_UTSPraktikum

Cara Membuat Coding VB.2010 Menghitung Nilai Mahasiswa

Hallo! Senang bisa menulis sesuatu lagi hari ini. tulisan kali ini di peruntukan memenuhi nilai UTS Semester Genap. pada tugas kali ini saya akan share mengenai desain system menghitung nilai mahasiswa secara sederhana dari aplikasi berupa flowchart dan desain form selanjutnya di implementasikan menjadi sebuah aplikasi dengan menggunakan VB.NET

Penentuan grade berdasarkan nilai kehadiran, nilai test harian, dan nilai test akhir. dengan ketentuan nilai akhir yaitu : 30% nilai kehadiran, 30% nilai test harian, dan 40% nilai test akhir.

Berikut flowchart, desain form manual, desain form VB.NET, dan coding sederhana menggunakan VB.NET :





Public Class Form1

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        Dim Nama As String
        Dim NIM As String
        Dim Nilai_Kehadiran As Double
        Dim Nilai_Test_Harian As Double
        Dim Nilai_Test_Akhir As Double

        Nama = Val(TxNama.Text)
        NIM = Val(TxNIM.Text)
        Nilai_Kehadiran = Val(TxNKehadiran.Text)
        Nilai_Test_Harian = Val(TxNTHarian.Text)
        Nilai_Test_Akhir = Val(TxNTAkhir.Text)

        BtnHitung = ((0.3 * Nilai_Kehadiran) + (0.3 * Nilai_Test_Harian) + (0.4 * Nilai_Test_Akhir))
        TxTNilai.Text = BtnHitung

        If BtnHitung <= 50 Then
            TxGrade = "E"
            TxKeterangan = "GAGAL"
        ElseIf BtnHitung <= 60 Then
            TxGrade = "D"
            TxKeterangan = "GAGAL"
        ElseIf BtnHitung <= 70 Then
            TxGrade = "C"
            TxKeterangan = "GAGAL"
        ElseIf BtnHitung <= 80 Then
            TxGrade = "B"
            TxKeterangan = "LULUS"
        ElseIf >80 Then
            TxGrade = "A"
            TxKeterangan = "LULUS"
        End If

        TxGrade.Text = LblGrade
        TxKeterangan.Text = LblKeterangan
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxNama.Text = ""
        TxNIM.Text = ""
        TxNKehadiran.Text = ""
        TxNTHarian.Text = ""
        TxNTAkhir.Text = ""
        TxTNilai.Text = ""
        TxGrade.Text = ""
        TxKeterangan.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class


 Sekian
Semoga Bermanfaat!

 

Tidak ada komentar:

Posting Komentar