UTS Mata Kuliah Pemrograman Bisnis 1

 

Penjelasan Program Aplikasi 

 Pada tugas  kali ini saya membuat sebuah program untuk membantu perhitungan harga jual motor dimulai dengan jenis motor yang akan dibeli, berapa kali cicilan ,besar cicilan, besar bunga yang didapatkan oleh pembeli dan harga akhir + bunga. Jadi dengan adanya aplikasi ini akan lebih memudahkan para pembeli dalam menentukan pilihan jenis motor dan besar cicilan yang akan mereka dapatkan tergantung dari berapa kali cicilan yang akan dipilih oleh pelanggan.

*Untuk membuat aplikasi program perhitungan harga jual motor diperlukan design form seperti di atas ini

Screen Shoot

Penggunaan Aplikasi

 1. Pilih jenis motor yang akan dibeli

*Klik combobox 1 untuk memilih Jenis Motor

2. setelah harga satuan motor keluar secara otomatis pilihlah berapa kali cicilan motor

*misal sudah dipilih jenis motor Vario 250

3. Setelah memilih cicilan klin tombol proses untuk mengetahui besar cicilan(harga normal per cicilan), besar bunga yang dikenakan pada harga cicilan dan Harga Cicilan yang sudah ditambah dengan bunga cicilan :

*misal pilihan jenis motor Beat 150 dengan 12kali ccilan maka besar cicilan sebesar Rp.2.000.000,dikenakan bunga per cicilan sebesar Rp.100.000. Jadi Pembeli harus/ diwajibkan membayar uang sebesar Rp.2.100.000 setiap kali cicilan selama12kali.

4. Setelah selesai klik tombol 'Selesai' untuk keluar dari program aplikasi ini

*setelah klik tombol selesai akan keluar MessageBox "Terima Kasih atelah melakukan pembelian di Dealer kami".

Source Coding

Class

Public Class Class1

    Dim Vario, Beat As Integer

    Public Function konversi(ByVal karakter As Integer)

        konversi = StrConv(karakter, Vario)

        konversi = StrConv(karakter, Beat)

    End Function

End Class

Form1

Public Class Form1

    Dim vmotor As String

    Dim motor As New Class1

    Dim bunga As Integer

    Dim cicilan As Integer

    Dim harga As Double

    Dim totalcicilan As Double

    Dim hargaakhir As Double

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        vmotor = ComboBox1.Text

        Select Case vmotor

            Case "Vario 250"

                TextBox1.Text = motor.konversi(30000000)

            Case "Beat 150"

                TextBox1.Text = motor.konversi(24000000)

            Case "CBR 500"

                TextBox1.Text = motor.konversi(48000000)

        End Select

    End Sub

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

        harga = Val(TextBox1.Text)

        totalcicilan = Val(TextBox2.Text)

        bunga = Val(TextBox3.Text)

        hargaakhir = totalcicilan + bunga

        If RadioButton1.Checked Then

            totalcicilan = harga / 6

            TextBox2.Text = totalcicilan

            TextBox3.Text = 0.1 * totalcicilan

        ElseIf RadioButton2.Checked Then

            totalcicilan = harga / 12

            TextBox2.Text = totalcicilan

            TextBox3.Text = 0.05 * totalcicilan

        ElseIf RadioButton3.Checked Then

            totalcicilan = harga / 24

            TextBox2.Text = totalcicilan

            TextBox3.Text = 0.15 * totalcicilan

        End If

        TextBox4.Text = hargaakhir

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        harga = Val(TextBox1.Text)

        totalcicilan = Val(TextBox2.Text)

        bunga = Val(TextBox3.Text)

        hargaakhir = totalcicilan + bunga

        TextBox4.Text = hargaakhir

    End Sub

    

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Button2.Text = MsgBox("Terima Kasih telah melakukan pembelian di Dealer kami")

        Me.Close()

    End Sub

End Class