Tugas Quiz Sistem Pendukung Keputusan

Jawaban no 2

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

Nama KK            C1    C2     C3     C4
Aldyan                  2       2        3         1
Hendro                  3       4        1         2
Joko                       2      4         1        2
Doni                      2      3         2       2
Dono                     3       4       4         2
Kasino                   2       3       2         2
Susanto                  1      4       5         1

Bobot {4,5,4,3}

R11 =   = 0,6             R12 =  = 0,5              R13 =  = 0,6              R14 =  = 0,5 

R21 =  = 1                 R22 =  = 1                 R23 =  = 0,2              R24 =  = 1

R31 =  = 0,6              R32 =  = 1                 R33 =  = 0,2              R34 =  = 1

R41 =  = 0,6              R42 =  = 0,75            R43 =  = 0,4              R41 =  = 1

R51 =  = 1                 R52 =  = 1                 R53 =  = 0,8              R54 =  = 1

R61 =  = 0,6              R62 =  = 0,75            R63 =  = 0,4              R64 =  = 1

R71 =  = 0,3              R72 =  = 1                 R73 =  = 1                 R74 =  = 0,5

 Matriks X nya yaitu sebagai berikut ;

0,6                   0,5                   0,6                   0,5      

1                      1                      0,2                   1

0,6                   1                      0,2                   1

0,6                   0,75                 0,4                   1

1                      1                      0,8                   1

0,6                   0,75                 0,4                   1

0,3                   1                      1                      0,5      

Bobot {4,5,4,3}

V1       = (4*0,6) + (5*0,5) + (4*0,6) + (3*0,5)

            = 2,4+2,5+2,4+1.5

            =  8,8

V2       = (4*1) + (5*1) + (4*0,2) + (3*1)

            = 4+5+0,8+3

            =  12,8

V3       = (4*0,6) + (5*1) + (4*0,2) + (3*1)

            = 2,4+5+0,8+3

            =  11,2

V4       = (4*0,6) + (5*0,75) + (4*0,4) + (3*1)

            = 2,4+3,75+1,6+3

            =  10,75

V5       = (4*1) + (5*1) + (4*0,8) + (3*1)

            = 4+5+3,2+3

            =  15,2

V6       = (4*0,6) + (5*0,75) + (4*0,4) + (3*1)

            = 2,4+3,75+1,6+3

=  10,75

V7       = (4*0,3) + (5*1) + (4*1) + (3*0,5)

            = 1,2+5+4+1,5

            =  11,7

Ø  Jadi 5 Alternatif KK yang akan mendapatkan bantuan Langsung Tunai adalah sebagai berikut;

1.      V5 = 15,2

2.      V2 = 12,8

3.      V7 = 11,7

4.      V3 = 11,2

5.      V4 dan V6 = 10,75

Public Class Form1

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

        KP.Items.Add("TOK-MED-100")

        KP.Items.Add("PAB-BEL-101")

        KP.Items.Add("SWA-BEL-102")

        KP.Items.Add("PAB-MED-103")

        KP.Items.Add("RUM-MED-104")

    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(KP.Text, 3)

       

        If x = "100" Then

            Nama.Text = "Muhammad Ardianto"

        ElseIf x = "101" Then

            Nama.Text = "Jekson Sinaga"

        ElseIf x = "102" Then

            Nama.Text = "Triani Arista"

        ElseIf x = "103" Then

            Nama.Text = "Aldyan"

        End If

        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then

            HargaM3.Text = 500

            BBeban.Text = 250000

            Tipe.Text = "Pabrik"

        ElseIf x = "TOK" Then

            HargaM3.Text = 500

            BBeban.Text = 25000

            Tipe.Text = "Toko"

        ElseIf x = "RUM" Then

            HargaM3.Text = 500

            BBeban.Text = 10000

            Tipe.Text = "Rumah"

        ElseIf x = "SWA" Then

            HargaM3.Text = 200

            BBeban.Text = 15000

            Tipe.Text = "Swalayan"

        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)

        If x = "MED" Then

            Daerah.Text = "Medan"

        ElseIf x = "BEL" Then

            Daerah.Text = "Belawan"

        End If

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)

            Pajak.Text = 0.01 * TTagihan.Text

            Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)

        End If

    End Sub

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

        End

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        KP.Text = ""

        Nama.Text = ""

        Tipe.Text = ""

        TTagihan.Text = ""

        HargaM3.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

        Pemakaian.Text = ""

        Daerah.Text = ""

        BBeban.Text = ""

    End Sub

End Class