jawaban quis online

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

public class form 2
 Private  Sub btnproses_click(byVal sender As System.Object,ByVal e As System.EventArgs)Handles btnproses Click
 IF jumlahlembar.Text>=200 Then
     HPL.Text=90
 Else
     HPL.Text=100
 End if
TotalHarga.Text=hpl.Text*jumlahlembar.Text
IF TotalHarga.Text>500000 Then
Diskon.Text=0.15*Totalharga.Text
End Sub

 Private Sub btnhapus_Click(byVal sender As System.Object,ByVal e As System.EventArgs)Handles btnhapus Click
Jumlahlembar.Text=""
HPL.Text=""
TotalHarga.Text=""
Diskon.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

PemerogramanPemakaianListrik

PemerogramanPemakaianListrik

Public Class Form1

    Public Perintah As String

    Private Sub ke_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ke.KeyPress

        Dim tombol2 As Integer = Asc(e.KeyChar)

        Dim x As String

        If tombol2 = 13 Then

            If ke.Text = "" Then

                MsgBox("Masukkan Untuk Berapa Bulan!")

            Else

                pemakaian.Text = ke.Text * 100000

                denda.Text = pemakaian.Text * 0.1

            End If

        End If

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("Untuk Bulan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Ke", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Denda", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total Bayar", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = bulan.Text

        Lst.SubItems.Add(ke.Text)

        Lst.SubItems.Add(pemakaian.Text)

        Lst.SubItems.Add(denda.Text)

        Lst.SubItems.Add(totalbayar.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        totalbayar.Text = Val(pemakaian.Text) + Val(denda.Text)

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LST.Click

        IsiTabel()

        bulan.Text = ""

        ke.Text = ""

        pemakaian.Text = ""

        denda.Text = ""

        totalbayar.Text = ""

    End Sub

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

        BuatTabel()

    End Sub

End Class