Quis Online hari ini

ini tugas Quis pak mesran hari ini

Public Class Form1

    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

    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

    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

    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

    Private Sub jenis_kertas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenis_kertas.SelectedIndexChanged

    End Sub

    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

    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

    

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

        lv.Items.Clear()

    End Sub

    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

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

        Me.Close()

    End Sub

End Class

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

________________________________________________________________________________________

Pada Lembar KOSONG dibawah ini Buat :

JAWABAN Soal 1 :
SILAHKAN PASTEKAN LINK POSTINGAN JAWABAN ANDA DISINI

JAWABAN Soal 2 :
SILAHKAN PASTEKAN LISTING PROGRAM ANDA DISINI