Quis Online Susulan SPK Metode SAW

SOAL QUIS ONLINE

Suatu kelurahan mendapatkan Bantuan Langsung Tunai dari pemerintah untuk masing masing kepala keluarga dengan syarat ketentuan sebagai berikut :

C1 : Jumlah Tanggungan
C2 : Pendapatan Kepala Keluarga
C3 : Luas Bangunan Rumah
C4 : Memiliki KK

Pilihlah 5 alternatif KK yang akan mendapatkan bantuan dari beberapa KK berikut ini :

Tabel Alternatif
Nama KK              C1      C2                C3          C4
Aldyan                     4     2.350.000    100M2    Tidak Ada
Hendro                    5     3.050.000      50M2         Ada
Joko                        3    3.350.000        70M2        Ada
Doni                        4    2.550.000         90M2       Ada
Dono                       6    2.850.000      120M2        Ada
Kasino                     3    2.650.000         80M2       Ada
Susanto                    2    3.350.000     150M2    Tidak Ada
                                                  
Bobot    W=[5,4,3,4]

Total Pembayaran TV

Berikut adalah program VB design nya.

Public Class Quiz2

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

        Nm_Barang.Items.Add("Toshiba Lcd 18")

        Nm_Barang.Items.Add("Toshiba Lcd 24")

        Nm_Barang.Items.Add("Toshiba Lcd 32")

        Nm_Barang.Items.Add("Toshiba Lcd 40")

        Nm_Barang.Items.Add("Toshiba Lcd 60")

        Nm_Barang.Items.Add("Toshiba Lcd 80")

    End Sub

    Private Sub Nm_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nm_Barang.SelectedIndexChanged

        Select Case (Nm_Barang.Text)

            Case "Toshiba Lcd 18"

                Harga.Text = "18000000"

            Case "Toshiba Lcd 24"

                Harga.Text = "24000000"

            Case "Toshiba Lcd 32"

                Harga.Text = "32000000"

            Case "Toshiba Lcd 40"

                Harga.Text = "39000000"

            Case "Toshiba Lcd 60"

                Harga.Text = "58000000"

            Case "Toshiba Lcd 80"

                Harga.Text = "75000000"

        End Select

Listview Perhitungan Penjualan Barang

Ketentuan :
-    Kode barang menentukan nama barang dan merk
-    2 digit karakter dari sebelah kiri menentukan merk barang.
-    3 digit karakter dari sebelah kanan adalah menentukan nama barang.
-    Total harga muncul ketika terjadi penekanan Enter di jumlah beli.
-    Total Harga = Harga * Jumlah Beli

Contoh : Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.
Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB.
Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.
Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.

Ketentuan Harga :

Kode Barang	001	002
TS	105000	75000
VG	90000	60000

Berikut ini adalah Program VB design nya.

Public Class Quiz1

    Sub BuatTabel()

        Storage.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)