Pengertian DSS

Decision Support Systems disingkat DSS adalah bagian dari sistem informasi berbasis komputer termasuk sistem berbasis pengetahuan manajemen 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.

• Kelebihan DSS

Decision Support System (DSS) dapat memberikan beberapa keuntungan- keuntungan bagi pemakainya. Menurut Turban (1995: 87) maupun McLeod (1995: 103) keuntungan-keuntungan tersebut meliputi:  

1. Memperluas kemampuan pengambil keputusan dalam memproses data/informasi untuk pengambilan keputusan.
2. Menghemat waktu yang dibutuhkan untuk memecahkan masalah, terutama berbagai masalah yang sangat kompleks dan tidak terstruktur.
3. Menghasilkan solusi dengan lebih cepat dan hasilnya dapat diandalkan.
4. Mampu memberikan berbagai alternatif dalam pengambilan keputusan, meskipun seandainya DSS tidak mampu memecahkan masalah yang dihadapi oleh pengambil keputusan, namun dapat digunakan sebagai stimulan dalam memahami persoalan.
5. Memperkuat keyakinan pengambil keputusan terhadap keputusan yang diambilnya.
6. Memberikan keuntungan kompetitif bagi organisasi secara keseluruhan dengan penghematan waktu, tenaga dan biaya.

• Kekurangan DSS

Walaupun dirancang dengan sangat teliti dan mempertimbangkan seluruh faktor yang ada, menurut Turban (1995: 250) DSS mempunyai kelemahan atau keterbatasan, diantaranya yaitu:

1. Ada beberapa kemampuan manajemen dan bakat manusia yang tidak dapat dimodelkan, sehingga model yang ada dalam sistem tidak semuanya mencerminkan persoalan sebenarnya.
2. DSS terbatas untuk memberikan alternatif dari pengetahuan yang diberikan kepadanya (pengatahuan dasar serta model dasar) pada waktu perancangan program tersebut.
3. Proses-proses yang dapat dilakukan oleh DSS biasanya tergantung juga pada kemampuan perangkat lunak yang digunakan.
4. Harus selalu diadakan perubahan secara kontinyu untuk menyesuaikan dengan keadaan lingkungan yang terus berubah agar sistem tersebut up to date.
5. Bagaimanapun juga harus diingat bahwa DSS dirancang untuk membantu/mendukung pengambilan keputusan dengan mengolah informasi dan data yang diperlukan, dan bukan untuk mengambil alih pengambilan keputusan.

Kembali lagi gan,,, kali ini saya akan kembali membahas tentang Visual Basic 2010, kali ini tentang pembayaran PDAM,Telepon, dll , CEKIDOT EKSEKUSI ,,,,,,,,,

Tampilan Sebelum Dijalan kan....

Dan ini tampilan setelah dijalan kan Hasil nya seperti ini ,,,,,

Berikut sintakan program nya ???

Private Sub P_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P.CheckedChanged
        If P.Checked = True Then JK.Text = "Perempuan"

    End Sub

    Private Sub L_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles L.CheckedChanged
        If L.Checked = True Then JK.Text = "Laki-Laki"
    End Sub

    Private Sub Telepon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Telepon.CheckedChanged
        If Telepon.Checked = True Then ByrTelepon.Text = "50000"
        If Telepon.Checked = False Then ByrTelepon.Text = "0"
        Total.Text = Val(ByrTelepon.Text) + Val(ByrPDAM.Text) + Val(ByrListrik.Text)
    End Sub

    Private Sub PDAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDAM.CheckedChanged
        If PDAM.Checked = True Then ByrPDAM.Text = "37500"
        If PDAM.Checked = False Then ByrPDAM.Text = "0"
        Total.Text = Val(ByrTelepon.Text) + Val(ByrPDAM.Text) + Val(ByrListrik.Text)
    End Sub

    Private Sub Listrik_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listrik.CheckedChanged
        If Listrik.Checked = True Then ByrListrik.Text = "75000"
        If Listrik.Checked = False Then ByrListrik.Text = "0"
        Total.Text = Val(ByrTelepon.Text) + Val(ByrPDAM.Text) + Val(ByrListrik.Text)
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Nama.Text = ""
        Alamat.Text = ""
        JK.Text = ""
        ByrTelepon.Text = ""
        ByrPDAM.Text = ""
        ByrListrik.Text = ""
        Total.Text = ""
        L.Checked = False
        P.Checked = False
        Telepon.Text = ""
        PDAM.Text = ""
        Listrik.Text = ""
        ByrTelepon.Text = "0"
        ByrPDAM.Text = "0"
        ByrListrik.Text = "0"
        Total.Text = "0"
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub
End Class

