Contoh Laporan Review Jurnal

REVIEW

Seminar Nasional Teknologi Informasi & Komunikasi Terapan 2012 (Semantik 2012) Semarang, 23 Juni 2012

                                                                                 ISBN 979 - 26 - 0255 -  0

JUDUL

SISTEM PENDUKUNG KEPUTUSAN MENGGUNAKAN METODE SIMPLE ADDITIVE WEIGHTING (SAW) UNTUK MENENTUKAN JURUSAN  PADA SMK BAKTI PURWOKERTO

PENULIS

Nandang Hermanto

(Mahasiswa jurusan Teknik Informatika,STMIK AMIKOM Purwokerto)

1.       PENDAHULUAN

Pada bagian ini membahas tentang kurang matangnya siswa lulusan SMP dalam memilih jurusan yang ada sehingga mengakibatkan banyaknya siswa baru yang gagal di tengah jalan atau drop out ketika mereka sudah diterima di SMK. Kasus lain yang terjadi karena banyaknya siswa yang merasa tidak cocok dengan jurusan yang dipilih ketika mereka memperoleh pelajaran di sekolah dengan biaya pendidikan yang terlanjur dikeluarkan baik oleh orang tua siswa maupun oleh pemerintah yang mensusidi sekolah menjadi tidak bermanfaat Karena siswa tersebut tidak memiliki kemampuan yang memadai untuk jurusan yang sudah dipilihnya.

2.       METODE PENELITIAN

Metode pengembangan system yang digunakan dalam pengembangan system pendukung keputusan penjurusan ini menggunakan metode Skuensional Linier atau Model Air Terjun. Model Skuensial Linier merupakan paradigma rekayasa perangkat lunak yang paling tua dan paling banyak dipakai.

Secara garis besar tahap pembembangan model skuensial linier dapat diurakan sebagai berikut

2.1. Analisis Sistem

2.2. Desain

2.2.1 Desain Sistem

2.2.2 Desain Database

2.2.2.1 Pengumpulan Data dan Analisis

2.2.2.2 Perancangan Database Secara Konseptual

2.2.2.3 Pemilihan DBMS (Database Management Sistem)

2.2.2.4 Perancangan Database Secara Logika

2.2.2.5 Perancangan Database Secara Fisik

2.2.2.6 Implementasi Sistem Database

2.2.3 Desain Antarmuka (Interface)

2.2.4 Desain Kontrol Aplikas

2.3 Program (Coding)

2.4 Pengujian (Testing)

2.5 Implementasi

1.1. 2.6 Pemeliharaan (Maintence)

3.       HASIL DAN PEMBAHASAN

3.1. Analisis Sistem 

3.1.1.        Identifikasi Masalah

Pada bagian ini permasalahan yang terjadi dalam penentuan jurusan pada SMK BAKTI Purwokerto, yaitu :

-          Kesulitan dalam pengelolaan data siswa baru karena banyaknya data yang diolah dengan waktu yang singkat.

-          Terhambatnya tugas lain dari 5 guru yang bergabung dalam tim penerimaan siswa baru.

-          Pengolahan kriteria untuk masing-masing jurusan masih menggunakan system manual dengan menggunakan Microsoft Excel.

-          Tidak adanya perhitungan matematika yang khusus untuk membuat perankingan proses penjurusan calon siswa.

3.1.2.        Identifikasi Titik Keputusan

Menjelaskan bahwa tim penerimaan siswa membutuhkan suatu sistem yang dapat memberikan kemudahan dalam proses penjurusan yang diharapkan dapat memberikan efektifitas terhadap proses penjurusan dan efisiensi waktu dan sumber daya manusia dalam mengolah data-data yang berkaitan dengan proses penjurusan.

3.2. Desain

Pada bagian ini menjelaskan bahwa pemodelan menggunakan UML yang dimana semua perilaku dimodelkan sebagai Use Case yang mendeskripsikan kumpulan urutan yang menjelaskan interaksi system dengan sesuatu yang diluar system. Pada bagian ini juga menjelaskan tentang activity diagram dan use case specification dengan detail dari setiap aktivitas di SMK Bakti, juga menjelaskan tentang tampilan system yang akan digunakan pada setiap tampilan yang akan digunakan oleh SMK Bakti. Selain itu bagian ini juga menjelaskan tentang pembobotan terhadap kriteria nilai siswa baru yang akan menentukan pemilihan jurusan bagi siswa baru tersebut dan pembahasan yang terahir sebelum perankingan dilakukan adalah Normalisasi terhadap matrik dan berdasarkan persamaan dari metode Simple Additive weighting sehingga menghasilkan matriks ternormalisasi yang dimana semua bobot referensi tersebut akan dilakukan proses perankingan.

