Sistem Pendukung Keputusan (SPK) Dengan Metode Promethee - VB.Net da Mysql

pada postingan kali ini saya akan sharing tentang aplikasi sistem pendukung keputusan, terdapat banyak metode dalam mengembangkan sistem pendukung keputusan antara lain : AHP, SAW, TOPSIS, FUZZY, Promethee dan lain2, pada postingan ini saya hanya membahas SPK dengan metode promethee.

Apa itu sistem pendukung keputusan (SPK) ?

Sistem pendukung keputusan merupakan sistem informasi interaktif yang menyediakan informasi, pemodelan, dan hasil pengolahan data. Sistem yang digunakan untuk membantu pengambilan keputusan dalam situasi yang semiterstruktur dan situasi yang tidak terstruktur dimana tak seorang pun tahu bagaimana keputusan dibuat.

Apa itu metode Promethee?

Metode Promethee (Preference Ranking Organizational Method For Enrichment Evaluation) merupakan salah satu metode pengambilan keputusan Multi Criteria Decision Making (MCDM) atau pengambilan keputusan suatu masalah yang memiliki lebih dari satu kriteria.

Metode promethee adalah salah satu metode penentuan urutan atau prioritas dalam analisa multikriteri. Masalah pokoknya adalah kesederhanaan, kejelasan, dan kesetabilan. Metode promethee menggunakan kriteria dan bobot dari masing-masing kriteria yang kemudian diolah untuk menentukan pemilihan alternatif yang sesuai. Adapun langkah-langkah pengambilan keputusan dengan metode promethee adalah sebagai berikut :

1. Menentukan kriteria

2. Menentukan bobot atau nilai dari masing2 kriteria

3. Menentukan tipe preferensi untuk menentukan tipe perhitungan dalam mengolah alternatif.

4.   Menentukan hasil nilai prefrensi berdasarkan tipe preferensi yang ditentukan

5. Menentukan nilai index preferensi untuk menghitung nilai preferensi dari masing2 kriteria

6. Menentukan promethee ranking yang terdiri dari nilai promethee I dan nilai promethee II. Nilai promethee I menentukan nilai Leaving Flow, Entering Flow. Pada promethee II menentukan nilai Net Flow.

Demikian sedikit gambaran tentang metode promethee, sekarang untuk implementasinya saya menggunakan bahasa pemrograman VB.Net dan database MySQL dan untuk studi kasus yang saya gunakan adalah penerimaan anggota baru resimen mahasiswa (MENWA)

Adapun tampilan aplikasinya seperti berikut :

Tampilan awal

Tampilan data Calon Anggota

Tampilan data kriteria
 

Tampilan penilaian kriteria / Pembobotan Kriteria

Tampilan hasil perhitungan kriteria / perankingan

 Hasil

Sekian sharing kali ini semoga bermanfaat. Termikasih :D

Aplikasi Komputerisasi BPN Kabupaten Malang

Aplikasi ini saya buat pada saat magang di BPN kabupaten malang dulu saat masih kuliah, aplikasi ini hanya digunakan untuk melakukan pecatatan data hasil pengukuran tanah yang dilakukan oleh petugas dilapagan, dimana sebelumnya hanya melakukan pencatatan menggunakan excell, ok itu sekilas penjelasan singkat tentang aplikasi ini, untuk tampilannya bisa dilihat pada gambar2 dibawah ini:

untuk skin tampilannya saya menggunakan devExpress, :D

Aplikasi Penjualan Gas LPG Sederhana dengan VB.Net Mysql

Pada postingan ini saya akan membagikan contoh aplikasi penjualan gas lpg menggunakan vb.net 2018 dan mysql, untuk contoh tampilannya seperti berikut :

halaman login

Tampilan utama

untuk source code nya silahkan tuliskan email di kolom komentar nanti saya akan kirimkan link downloadnya atau langsung download DISINI, terimakasih :D

Simple CRUD VB.Net SQL Server

Sore sore gini mendung, gak ada kerjaan dikos....!!!

Dari pada nganggur ane mutusin untuk membuat tutorial CRUD sederhana dengan VB.Net dan Sql Server.

Ok. Langsung aja.....

pertama buat database di SQL Server, disini databasenya saya buat dengan nama TestDB,
setelah itu ane buat table dengan nama tb_Data, struktur tablenya seperti berikut gan. :D

