Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net (2)

Program Menghitung Biaya Foto Copy

Listing Program

Public Class input_harga_fotokopi

   Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click

        If Jumlah_Lembar.Text >= 200 Then

            Harga_perlembar.Text = 99

        Else

            Harga_perlembar.Text = 999

        End If

        Total_Harga.Text = Jumlah_Lembar.Text * Harga_perlembar.Text

        If Total_Harga.Text >= 500000 Then

            Discount.Text = Total_Harga.Text * 0.15

        Else

            Discount.Text = 0

        End If

        Pembayaran.Text = Total_Harga.Text - Discount.Text

    End Sub

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

        Jumlah_Lembar.Text = ""

        Harga_perlembar.Text = ""

        Total_Harga.Text = ""

        Discount.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class