Tugas Quis OnLine

Suatu kelurahan mendapatkan Bantuan Langsung Tunai dari pemerintah untuk masing masing kepala keluarga dengan syarat ketentuan sebagai berikut :
C1 : Jumlah Tanggungan
C2 : Pendapatan Kepala Keluarga
C3 : Luas Bangunan Rumah
C4 : Memiliki KK
Pilihlah 5 alternatif KK yang akan mendapatkan bantuan dari beberapa KK berikut ini :
Nama KK        C1         C2                     C3           C4
Aldyan            4      2.350.000        100M2    Tidak Ada
Hendro           5      3.050.000        50M2      Ada
Joko                3     3.350.000        70M2      Ada
Doni               4     2.550.000        90M2      Ada
Dono              6      2.850.000        120M2    Ada
Kasino            3      2.650.000        80M2      Ada
Susanto           2      3.350.000        150M2    Tidak Ada 
Pembobotan dari kriteria diatas dapat dilihat dibawah ini :
C1 : Jumlah Tanggungan (Attribut Keuntungan)
1-2 : 1
3-4 : 2
5-6 : 3
C2 : Pendapatan Kepala Keluarga (Attribut Biaya)
2.000.000        : 1
2.400.000        : 2
2.800.000        : 3
3.200.000        : 4
3.600.000        : 5
C3 : Luas Bangunan Rumah (Attribut Biaya)
50-70   : 1
71-90               : 2
91-110             : 3
111-130           : 4
131-150           : 5
C4 : Memiliki KK (Attribut Keuntungan)
Ada      : 2
Tidak Ada        : 1
Penyelesaian
Tabel alternative
Nama KK        C1       C2       C3       C4
Aldian             2          1          3          1
Hendro            3          3          1          2
Joko                2         4          1          2
Doni                2          1          2          2
Dono               3          3          4          2
Kasino             2          2          2          2
Susanto           1          4          5          1
Bobot setiap kriteria yaitu : 4,5,4,3
Penerapan Rumus
C1 = Rii = ( Xij / max{Xij}) /Benefit
Dari kolom C1 nilai maksimalnya adalah ‘3’ , maka tiap baris dari kolom C1 dibagi oleh nilai maksimal kolom C1
R11 =  2 : 3 = 0.66
R21 =  3 : 3 = 1
R31 =  2 : 3 = 0,66
R41 = 2 :3 = 0,66
R51 = 3 : 3 = 1
R61 = 2 : 3 = 0,66
R71 = 1 : 3 = 0,33

C2 = Rii = (min{Xij} /Xij)/Cost
Dari kolom C2 nilai minimalnya adalah ‘1’ , maka tiap baris dari kolom C2 maka tiap baris dari kolom C2 menjadi penyebut  dari  nilai kolom C2
R12 = 1 : 1 = 1
R22 = 1:3 = 0,33
R32 = 1: 4 = 0,25
R42 = 1 : 1 = 1
R52 = 1:3 = 0,33
R62 = 1:2 = 0,50
R72 = 1:4 = 0,25

C3 = Rii = (min{Xij} /Xij)/Cost
Dari kolom C3 nilai minimalnya adalah ‘1’ , maka tiap baris dari kolom C3 maka tiap baris dari kolom C3 menjadi penyebut  dari  nilai kolom C3
R13 = 1:3 = 0,33
R23 = 1:1 = 1
R33 = 1:1 = 1
R43 = 1:2 = 0,50
R53 = 1:4 = 0,25
R63 = 1:2 = 0,50
R73 = 1:5 = 0,20
C4 = Rii = ( Xij / max{Xij}) /Benefit
Dari kolom C4 nilai maksimalnya adalah ‘2’ , maka tiap baris dari kolom C4 dibagi oleh nilai maksimal kolom C4
R14 = 1:2 = 0,50
R24 = 2:2 = 1
R34 = 2:2 = 1
R44 = 2:2 = 1
R54 = 2:2 = 1
R64 = 2:2 = 1
R74 = 1:2 = 0,50

Hasil Normailsasi
C1           C2          C3        C4
0,66       1            0,33       0,50
1            0,33       1            1
0,66       0,25       1            1
0,66       1            0,50       1
1            0,33       0,25       1
0,66       0,50       0,50       1
0,33       0,25       0,20       0,50

Sehingga di peroleh matriks ternormalisir R

                 
            0,66       1           0,33         0,50
              1         0,33         1               1      
            0,66       0,25        1                1
R=       0,66         1           0,50           1
              1           0,33        0,25          1
             0,66       0,50         0,50         1
             0,33        0,25        0,20        0,50

Preverensi V1

V1= (0,66*5) + (1 * 4) + (0,33*3) + (0,50*4)  = 10,29

V2= (1 * 5) + (0,33 * 4) + (1 * 3) + (1 * 4) = 13,23

V3= (0,66 * 5)+(0,25 * 4)+(1 * 3)+(1 * 4)= 11,3

V4= (0,66 * 5)+(1 * 4)+(0,50 * 3)+(1 * 4)= 12,8

V5= (1 * 5)+(0,33 * 4)+(0,25 * 3)+(1 * 4)= 11,7

V6= (0,66 * 5)+(0,50 * 4)+(0,50 * 3)+(1 * 4)= 10,8

V7= (0,33 * 5)+(0,25 * 4)+(0,20 * 3)+(0,50 * 4)= 5,25

Maka alternatif yang memiliki nilai tertinggi dan bisa dipilih adalah alternatif V2 dengan nilai 13,23 dan alternatif V5  dengan nilai 12.8

SELESAI...

