Membuat Aplikasi Desktop Hitung Cicilan Sederhana dengan Visual Basic.NET di Visual Studio 2022

Kali ini akan membuat aplikasi hitung sederhana berbasis desktop yakni aplikasi hitung cicilan atau angsuran dari total pinjaman yang didapatkan oleh nasabah. Disini ada melibatkan beberapa penggunaan variabel dengan tipe data yang berbeda. Bahasa pemrograman yang dipakai untuk membuat aplikasi hitung cicilan sederhana ini adalah Visual Basic.NET di Visual Studio 2022.

Setelah aplikasi ini dibuat, maka kamu bisa mengembangkan aplikasi ini dengan sesuai kebutuhan kamu atau client kamu seperti membuat sistem informasi untuk mendata atau mengelola data peminjaman dari nasabah di perusahaan finance. Dari hasil hitungan cicilan tiap bulan yang berdasarkan durasi tenor pada saat proses peminjaman uang.

Mari membuat aplikasi hitung cicilan sederhana dengan bahasa pemrograman VB.NET di dalam Visual Studio 2022. Hal ini dilakukan juga agar kamu bisa belajar membuat aplikasi desktop yang melibatkan hitung-hitungan Matematika dengan mencari nilai akhir secara benar.

LANGKAH-LANGKAH

1. Aktifkan Visual Studio 2022 di laptop atau PC kamu.

2. Klik Create a New Project.

3. Untuk project aplikasi desktop, ada beberapa hal yang perlu diatur yakni:

• Bahasa Pemrograman : Visual Basic

• Tipe Aplikasi : Windows Form App

Setelah itu, klik Next.

4. Masukkan nama project aplikasi desktop yang berhubungan dengan aplikasi hitung cicilan beserta tentukan tempat lokasi untuk dijadikan RootSpace di dalam project aplikasi kamu dengan sesuai kebutuhan.

5. Pilihlah Framework .NET dengan sesuai kebutuhan. Standar untuk Visual Studio pasti memilih Framework .NET versi 8 keatas. Klik Create.

6. Rancanglah tampilan aplikasi desktop yang tertera pada gambar di bawah ini.

7. Klik ComboBox untuk durasi Tenor >>> Klik Items di bagian Properties.

8. Isikan 5 data list yang tertera di bawah ini. Setelah diisi data list tersebut, maka bisa mengklik OK.

9. Klik ListBox untuk suku bunga >>> Klik Items di bagian Properties.

10. Isikan 3 data list yang tertera di bawah ini. Setelah diisi data list tersebut, maka bisa mengklik OK.

11. Berikut hasil akhir tampilan aplikasi hitung cicilan berbasis desktop.

12. Masuklah ke bagian Code.

13. Buatlah koding untuk beberapa deklarasi variabel yang diperlukan untuk hitung cicilan.

Dim sukubunga As Integer
Dim totalAngsuranDibayar, angsuran As Double
Dim bulan As Integer
Dim splitBulan() As String
Dim strBulan As String
Dim totalSukuBunga As Double

14. Buatlah koding untuk menampung nilai durasi tenor setelah dipilih dari ComboBox durasi tenor.

Private Sub cmbDurasiTenor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDurasiTenor.SelectedIndexChanged
    strBulan = cmbDurasiTenor.Text
    splitBulan = strBulan.Split(" bulan")
    bulan = Val(splitBulan(0))
    'MessageBox.Show(bulan)
End Sub

15. Buatlah koding untuk menampung nilai suku bunga setelah dipilih nilai suku bunga dari ListBox suku bunga.

    Private Sub listBoxBunga_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listBoxBunga.SelectedIndexChanged
        sukubunga = Val(listBoxBunga.Text)
        'MessageBox.Show(sukubunga)
    End Sub

16. Buatlah koding untuk menghitung angsuran utama dan angsuran yang harus dibayarkan setelah kena bunga pada saat terjadi event klik Button Hitung.

    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click
       angsuran = Val(txtTotalPinjaman.Text) / bulan
