Program Sederhana Menggunakan IF Pada Pascal

Uses crt;
var
   NPM,Nama,NHuruf,Ket                  :string;
   NHadir,NTugas,NMID,NUTS,NUAS,NAkhir  : real;
Begin
    clrscr;
    Writeln('------------------------------------------------');
    writeln('**********Menghitung Nilai Mahasiswa************');
    Write('Input NPM                       : ');readln(NPM);
    write('Input Nilai Kehadiran           : ');readln(NHadir);
    write('Input Nilai Tugas               : ');Readln(NTugas);
    write('Input Nilai MID                 : ');readln(NMID);
    write('Input Nilai UTS                 : ');readln(NUTS);
    write('Input Nilai UAS                 : ');readln(NUAS);

   
    if NPM ='1111240' then
       nama :='Dwirisky'
    else if NPM ='12110046' then
         nama :='Agus Setiawan'
    else if NPM ='13110835' then
         nama :='Fince'
    else if NPM ='14110269' then
         nama := 'Senima Gulo'
    else
        nama :='David' ;


    NAkhir := 0.1 * NHadir + 0.15 * NTugas + 0.2 * NMID + 0.25 * NUTS + 0.30 * NUAS;

    if NAkhir >= 90 then
       NHuruf :='A'
    else if NAkhir >=80 then
         NHuruf :='B'
    else if NAkhir >=70 then
         NHuruf :='C'
    else if NAkhir >=60 then
         NHuruf :='D'
    else
        NHuruf :='D';


    If NAkhir >= 60 then
       Ket :='LULUS'
    else
        Ket :='GAGAL' ;

    Writeln('------------------------------------------------');
    Writeln('NPM Anda adalah            : ',NPM);
    writeln('Nama Anda adalah           : ',Nama);
    writeln('Nilai Kehadiran anda adalah: ',NHadir:2:0);
    writeln('Nilai Tugas anda adalah    : ',NTugas:2:0);
    writeln('Nilai MID anda adalah      : ',NMID:2:0);
    writeln('Nilai UTS anda adalah      : ',NUTS:2:0);
    writeln('Nilai UAS anda adala       : ',NUAS:2:0);
    writeln('Nilai Akhir anda adalah    : ',NAkhir:2:0);
    writeln('Nilai Huruf anda adalah    : ',NHuruf);
    writeln('Keterangan                 : ',Ket);

 Readln;
End.


   

 

Program Sederhana Penjualan Mobil Secara Kredit Menggunakan VB.Net 2008

Sekarang saya akan memposting Program Sederhana Penjualan Mobil Secara Kredit Menggunakan VB.Net 2008. Okey langsung saja gan,

1. Tampilan Form Penjualan Mobil Secara Kredit

2. Listing Program

