Harga Foto Copy

 

Public Class Form1

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        If jumlah.Text >= 200 Then

            HpL.Text = 90

        Else

            HpL.Text = 100

        End If

        total_harga.Text = HpL.Text * jumlah.Text

        If total_harga.Text > 500000 Then

            discount.Text = 0.15 * total_harga.Text

        Else

            discount.Text = 0

        End If

        pembayaran.Text = total_harga.Text - discount.Text

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        jumlah.Text = ""

        HpL.Text = ""

        total_harga.Text = ""

        discount.Text = ""

        pembayaran.Text = ""

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class