Tugas Pemrograman Visual yang ke -1

Tugas Pertama Pemrogramman Visual yang ke -1
Properti Label

Label1 = Kode Buku
Label2 = Judul Buku
Label3 = Harga Buku
Label4 = Jumlah Buku
Label5 = Diskon
Label6 = Harga Total

Properti Text

txtkode
txtjudul
txtharga
txtjumlah
txtdiskon
txthargatotal

Logika Program


-> jika membeli buku dengan jumlah lebih dari sama dengan 10 maka mendapatkan diskon 10% dari harga buku
-> jika membeli buku dengan jumlah kurang dari 10 maka tidak mendapatkan diskon



script program

Public Class Form1

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

        If txtjumlah.Text >= 10 Then

            txtdiskon.Text = 0.1 * Val(txtharga.Text)

            txthargatotal.Text = (Val(txtharga.Text) * Val(txtjumlah.Text)) - Val(txtdiskon.Text)

        Else

            txtdiskon.Text = 0

            txthargatotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

        End If

        'Jika jumlah barang lebih besar sama dengan 10 maka mendapatkan diskon 10% dari darga buku

        'jika jumlah barang kurang dari 10 maka tidak mendapatkan diskon

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        txtkode.Text = ""

        txtjudul.Text = ""

        txtharga.Text = ""

        txtharga.Text = ""

        txtdiskon.Text = ""

        txthargatotal.Text = ""

    End Sub

End Class