Program Harga PhotoCopy Menggunakan Pemrograman Visual Basic 2008

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

Listing Programnya sebagai berikut :

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If Jumlah_Lembar.Text >= 200 Then
            HPL.Text = 90
        Else
            HPL.Text = 100
        End If
        Total_Harga.Text = HPL.Text * Jumlah_Lembar.Text
        If Total_Harga.Text > 500000 Then
            Discount.Text = 0.15 * Total_Harga.Text
        Else
            Discount.Text = 0
        End If
        Pembayaran.Text = Total_Harga.Text - Discount.Text
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Jumlah_Lembar.Text = ""
        HPL.Text = ""
        Total_Harga.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

Tekan tombol F5 untuk menjalankan program dengan hasil sebagai berikut :

Good luck :)