Public Class Form1

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

        Kode.Items.Add("MB1")

        Kode.Items.Add("MB2")

        Kode.Items.Add("MB3")

        Kode.Items.Add("MB4")

        For i = 2012 To 2014

            Tahun.Items.Add(i)

        Next

        Status.Items.Add("Baru")

        Status.Items.Add("Bekas")

        For x = 12 To 48

            LamaKredit.Items.Add(x)

        Next

        Call BuatTabel()

    End Sub

    Sub Bersih()

        Kode.Text = ""

        Mobil.Text = ""

        Tahun.Text = ""

        Status.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        TotalHarga.Text = ""

        UangMuka.Text = ""

        KomisiSales.Text = ""

        TotalKredit.Text = ""

        LamaKredit.Text = ""

        Angsuran.Text = ""

        Kode.Focus()

    End Sub

    Sub BuatTabel()

        With LV

            .GridLines = True

            .View = View.Details

            .FullRowSelect = True

            .Columns.Add("Kode", 100)

            .Columns.Add("Nama Mobil", 130)

            .Columns.Add("Tahun", 100)

            .Columns.Add("Status", 100)

            .Columns.Add("Harga", 100)

            .Columns.Add("Jumlah", 100)

            .Columns.Add("Total Harga", 100)

            .Columns.Add("Uang Muka", 100)

            .Columns.Add("Komisi Sales", 100)

            .Columns.Add("Total Kredit", 100)

            .Columns.Add("Lama Kredit", 100)

            .Columns.Add("Angsuran / Bulan", 100)

        End With

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        With lst

            .Text = Kode.Text

            .SubItems.Add(Mobil.Text)

            .SubItems.Add(Tahun.Text)

            .SubItems.Add(Status.Text)

            .SubItems.Add(Harga.Text)

            .SubItems.Add(Jumlah.Text)

            .SubItems.Add(TotalHarga.Text)

            .SubItems.Add(UangMuka.Text)

            .SubItems.Add(KomisiSales.Text)

            .SubItems.Add(TotalKredit.Text)

            .SubItems.Add(LamaKredit.Text)

            .SubItems.Add(Angsuran.Text)

        End With

        LV.Items.Add(lst)

        Bersih()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Select Case Kode.Text

            Case "MB1"

                Mobil.Text = "Avanza Veloz"

            Case "MB2"

                Mobil.Text = "Avanza G"

            Case "MB3"

                Mobil.Text = "Zenia"

            Case "MB4"

                Mobil.Text = "Yaris"

        End Select

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        If Kode.Text = "MB1" And Tahun.Text = "2012" And Status.Text = "Baru" Then

            Harga.Text = 175000000

        ElseIf Kode.Text = "MB1" And Tahun.Text = "2012" And Status.Text = "Bekas" Then

            Harga.Text = 120000000

        ElseIf Kode.Text = "MB1" And Tahun.Text = "2013" And Status.Text = "Baru" Then

            Harga.Text = 195000000

        ElseIf Kode.Text = "MB1" And Tahun.Text = "2013" And Status.Text = "Bekas" Then

            Harga.Text = 130000000

        ElseIf Kode.Text = "MB1" And Tahun.Text = "2014" And Status.Text = "Baru" Then

            Harga.Text = 208000000

        ElseIf Kode.Text = "MB1" And Tahun.Text = "2014" And Status.Text = "Bekas" Then

            Harga.Text = 170000000

        ElseIf Kode.Text = "MB2" And Tahun.Text = "2012" And Status.Text = "Baru" Then

            Harga.Text = 180000000

        ElseIf Kode.Text = "MB2" And Tahun.Text = "2012" And Status.Text = "Bekas" Then

            Harga.Text = 125000000

        ElseIf Kode.Text = "MB2" And Tahun.Text = "2013" And Status.Text = "Baru" Then

            Harga.Text = 200000000

        ElseIf Kode.Text = "MB2" And Tahun.Text = "2013" And Status.Text = "Bekas" Then

            Harga.Text = 135000000

        ElseIf Kode.Text = "MB2" And Tahun.Text = "2014" And Status.Text = "Baru" Then

            Harga.Text = 220000000

        ElseIf Kode.Text = "MB2" And Tahun.Text = "2014" And Status.Text = "Bekas" Then

            Harga.Text = 180000000

        ElseIf Kode.Text = "MB3" And Tahun.Text = "2012" And Status.Text = "Baru" Then

            Harga.Text = 160000000

        ElseIf Kode.Text = "MB3" And Tahun.Text = "2012" And Status.Text = "Bekas" Then

            Harga.Text = 115000000

        ElseIf Kode.Text = "MB3" And Tahun.Text = "2013" And Status.Text = "Baru" Then

            Harga.Text = 180000000

        ElseIf Kode.Text = "MB3" And Tahun.Text = "2013" And Status.Text = "Bekas" Then

            Harga.Text = 125000000

        ElseIf Kode.Text = "MB3" And Tahun.Text = "2014" And Status.Text = "Baru" Then

            Harga.Text = 200000000

        ElseIf Kode.Text = "MB3" And Tahun.Text = "2014" And Status.Text = "Bekas" Then

            Harga.Text = 160000000

        ElseIf Kode.Text = "MB4" And Tahun.Text = "2012" And Status.Text = "Baru" Then

            Harga.Text = 200000000

        ElseIf Kode.Text = "MB4" And Tahun.Text = "2012" And Status.Text = "Bekas" Then

            Harga.Text = 150000000

        ElseIf Kode.Text = "MB4" And Tahun.Text = "2013" And Status.Text = "Baru" Then

            Harga.Text = 230000000

        ElseIf Kode.Text = "MB4" And Tahun.Text = "2013" And Status.Text = "Bekas" Then

            Harga.Text = 135000000

        ElseIf Kode.Text = "MB4" And Tahun.Text = "2014" And Status.Text = "Baru" Then

            Harga.Text = 245000000

        ElseIf Kode.Text = "MB4" And Tahun.Text = "2014" And Status.Text = "Bekas" Then

            Harga.Text = 180000000

        End If

    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

        If Harga.Text = "" Then

            Exit Sub

            Status.Focus()

        Else

            TotalHarga.Text = Jumlah.Text * Harga.Text

            UangMuka.Text = 0.3 * TotalHarga.Text

            KomisiSales.Text = 0.02 * Jumlah.Text * UangMuka.Text

            TotalKredit.Text = (TotalHarga.Text - UangMuka.Text)

        End If

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Angsuran.Text = (((TotalKredit.Text) * (0.03 * LamaKredit.Text))) + Val(TotalKredit.Text) / LamaKredit.Text

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        Call isitabel()

    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click

        Bersih()

    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 BtnHapusPerKode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPerKode.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Me.Close()

    End Sub

