Program untuk mencari harga fhotocopy

Yuk! belajar pemrograman visual basic dot net di mesran.net

 

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If jumlahlembar.Text >= 200 Then
            hargaperlembar.Text = "100"
        Else
            hargaperlembar.Text = "90"


        End If
        totalharga.Text = jumlahlembar.Text * hargaperlembar.Text
        If totalharga.Text >= 500000 Then
            discount.Text = 0.15 * totalharga.Text
        Else
            discount.Text = "0"
        End If
        pembayaran.Text = totalharga.Text - discount.Text
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        jumlahlembar.Text = " "
        hargaperlembar.Text = " "
        totalharga.Text = " "
        discount.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
Demikianlah postingan saya
Nama : Annikmah Ritonga
NPM : 12110286