Sekian Dan Terima Kasih yang sudah mengunjungi ..... :-)

Kali ini saya akan menshare Sintakan Coding tentang penjualan tiket bioskop dan Snack nya sekalian, CEKIDOT para gan gan gan.........

Tampilan nya Running nya seperti gambar dibawah ini gan,,

dan ini tampilan sebelum Di running gan,,,

Sintakan Coding nya nya Gan,,,

Public Class Form1

    Private Sub DTP_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP.ValueChanged

        If DTP.Value.DayOfWeek = 0 Then

            Hari1.Text = "sunday"

        Else

            Hari1.Text = (DTP.Value.DayOfWeek.ToString)

        End If

        If Hari1.Text = "sunday" Then Hari.Text = "Minggu"

        If Hari1.Text = "monday" Then Hari.Text = "senin"

        If Hari1.Text = "tuesday" Then Hari.Text = "selasa"

        If Hari1.Text = "wednesday" Then Hari.Text = "Rabu"

        If Hari1.Text = "Thursday" Then Hari.Text = "Kamis"

        If Hari1.Text = "Friday" Then Hari.Text = "Jum'at"

        If Hari1.Text = "Saturday" Then Hari.Text = "Sabtu"

    End Sub

    Private Sub PopCorn_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PopCorn.CheckedChanged

        If PopCorn.Checked = True Then HargaPopCorn.Text = "15000"

    End Sub

    Private Sub SoftDrink_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SoftDrink.CheckedChanged

        If SoftDrink.Checked = True Then HargaSoftDrink.Text = "10000"

    End Sub

    Private Sub Dua_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dua.CheckedChanged

        If Dua.Checked = True Then Harga.Text = "30000"

    End Sub

    Private Sub Tiga_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tiga.CheckedChanged

        If Tiga.Checked = True Then Harga.Text = "35000"

    End Sub

    Private Sub Banyak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Banyak.TextChanged

        JumTiket.Text = Val(Banyak.Text) * Val(Harga.Text)

    End Sub

    Private Sub BykPopCorn_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BykPopCorn.TextChanged

        JumPopCorn.Text = Val(BykPopCorn.Text) * Val(HargaPopCorn.Text)

    End Sub

    Private Sub BykSoftDrink_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BykSoftDrink.TextChanged

        JumSoftDrink.Text = Val(BykSoftDrink.Text) * Val(HargaSoftDrink.Text)

    End Sub

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

        Hari1.Hide()

    End Sub

    Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click

        Total.Text = Val(JumTiket.Text) + Val(JumPopCorn.Text) + Val(JumSoftDrink.Text)

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Hari.Text = ""

        Dua.Checked = False

        Tiga.Checked = False

        Harga.Text = "0"

        PopCorn.Checked = False

        SoftDrink.Checked = False

        HargaPopCorn.Text = "0"

        HargaSoftDrink.Text = "0"

        Banyak.Text = ""

        BykPopCorn.Text = ""

        BykSoftDrink.Text = ""

        JumTiket.Text = ""

        JumPopCorn.Text = ""

        JumSoftDrink.Text = ""

        Total.Text = ""

    End Sub

End Class

Tu sekian gan sintakannya, THANKS..........