PENERAPAN METODE SISTEM PENDUKUNG KEPUTUSAN SAW

PENERAPAN METODE SISTEM PENDUKUNG KEPUTUSAN SAW

  Metode sistem pendukung keputusan SAW (Simple additive Weighting) merupakan salah satu metode Sistem Pendukung Keputusan yang menggunakan konsep penjumlahan terbobot. 

Pada tulisan kali ini saya akan memberikan contoh bagaimana cara Penerapan Metode Sistem Pendukung Keputusan SAW dengan PHP. Sebelumnya saya akan menjelaskan proses dari metode Simple additive weighting :

1. Siapkan terlebih dahulu data yang disimpan dalam Matrik Data.
2. Lakukan Normalisasi Matrik Data dengan formula :

Normalisasi Matriks SAW

1. Lakukan perangkingan dengan Formula

   Vi = (rij * wi) + (rij * wi) + .. (rxx * wx)

Sebagai bahan Penerapan Metode SAW, berikut contoh kasus yang akan kita coba lakukan perhitungan dengan PHP.
Suatu Institusi Perguruan tinggi akan memilih seorang karyawan untuk dipromosikan sebagai kepala unit Sistem Informasi.
Ada empat kriteria yang digunakan untuk melakukan penilaian yaitu :

1. C1  = Tes Pengetahuan (Wawasan) Sistem Informasi.
2. C2 = Praktik Insatalasi Jaringan
3. C3 = Tes Kepripadian
4. C4 = Tes Pengetahuan Agama.

Pengambil keputusan memberikan bobot untuk setiap kriteria sebagai berikut: C1 = 35%; C2 = 25%; C3 = 25%; dan C4 = 15%.








Ada enam orang karyawan yang menjadi kandidat (alternatif) untuk dipromosikan sebagai kepala unit, yaitu:

1. A1 = Indra
2. A2 = Roni,
3. A3 = Putri,
4. A4 = Dani,
5. A5 = Ratna, dan
6. A6 = Mira.

Data diatas sekarang kita rubah ke dalam database, buat database kira2 seperti ini :
tbcalon :

Tabel Calon Sistem Pendukung Keputusan


Selanjutnya kita buat tabel untuk menyimpan matrik, misal tbmatrik :



Tabel Matrik Sistem Pendukung Keputusan


Setelah keduanya dibuat, silahkan isi data sehingga terbentuk data seperti ini :
tbcalon :

Data Calon SPK


dan data Matrik :

Data Matrik Calon SPK


Selesai, berikut adalah perhitungan sistem pendukung keputusan dengan PHP :

Hasil Sistem Pendukung Keputusan

PEMOGRAMAN KRIPTOGRAF

PEMOGRAMAN KRIPTOGRAFI

A.Vernam Chiper(One Time Pad)

            One Time Pad  termasuk dalam kelompok kriptografi simestris. One Time Pad  (pad=kertas blaknot)berisi deretan karakter-karakter kunci yang di bangkitkan secara acak.Chiper ini diimplementasikan melalui sebuah kunci yang terdiri dari sekumpulan random  karakter – karakter yang tidak berulang.Setiap huruf kunci di jumlahkan modulo  26 dengan huruf pada plaintext. Pada One Time Pad , setiap hurup kunci digunakan satu kali untuk satu pesan dan tidak digunakan kembali.Panjang stream karakter kunci sama dengan panjang pesan.

Ok kali ini saya akan mengasih contoh Vernam Chiper ini dengan mengunakan microsoft visual studio2008.

01. 

Pertama Buka microsoft visual studio2008

02.   Setelah itu klik Create:   Project

 

03.  Selanjutnya  anda akan dibawa ke tampilan seperti di bawah ini

Pada kotak name : isikan nama project anda dengan sesuka hati.

Pada kotak location :  pilih tempat penyimpanan project anda

Setelah itu pilih OK

04.   Maka akan muncul lembar kerja anda

05.   Di lembar kerja anda isikan atau desain seperti gambar di bawah ini:

 

Keterangan

Plainteks          : label      =>     textbox           

Kunci               : label      =>     textbox

Chiperteks       : label      =>     textbox

Dikontak properties ganti name texbok dan textnya,dan jangan lupa ganti juga “ multiline = true” dan “scorollbars  = vertical”

Enkripsi           : button

Ganti name button =btnenkripsi

Text = enkripsi

06.  Listing Program

Public Class OneTimePad

    Private Sub OneTimePad_load(ByVal sender As System.Object, ByVal e As System.EventArgs)handles mybase.load

        plainteks.Text = ""

        kunci.Text = ""

        chiperteks.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

        Dim j As Integer

        Dim jum As Integer

        Dim skey As String

        Dim nkata As Integer

        Dim nkunci As Integer

        Dim skata As String

        Dim splain As String = ""

        Dim nenc As Integer

        j = 0

        skata = plainteks.Text

        jum = Len(skata)

        skey = kunci.Text

        For i = 1 To jum

            If j = Len(skey) Then

                j = 1

            Else

                j = j + 1

            End If

            nkata = Asc(Mid(skata, i, 1)) - 65

            nkunci = Asc(Mid(skey, j, 1)) - 65

            nenc = ((nkata + nkunci) Mod 26)

            splain = splain & Chr((nenc) + 65)

        Next i

        chiperteks.Text = splain

    End Sub

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

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged

    End Sub

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

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub

End Class

07.   Setelah anda selesai menulis coding di atas tekan F5 untuk menjalankanya,

Seperti di bawah ini

08.  Selamat mencoba

Wassalam........