Modul Sistem Pendukung Keputusan (Tugas Pak Mesran)

Konsep Sistem Pendukung Keputusan (SPK) / Decision Support Sistem (DSS) pertama kali diungkapkan pada awal tahun 1970-an oleh Michael S. Scott Morton dengan istilah Management Decision Sistem. Sistem tersebut adalah suatu sistem yang berbasis komputer yang ditujukan untuk membantu pengambil keputusan dengan memanfaatkan data dan model tertentu untuk memecahkan berbagai persoalan yang tidak terstruktur [10].

Istilah SPK mengacu pada suatu sistem yang memanfaatkan dukungan komputer dalam proses pengambilan keputusan. Untuk memberikan pengertian yang lebih mendalam, akan diuraikan beberapa difinisi mengenai SPK yang dikembangkan oleh beberapa ahli, diantaranya oleh Man dan Watson yang memberikan definisi sebagai berikut, SPK merupakan suatu sistem yang interaktif, yang membantu pengambil keputusan melalui penggunaan data dan model-model keputusan untuk memecahkan masalah yang sifatnya semi terstruktur maupun yang tidak terstruktur. [10]

Karakteristik dan Nilai Guna

Karakteristik sistem pendukung keputusan adalah [10]:

1.      Sistem Pendukung Keputusan dirancang untuk membantu pengambil keputusan dalam memecahkan masalah yang sifatnya semi terstruktur ataupun tidak terstruktur dengan menambahkan kebijaksanaan manusia dan informasi komputerisasi.

2.      Dalam proses pengolahannya, sistem pendukung keputusan mengkombinasikan penggunaan model-model analisis dengan teknik pemasukan data konvensional serta fungsi-fungsi pencari / interogasi informasi.

3.      Sistem Pendukung Keputusan, dirancang sedemikian rupa sehingga dapat digunakan/dioperasikan dengan mudah.

4.      Sistem Pendukung Keputusan dirancang dengan menekankan pada aspek fleksibilitas serta kemampuan adaptasi yang tinggi.

Dengan berbagai karakter khusus diatas, SPK dapat memberikan berbagai manfaat dan keuntungan. Manfaat yang dapat diambil dari SPK adalah [10]:

1.      SPK memperluas kemampuan pengambil keputusan dalam memproses data / informasi bagi pemakainya.

2.      SPK membantu pengambil keputusan untuk memecahkan masalah terutama berbagai masalah yang sangat kompleks dan tidak terstruktur.

3.      SPK dapat menghasilkan solusi dengan lebih cepat serta hasilnya dapat diandalkan.

4.      Walaupun suatu SPK, mungkin saja tidak mampu memecahkan masalah yang dihadapi oleh pengambil keputusan, namun ia dapat menjadi stimulan bagi pengambil keputusan dalam memahami persoalannya, karena mampu menyajikan berbagai alternatif pemecahan.

Di samping berbagai keuntungan dan manfaat seperti dikemukakan diatas, SPK juga memiliki beberapa keterbatasan, diantaranya adalah [10] :

1.      Ada beberapa kemampuan manajemen dan bakat manusia yang tidak dapat dimodelkan, sehingga model yang ada dalam sistem tidak semuanya mencerminkan persoalan sebenarnya.

2.      Kemampuan suatu SPK terbatas pada perbendaharaan pengetahuan yang dimilikinya (pengetahuan dasar serta model dasar).

3.      Proses-proses yang dapat dilakukan SPK biasanya juga tergantung pada perangkat lunak yang digunakan.

4.      SPK tidak memiliki kemampuan intuisi seperti yang dimiliki manusia. Sistem ini dirancang hanyalah untuk membantu pengambil keputusan dalam melaksanakan tugasnya.

Jadi secara dapat dikatakan bahwa SPK dapat memberikan manfaat bagi pengambil keputusan dalam meningkatkan efektifitas dan efisiensi kerja terutama dalam proses pengambilan keputusan.

Komponen Sistem Pendukung Keputusan

Sistem pendukung keputusan terdiri atas tiga komponen utama yaitu [10]:

1.      Subsistem pengelolaan data (database).

2.      Subsistem pengelolaan model (modelbase).

3.      Subsistem pengelolaan dialog (userinterface).

Hubungan antara ketiga komponen ini dapat dilihat pada gambar dibawah.

Gambar : Hubungan antara tiga komponen sistem pendukung keputusan

Download Modul Sistem Pendukung Keputusan Disini.

Sumber : SPK  http://haniif.wordpress.com/2007/08/01/23-tinjauan-pustaka-sistem-pendukung-keputusan-spk/

Read More

Program Kriptografi Pada VB.Net 08

