Jawaban Quis Online SPK Metode SAW

Jawaban:

1.        Tabel Kriteria Alternatif dari KK:

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

Bobot =[5  4  3  4]:

2.        Normalisasi:

R11=2/3=0.6666        R12=1/2=0.5            R13=1/3=0.3333      R14=1/3=0.3333

R21=3/4=0.75            R22=1/4=0.25          R23=1/1=1               R24=2/4=0.5

R31=2/5=0.4              R32=1/5=0.2            R33=1/1=1               R34=2/5=0.4

R41=2/3=0.6666        R42=2/3=0.6666      R43=2/2=1               R44=2/3=0.6666

R51=3/4=0.75            R52=2/4=0.5            R53=2/4=0.5            R54=2/4=0.5

R61=2/3=0.6666        R62=2/3=0.6666      R63=2/2=1               R64=2/3=0.6666

R71=1/5=0.2              R72=1/5=0.2            R73=1/5=0.2            R74=1/5=0.2

                     0.6666             0.5                0.3333          0.3333

                     0.75                 0.25              1                   0.5

                     0.4                   0.2                1                   0.4

   Rij  =         0.6666             0.6666          1                   0.6666

                     0.75                 0.5                0.5                0.5

                     0.6666             0.6666          1                   0.6666

                     0.2                   0.2                0.2                0.2

3) Nilai Preferensi :

 V1=(5x0.6666) + (4x0.5) + (3x0.3333) + (4x0.3333)

     =(3.3333) + (2) + (0.9999) + (1.3332)

     =7.6661

V2=(5x0.75) + (4x0.25) + (3x1) + (4x0.5)

     =(3.75) + (1) + (3) + (2)

     =9.75

V3=(5x0.4) + (4x0.2) + (3x1) + (4x0.4)

     =(2) + (0.8) + (3) + (1.6)

     =7.4

V4=(5x0.6666) + (4x0.6666) + (3x1) + (4x0.6666)

     =(3.3333) + (2.6664) + (3) + (2.6664)

     =11.6658

V5=(5x0.75) + (4x0.5) + (3x0.5) + (4x0.5)

     =(3.75) + (2) + (1.5) + (2)

     =9.25

V6=(5x0.6666) + (4x0.6666) + (3x1) + (4x0.6666)

     =(3.3333) + (2.6664) + (3) + (2.6664)

     =11.6658

V7=(5x0.2) + (4x0.2) + (3x0.2) + (4x0.2)

     =(1) + (0.8) + (0.6) + (0.8)
     =3.2

kesimpulan: dari hasil di atas, maka ,V4 (Doni) dan V6(Kasino) yang berhak mendapatkan bantuan,
dari pemerintah.

Read more »

Pengolahan Tagihan PDAM

