QUIZ SEMESTER VI

QUIZ 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

Untuk Bobot W= (4,5,4,3)

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

Matriks

Nama KK           C1        C2      C3       C4

Aldian                  2          1          3          1

Hendro                3          3          1          2

Joko                     2          4          1          2

Doni                     2          2          2          2

Dono                    3          3          4          2

C1

r11=            2               =  2      = 0,66

 Max{2;3;2;2;3}         3

r21=            3              =  3      = 1

 Max{2;3;2;2;3}         3

r31=             2             =  2      = 0,66

 Max{2;3;2;2;3}         3

r41=             2             =  2      = 0,66

      
           Max{2;3;2;2;3}         3

r51=             3            =  3      = 1

 Max{2;3;2;2;3}         3

Untuk C2

r12=          1                 =  1      = 0,25

 Max{1;3;4;2;3}         4

r22=         3                 =  3      = 0.75

 Max{1;3;4;2;3}         4

r32=           4               =  4      = 1

 Max{1;3;4;2;3}         4

r42=            2              =  2      = 0.5

 Max{1;3;4;2;3}         4

r52=            3              =  3      = 0.75

 Max{1;3;4;2;3}         4

Untuk C3

r13=             3             =  3      = 0,75

 Max{3;1;1;2;4}         4

r23=             1             =  1      = 0.25

 Max{3;1;1;2;4}         4

r33=             1             =  1      = 0.25

 Max{3;1;1;2;4}         4

r43=             2             =  2      = 0,5

 Max{3;1;1;2;4}         4

r53=             4            =  4      = 1

 Max{3;1;1;2;4}         4

Untuk C4

r14=            1              =  1      = 0.5

 Max{1;2;2;2;2}         2

r24=            2              =  2      = 1

 Max{1;2;2;2;2}         2

r34=             2              =  2      = 1

  

Max{1;2;2;2;2}         2

r44=             2             =  2      = 1

 Max{1;2;2;2;2}         2

r54=             2             =  2      = 1

 Max{1;2;2;2;2}         2

Matriks X yaitu

0.66                  0.25                  0.75                  0.5

1                       0.75                  0.25                   1

0.66                  1                       0.25                   1

0.66                  0.5                    0.5                     1

1                       0.75                   1                       1

Untuk Proses penerima Bantuan Menggunakan Rumus Preferensi

V1 = 4(0.66)+5(0.25)+4(0.75)+3(0.5)     = 8.39

V2 = 4(1)+5(0.75)+4(0.25)+3(1)             = 11.75

V3 = 4(0.66)+5(1)+4(0.25)+3(1)             = 19.56

V4 = 4(0.66)+5(0.5)+4(0.5)+3(1)            = 10.14

V5 = 4(1)+5(0.75)+4(1)+3(1)                  = 14.75

Jadi,penerima bantuan Langsung tunai di mulai dari V3,V5,V2,V4,V1 atau Joko, Dono, Hendro, Doni, dan Aldian

Review Tentang Mesran.blogspot.com

Tampilan Blog Bapak Mesran Mesran.Blogspot.Com merupakan Blog sigkatan dari Web log adalah salah satu aplikasi web berupa tulisan-tulisan yang umum disebut sebagai posting pada halaman web. Tulisan-tulisan tersebut seringkali diurut dari yang terbaru dan diikuti oleh yang lama. Dalam postingan blog mesran.blogspot.com terdapat tab menu Home, Pemrograman, Download, Kampus, Berita dan Sistem Informasi. yang berguna untuk membantu para mahasiswa STMIK Budidarma atau pengguna internet lain mencari informasi yang dibutuhkan. menurut saya Template mesran.blogspot.com sangat bagus dipandang dengan warna dasar abu abu template ini juga user friendly yang di buat oleh maskolis. pada tab menu Pemrograman, menu ini membahas tentang belajar bahasa pemrograman. terdiri beberapa artikel diantaranya artikel mengenai tips tips belajar bahasa pemrograman serta beberapa bahasa pemrograman salah satunya Visual Basic dot Net serta program berorientasi Database sebagai contoh : Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access Pada tab Menu Download terdapat menu di dalamnya antara lain seperti ebook, program, software, tugas akhir dan skripsi. dan Pada Tab Menu Kampus di dalam menu ini terdapat beberapa menu seperti menu silabus perkuliahan dan modul.

Program Vb.Net tentang Penjualan