End Class

3. Hasil Program

Program Sederhana Metode Kriptografi Caesar Menggunakan VB.Net 2008

Metode Caesar  seperti yang kita ketahui adalah salah satu teknik enkripsipaling sederhana dan paling terkenal. Sandi ini termasuk sandi substitusi dimana setiap huruf pada teks terang (plaintext) digantikan oleh huruf lain yang memiliki selisih posisi tertentu dalam alfabet. Misalnya, jika menggunakan geseran 3, Wakan menjadi Z, I menjadi L, dan K menjadi N sehingga teks terang "wiki" akan menjadi "ZLNL" pada teks tersandi. NamaCaesar diambil dari Julius Caesar, jenderal, konsul, dan diktator Romawi yang menggunakan sandi ini untuk berkomunikasi dengan para panglimanya.

Berikut contoh program Metode Kriptografi Caesar Menggunakan VB.Net 2008.

1. Tampilan Form Kriptografi Caesar

2. Listing Program

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

        Dim teks As String = ""

        Dim i As Integer

        Dim xkar As String = ""

        For i = 1 To Len(Plaintext.Text)

            xkar = Mid(Plaintext.Text, i, 1)

            xkar = Chr(Asc(xkar) + 3)

            teks = teks + xkar

        Next

        Chipertext.Text = teks

        Plaintext.Text = ""

    End Sub

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

        Dim teks As String = ""

        Dim i As Integer

        Dim xkar As String = ""

        For i = 1 To Len(Chipertext.Text)

            xkar = Mid(Chipertext.Text, i, 1)

            xkar = Chr(Asc(xkar) - 3)

            teks = teks + xkar

        Next

        Plaintext.Text = teks

        Chipertext.Text = ""

    End Sub

3. Hasil Program

Sekian dulu, terima kasih dan semoga bermanfaat.

Penggunaan Perulangan For Pada Pascal

Gan, sudah lama tak jumpa,,,,
kwkwkwkw.... :)

Okey kita mulai saja membuat suatu yang bermanfaat dalam bahasa program pascal atau lebih sering dikenal dengan layar biru. Disini saya akan membuat beberapa contoh program sederhana penggunaan Perulangan For pada Pascal.

======================================================

uses crt;

var

i : integer;

begin

clrscr;

for i := 1 To 5 Do

writeln(i);

readln;

end.

======================================================

uses crt;

var

i : integer;

begin

clrscr;

for i := 1 To 5 Do

writeln(i, 'Belajar bersama-sama');

readln;

end.

======================================================

uses crt;

var

i : integer;

begin

clrscr;

for i := 5 DownTo 1 Do

writeln(i , ' : ',  'Belajar itu menarik');

readln;

end.

Sekian dulu pembahasan mengenai perulangan for, semoga bermanfaat bagi kita semua...

             

Soal dan Jawaban Quiz On Line menggunakan Metode SAW