Public Class Form1

    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Right(kodepelanggan.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"
            X = Microsoft.VisualBasic.Left(kodepelanggan.Text, 3)
            If X = "PAB" Then
                hargam3.Text = 500
                biayabeban.Text = 250000
                tipe.Text = "Pabrik"
            ElseIf X = "TOK" Then
                hargam3.Text = 500
                biayabeban.Text = 25000
                tipe.Text = "Toko"
            ElseIf X = "PAB" Then
                hargam3.Text = 500
                biayabeban.Text = 250000
                tipe.Text = "Pabrik"
            ElseIf X = "RUM" Then
                hargam3.Text = 500
                biayabeban.Text = 10000
                tipe.Text = "Rumah"
            ElseIf X = "SWA" Then
                hargam3.Text = 200
                biayabeban.Text = 15000
                tipe.Text = "Swalayan"
            End If
            X = Microsoft.VisualBasic.Mid(kodepelanggan.Text, 5, 3)
            If X = "MED" Then
                daerah.Text = "Medan"
            ElseIf X = "BEL" Then
                daerah.Text = "Belawan"
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kodepelanggan.Items.Add("TOK-MED-100")
        kodepelanggan.Items.Add("PAB-BEL-101")
        kodepelanggan.Items.Add("SWA-BEL-102")
        kodepelanggan.Items.Add("PAB-MED-103")
        kodepelanggan.Items.Add("RUM-MED-104")

    End Sub
    Sub BuatTabel()
        LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("HargaM3", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pemakaian Air", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)
        LV.view = View.details
        LV.gridlines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = kodepelanggan.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(hargam3.Text)
        lst.SubItems.Add(biayabeban.Text)
        lst.SubItems.Add(pemakaianair.Text)
        lst.SubItems.Add(totaltagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub pemakaianair_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaianair.KeyPress
        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = hargam3.Text * pemakaianair.Text + Val(biayabeban.Text)
            pajak.Text = 0.01 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kodepelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        totaltagihan.Text = ""
        hargam3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        pemakaianair.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        kodepelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        totaltagihan.Text = ""
        hargam3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        pemakaianair.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
    End Sub
End Class

Read more »

Foto lucu

Foto Gambar Lucu Aneh - Melihat foto lucu bisa membuat ketawa ngakak. Sama seperti ulah anak-anak yang sudah ada sebelumnya dalam foto lucu. Kali ini, akan dibagikan foto lucu yang lain yang pasti akan membuat anda tertawa.

Nah, silahkan saja lihat foto lucu dibawah ini:

Itulah beberapa foto lucu yang bisa dibagikan kali ini. Mau lihat foto yang lebih lucu? Silahkan saja nanti mampir lagi yah.

Read more »

Mencegah seks usia dini

Orangtua ternyata masih menganggap tabu berbincang mengenai seks dengan anak. Dan ini bukan hanya terjadi pada orangtua di Indonesia saja. Sekitar 68 persen orangtua di Amerika Serikat mengaku tidak pernah menyinggung masalah seks dengan anak-anak mereka, karena malu atau risih melakukannya.

Menurut sebuah survei yang dilakukan oleh situs diskon CouponCodes4u.com kepada 2.305 orang tua, setidaknya lebih dari 12,47 persen orangtua merasa bahwa sekolah lah yang harus bertanggung jawab penuh untuk memberikan pendidikan seks pada anak. Rasa malu menjadi alasan 44 persen orangtua sehingga tidak membahas seks dengan anak, 27 persen mengaku menghindari topik tersebut karena keyakinan agama, dan 11 persen mengatakan tidak percaya pendidikan seks.

Dr Boyke Dian Nugraha SpOG, seorang ginekolog dan konsultan seks, berpendapat anak-anak perlu diberikan pendidikan seks sedini mungkin. Tentu saja, materi dan cara penyampaian pendidikan seks yang diberikan kepada anak berbeda dengan orang dewasa. Siapa pendidik seks yang paling baik untuk anak? Jawabnya adalah orang tua. ''Lebih baik si anak mendapat informasi dari orang tua daripada dari orang lain, agar anak tidak menerima informasi yang keliru.”

Orang tua, menurut Boyke, perlu dibekali pengetahuan seputar perkembangan fisik dan mental si anak menjelang remaja. ''Pengetahuan orang tua yang kurang, akan membuat anak menerima kesalahan informasi yang dapat berakibat buruk pada kesehatan anak, terutama alat kelamin,'' tambahnya.

Berikut beberapa hal yang perlu diperhatikan oleh orangtua:

1. Berbicaralah dengan cara yang wajar, seperti berbicara tentang hal yang lain.

2. Hindari gaya seperti mengajar di sekolah.

3. Pembicaraan hendaknya tidak hanya terbatas pada fakta biologik, melainkan juga tentang nilai, emosi, dan jiwa.

4. Jangan khawatir Anda telah menjawab terlalu banyak terhadap pertanyaan anak. Mereka akan selalu bertanya tentang apa yang mereka tidak mengerti.

5. Anak-anak usia prasekolah juga perlu tahu bagaimana melindungi diri dari penyimpangan dan kekerasan seksual yang dilakukan oleh orang dewasa. Ini berarti bahwa orangtua harus memberitahu anak bahwa mangatakan "tidak" kepada orang dewasa bukanlah sesuatu yang dilarang.

6. Jangan menunggu sampai anak mencapai usia belasan tahun untuk berbicara tentang masa pubertas. Mereka harus sudah mengetahui perubahan yang terjadi pada masa remaja sebelumnya.

7. Berilah suasana dan kesempatan agar anak merasa bebas dan aman mengajukan pertanyaan tentang seksualitas.

8. Andaikata orangtua tidak dapat menjawab pertanyaan anak, jangan malu mengatakan "tidak tahu". Kemudian mintalah bantuan atau penjelasan dari orang lain yang mengetahui.

9. Setelah berbicara atau menjawab pertanyaan anak, ujilah apakah jawaban itu memang telah dimengerti. Berilah kesempatan kepada anak untuk menanyakan lagi kalau kemudian muncul pertanyaan baru.

10. Kehidupan seksual orangtua sangat diperlukan sebagai contoh nyata bagi anak ketika berbicara tentang seksualitas.

Read more »

Budaya Indonesia

Sebagai warga negara Indonesia, kita patut berbangga bahwa 5 warisan budaya Indonesia turut menjadi kebanggaan dunia. Apa saja budaya tersebut dan apa yang membuatnya menjadi kebanggan dunia? Simak ulasannya berikut ini:

1. Wayang

Wayang diakui oleh UNESCO sebagai warisan budaya bangsa Indonesia pada tahun 2003. Wayang sebagai “Karya Agung Budaya Dunia” yang diakui oleh UNESCO bukan hanya wayang Jawa tapi wayang Indonesia, termasuk wayang Bali, wayang golek Sunda, wayang Lombok, dll. Cerita-cerita yang dimainkan berkisah tentang dewa-dewi, persilatan, percintaan dan kepahlawanan yang pertunjukkannya selalu diiringi dengan musik gamelan.

Sang dalang dalam pertunjukan wayang sangat pandai membawa suasana emosi penonton mulai dari serunya peperangan sampai cerita lucu yang dibawakan sang dalang sampai membuat penonton tertawa. Tahun 1950-1960an adalah puncak kejayaan wayang yang diakui para peneliti Barat, sebagai seni pertunjukan terindah di dunia.

2. Keris

UNESCO menyatakan Keris sebagai “Masterpiece of the Oral and Intangible Heritage of Humanity” pada tanggal 25 November 2005. Keris merupakan senjata tradisional Indonesia yang diyakini mengandung kekuatan supranatural. Raja-raja di nusantara menjadikan keris menjadi senjata pusaka. Keris telah digunakan sejak abad ke-9 dibuat dengan logam dan gagangnya dibuat dari tulang, tanduk atau kayu. Keris dibuat dari logam yang berkualitas.

Keris Kuno bahkan logamnya berasal dari meteor yang jatuh ke bumi. Para Peneliti menyebut bahwa keris kuno mengandung unsur logam titanium suatu bahan yang baru pada abad 20 digunakan sebagai bahan pelapis kendaraan angkasa luar, tapi ternyata para Mpu pembuat keris telah menemukannya terlebih dahulu sebagai bahan pembuat keris.

3. Batik

Batik Indonesia sebagai Warisan Budaya Dunia (World Heritage). Batik dihasilkan dengan proses penulisan gambar atau ragam hias pada media apapun dengan menggunakan lilin panas dengan menggunakan canting. Batik biasanya digambar pada kain katun dan sutra. Kesenian batik telah dikenal sejak zaman kerajaan Majapahit dan terus berkembang kepada kerajaan dan raja-raja berikutnya.

Menurut Prof. Yohanes Surya, PhD, ahli fisika Indonesia, Batik adalah lukisan tentang alam dan dinamikanya. Berbeda dengan para pelukis naturalis yang melukis alam persis seperti apa yang dilihatnya, para pencipta batik melukis alam dari sisi yang lebih dalam. Pencipta batik mencari pola dasar dari suatu fenomena yang dilihatnya itu. Dari pola dasar ini ditambah dengan beberapa aturan sederhana, pencipta batik dapat menghasilkan lukisan batik. Butuh suatu kejeniusan untuk melihat pola dasar dan mencari aturan ini.

4. Angklung

Angklung adalah alat musik multitonal (bernada ganda) yang secara tradisional berkembang dalam masyarakat berbahasa Sunda di Pulau Jawa bagian barat. Alat musik ini dibuat dari bambu, dibunyikan dengan cara digoyangkan (bunyi disebabkan oleh benturan badan pipa bambu) sehingga menghasilkan bunyi yang bergetar dalam susunan nada 2, 3, sampai 4 nada dalam setiap ukuran, baik besar maupun kecil. Laras (nada) alat musik angklung sebagai musik tradisi Sunda kebanyakan adalah salendro dan pelog. Angklung terdaftar sebagai Karya Agung Warisan Budaya Lisan dan Nonbendawi Manusia dari UNESCO sejak November 2010.

5. Tari Saman

Tari Saman adalah sebuah tarian suku Gayo yang biasa ditampilkan untuk merayakan peristiwa-peristiwa penting dalam adat. Syair dalam tarian Saman mempergunakan bahasa Arab dan bahasa Gayo.

Dalam beberapa literatur menyebutkan tari Saman di Aceh didirikan dan dikembangkan oleh Syekh Saman, seorang ulama yang berasal dari Gayo di Aceh Tenggara. Tarian saman termasuk salah satu tarian yang cukup unik,kerena hanya menampilkan gerak tepuk tangan gerakan-gerakan lainnya, seperti gerak guncang, kirep, lingang, surang-saring (semua gerak ini adalah bahasa Gayo) Tari Saman dari Gayo Lues dan sekitarnya di Provinsi Aceh resmi diakui dan masuk dalam daftar warisan budaya tak benda yang memerlukan perlindungan mendesak UNESCO, pada Sidang akbar tahunan yang dihadiri lebih dari 500 anggota delegasi dari 69 negara, LSM internasional, pakar budaya dan media di Bali pada 22 sampai 29 November 2011 lalu.

Read more »