4.       SIMPULAN

Kesimpulan yang dipaparkan, yaitu SPK yang telah dibuat dapat mempermudah dan menyingkat waktu dalam proses penjurusan oleh panitia penerimaan siswa baru dan SPK yag telah dibuat dapat diakses dari mana saja selama tersedianya jaringan.

Kelebihan :

Dapat mempermudah pemilihan jurusan sehingga meminimalisasi kesalahan dalam pengambilan jurusan di SMK Bakti. Mudah diakses karena system penunjang keputusan yang dibuat berbasis web.

Kekurangan :

Saya sebagai pembaca merasa kekurangan dari jurnal ini yaitu, penulis tidak memaparkan dengan jelas contoh bagaimana dari hasil peritungan yang telah dilakukan sehingga menentukan jurusan yang tepat bagi siswa baru, dan apakah hasil keputusan yang dihasilkan tersebut sudah akurat.

SARAN :

Dari hasil perhitungan matematika yang dilakukan oleh Sistem Penunjang Keputusan tersebut sebaiknya penulis melakukan survey terhadap siswa baru setiap tahunnya, sehingga diketahui berapa persen (%)kah penurunan dari kesalahan pemilihan jurusan pada SMK Bakti.

Samsung Galaxy A9 Bakal Meluncur 1 Desember 2015

Samsung Galaxy A9 sejak pertama kali kemunculan rumornya pada bulan Maret lalu, hingga saat ini selalu menjadi sorotan. Hingga saat ini pun, handset yang akan menyasar segmen menengah ini selalu menjadi bahan berita. Rumor yang telah beredar sebelumnya membahas tentang spesifikasi yang diusung, hasil skor yang mampu dicetak, hingga balutan body bermaterial metal.

Seperti yang diwartakan GSM Arena, Kamis (26/11/2015), kini telah muncul sebuah konfirmasi resmi mengenai handset ini. Ya, konfirmasi tersebut datang dalam bentuk daftar resmi yang dimuat dalam situs resmi Samsung di Iran. Menurut daftar spesifikasi pada situs tersebut, berita yang selama ini beredar ternyata memang benar adanya.

Samsung Galaxy A9 akan ditenagai oleh chipset terbaru dari Qualcomm, yakni Snapdragon 620 yang dikhususkan untuk handset segmen menengah. Chip tersebut memiliki prosesor dual cluster, yakni empat inti Cortex-A72, dan empat inti Cortex-A53 serta pengolah grafis yang baru, yakni Adreno 510. Berbekal chip tersebut, bahkan skor benchmark Galaxy A9 hampir mengalahkan smartphone yang mengusung chipset Snapdragon 810.

Sedangkan untuk kapasitas memorinya, smartphone ini dibekali dengan RAM sebesar 3GB serta penyimpanan internal sebesar 32GB yang masih dapat diperluas menggunakan micro SD hingga 128GB. Untuk sektor display, handset ini mengusung layar seluas 5,5 inci berjenis AMOLED dan membawa resolusi FHD 1080×1920 dengan keraptan 401ppi.

Tak kalah gahar dari smartphone flagship, Galaxy A9 juga telah dibekali dengan kamera beresolusi 16MP dilengkapi dengan berbagai fitur serta kamera depan 5MP untuk keperluan selfie atau video call. Smartphone yang sudah mendukung 4G ini juga telah dibekali dengan fitur konektivitas standar seperti WiFi, Bluetooth, NFC dan GPS.

Samsung Galaxy A9 akan menjalankan sistem operasi Android 5.1 Lollipop, namun sayangnya informasi kapasitas baterai tidak ditampilkan dalam daftar tersebut.

Untuk ketersediaanya, halaman situs Samsung Iran itu mengisyaratkan bahwa handset bakal meluncur tanggal 1 Desember 2015 mendatang. Kita tunggu saja hingga peluncurannya benar-benar terlaksana, dengan demikian kita dapat mengetahui berapa harga yang dipatok untuk handset tersebut.

Smartphone Terbaru

Semenjak beberapa bulan yang lalu, banyak render bocoran smartphone Nokia yang akan menjalankan sistem operasi Android murni. Nokia C1 diyakini sebagai smartphone pertama yang akan menyandang logo Nokia untuk pertama kalinya setelah divisi mobile telah dijual kepada Microsoft beberapa tahun yang lalu. CEO pun telah mengonfirmasi bahwa pada tahun 2016 mendatang akan ada perangkat mobile Nokia baru.

