Counting (Perhitungan) pada Visual Basic .NET

Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET

Counting (Perhitungan) adalah cara untuk menjumlahkan suatu variabel yang bertipr integer atau decimal

Untuk kesempatan kali ini kita akan membuat sebuah program tentang cara menghitung nilai akhir bernilai A hingga E, awalnya memang sedikit membingungkan karena metode ini menggunakan metode if – ElseIf – Else, tapi setelah dikerjakan akan terasa mudah mudah saja, langsung saja kita coba buat programnya.

Untuk tahap awal buatlah form sebagai berikut lengkap dengan Name dari masing-masing toolbox sesuai dengan yang telah ditentukan

Setelah Form jadi seperti gambar diatas, selanjutnya kita akan masuk ke pengkodingan programnya.

Dan berikut ini sintaks pada Form untuk deklarasi, btnKalkulasi, btnClear, dan btnExit

Public Class NilaiAkhir

    Dim total As Integer
    Dim absen As Decimal, tugas As Decimal, keaktifan As Decimal, uts As Decimal, uas As Decimal

Berikut ini adalah sintaks yang berada pada btnKalkulasi, berfungsi sebagai pemroses dari semua method yang kita gunakan

Private Sub btnKalkulasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKalkulasi.Click
        absen = txtAbsen.Text * (20 / 100)
        tugas = txtTugas.Text * (15 / 100)
        keaktifan = txtKeaktifan.Text * (10 / 100)
        uts = txtUts.Text * (25 / 100)
        uas = txtUas.Text * (30 / 100)

        total = absen + tugas + keaktifan + uts + uas
        txtNilaiAkhir.Text = total

        If txtNilaiAkhir.Text >= 85 Then
            txtHuruf.Text = "A"
        ElseIf txtNilaiAkhir.Text >= 70 Then
            txtHuruf.Text = "B"
        ElseIf txtNilaiAkhir.Text >= 56 Then
            txtHuruf.Text = "C"
        ElseIf txtNilaiAkhir.Text >= 40 Then
            txtHuruf.Text = "D"
        Else
            txtHuruf.Text = "E"
        End If

    End Sub

Berikut ini adalah sintaks pada btnClear, berfungsi untuk membersihkan setiap textbox yang ada pada program kita secara otomatis.

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtAbsen.Text = String.Empty
        txtHuruf.Text = String.Empty
        txtKeaktifan.Text = String.Empty
        txtNilaiAkhir.Text = String.Empty
        txtTugas.Text = String.Empty
        txtUas.Text = String.Empty
        txtUts.Text = String.Empty

    End Sub

Berikut ini adalah sintaks pada btnExit, yang berfungsi untuk mengeluarkan program kita saat program tidak akan digunakan kembali.

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

Sekian tutorial yang bisa saya berikan kali ini, mohon maaf atas segala kekurangannya, semoga ini bisa bermanfaat bagi yang membutuhkan Aamiin