APLIKASI MENGHITUNG BUNGA BANK PADA VISUAL BASIC

Assalamu'alaikum..

          Kali ini saya akan membahas mengenai aplikasi yang telah saya buat sendiri yaitu Aplikasi Bunga Bank. Adalah sebuah aplikasi komputer yang digunakan untuk menghitung bunga yang diberikan oleh bank yaitu dibedakan menjadi 3 antara lain: Bunga Harian, Bunga Bulanan, dan Bunga Tahunan. Untuk lebih memahami aplikasi tersebut, berikut penjelasannya:

                                  Tampilan awal Aplikasi Bunga Bank

Properti dari komponen pada tampilan awal sebagai berikut:

Nama Komponen        Nama Properti                    Value

 a. Label1                        Text                         Bunga Bank

 b. Button1                      Name                        btnbank  

                                      Text                        Hitung Bunga Bank

 c. Button2                      Name                        btnrumus

                                      Text                         Rumus

 d. Button3                      Name                        btnkeluar

                                      Text                         Keluar

 e. Form1                        Text                          Bunga Bank

                                      MaximizeBox              False

1.  Pada tombol Hitung Bunga Bank akan terhubung dengan form2, codingnya sebagai berikut:      
   
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs) Handles Button2.Click 
     Dim ke = New Form2 
     ke.Show() 
   End Sub  

Tampilan pada form2 setelah menekan tombol Hitung Bunga Bank pada form1

Penjelasan:

Nama Komponen    Nama Properti           Value

Label1                          Text                   Hitung Bunga Bank

Label2                          Text                   Masukkan

Label3                          Text                   Modal

Label4                          Text                   Waktu

Label5                          Text                   Suku Bunga

Label6                          Text                   Pilih Bunga

Label7                          Text                   Hasil

Label8                          Text                   Bunga

Label9                          Text                   %

TextBox1                     Name                  txtmodal

TextBox2                     Name                  txtwaktu

TextBox3                     Name                  txtsukubunga

TextBox4                     Name                  txthasil

ComboBox1                 Name                   cmbbunga

Button1                       Name                  btnhitung     

                                   Text                  Hitung

Button2                       Name                  btnbersih

                                   Text                  Bersih

Button3                       Name                  btnkembali

                                   Text                  Kembali

Form2                          Text                   Form2

                                   MaximizeBox       False 

a. Tombol Hitung berfungsi untuk menghitung Bunga yang hasilnya akan ditampilkan  pada txthasil sesuai dengan rumus mencari bunga pada bank. Codingnya sebagai berikut:

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click

        If cmbbunga.Text = "Harian" Then

            txthasil.Text = "Rp " & Int((txtmodal.Text) * (txtwaktu.Text) * (txtsukubunga.Text)) / (360 * 100) & ",00"

        ElseIf cmbbunga.Text = "Bulanan" Then

            txthasil.Text = "Rp " & Int((txtmodal.Text) * (txtwaktu.Text) * (txtsukubunga.Text)) / (12 * 100) & ",00"

        ElseIf cmbbunga.Text = "Tahunan" Then

            txthasil.Text = "Rp" & Int((txtmodal.Text) * (txtwaktu.Text) * (txtsukubunga.Text)) / (100) & ",00"

        Else

            MsgBox("Masukkan angka dengan benar!!", MsgBoxStyle.Information, "Peringatan!!")

        End If

    End Sub

            Tampilan setelah menginputkan data-data 

              

b. Tombol Bersih digunakan untuk membersihkan TextBox. Codingnya sebagai berikut:

   Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        txthasil.Clear()

        txtmodal.Clear()

        txtsukubunga.Clear()

        txtwaktu.Clear()

        txthasil.Clear()

   End Sub

 c.  Tombol Kembali berfungsi untuk kembali ke tampilan awal. Berikut codingnya:

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkembali.Click

        Dim dari = New Form1

        dari.Show()

        Dispose()

   End Sub

       Selanjutnya kembali pada tampilan awal.                 

2.  Pada tombol Rumus berisi tampilan dari rumus bunga harian, bunga bulanan, dan bunga tahunan. Codingnya sebagai berikut:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox("Bunga Harian = (modal x waktu x suku bunga) / (360 x 100)"&_

               "Bunga Bulanan = (modal x waktu x suku bunga) / (12 x 100)"&_

               "Bunga Tahunan = (modal x waktu x suku bunga) / 100")

    End Sub

       Tampilan setelah menekan tombol Rumus

3.  Pada tombol Keluar berisi tampilan mengenenai keyakinan apakah benar-benar akan keluar atau tidak, berikut codingnya:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If MsgBox("Anda Yakin??", vbYesNo + vbQuestion + vbDefaultButton2, "KELUAR") = vbYes Then

            Me.Close()

        End If

    End Sub

          Tampilan setelah menekan tombol Keluar

 

         

          Demikian aplikasi yang telah saya buat. Semoga bermanfaat bagi para pembaca. Terima kasih.

Wassalamua'laikum...