Public Class Vernam


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub enkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkript.Click
        Dim a As Integer
        Dim jumlah 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 String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1

            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65
            nKunci = Asc(Mid(sKey, a, 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
End Class

Public Class Form1

    Private Sub Btnenskript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenskript.Click
        Dim jumlah As Double = Len(plainteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(plainteks.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next
        chipteks.Text = xkalimat
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        chipteks.Text = ""
    End Sub
End Class

Public Class vigenere

    Private Sub vigenere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub enkrippt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkrippt.Click
        Dim a As Integer
        Dim jumlah 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 String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 26
            nKunci = Asc(Mid(sKey, a, 1)) - 26
            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 26)
        Next i
        chiperteks.Text = sPlain

    End Sub

    Private Sub chiperteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chiperteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 26) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If
    End Sub

    Private Sub chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chiperteks.TextChanged

    End Sub
End Class

Public Class gronsfeld

    Private Sub gronsfeld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

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

    Private Sub enkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkript.Click
        Dim a As Integer
        Dim jumlah 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 String
        a = 0
        sKata = plainteks.Text
        jumlah = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jumlah
            If a = Len(sKey) Then
                a = 1
            Else
                a = a + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 326
            nKunci = Asc(Mid(sKey, a, 1)) - 326
            nEnc = ((nKata + nKunci) Mod 326)
            sPlain = sPlain & Chr((nEnc) + 326)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub chiperteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles chiperteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 326) And (tombol <= 90) Or (tombol = 8))) Then
            e.Handled = True
        End If
    End Sub

    Private Sub chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chiperteks.TextChanged

    End Sub
End Class

Read More

Ahsan/Hedra Letupkan Euforia Istora

JAKARTA – Euforia akhirnya meledak di Istora Senayan. Ganda putra Mohammad Ahsan/Hendra Setiawan membuat seluruh penonton bersorak usai menyelamatkan muka Indonesia dengan merebut gelar juara Djarum Indonesia Open Super Series Premier (DIOSSP) 2013.

Sukses ini didapat pasangan yang barus dipasangkan sekira setahun lalu, usai menumbangkan ganda putra Korea, Ko Sung Hyun/Lee Yong Dae dengan dua game langsung 21-14 dan 21-18.

Bermain di bawah dukungan penuh ribuan pendukung di Istora Senayan, Minggu (16/6) petang, Ahsan/Hendra langsung tampil menyerang. Tekanan demi tekanan terus dilancarkan sehingga memaksa unggulan kedua ini tidak dapat berbuah banyak di game pertama.

Di game kedua, Ahsan/Hendra kembali mengambil inisiatif serangan dan terus memimpin perolehan poin 14-11. Namun, pasangan Ko/Dae tidak lantas menyerah dan sempat menyamakan kedudukan menjadi 14-14.

Permainan reli-reli penjang nan mendebarkan kerap diperagakan kedua pasangan. Ahsan/Hendra yang terus menyerang akhirnya sukses menuntaskan perlawanan Ko/Dae dengan skor 21-18 dalam tempo 39 menit.

Kemenangan ini langsung disambut euforia seluruh penonton di Istora, tak terkecuali Ketua Umum PBSI yang juga Menteri Perdagangan Indonesia, Gita Wirjawan yang menyaksikan secara langsung ditemani Menpora, Roy Suryo dan Agum Gumelar. Pasalnya, ini merupakan satu-satunya gelar yang bisa diraih Indonesia setelah sebelumnya gagal di nomor tunggal putra, putri, ganda putri dan ganda campuran.

Usai pertandingan, rona kebahagiaan pun terpancar jelas di wajah Ahsan dan  Hendra. “Kami sadar bahwa kami adalah satu-satunya harapan untuk meraih gelar, maka kami bermain habis-habisan untuk bisa menang,” ujar Hendra Setiawan.

“Jujur, stamina saya sudah habis, tapi dukungan dari supporter membuat saya kuat,” timpal Ahsan memberikan apresiasi besar kepada supporter Indonesia yang tak pernah lelah memberikan dukungan. 

Sumber : http://famagulz.blogspot.com/2013/06/ahsanhendra-letupkan-euforia-istora.html#ixzz2WRSzGpve

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

http://www.mesran.blogspot.com/2013/05/tugas-ti-p1104.html


Nah, kali nie kita akan kembali dengan pembahasan VB 08....
Listview di gunakan untuk menampilkan data dalam bentuk tabel yang mempunyai
baris dan kolom......

Nah penasaran kan. heee.
Sekarang kita masuk keprogramnya. silah kan anda rancang seperti pada gambar di atas.

kemudian anda copy code ini ke form code..