BELAJAR VISUAL BASIC MS.EXEL

Membuat Form VBE

Bagi anda pengguna Excel tentu tidak jauh dari mengisi data ke dalam sheet pada kolom dan baris. Untuk mempermudah pengisian apalagi jika datanya banyak alangkah lebih baik menggunakan form. Menggunakan form akan lebih simple karena anda tidak harus selalu kembali ke kolom awal jika baris pada kolom terakhir sudah selesai di input.

PROGRAM SEDERHANA PEMBAYARAN REKENING LISTRIK DENGAN Vb 2008

hay sobat blogger... dalam rangka masih dalam tahap pemula saya akan mencoba membuat program sederhana tentang pembayaran rekening listrikdengan mengunakan program vb 2008

langsung saja ke TKP. sebelum Waktu Habis saya,  :D


bagi agan-agan yang sudah mahir dalam dunia programing, saya harap sudah bisa lah ya, untuk mendesain program kaya disamping, jadi langsung saja ketik listing berikut.....

PROGRAM VISUAL BASIC MENGHITUNG GAJI KARYAWAN

Program Visual Basic Menghitung Gaji Karyawan

Berikut ini merupakan program Visual Basic untuk menghitung gaji karyawan. Program ini masih dasar sekali yang mengulas pemakaian Select Case.

PENGGAJIAN MENGGUNAKAN VB.NET

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        nik.Items.Add("kk-001")
        nik.Items.Add("ks-002")
        nik.Items.Add("as-001")
        nik.Items.Add("as-002")
        nik.Items.Add("sk-001")
        nik.Items.Add("ss-001")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")
        anak.Items.Add("0")
        anak.Items.Add("1")
        anak.Items.Add("2")
        ANAK.Items.Add("3")
        anak.Items.Add("4")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles nik.SelectedIndexChanged
        Dim x As String
        x = Mid(nik.Text, 2, 1)
        If x = "k" Then
            jabatan.Text = "kabag"
        ElseIf x = "s" Then
            jabatan.Text = "staf"
        Else
            jabatan.Text = "-"
        End If
        x = Mid(nik.Text, 1, 1)
        If x = "k" Then
            bagian.Text = "keuangan"
        ElseIf x = "s" Then
            bagian.Text = "security"
        ElseIf x = "a" Then
            bagian.Text = "administrasi"
        Else
            bagian.Text = "-"
        End If

        If nik.Text = "kk-001" Then
            nama.Text = "angga"
        ElseIf nik.Text = "ks-002" Then
            nama.Text = "oscar"
        ElseIf nik.Text = "as-001" Then
            nama.Text = "hendri"
        ElseIf nik.Text = "as-002" Then
            nama.Text = "joko"
        ElseIf nik.Text = "sk-001" Then
            nama.Text = "fai"
        ElseIf nik.Text = "ss-001" Then
            nama.Text = "ade"
        End If

        If jabatan.Text = "kabag" And bagian.Text = "keuangan" Then
            gaji.Text = 4000000
        ElseIf jabatan.Text = "staf" And bagian.Text = "keuangan" Then
            gaji.Text = 2000000
        ElseIf jabatan.Text = "kabag" And bagian.Text = "security" Then
            gaji.Text = 3000000
        ElseIf jabatan.Text = "staf" And bagian.Text = "security" Then
            gaji.Text = 1700000
        ElseIf jabatan.Text = "kabag" And bagian.Text = "administrasi" Then
            gaji.Text = 2500000
        ElseIf jabatan.Text = "staf" And bagian.Text = "administrasi" Then
            gaji.Text = 1900000

        End If
    End Sub

    Private Sub proses_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BPROSES.Click
        If JABATAN.Text = "kabag" Then
            TJABATAN.Text = 0.25 * Val(GAJI.Text)
        Else
            TJABATAN.Text = 0
        End If

        If STATUS.Text = "menikah" Then
            TISTRI.Text = 0.15 * Val(GAJI.Text)
        Else
            TISTRI.Text = 0
        End If

        If ANAK.Text = "0" Then
            TUNJANGANANAK.Text = "0" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "1" Then
            TUNJANGANANAK.Text = "1" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "2" Then
            TUNJANGANANAK.Text = "2" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "3" Then
            TUNJANGANANAK.Text = "3" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "4" Then
            TUNJANGANANAK.Text = "4" * 0.2 * Val(GAJI.Text)
        Else
            TUNJANGANANAK.Text = 0
        End If


        TGAJI.Text = Val(GAJI.Text) + Val(TJABATAN.Text) + Val(TISTRI.Text) + Val(TUNJANGANANAK.Text)

    End Sub

    Private Sub hapus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BHAPUS.Click
        NIK.Text = " "
        NAMA.Text = " "
        BAGIAN.Text = " "
        JABATAN.Text = " "
        GAJI.Text = " "
        STATUS.Text = " "
        ANAK.Text = " "
        TJABATAN.Text = " "
        TISTRI.Text = " "
        TUNJANGANANAK.Text = " "
        TGAJI.Text = " "
    End Sub

    Private Sub keluar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BKELUAR.Click
        End
    End Sub

End Class

Contoh Program Kelipatan 5 Repeat Until Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
a:=5;

perkembangan komputer dari generasi pertama sampai sekarang

perkembangan komputer dari generasi pertama sampai sekarang

GENERASI PERTAMA
Komputer generasi pertama masih sangat sederhana dan belum kompleks penggunaanya. Komputer generasi pertama belum dapat memperoses masalah-masalah yang rumit. Ukuran komputer generasi pertama sangat besar dan prosesnya pun masih lambat