PROGRAM INPUT HARGA FOTO COPY
___________________________________
Jumlah Lembar    : 999
Harga per lembar: 999
Total Harga    : 999999  
Discount   : 9999999
Pembayaran : 9999999

Proses  

Jika Jumlah lembar >= 200  HpL = 90 atau HpL = 100
Total Harga = HPL * Jumlah
Jika total harga >500000 discount 15%
Pembayaran = total harga - discount

HpL = Harga per Lembar

public class form 2
 Private  Sub btnproses_click(byVal sender As System.Object,ByVal e As System.EventArgs)Handles btnproses Click
 IF jumlahlembar.Text>=200 Then
     HPL.Text=90
 Else
     HPL.Text=100
 End if
TotalHarga.Text=hpl.Text*jumlahlembar.Text
IF TotalHarga.Text>500000 Then
Diskon.Text=0.15*Totalharga.Text
End Sub

 Private Sub btnhapus_Click(byVal sender As System.Object,ByVal e As System.EventArgs)Handles btnhapus Click
Jumlahlembar.Text=""
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 btnkeluar Click
End
End Sub
End Class