Next, buka visual studionya buat project dengan nama simpleCRUD after that let's design winform like this :D, sok inggris dikit gpp, wkwkwkwkwwk

Next step, let's make Database Connections using module, hehehe sok inggris lagi, :D

tambahkan sebuah module kedalam project, caranya pilih menu project terus pilih add Module.

lalu tambahkan source code berikut :

Imports System.Data.SqlClient Module Module1     Public sqlCon As New SqlConnection     Public Sub dbConn()         Dim server As String         server = "Data Source=.\SQLEXPRESS;Database=TestDB;Integrated Security=true"         sqlCon = New SqlConnection(server)         sqlCon.Open()     End Sub End Module

note : Data Source => nama server sql

selanjutnya kita kembali ke form yang sudah dibuat tadi, 

adapun step step yang harus dilakukan disini : 

1. Deklarasi beberapa variable seperti berikut gan 

    

Dim sql As String     Dim da As SqlDataAdapter     Dim ds As DataSet     Dim dt As DataTable

2. Buat sub untuk menampilkan data dari database

    untuk subnya ane kasih nama tampil_data seperti berikut :
 

Sub tampil_data()         clear()         dbConn()         sql = "Select * From tb_Data"         Dim da = New SqlDataAdapter(sql, sqlCon)         Dim ds = New Data.DataSet         ds.Reset()         da.Fill(ds)         DataGridView1.DataSource = ds.Tables(0)     End Sub

3. tambahkan kode simpan didalam button simpan, double click button simpan dan masukkan source code berikut :

dbConn()         Dim query As New SqlCommand("Insert Into tb_Data values('" & TextBox1.Text & "','" & TextBox2.Text & "','" &                                     ComboBox1.Text & "','" & DateTimePicker1.Text & "')", sqlCon)         Dim x = query.ExecuteNonQuery()         If x = 1 Then             MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Sukses")             tampil_data()         Else             MsgBox("Data Gagal Disimpan", MsgBoxStyle.Critical, "Gagal")         End If         sqlCon.Close()

4. tambahkan kode untuk edit data didalam button edit, source codenya seperti berikut :

dbConn()         Dim query As New SqlCommand("Update tb_Data set alamat='" & TextBox2.Text & "', jenis_kelamin='" &                                     ComboBox1.Text & "', tgl_lahir='" & DateTimePicker1.Text & "' Where nama = '" & TextBox1.Text & "'", sqlCon)         Dim x = query.ExecuteNonQuery()         If x = 1 Then             MsgBox("Data Berhasil Di Edit", MsgBoxStyle.Information, "Sukses")             tampil_data()         Else             MsgBox("Data Gagal Di Edit", MsgBoxStyle.Critical, "Gagal")         End If         sqlCon.Close()

5. tambahkan kode hapus didalam button hapus, berikut source code pada button hapus :

dbConn()         Dim query As New SqlCommand("Delete tb_Data Where nama = '" & TextBox1.Text & "'", sqlCon)         Dim x = query.ExecuteNonQuery()         If x = 1 Then             MsgBox("Data Berhasil Di hapus", MsgBoxStyle.Information, "Sukses")             tampil_data()         Else             MsgBox("Data Gagal Di hapus", MsgBoxStyle.Critical, "Gagal")         End If         sqlCon.Close()

6. tambahkan source code berikut pada properti cellclick pada datagridnya, yang fungsinya akan menampilkan data yang di pilih pada datagridview kedalam textbox, combobox, dan datetimepicker.

berikut source codenya :

TextBox1.Text = DataGridView1.SelectedRows(0).Cells(0).Value TextBox2.Text = DataGridView1.SelectedRows(0).Cells(1).Value ComboBox1.Text = DataGridView1.SelectedRows(0).Cells(2).Value DateTimePicker1.Text = DataGridView1.SelectedRows(0).Cells(3).Value

7. tambahkan sebuah sub lagi seperti berikut :

Sub clear()         TextBox1.Clear()         TextBox2.Clear()         ComboBox1.SelectedIndex = 0         DateTimePicker1.Value = Today     End Sub

note : jangan lupa tambahkan namespace sqlclient pada bagian paling atas sendiri seperti berikut

Import System.Data.SqlClient

ok. jika sudah silahkan dijalankan programnya

lihat apa yang terjadi....
:D

yang mau download projectnya ada DISINI