Render terbaru Nokia C1 (Kredit: GSM Arena)

Sebelumnya telah banyak bocoran render wujud Nokia C1, namun dari semua itu menampilkan foto dengan wujud smartphone yang berbeda-beda. Kali ini muncul lagi interpretasi lainnya yang menegaskan bahwa render tersebut merupakan C1.

Seperti yang dilaporkan GSM Arena, Kamis (26/11/2015), Ini adalah empat kalinya render yang diklaim sebagai C1 yang muncul kepermukaan. Dari keempat klaim tersebut, semua menampilkan wujud yang berbeda-beda. Tentu saja, salah satu dari keempatnya harus menjadi kenyataan dan ketiga lainnya merupakan teaser pengheboh saja. Dan kita berasumsi bahwa render yang terakhir muncul dianggap sebagai Nokia C1 yang sesungguhnya.

Pada bocoran render kali ini untuk pertama kalinya memberikan sedikit penjelasan tentang C1. Menariknya, pada render kali ini, Nokia C1 menampilkan dua tampilan antarmuka yang berbeda. Pada gambar yang berada paling depan, C1 menampilkan Antarmuka khas Android, sedangkan yang berada di belakangnya menampilkan tampilan Windows 10 Mobile. Hal ini mengindikasikan bahwa smartphone akan tersedia dalam dua varian OS yang berbeda.

Namun sejauh ini, belum ada petinggi Nokia yang mengatakan bahwa perusahaan akan membuat smartphone yang menggunakan OS Windows juga. Jadi ini hanya masih sebatas rumor yang belum bisa dipastikan kebenarannya. Selama ini, rumor tentang smartphone baru dari kebangkitan Nokia hanya akan menjalankan sistem operasi Android. Kita tunggu saja kabar selanjutnya dari Nokia.

Kunjungi juga : Cara Membuat Aplikasi Kalkulator Mengguanakn VB.Net

Cara Membuat Lampu Lalu Lintas, Kalkulator dan Menghitung Luas Di VB.Net

Langkah awal yang harus anda lakukan untuk memulai, yaitu ikuti langkah-langkah berikut:

1.   Buka aplikasi Visual Studio, maka akan muncul tampilan seperti berikut.

 

2.   Klik pada menu New Project.

3.   Maka akan muncul tampilan seperti berikut, ikuti langkah-langkah pada
      image berikut.

4.  Muncul sebuah jendela loading, tunggu proses loading selesai hingga
     VB.Net siap digunakan.

5.   Jika sudah tampil tampilan berikut ini, maka VB.Net anda siap digunakan.

Nah ....
Friends, berikut ini adalah beberapa study kasus yang pernah saya temui. Tujuan saya post ini adalah sebagai bahan pelajaran saja, sekaligus untuk membatu teman-teman untuk belajar VB.Net. Langsung saja yahhh ...
Soal yang pertama, yaitu kita akan membuat program untuk Lampu Lalu Lintas, pastinya teman-teman semua tahukan apa itu lampu lalu Lintas ?

1.   Membuat Lampu Lalu Lintas