txtAngsuranPokok.Text = angsuran.ToString("F2")

totalSukuBunga = angsuran * (CDec(sukubunga) / 100) / bulan
txtNilaiBunga.Text = totalSukuBunga.ToString("F2")

totalAngsuranDibayar = angsuran + totalSukuBunga
txtAngsuranBayar.Text = totalAngsuranDibayar.ToString("F2")

    End Sub

17. Buatlah koding untuk membersihkan data input dari aplikasi tersebut pada saat terjadi event klik Reset.

Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
    sukubunga = 0
    totalAngsuranDibayar = 0
    angsuran = 0
    bulan = 0
    strBulan = ""
    splitBulan = {}
    totalSukuBunga = 0

    txtTotalPinjaman.Clear()
    txtAngsuranBayar.Clear()
    txtNilaiBunga.Clear()
    txtAngsuranPokok.Clear()

    cmbDurasiTenor.Text = ""
    listBoxBunga.Text = ""

    listBoxBunga.SelectedItem = Nothing

    txtTotalPinjaman.Focus()

End Sub

18. Melakukan pengujian aplikasi dalam melakukan hitung cicilan atau angsuran dari total pinjaman terhadap aplikasi yang telah dibuat.

19. Tampilan aplikasi desktop awal.

20. Tampilan aplikasi desktop pada saat input data pinjaman.

21. Tampilan aplikasi desktop setelah proses perhitungan cicilan / angsuran yang dibayarkan tiap bulannya.

Selesai.

FULL CODING

Public Class Form1
    Dim sukubunga As Integer
    Dim totalAngsuranDibayar, angsuran As Double
    Dim bulan As Integer
    Dim splitBulan() As String
    Dim strBulan As String
    Dim totalSukuBunga As Double
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click
        angsuran = Val(txtTotalPinjaman.Text) / bulan
        txtAngsuranPokok.Text = angsuran.ToString("F2")

        totalSukuBunga = angsuran * (CDec(sukubunga) / 100) / bulan
        txtNilaiBunga.Text = totalSukuBunga.ToString("F2")

        totalAngsuranDibayar = angsuran + totalSukuBunga
        txtAngsuranBayar.Text = totalAngsuranDibayar.ToString("F2")

    End Sub

    Private Sub cmbDurasiTenor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDurasiTenor.SelectedIndexChanged
        strBulan = cmbDurasiTenor.Text
        splitBulan = strBulan.Split(" bulan")
        bulan = Val(splitBulan(0))
        'MessageBox.Show(bulan)
    End Sub

    Private Sub listBoxBunga_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listBoxBunga.SelectedIndexChanged
        sukubunga = Val(listBoxBunga.Text)
        'MessageBox.Show(sukubunga)
    End Sub

    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
        sukubunga = 0
        totalAngsuranDibayar = 0
        angsuran = 0
        bulan = 0
        strBulan = ""
        splitBulan = {}
        totalSukuBunga = 0

        txtTotalPinjaman.Clear()
        txtAngsuranBayar.Clear()
        txtNilaiBunga.Clear()
        txtAngsuranPokok.Clear()

        cmbDurasiTenor.Text = ""
        listBoxBunga.Text = ""

        listBoxBunga.SelectedItem = Nothing

        txtTotalPinjaman.Focus()

    End Sub
End Class

PENUTUP

Kamu bisa belajar untuk membuat aplikasi hitung cicilan dari peminjaman uang dengan menggunakan bahasa pemrograman Visual Basic.NET (VB.NET) di dalam Visual Studio 2022. Sistem aplikasi sederhana ini terdiri dari perhitungan angsuran pokok, nilai suku bunga yang harus dikenakan kepada peminjam beserta angsuran bulanan setelah ditambah dengan suku bunga yang harus dibayarkan kepada peminjam tiap bulannya.