Public Class Form1

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

        If kodebarang.Text = "TS001" Then

            nomorpembelian.Text = "1"

            namabarang.Text = "Laptop"

            merk.Text = "Acer"

            harga.Text = "105000"

            totalharga.Focus()

        ElseIf kodebarang.Text = "TS002" Then

            nomorpembelian.Text = "2"

            namabarang.Text = "HP"

            merk.Text = "Nokia"

            harga.Text = "1200000"

            totalharga.Focus()

        ElseIf kodebarang.Text = "VG003" Then

            nomorpembelian.Text = "3"

            namabarang.Text = "Printer"

            merk.Text = "Cannon"

            harga.Text = "2500000"

        End If

    End Sub

    Sub BuatTable()

        LV.Columns.Add("NOMOR PEMBELIAN", 150, HorizontalAlignment.Center)

        LV.Columns.Add("KODE BARANG", 120, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA BARANG", 120, HorizontalAlignment.Center)

        LV.Columns.Add("MERK", 120, HorizontalAlignment.Center)

        LV.Columns.Add("HARGA", 120, HorizontalAlignment.Center)

        LV.Columns.Add("JUMLAH BELI", 150, HorizontalAlignment.Center)

        LV.Columns.Add("TOTAL HARGA", 150, HorizontalAlignment.Center)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub IsiTable()

        Dim x As New ListViewItem

        With x

            .Text = nomorpembelian.Text

            .SubItems.Add(kodebarang.Text)

            .SubItems.Add(namabarang.Text)

            .SubItems.Add(merk.Text)

            .SubItems.Add(harga.Text)

            .SubItems.Add(jumlahbeli.Text)

            .SubItems.Add(totalharga.Text)

            LV.Items.Add(x)

        End With

        nomorpembelian.Focus()

    End Sub

    Sub Total_Harga()

        Dim i As Long

        i = 0

        For j As Integer = 0 To lv.Items.Count - 1

            i = i + Val(lv.Items(j).SubItems(4).Text)

        Next

        Totalharga.Text = "RP." & Format(i, "###.######")

    End Sub

    Sub hapus()

        nomorpembelian.Text = ""

        kodebarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

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

        kodebarang.Items.Add("A001")

        kodebarang.Items.Add("A002")

        kodebarang.Items.Add("A003")

        BuatTable()

    End Sub

    Private Sub btnsimpankelistvew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistvew.Click

        totalharga.Text = harga.Text * jumlahbeli.Text

        IsiTable()

        nomorpembelian.Focus()

        hapus()

    End Sub

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

        nomorpembelian.Text = ""

        namabarang.Text = ""

        kodebarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click

        namabarang.Text = ""

        kodebarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

        LV.Items.Clear()

        If LV.SelectedItems.Count <> 0 Then

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

        Else

            MsgBox("Semua Data Terhapus")

        End If

    End Sub

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click

        If LV.SelectedItems.Count <> 0 Then

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

        Else

            MsgBox("Pilih Dulu Yang Mau Di hapus")

        End If

    End Sub

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

        Close()

    End Sub

End Class

Terima Kasi.....

Read More

Penambahan Nilai UTS Pak Mesran Program Sederhana Visual Basic 08 Menggunakan Listview

http://www.mesran.blogspot.com/2013/05/tugas-ti-p1104.html

Nah, kali nie kita akan kembali dengan pembahasan VB 08....
Listview di gunakan untuk menampilkan data dalam bentuk tabel yang mempunyai
baris dan kolom......

Nah penasaran kan. heee.
Sekarang kita masuk keprogramnya. silah kan anda rancang seperti pada gambar di atas.

kemudian anda copy code ini ke form code..

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Nik.Items.Add("001")
        Nik.Items.Add("002")
        Nik.Items.Add("003")

        Jabatan.Items.Add("Mandor")
        Jabatan.Items.Add("Kepala Bagian")
        Jabatan.Items.Add("Staf")

        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")
    End Sub
    Sub buattabel()
        LV.Columns.Add("Nik", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Status", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim i As New ListViewItem
        i.Text = Nik.Text
        i.SubItems.Add(Nama.Text)
        i.SubItems.Add(Jabatan.Text)
        i.SubItems.Add(Gaji.Text)
        i.SubItems.Add(Status.Text)
        i.SubItems.Add(Tunjangan.Text)
        i.SubItems.Add(Pajak.Text)
        i.SubItems.Add(Total.Text)
        LV.Items.Add(i)
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        Select Case Jabatan.Text
            Case "Mandor" : Gaji.Text = 1750000
            Case "Kepala Bagian" : Gaji.Text = 2500000
            Case "Staf" : Gaji.Text = 1250000
        End Select
        Pajak.Text = 0.15 * Gaji.Text
    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Select Case Nik.Text
            Case "001" : Nama.Text = "Ucok"
            Case "002" : Nama.Text = "Ujang"
            Case "003" : Nama.Text = "Udin"
        End Select
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        Select Case Status.Text
            Case "Menikah" : Tunjangan.Text = 0.15 * Gaji.Text
            Case "Belum Menikah" : Tunjangan.Text = 0
        End Select

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) - Val(Pajak.Text)
        isitabel()
    End Sub

    Private Sub BtnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaru.Click
        Nik.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tunjangan.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub

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

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        LV.Items.Clear()

    End Sub
End Class

Ini lah kode yang sangat sederhana, tapi kita tidak mengetahui kesederhaannya !!
hee, betul kn.....
semoga berhasil sobat... see you ke pembahasan VB berikutnya.
 

Read More