Blogger Widgets

Quis Mencari Harga Foto Copy







Public Class Form2

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Jmllembar.Text = ""
        Harga.Text = ""
        Totlharga.Text = ""
        Discount.Text = ""
        Pembayaran.Text = ""
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If Jmllembar.Text >= "200" Then
            Harga.Text = "90"
        Else
            Harga.Text = 999
        End If
        Totlharga.Text = Jmllembar.Text * Harga.Text

        If Totlharga.Text >= 500000 Then
            Discount.Text = Totlharga.Text * 0.15
        Else
            Discount.Text = 0
        End If
        Pembayaran.Text = Totlharga.Text - Discount.Text
    End Sub
End Class

 
Posted on 01.29 by yenirockerz and filed under | 0 Comments »

0 komentar:

Posting Komentar