DESSY DAMAYANTI BLOG

Senin, 08 Juni 2015

Jawaban Quiz Online Pak Mesran

Diposting oleh Unknown di 02.04

5 Alternatif KK yang mendapat bantuan dari beberapa kk


    Nama KK    C1    C2    C3    C4
    Aldyan    4    2350000    100    TIDAK ADA
    Hendro    5    3050000    50    ADA
    Joko    3    3350000    70    ADA
    Doni    4    2550000    90    ADA
    Dono    6    2850000    120    ADA
    Kasino    3    2650000    80    ADA
    Susanto    2    3350000    150    TIDAK ADA

    Pembobotan dari beberapa kriteria

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

    Matriks keputusan yang ternrmalisasi

    X1    5.916079783    X2    7.681145748    X3    7.745966692    X4    4.69041576
    r11    0.338061702    r12    0.130188911    r13    0.387298335    r14    0.213200716
    r21    0.507092553    r22    0.390566733    r23    0.129099445    r24    0.426401433
    r31    0.338061702    r32    0.520755644    r33    0.129099445    r34    0.426401433
    r41    0.338061702    r42    0.260377822    r43    0.25819889    r44    0.426401433
    r51    0.507092553    r52    0.390566733    r53    0.516397779    r54    0.426401433
    r61    0.338061702    r62    0.260377822    r63    0.25819889    r64    0.426401433
    r71    0.169030851    r72    0.520755644    r73    0.645497224    r74    2.34520788



        Matriks keputusan ternormalisasi terbobot

            0.338061702    0.130188911    0.387298335    0.213200716
            0.507092553    0.390566733    0.129099445    0.426401433            Bobot
    R        0.338061702    0.520755644    0.129099445    0.426401433        X    4    5    4    3
            0.338061702    0.260377822    0.25819889    0.426401433
            0.507092553    0.390566733    0.516397779    0.426401433
            0.338061702    0.260377822    0.25819889    0.426401433
            0.169030851    0.520755644    0.645497224    2.34520788

            1.352246808    0.650944555    1.549193338    0.639602149
            2.028370211    1.952833665    0.516397779    1.279204298
    Y        1.352246808    2.60377822    0.516397779    1.279204298
            1.352246808    1.30188911    1.032795559    1.279204298
            2.028370211    1.952833665    2.065591118    1.279204298
            1.352246808    1.30188911    1.032795559    1.279204298
            0.676123404    2.60377822    2.581988897    7.03562364

        Solusi ideal Positif
        Y1+ =    2.028370211
        Y2+ =    2.60377822
        Y3+ =    2.581988897
        Y4+ =    7.03562364
        A+ =    2.028370211    2.60377822    2.581988897    7.03562364

            SOLUSI IDEAL NEGATIF
        Y1- =    0.676123404
        Y2- =    0.650944555
        Y3- =    0.516397779
        Y4- =    0.639602149
        A+ =    0.676123404    0.650944555    0.516397779    0.639602149

    Jarak antara nilai terbobot setiap alternative terhadap solusi ideal positif
    D1 + =    6.800474965
    D2 + =    6.15034626
    D3 + =    6.153062096
    D4 + =    6.139089651
    D5 + =    5.81607764
    D6 + =    6.139089651
    D7 + =    1.352246808

    Jarak antara nilai terbobot setiap alternative terhadap solusi ideal NEGATIF
    D1 - =    1.2344268
    D2 - =    1.983072765
    D3 - =    2.163282942
    D4 - =    1.247649489
    D5 - =    2.516461323
    D6 - =    1.247649489
    D7 - =    6.99923688


    Solusi setiap alternative terhadap solusi ideal
    V1    =    0.1536
    V2    =    0.2438
    V3    =    0.2601
    V4    =    0.16890396
    V5    =    0.302004147
    V6    =    0.1689
    V7    =    0.8381

    Maka Solusi Terbaik yang bisa dipilih adalah V7 atau A7 yaitu Susanto

Sabtu, 07 Desember 2013

jawaban No. 2 Quis Online | DESSY DAMAYANTI BLOG

Diposting oleh Unknown di 21.07

