latihan visual besic.net 2008

SOAL MATAKULIAH VISUAL (SEMESTER III) :

Kerjakanlah soal berikut ini :

SOAL 1 :  Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang

SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari harga photo copy    :

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

Jawaban:
desain gambarnya terlebih dahulu

setelah selesai mendesain selanjutnya melakukan pengkodingan

terlebih dahulu klik dua kali pada from yang kosong agar kita mengerjakan kodinganya didalam public class fromnya

Public Class Form1

                selanjutnya ketikkan koding dibawah ini agar lisviwnya bergaris dan berkolom supaya gampang membedakan nya

    Sub buat_tabel()

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.Columns.Add("jenis kertas")

        lv.Columns.Add("jumlah lembar")

        lv.Columns.Add("total harga")

        lv.Columns.Add("harga perlembar")

        lv.Columns.Add("pembayaran")

        lv.Columns.Add("discon")

    End Sub

selanjutnya kita mengisi lisviw yang kita buat tadi maka ketikkan koding dibawah ini

    Sub isi_tabel()

        Dim f As New ListViewItem

        f.Text = jenis_kertas.Text

        lv.Items.Add(f)

        f.SubItems.Add(jumlah_lembar.Text)

        f.SubItems.Add(total_harga.Text)

        f.SubItems.Add(harga_perlembar.Text)

        f.SubItems.Add(pembayaran.Text)

        f.SubItems.Add(discoun.Text)

    End Sub

selanjutnya agar ketika kita ingin menghapaus semua yang kita tulis yang ada pada texbox maka buatlah tombol hapus dengan printah seperti ini:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk_lv.Click

        isi_tabel()

        jenis_kertas.Text = ""

        jumlah_lembar.Text = ""

        total_harga.Text = ""

        harga_perlembar.Text = ""

        pembayaran.Text = ""

        discoun.Text = ""

    End Sub

agar kombobox nya berpungsi alyas kita bisa melakukan pemilihan dalam komboboxnya maka kita harus mengetikkan perintah ini pada from_loadnya dengan cara kelik dua kali pada fromnya dan ketikkan koding ini:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buat_tabel()

        jenis_kertas.Items.Add("A4")

        jenis_kertas.Items.Add("HVS")

        jenis_kertas.Items.Add("kuarto")

        jenis_kertas.Items.Add("F4")

        Dim f As Integer

        For f = 1 To 10000

            jumlah_lembar.Items.Add(f)

        Next

    End Sub

    

  untuk melakukan pembuatan discont kita butuk penggunaan if yaitu dengan logika jika kta memilh ini maka kita mendapatkan bonus ini, dan jika kita memilh yang itu maka kita mendapatkan bonus itu...

maka seperti inilah logika if yang saya gunkan disini dan tulislah koding dibawah ini:

    Private Sub jumlah_kertas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_lembar.SelectedIndexChanged

       

        If jumlah_lembar.Text >= 200 Then

            harga_perlembar.Text = 100

        Else

            harga_perlembar.Text = 999

        End If

        total_harga.Text = jumlah_lembar.Text * harga_perlembar.Text

        If total_harga.Text >= 500000 Then

            discoun.Text = "15%"

        Else

            discoun.Text = 0

            MessageBox.Show("tidak mendapat discon")

        End If

       

    End Sub

supaya tombol pembayaran nya muncul maka ketikkan koding ini

ket: pembayaran.tex hasil dari total pembelian dikurang discon yang sudah ditentukan

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        pembayaran.Text = total_harga.Text - discoun.Text

    End Sub

    

ini tombol untuk meghapus semua yang ada pada lisviw

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        lv.Items.Clear()

    End Sub

koding ini digunakan untuk menghapus ivent yang dipilih pada lisviw

    Private Sub hapus_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_dipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

dan ini koding untuk keluar

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

End Class