Yuk ! belajar pemograman visual basic dot net di mesran.net

Penjualan Televisi

Public Class Form1

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

        kode.Items.Add("BTV-01")

        kode.Items.Add("BTV-02")

        kode.Items.Add("BTD-01")

        kode.Items.Add("BTD-02")

        buattabel()

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 100, HorizontalAlignment.Center)

        lv.Columns.Add("harga", 100, HorizontalAlignment.Center)

        lv.Columns.Add("jumlah penjualan", 120, HorizontalAlignment.Center)

        lv.Columns.Add("total harga", 100, HorizontalAlignment.Center)

    End Sub

    Sub isitabel()

        Dim febri As New ListViewItem

        febri.Text = kode.Text

        febri.SubItems.Add(nama.Text)

        febri.SubItems.Add(harga.Text)

        febri.SubItems.Add(jumlah.Text)

        febri.SubItems.Add(total.Text)

        lv.Items.Add(febri)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Select Case kode.Text

            Case "BTV-01"

                nama.Text = "TV SAMSUNG"

                harga.Text = 4500000

            Case "BTV-01"

                nama.Text = "TV SAMSUNG"

                harga.Text = 5000000

            Case "BTV-01"

                nama.Text = "TV POLYTRON"

                harga.Text = 400000

            Case "BTV-01"

                nama.Text = "TV POLYTRON"

                harga.Text = 6000000

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        total.Text = harga.Text * jumlah.Text

       

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        lv.Items.Clear()

    End Sub

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

        End

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Dim febri As New ListViewItem

        febri.Text = kode.Text

        febri.SubItems.Add(nama.Text)

        febri.SubItems.Add(harga.Text)

        febri.SubItems.Add(jumlah.Text)

        febri.SubItems.Add(total.Text)

        lv.Items.Add(febri)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        kode.Text = ""

        nama.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

End Class

Demikian postingan saya

Nama    : Febri safitri Sihombing

NPM      : 14110143

Aplikasi Metode WP(Weighting Product) untuk Sistem Pendukung Keputusan (SPK)

Coding Shared - Lab Code kali ini akan mengupas salah satu metode dalam MADM (Multiple Atribute Decision Making) yaitu metode WP ( Weight Product ) yang memang diperuntukkan sebagai alat bantu untuk membuat keputusan,.

Dalam implementasinya, Metode WP ini dapat juga diterapkan dalam berbagai kasus, semisal : Perangkingan karyawan terbaik, Penentuan penerima beasiswa, rekomendasi produk elektronik tertentu, Pemilihan tempat kost dan lain sebagainya, untuk lebih jelasnya mengenai metode WP ini coba kita kupas rumus dan implementasinya yang kami ambil dari bahan ajar salah satu dosen Universitas Islam Indonesia yaitu Ibu Sri Kusumadewi dengan judul " Metode - Metode optimasi dengan Alternatif terbatas ". Berikut rumus dan contoh penggunaan dari Metode WP - MADM :

Yang jadi pertanyaan sekarang adalah bagaimana implementasi dari metode WP pada contoh di atas dalam pemrograman PHP?
OK, mari kita bahas. Untuk sementara anggap saja kita hanya mengimplementasikan study kasus di atas, jadi kita belum membutuhkan database, kecuali kalau nanti kita ingin menerapkannya menjadi sebuah aplikasi.
Untuk Study Kasus di atas maka :

• Untuk tiap alternatif akan kita definisikan sebagai sebuah array,

•  Nilai kriteria dan nilai alternatif disetiap kriteria akan disimpan dalam sebuah variabel array

• Nilai W adalah nilai yang sudah ditentukan / nilai inputan kalau diterapkan dalam sebuah aplikasi. 

 Maka Script Penyelesaian untuk study kasus di atas adalah :

<?php
// definisi alternatif sebagai array
$alternatif = array("Ngemplak","Kalasan","Kota Gede");
$jum_alternatif=count($alternatif);
// definisi kriteria sebagai array
$kriteria = array ("jarak pasar","jumlah penduduk","jarak pabrik","jarak gudang","harga tanah");
$jum_kriteria=count($kriteria);
// bobot kepentingan
$w = array(5,3,4,4,2);
// perbaikan bobot kepentingan
$totalW=5+3+4+4+2;
$wp[0]=round(($w[0]/$totalW),2);
$wp[1]=round(($w[1]/$totalW),2);
$wp[2]=round(($w[2]/$totalW),2);
$wp[3]=round(($w[3]/$totalW),2);
$wp[4]=round(($w[4]/$totalW),2);
// definisi array untuk nilai alternatif tiap kriteria
//A[x][y] -> x untuk alternatif, y untuk kriteria
$A[0][0]=0.75;$A[0][1]=2000;$A[0][2]=18;$A[0][3]=50;$A[0][4]=500;
$A[1][0]=0.50;$A[1][1]=1500;$A[1][2]=20;$A[1][3]=40;$A[1][4]=450;
$A[2][0]=0.90;$A[2][1]=2050;$A[2][2]=35;$A[2][3]=35;$A[2][4]=800;

// perhitungan vektor S
// C2 dan C4 nilai keuntungan bernilai +, C1,C3,C5 kriteria biaya bernilai -
for ($i=0;$i<$jum_alternatif;$i++)
     {
  $S[$i]=1;
  for($j=0;$j<$jum_kriteria;$j++)
  {
  if ($j==0 or $j==2 or $j==4) {$p=0-$wp[$j];} else {$p=$wp[$j];}  
  $S[$i]=$S[$i]*pow($A[$i][$j],$p);
   }
  $totalS=$totalS+$S[$i];
      }
// perhitungan vektor V
$rangkingawal=0;
for ($i=0;$i<$jum_alternatif;$i++)
     {
  $V[$i]=$S[$i]/$totalS;
  if ($V[$i]>$rangkingawal)
            {
               $rangkingawal=$V[$i]; $pilihan=$alternatif[$i];$hasil=$V[$i]; $urutan=$i;
             }
 
       }
// Hasil Akhir
echo "Hasil perangkingan yang di pilih adalah Vektor V ke-".$urutan." yaitu :<br><b>".$pilihan."</b> dengan nilai <b>".$hasil."</b>";
?>
Setelah script di atas di jalankan, maka berikut tampilan yang dihasilkan, sama persis dengan contoh kasus di atas.

Screenshot script php penentuan alternatif dengan menggunakan Metode WP - MADM