jawaban No. 2 Quis Online | DESSY DAMAYANTI BLOG

jawaban No. 2 Quis Online

Diposting oleh Unknown di 21.03

Soal NO : 2

GAJI PEGAWAI PT. TELKOM
--------------------------------------------
Nama Pegawai       :   ?
Gol        :   ?
Gaji        :
Pajak        :
Pinjaman    :   ?
Gaji Bersih    :
--------------------------------------------

Proses
    Gol=IIIA maka Gaji = 1500000
    Gol=IIIB maka Gaji = 2500000
    Gol=IIIC maka Gaji = 3500000

    Pajak = 15% dari Gaji
    Gaji Bersih = Gaji - Pinjaman - Gaji Bersih

Berikut Listing programnya
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pegawai.Items.Add("Arif")
        pegawai.Items.Add("Rhido")
        pegawai.Items.Add("Putra")
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IIIC")
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        Select Case gol.Text
            Case "IIIA" : gaji.Text = "1500000"
            Case "IIIB" : gaji.Text = "2500000"
            Case "IIIC" : gaji.Text = "3500000"
        End Select
        pajak.Text = 0.15 * gaji.Text
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        gajibersih.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(gajibersih.Text)
    End Sub

    Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
        pegawai.Text = ""
        gol.Text = ""
        gaji.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        gajibersih.Text = ""
    End Sub

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

jawaban quis online No.1

Diposting oleh Unknown di 20.54

Public Class Form1
Sub buattable()
lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)

Lv.GridLines = True
Lv.FullRowSelect = True
Lv.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = nmr.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(Bbeban.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(MMini.Text)
.SubItems.Add(MMlalu.Text)
.SubItems.Add(pemakai.Text)
.SubItems.Add(total.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(bayar.Text)
lv.Items.Add(x)
End With

End Sub

Sub add_daerah()
With daerah
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("AKSARA")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
End With
End Sub
Sub add_tipe()
With tipe
.Items.Add("TOKO")
.Items.Add("RUMAH")
.Items.Add("SWALAYAN")
.Items.Add("PABRIK")
End With
End Sub

Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOKO" Then
Bbeban.Text = 150000
kwh.Text = 500
ElseIf tipe.Text = "RUMAH" Then
kwh.Text = 200
Bbeban.Text = 50000
ElseIf tipe.Text = "SWALAYAN" Then
kwh.Text = 1500
Bbeban.Text = 400000
ElseIf tipe.Text = "PABRIK" Then
kwh.Text = 1000
Bbeban.Text = 1000000
End If

MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End Sub
Sub bersih()
nmr.Text = ""
daerah.Text = ""
tipe.Text = ""
Bbeban.Text = ""
kwh.Text = ""
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(daerah.Text, 3)
y = Microsoft.VisualBasic.Left(tipe.Text, 3)
z = "00" & (tipe.SelectedIndex + 1)
nmr.Text = x & "-" & y & "-" & z
End Sub
Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
If e.KeyChar = Chr(13) Then
If MMlalu.Text = "" Or MMini.Text = "" Then
MsgBox("Isi Dengan Benar")
Else
If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then

pemakai.Text = MMini.Text - MMlalu.Text
total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
pajak.Text = (15 / 100) * total.Text
bayar.Text = Val(total.Text) + Val(pajak.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka !!!")
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""

End If
End If
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call add_daerah()
Call add_tipe()
Call buattable()
End Sub

Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim i As String
i = daerah.Text
bersih()
daerah.Text = i

End Sub

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

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

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class

dan berikut ini tampilannya :

Diposting oleh Unknown di 20.53

dan berikut ini tampilannya :

jawaban no. 1 quis online

Diposting oleh Unknown di 20.48

dan berikut ini tampilannya :

DESSY DAMAYANTI BLOG

Pages

Senin, 08 Juni 2015

Jawaban Quiz Online Pak Mesran

Sabtu, 07 Desember 2013

jawaban No. 2 Quis Online | DESSY DAMAYANTI BLOG

jawaban No. 2 Quis Online

jawaban quis online No.1

jawaban no. 1 quis online

Blog Archive

Mengenai Saya