dibawah ini adalah contoh program sederhana Vb.Net.. tentang penjualan
semoga dapat bermanfaat bagi anda semua gan !!

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebarang.Items.Add("RD1200")
        kodebarang.Items.Add("RD1201")
        kodebarang.Items.Add("KS1200")
        kodebarang.Items.Add("KS1201")

        BuatTabel()

    End Sub

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim x, y As String
        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kodebarang.Text, 3)

        Select Case y
            Case "200"
                namabarang.Text = "Radio"
            Case "201"
                namabarang.Text = "AC"
            Case "200"
                namabarang.Text = "Kulkas"
            Case "201"
                namabarang.Text = "Hand Phone"
        End Select

        Select Case x
            Case "RD"
                merk.Text = "LG"
            Case "RD"
                merk.Text = "LG"
            Case "KS"
                merk.Text = "Samsung"
            Case "KS"
                merk.Text = "Samsung"
            Case Else
                merk.Text = "_"
        End Select

        Select Case kodebarang.Text
            Case "RD1200"
                harga.Text = 1000000
            Case "RD1201"
                harga.Text = 2000000
            Case "KS1200"
                harga.Text = 2000000
            Case "KS1201"
                harga.Text = 3000000
            Case Else
                harga.Text = "_"
        End Select
    End Sub

    Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            totalharga_TextChanged(sender, e)
        End If
    End Sub

    Private Sub totalharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalharga.TextChanged
        totalharga.Text = harga.Text * jumlahbeli.Text
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("no.pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("kode pembelian", 180, HorizontalAlignment.Left)
        LV.Columns.Add("nama barang", 180, HorizontalAlignment.Left)
        LV.Columns.Add("merk", 180, HorizontalAlignment.Left)
        LV.Columns.Add("harga", 180, HorizontalAlignment.Left)
        LV.Columns.Add("jumlah beli", 180, HorizontalAlignment.Left)
        LV.Columns.Add("total harga", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = nopembelian.Text
        Lst.SubItems.Add(kodebarang.Text)
        Lst.SubItems.Add(namabarang.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(jumlahbeli.Text)
        Lst.SubItems.Add(totalharga.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub Btnsimpan_LV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan_LV.Click
        isitabel()
        kodebarang.Text = ""
        namabarang.Text = ""
        totalharga.Text = ""
        jumlahbeli.Text = ""
        nopembelian.Text = ""
        merk.Text = ""
        harga .Text =""
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""

    End Sub

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

    Private Sub Btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_semua.Click
        LV.Items.Clear()
    End Sub
End Class

Melengkapi tugas dosen:
Mesran M.Kom,S.Kom

Belajar VB menentukan nilai Mahasiswa/i

Dari desain form di atas kita bisa tau kita hanya mengunakan 4 tool yaitu label, textbox, combobox dan button.setelah di desain maka buatlah name dan text pada tool yang kita gunakan melalaui menu propertis yang biasanya terletak pada sebelah kanan bawah pada visual basic,buat berbeda juga tidak apa apa yang penting sahabat blogger mengerti apa yang telah diLAKUIN. 

oke!!!!

Baiklah,sebelum sobat bLOGER membuat Program seperti tadi,alangkah baiknya sahabat mengetahui hal berikut ini. :D
Untuk penentuan Nama di ambil dari ketentuan NPM
Untuk penentuan Jenjang di ambil karakter yang ke tiga dari NPM
Untuk penentuan jurusan di ambil dua karakter dari tengah NPM
Untuk Penentuan Nama Dosen di tentukan berdasarkan Kode Dosen
Untuk penentuan Nama Matakuliah di tentukan berdasarkan Kode Matakuliah
Untuk penentuan Nilai akhir  NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

Untuk penentuan Nilai huruf

A = Jika Nilai akhir Lebih besar dari 80

B = Jika Nilai akhir Lebih besar dari 70

C = Jika Nilai akhir Lebih besar dari 60

D = Jika Nilai akhir Lebih besar dari 50

E = Jika Nilai akhir Lebih kecil dari 50

Untuk penentuan keterangan

Lulus jika Nilai akhir lebih besar dari 50

Tidak lulus jika Nilai akhir lebih kecil dari 50

nah,gimana.....  pasti uda lumayan pahamkan....yaudah kita cobak aja deh!!!!!

TAPI INGAT!! KETIK MANUAL AJA DEH BIAR LEBIH PAHAM.....
dan KETIK YANG WARNA BIRU AJA YA SAHABAT.... ("<.")

 Public class form2

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

        NPM.Items.Add("12111046")

        NPM.Items.Add("13111078")

        NPM.Items.Add("12110733")

        NPM.Items.Add("10110987")

        KodeDosen.Items.Add("201")

        KodeDosen.Items.Add("202")

        KodeDosen.Items.Add("902")

        KodeDosen.Items.Add("903")

        KodeMatakuliah.Items.Add("A01")

        KodeMatakuliah.Items.Add("A02")

        KodeMatakuliah.Items.Add("A03")

        KodeMatakuliah.Items.Add("A04")

        KodeMatakuliah.Items.Add("A05")

        Dim i As Byte

        For i = 1 To 100

            NilaiKehadiran.Items.Add(i)

            NilaiTugas.Items.Add(i)

            NilaiUTS.Items.Add(i)

            NilaiUAS.Items.Add(i)

        Next

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Dim x, y As String

        x = Microsoft.VisualBasic.Left(NPM.Text, 3)

        y = Microsoft.VisualBasic.Right(NPM.Text, 3)

        Select Case NPM.Text

            Case "12111046"

                Nama.Text = "Febri Riswanda"

            Case "13111078"

                Nama.Text = "Jhonson"

            Case "12110733"

                Nama.Text = "Sharif"

            Case "10110987"

                Nama.Text = "Jayen"

        End Select

        Select Case x

            Case "131"

                Jenjang.Text = "S1"

            Case "121"

                Jenjang.Text = "DII"

            Case "121"

                Jenjang.Text = "S1"

            Case "101"

                Jenjang.Text = "DIII"

            Case Else

                Jenjang.Text = "_"

        End Select

        Select Case y

            Case "046"

                Jurusan.Text = "Teknik Informatika"

            Case "078"

                Jurusan.Text = "Managemen informatika"

            Case "733"

                Jurusan.Text = "Sistem Informasi"

            Case "987"

                Jurusan.Text = "Manajemen informatika"

            Case Else

                Jurusan.Text = "_"

        End Select

    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged

        Select Case KodeDosen.Text

            Case "201"

                NamaDosen.Text = "Abdul sani sembiring M.kom"

            Case "202"

                NamaDosen.Text = "Sinar sinurat ST,M.kom"

            Case "902"

                NamaDosen.Text = "M.Syahrizal, M.kom"

            Case "903"

                NamaDosen.Text = "Mesran S.Kom,M.Kom"

            Case Else

                NamaDosen.Text = "_"

        End Select

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then

            NilaiHuruf.Text = "A"

        ElseIf NilaiAkhir.Text >= 70 Then

            NilaiHuruf.Text = "B"

        ElseIf NilaiAkhir.Text >= 60 Then

            NilaiHuruf.Text = "C"

        ElseIf NilaiAkhir.Text >= 50 Then

            NilaiHuruf.Text = "D"

        Else

            NilaiHuruf.Text = "E"

        End If

        If NilaiAkhir.Text >= 50 Then

            Keterangan.Text = "Lulus"

        Else

            Keterangan.Text = "Gagal"

        End If

        If Jenjang.Text = "1" Then

            Jenjang.Text = "Diploma 1"

        ElseIf Jenjang.Text = "3" Then

            Jenjang.Text = "Diploma 3"

        ElseIf Jenjang.Text = "4" Then

            Jenjang.Text = "Strata 1"

        End If

        If Jurusan.Text = "01" Then

            Jurusan.Text = "Manajemen Informatika"

        ElseIf Jurusan.Text = "02" Then

            Jurusan.Text = "Sistem Informatika"

        ElseIf Jurusan.Text = "03" Then

            Jurusan.Text = "Teknik komputer"

        ElseIf Jurusan.Text = "04" Then

            Jurusan.Text = "Akuntansi"

        End If

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KodeDosen.Text = ""

        NamaDosen.Text = ""

        KodeMatakuliah.Text = ""

        NamaMatakuliah.Text = ""

        NilaiKehadiran.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        NilaiUAS.Text = ""

        NilaiAkhir.Text = ""

        NilaiHuruf.Text = ""

        Keterangan.Text = ""

    End Sub

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Btnproses_Click(sender, e)

        End If

    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged

        Select Case KodeMatakuliah.Text

            Case "A01"

                NamaMatakuliah.Text = "Sistem operasi"

            Case "A02"

                NamaMatakuliah.Text = "Struktur Data"

            Case "A03"

                NamaMatakuliah.Text = "Programan visual"

            Case "A04"

                NamaMatakuliah.Text = "Teknik Informatika"

            Case "A05"

                NamaMatakuliah.Text = "Managemen Sistem"

            Case Else

                NamaMatakuliah.Text = "_"

        End Select

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

gimana,gampangkan.....

selamat mencoba!!!!!!

Belajar Bahasa Pemograman