Program untuk mencari harga fotocopy

      Listing Program

Public Class Form 2

    

Privae Sub btnprosess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpnroses.Click 

If JlhLembar.Text >=200 Then

HPL.Text = 90

Else

HPL.Text = 100

End If

Totalharga.Text = hpl.Text*jlhlembar.Text

If Totalharga.Text > 500000 Then

Diskon. Text = 0.15*Totalharga.Text

Else

Diskon.Text = 0

End If

Pebayaran.Text = Totalharga - Diskon.Text

End Sub

Private Sub btnhapus_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles btnhapus.Click

JlhLembarText = ""

HPL.Text = ""

Totalharga.Text = ""

Diskon.Text = ""

Pembayaran.Text = ""

End Sub

Private Sub btnkeluar_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles btnhapus.Click

End

End Sub

End Class