Sebuah PTS di Kota Medan, akan memberikan beasiswa kepada 5 orang mahasiswanya. Adapun syarat pemberian beasiswa tersebut, yaitu harus memenuhi ketentuan berikut ini :

Syarat :
C1: Semester Aktif Perkuliahan (Attribut Keuntungan)
C2: IPK  (Attribut Keuntungan)
C3: Penghasilan Orang Tua  (Attribut Biaya)
C4: Aktif Berorganisasi (Attribut Keuntungan)

Untuk bobot W=[3,4,5,4]

Adapun mahasiswa yang menjadi alternatif dalam pemberian beasiswa yaitu :

Untuk pembobotan yang digunakan bisa mengacu pada bobot di bawah ini :

C1:Semester Aktif Perkuliahan

Semester II --> 1

Semester IV --> 2 

Semester VI -->  3

Semester VIII -->  4

C2: IPK 

IPK  3.00 - 3.249 --> 1

IPK  3.25 - 3.499 --> 2

IPK  3.50 - 3.749 --> 3

IPK  3.75 - 3.999 --> 4

IPK  4.00 --> 5

  

C3: Penghasilan Orang Tua  

1.000.000 --> 1

1.400.000 --> 2

1.800.000 --> 3

2.200.000 --> 4

2.600.000 --> 5 

C4: Aktif Berorganisasi

Aktif --> 2

Tidak Aktif --> 1

Penyeleisaian :

Pembobotan

MATRIKS

Untuk C1

R11 = x=3/(max⁡{3;3;4;1;2;2;3})= 3/4  =0,75

R21 = x=3/(max⁡{3;3;4;1;2;2;3})= 3/4  =0,75

R31 = x=4/(max⁡{3;3;4;1;2;2;3})= 4/4  =1

R41 = x=1/(max⁡{3;3;4;1;2;2;3})= 1/4  =0,25

R51 = x=2/(max⁡{3;3;4;1;2;2;3})= 2/4  =0,5

R61 = x=2/(max⁡{3;3;4;1;2;2;3})= 2/4  =0,5

R71 = x=3/(max⁡{3;3;4;1;2;2;3})= 3/4  =0,75

Untuk C2 

R12 = x=3/(max⁡{3;3;4;4;3;2;2})= 3/4 =0,75

R22 = x=3/(max⁡{3;3;4;4;3;2;2})= 3/4 =0,75

R32 = x=4/(max⁡{3;3;4;4;3;2;2})= 4/4 =1

R42 = x=4/(max⁡{3;3;4;4;3;2;2})= 4/4 =1

R52 = x=3/(max⁡{3;3;4;4;3;2;2})= 3/4 =0,75

R62 = x=2/(max⁡{3;3;4;4;3;2;2})= 2/4 =0,5

R72 = x=2/(max⁡{3;3;4;4;3;2;2})= 2/4 =0,5

Untuk C3

R13 = x=min⁡〖(3;2;1;2;4;4;3)〗/(3)=1/3  =0,33

R23 = x=min⁡〖(3;2;1;2;4;4;3)〗/(2)=1/2  =0,5

R33 = x=min⁡〖(3;2;1;2;4;4;3)〗/(1)=1/1  =1

R43 = x=min⁡〖(3;2;1;2;4;4;3)〗/(2)=1/2  =0,5

R53 = x=min⁡〖(3;2;1;2;4;4;3)〗/(4)=1/4  =0,25

R63 = x=min⁡〖(3;2;1;2;4;4;3)〗/(4)=1/4  =0,25

R73 = x=min⁡〖(3;2;1;2;4;4;3)〗/(3)=1/3  =0,33

Untuk C4

R14 = x=2/(max⁡{2;2;1;1;2;2;2})=2/2 =1

R24 = x=2/(max⁡{2;2;1;1;2;2;2})=2/2 =1

R34 = x=1/(max⁡{2;2;1;1;2;2;2})=1/2 =0,5

R44 = x=1/(max⁡{2;2;1;1;2;2;2})=1/2 =0,5

R54 = x=2/(max⁡{2;2;1;1;2;2;2})=2/2 =1

R64 = x=2/(max⁡{2;2;1;1;2;2;2})=2/2 =1