Coding :
Public Class Form1
    Dim time, waktu1, waktu2, waktu3, waktu4 As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        time = 0
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        time = time + Timer1.Interval
        Select Case time
            Case 1000
                hij1.BackColor = Color.FromArgb(0, 255, 0)
                mer3.BackColor = Color.Red
                mer2.BackColor = Color.Red
                mer4.BackColor = Color.Red
                kun2.BackColor = Color.FromArgb(64, 64, 0)
                kun1.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 silahkan Jalan"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 11000
                hij1.BackColor = Color.FromArgb(0, 64, 0)
                kun1.BackColor = Color.Yellow
                kun3.BackColor = Color.Yellow
                mer3.BackColor = Color.FromArgb(64, 0, 0)
                mer2.BackColor = Color.Red
                mer4.BackColor = Color.Red
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 silahkan Jalan"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 12000
                hij3.BackColor = Color.FromArgb(0, 255, 0)
                mer1.BackColor = Color.Red
                mer2.BackColor = Color.Red
                mer4.BackColor = Color.Red
                kun1.BackColor = Color.FromArgb(64, 64, 0)
                kun3.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 silahkan Jalan"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 21000
                hij3.BackColor = Color.FromArgb(0, 64, 0)
                mer1.BackColor = Color.Red
                mer2.BackColor = Color.FromArgb(64, 0, 0)
                mer4.BackColor = Color.Red
                kun3.BackColor = Color.Yellow
                kun2.BackColor = Color.Yellow
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 silahkan Jalan"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 22000
                hij2.BackColor = Color.FromArgb(0, 255, 0)
                mer1.BackColor = Color.Red
                mer3.BackColor = Color.Red
                mer4.BackColor = Color.Red
                kun3.BackColor = Color.FromArgb(64, 64, 0)
                kun2.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "jalur 2 silahkan Jalan"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 31000
                hij2.BackColor = Color.FromArgb(0, 64, 0)
                mer1.BackColor = Color.Red
                mer3.BackColor = Color.Red
                mer4.BackColor = Color.FromArgb(64, 0, 0)
                kun2.BackColor = Color.Yellow
                kun4.BackColor = Color.Yellow
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 silahkan Jalan"
            Case 32000
                hij4.BackColor = Color.FromArgb(0, 255, 0)
                mer2.BackColor = Color.Red
                kun2.BackColor = Color.FromArgb(64, 64, 0)
                kun4.BackColor = Color.FromArgb(64, 64, 0)
                lblT1.Text = "Jalur 1 belok kiri jalan terus"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 silahkan Jalan"
            Case 41000
                hij4.BackColor = Color.FromArgb(0, 64, 0)
                mer1.BackColor = Color.FromArgb(64, 0, 0)
                mer4.BackColor = Color.FromArgb(64, 0, 0)
                kun1.BackColor = Color.Yellow
                kun4.BackColor = Color.Yellow
                lblT1.Text = "Jalur 1 silahkan Jalan"
                lblT2.Text = "Jalur 2 belok kiri jalan terus"
                lblT3.Text = "Jalur 3 belok kiri jalan terus"
                lblT4.Text = "Jalur 4 belok kiri jalan terus"
            Case 42000
                kun4.BackColor = Color.FromArgb(64, 64, 0)
                time = 0
        End Select
    End Sub
End Class

2.   Soal yang kedua kita akan menghitung Luas dari atribut Panjang dan Lebar.

Coding :
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label4.Text = TextBox1.Text * TextBox2.Text
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label4.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
        Label1.ForeColor = Color.Red
    End Sub

    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
        Label1.ForeColor = Color.Black
    End Sub

    Private Sub TextBox2_GotFocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus
        Label2.ForeColor = Color.Red
    End Sub

    Private Sub TextBox2_LostFocus(sender As Object, e As EventArgs) Handles TextBox2.LostFocus
        Label2.ForeColor = Color.Black
    End Sub
End Class

3.  Yang ketiga kita akan mencoba untuk membuat Kalkulator.

Coding :
Public Class Form2
    Dim aktif As String
    Private Sub txtpertama_GotFocus(sender As Object, e As EventArgs) Handles txtpertama.GotFocus
        aktif = "txtpertama"
    End Sub

    Private Sub txtkedua_GotFocus(sender As Object, e As EventArgs) Handles txtkedua.GotFocus
        aktif = "txtkedua"
    End Sub

    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn1.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn1.Text
        End If
    End Sub

    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn2.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn2.Text
        End If
    End Sub

    Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn3.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn3.Text
        End If
    End Sub

    Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn4.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn4.Text
        End If
    End Sub

    Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn5.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn5.Text
        End If
    End Sub

    Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn6.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn6.Text
        End If
    End Sub

    Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn7.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn7.Text
        End If
    End Sub

    Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn8.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn8.Text
        End If
    End Sub

    Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn9.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn9.Text
        End If
    End Sub

    Private Sub btn10_Click(sender As Object, e As EventArgs) Handles btn10.Click
        If aktif = "txtpertama" Then
            txtpertama.Text &= btn10.Text
        ElseIf aktif = "txtkedua" Then
            txtkedua.Text &= btn10.Text
        End If
    End Sub

    Private Sub btn11_Click(sender As Object, e As EventArgs) Handles btn11.Click
        If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) + CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn12_Click(sender As Object, e As EventArgs) Handles btn12.Click
        If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) - CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn13_Click(sender As Object, e As EventArgs) Handles btn13.Click
       If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) * CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn14_Click(sender As Object, e As EventArgs) Handles btn14.Click
        If txtpertama.Text <> Nothing And txtkedua.Text <> Nothing Then
            lblkedua.Text = CInt(txtpertama.Text) / CInt(txtkedua.Text)
        End If
    End Sub

    Private Sub btn15_Click(sender As Object, e As EventArgs) Handles btn15.Click
        txtpertama.Clear()
        txtkedua.Clear()
        lblkedua.Text = ""
    End Sub
End Class

Ok friends ...
Bagaimana ?
Cukup mengertikah ? atau masih bingung ?
Nantikan postingan saya yang lainnya ya friends, semoga post ini bermanfaat ....
:)