Listing Program
Public Class input_harga_potokopi
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 Button1_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
Geen opmerkings nie:
Plaas 'n opmerking