R74 = x=2/(max⁡{2;2;1;1;2;2;2})=2/2 =1

V1 =3(0,75)+4(0,75)+5(0,33)+4(1) = 10,9

V2 =3(0,75)+4(0,75)+5(0,5)+4(1) = 11,9

V3 =3(1)+4(1)+5(1)+4(0,5) = 14

V4 =3(0,25)+4(1)+5(0,5)+4(0,5) = 9,25

V5=3(0,25)+4(0,75)+5(0,25)+4(1) = 9,75

V6 =3(0,5)+4(0,5)+5(0,25)+4(1) = 8,75

V7=3(0,75)+4(0,5)+5(0,33)+4(1) = 9,9

Maka yang menerima beasiswa ialah Joko,Widodo,simamora,dian, hendro.

QUIZ ON LINE METODE SAW

Sistem Pendukung Keputusan Menggunakan Metode AHP

Metode AHP dikembangkan oleh Thomas L. Saaty, seorang ahli matematika. Metode ini adalah sebuah kerangka untuk mengambil keputusan dengan efektif atas persoalan yang kompleks dengan menyederhanakan dan mempercepat proses pengambilan keputusan dengan memecahkan persoalan tersebut kedalam bagian-bagiannya, menata bagian atau variabel ini dalam suatu susunan hirarki, member nilai numerik pada pertimbangan subjektif tentang pentingnya tiap variabel dan mensintesis berbagai pertimbangan ini untuk menetapkan variabel yang mana yang memiliki prioritas paling tinggi dan bertindak untuk mempengaruhi hasil pada situasi tersebut. Metode AHP ini membantu memecahkan persoalan yang kompleks dengan menstruktur suatu hirarki kriteria, pihak yang berkepentingan, hasil dan dengan menarik berbagai pertimbangan guna mengembangkan bobot atau prioritas. Metode ini juga menggabungkan kekuatan dari perasaan dan logika yang bersangkutan pada berbagai persoalan, lalu mensintesis berbagai pertimbangan yang beragam menjadi hasil yang cocok dengan perkiraan kita secara intuitif sebagaimana yang dipresentasikan pada pertimbangan yang telah dibuat. (Saaty, 1993).

Proses hierarki adalah suatu model yang memberikan kesempatan bagi perorangan atau kelompok untuk membangun gagasan-gagasan dan mendefinisikan persoalan dengan cara membuat asumsi mereka masing-masing dan memperoleh pemecahan yang diinginkan darinya. Ada dua alasan utama untuk menyatakan suatu tindakan akan lebih baik dibanding tindakan lain. Alasan yang pertama adalah pengaruh-pengaruh tindakan tersebut kadang-kadang tidak dapat dibandingkan karena sutu ukuran atau bidang yang berbeda dan kedua, menyatakan bahwa pengaruh tindakan tersebut kadang-kadang saling bentrok, artinya perbaikan pengaruh tindakan tersebut yang satu dapat dicapai dengan pemburukan lainnya. Kedua alasan tersebut akan menyulitkan dalam membuat ekuivalensi antar pengaruh sehingga diperlukan suatu skala luwes yang disebut prioritas.

Tahapan Dalam Metode AHP

1. Memdefinisikan permasalahan dan penentuan tujuan. Jika AHP digunakan untuk memilih alternatif atau menyusun prioriras alternatif, pada tahap ini dilakukan pengembangan alternatif.
2. Menyusun masalah kedalam hierarki sehingga permasalahan yang kompleks dapat ditinjau dari sisi yang detail dan terukur.
3. Penyusunan prioritas untuk tiap elemen masalah pada hierarki. Proses ini menghasilkan bobot atau kontribusi elemen terhadap pencapaian tujuan sehingga elemen dengan bobot tertinggi memiliki prioritas penanganan. Prioritas dihasilkan dari suatu matriks perbandinagan berpasangan antara seluruh elemen pada tingkat hierarki yang sama.
4. Melakukan pengujian konsitensi terhadap perbandingan antar elemen yang didapatan pada tiap tingkat hierarki.

Sedangkan langkah-langkah “pairwise comparison” AHP adalah

1. Pengambilan data dari obyek yang diteliti.
2. Menghitung data dari bobot perbandingan berpasangan responden dengan metode“pairwise comparison” AHP berdasar hasil kuisioner.
3. Menghitung rata-rata rasio konsistensi dari masing-masing responden.
4. Pengolahan dengan metode “pairwise comparison” AHP.
5. Setelah dilakukan pengolahan tersebut, maka dapat disimpulkan adanya konsitensi   dengan tidak, bila data tidak konsisten maka diulangi lagi dengan pengambilan data seperti semula, namun bila sebaliknya maka digolongkan data terbobot yang selanjutnya dapat dicari nilai beta (b).

Sistem Pendukung Keputusan dengan Metode Decision Support Systems

Sistem pendukung keputusan (Inggris: decision support systems disingkat DSS) adalah bagian dari sistem informasi berbasis komputer (termasuk sistem berbasis pengetahuan (manajemen pengetahuan)) yang dipakai untuk mendukung pengambilan keputusan dalam suatu organisasi atau perusahaan.

Dapat juga dikatakan sebagai sistem komputer yang mengolah data menjadi informasi untuk mengambil keputusan dari masalah semi-terstruktur yang spesifik.

Menurut Moore and Chang, SPK dapat digambarkan sebagai sistem yang berkemampuan mendukung analisis ad hoc data, dan pemodelan keputusan, berorientasi keputusan, orientasi perencanaan masa depan, dan digunakan pada saat-saat yang tidak biasa.

Tahapan SPK:

• Definisi masalah
• Pengumpulan data atau elemen informasi yang relevan
• pengolahan data menjadi informasi baik dalam bentuk laporan grafik maupun tulisan
• menentukan alternatif-alternatif solusi (bisa dalam persentase)

Tujuan dari SPK:

• Membantu menyelesaikan masalah semi-terstruktur
• Mendukung manajer dalam mengambil keputusan
• Meningkatkan efektifitas bukan efisiensi pengambilan keputusan

Dalam pemrosesannya, SPK dapat menggunakan bantuan dari sistem lain seperti Artificial Intelligence, Expert Systems, Fuzzy Logic, dll.

Sistem Pendukung Keputusan Metode TOPSIS

Sistem Pendukung Keputusan (SPK) Metode TOPSIS (Technique for Order Preference by Similarity to Ideal Solution) dengan Excel Spreadsheet adalah Algoritma Sistem Cerdas yang sangat populer di kalangan Akademisi / Mahasiswa di Jurusan Teknik Informatika / Ilmu Komputer seperti halnya SPK dengan Metode WP (Weighted Product) yang pernah kita bahas.

Teori tentang Algoritma SPK dengan Metode TOPSIS ini penulis buatkan dalam bentuk Excel / Spreadsheet sehingga dapat dipelajari cara menghitungnya di Formula yang ada di dokumen Microsoft Excel tersebut. Untuk teorinya mohon dicari sendiri karena penulis memang tidak bisa terlalu mahir dalam menjelaskan Teori TOPSIS ini.

Berikut ini tampilan SPK dengan Metode TOPSIS di Excel / Spreadsheet:

Semoga jelas dan bermanfaat.

Sistem Pendukung Keputusan Metode SAW

Sistem Pendukung Keputusan Metode SAW (Simple Additive Weighting) dengan Excel Spreadsheet ingin coba penulis sharing di Blog ini, karena berkali-kali penulis harus menyelesaikan pekerjaan Sistem Cerdas seperti ini. Metode ini sangat peopuler di kalangan Akademisi / Mahasiswa di Jurusan Teknik Informatika / Ilmu Komputer.

Teori tentang Algoritma SPK dengan Metode WP ini sebenarnya penulis dapatkan dari sebuah sumber yang tidak mungkin disharing secara langsung di Blog ini, maka penulis coba buatkan dalam bentuk Excel / Spreadsheet sehingga kelihatan cara menghitungnya di Formula yang ada di File Microsoft Excel tersebut. Untuk teorinya mohon dicari sendiri karena penulis memang tidak terlalu bisa dalam menjelaskan Teori seperti halnya seorang dosen.

Semoga cukup jelas dan bermanfaat.