A.        Pengertian Metode, Penelitian, dan Metode Penelitian

Metode berasal dari Bahasa Yunani “Methodos’’ yang berarti cara atau jalan yang ditempuh. Sehubungan dengan upaya ilmiah, maka metode menyangkut masalah cara kerja untuk dapat memahami objek yang menjadi sasaran ilmu yang bersangkutan. Fungsi metode berarti sebagai alat untuk mencapai tujuan. Adapun pengertian dan definisi metode menurut para ahli antara lain :

1.    Rothwell & Kazanas => Metode adalah cara, pendekatan, atau proses untuk menyampaikan informasi.

2.    Titus => Metode adalah rangkaian cara dan langkah yang tertib dan terpola untuk menegaskan bidang keilmuan.

       Penelitian atau riset berasal dari bahasa inggris research yang artinya adalah proses pengumpulan informasi dengan tujuan meningkatkan, memodifikasi atau mengembangkan sebuah penyelidikan atau kelompok penyelidikan.
Pada dasarnya riset atau penelitian adalah setiap proses yang menghasilkan ilmu pengetahuan. Adapun pengertian penelitian menurut para ahli adalah :

1.    Fellin, Tripodi & Meyer (1996) => Penelitian adalah suatu cara sistematik untuk maksud meningkatkan, memodifikasi dan mengembangkan pengetahuan yang dapat di sampaikan (dikomunikasikan) dan diuji (diverifikasi) oleh peneliti lain.

2.    Kerlinger (1986: 17-18) =>Penelitian adalah investigasi yang sistematis, terkontrol, empiris dan kritis dari suatu proposisihipotesis mengenai hubungan tertentu antarfenomena.

Metode penelitian adalah suatu cara atau prosedur yang dipergunakan untuk melakukan penelitian sehingga mampu menjawab rumusan masalah dan tujuan penelitian. Beberapa pandangan metode penelitian secara umum menurut para ahli :

1.    Nasir (1988:51) =>Metode penelitian merupakan cara utama yang digunakan peneliti untuk mencapai tujuan dan menentukan jawaban atas masalah yang diajukan.

2.    Sugiyono (2004: 1) =>Metode penelitian merupakan cara ilmiah untuk mendapatkan data dengan tujuan dan kegunaan tertentu.

Metode penelitian pada dasarnya merupakan cara ilmiah untuk mengumpulkan data dengan tujuan dan kegunaan tertentu. Cara ilmiah berarti kegiatan penelitian itu didasarkan pada ciri-ciri keilmuan yaitu rasional, empiris dan sistematis.

B.       Klasifikasi Metode Penelitian

Penelitian terdiri dari berbagai jenis. Berikut ini adalah pengelompokkan penelitian.

1.        Menurut Fungsi / Kedudukan

a.         Penelitian Akademik (Mahasiswa S1, S2, S3), ciri/penekanan :

·           Merupakan sarana edukasi

·           Mengutamakan validitas internal (cara yang harus benar)

·           Variabel penelitian terbatas

·           Kecanggihan analisis disesuaikan dengan jenjang (S1, S2, S3)

b.         Penelitian Profesional (pengembangan ilmu, teknologi dan seni), ciri/ penekanan :

·           Bertujuan mendapatkan pengetahuan baru yang berkenaan dan ilmu, teknologi dan seni.

·           Variabel penelitian lengkap

·           Kecanggihan analisis disesuaikan kepentingan masyarakat ilmiah

·           Validitas internal (cara yang benar) dan validitas eksternal (kegunaan dan generalisasi) diutamakan

c.         Penelitian Institusional (perumusan kebijakan atau pengambilan keputusan), ciri/penekanan :

·           Bertujuan untuk mendapatkan informasi yang dapat digunakan untuk pengembangan kelembagaan

·           Mengutamakan validitas eksternal (kegunaan)

·           Variabel penelitian lengkap (kelengkapan informasi)

·           Kecanggihan analisis disesuaikan untuk pengambilan keputusan.

Kelebihan dan Kekurangan Iphone5

Kelebihan dan Kekurangan Iphone5

sebagaimana di sebutkan pada artikel sebelumnya telah merilis produk tercanggihnya yaitu iPhone 5. Gadget yang memberi banyak kejutan kepada pelanggan. Pasalnya banyak fitur-fitur baru yang mengejutkan pengamat teknologi maupun pelanggan. Tentu saja produk terkini Apple tersebut langsung mendapat sorotan luas karena bagaimanapun perusahaan dari Amrik tersebut merupakan salah satu produsen Gadget yang menguasai pasaran smartphone dan menjadi saingan abadi handphone bersistem operasi Android. Apple menyertakan beberapa fitur baru di iPhone 5 yang tidak terdapat di iPhone 4S ataupun iPhone generasi sebelumnya. Baik di sektor hardware maupun update di sisi software.

Hal ini tentu saja membuat hp terbaru tersebut langsung di komparasikan dengan produk Apple sebelumnya yang sukses di pasaran seperti iPhone 4 dan iphone 4S. Ada beberapa keunggulan yang bisa kita lihat jika dibandingkan dengan pendahulunya. Jika anda ingin memiliki dan menggunakan produk ini, alangkah baiknya anda membaca ulasannya dibawah ini.

1. Layar iPhone 5

Seperti dugaan banyak analis, iPhone 5 punya layar lebih lega seukuran 4 inch. Lebih besar dibandingkan iPhone pendahulunya yang hanya memiliki layar 3,5 inch.Teknologi layar yang digunakan masih sama, yaitu Retina Display dengan resolusi 1.136 x 640 pixel dan aspek rasio 16 x 9. Sedangkan kepadatan pixelnya adalah 326ppi (pixel per inch). Dengan layar lebih luas, tampilan menu aplikasi di iPhone 5 terdiri dari lima baris. Apple juga menyatakan aplikasi lama yang didesain untuk layar 3,5 inch di iPhone lama, akan dapat berjalan mulus di iPhone 5.


2. Prosesor iPhone 5

Prosesor A6 menjadi 'otak baru' di iPhone 5. Apple mengklaim bahwa prosesor A6 punya CPU dua kali lebih cepat dan kemampuan grafis dua kali lebih hebat dibandingkan prosesor A5. Sedangkan ukurannya lebih kecil 22%.
Prosesor ini juga diklaim membuat baterai iPhone 5 menjadi lebih awet ketimbang iPhone 4S. A6 dibuat dengan proses manufaktur 32mm dan berbasis desain dual core ARM Cortex A15.

Tampilan Menu Awal Metode:

Syntax nya:

Public Class Form1

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

    Private Sub CaesarChToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChToolStripMenuItem.Click

        caesar_chiper.Show()

    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click

        vernam_chiper.Show()

    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click

        vigenere_chiper.Show()

    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoKeyChiperToolStripMenuItem.Click

        autokey_chiper.Show()

    End Sub

    Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click

        Des_chiper.Show()

    End Sub

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

    End Sub

End Class.

Tampilan Menu  Autokey_chiper :

Syntax nya :

Public Class autokey_chiper

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Function AutokeyEncipher(ByVal strPlaintext As String, ByRef strKey As String) As String

        Dim i As Long

        Dim j As Long

        Dim c1 As Integer

        Dim strPlaintext2 As String

        Dim strKey2 As String

        Dim strCiphertext As String

        Dim strCiphertext2 As String

        Dim diffKeyLen As Integer

        Dim pAlphabet As Integer

        Dim cAlphabet As Integer

        Dim nShift As Integer

        '1. Hilangkan semua karakter yang bukan alfabet dari strPlaintext

        ' dan simpan sebagai strPlaintext2

        strPlaintext2 = ""

        For i = 1 To strPlaintext.Length

            c1 = Asc(Mid(strPlaintext, i, 1))

            If (c1 >= 65 And c1 <= 90) Then

                strPlaintext2 = strPlaintext2 & Chr(c1)

            End If

        Next i

        '2. Hilangkan semua karakter yang bukan alfabet dari strKey

        ' dan simpan sebagai strKey2

        strKey2 = ""

        For i = 1 To strKey.Length

            c1 = Asc(Mid(strKey, i, 1))

            If (c1 >= 65 And c1 <= 90) Then

                strKey2 = strKey2 & Chr(c1)

            End If

        Next i

        '3. Susun kunci baru strKey2 berdasarkan kunci awal strKey kemudian

        ' ditambah plaintext

        'perbedaan antara panjang plaintext dan kunci

        diffKeyLen = strPlaintext2.Length - strKey2.Length

        For i = 1 To diffKeyLen

            'c1 = Asc(Mid(strPlaintext2, i, 1))

            strKey2 = strKey2 & Mid(strPlaintext2, i, 1)

        Next i

        '4. Geser masing-masing huruf pada plaintext

        ' dengan huruf yang terkait pada key

        strCiphertext = ""

        For i = 1 To strPlaintext2.Length

            c1 = Asc(Mid$(strPlaintext2, i, 1))

            nShift = Asc(Mid$(strKey2, i, 1)) - 65

            If ((c1 >= 65) And (c1 <= 90)) Then

                pAlphabet = c1 - 65 ' get the alphabet sequence

                cAlphabet = (pAlphabet + nShift) Mod 26 ' shifted alphabet

                c1 = cAlphabet + 65 ' get character in 65 ... 90

            End If

            strCiphertext = strCiphertext & Chr(c1)

        Next i

        '5. Susun strCiphertext sesuai dengan urutan strPlaintext

        strCiphertext2 = ""

        strKey = ""

        j = 1

        For i = 1 To strPlaintext.Length

            c1 = Asc(Mid$(strPlaintext, i, 1))

            If ((c1 >= 65) And (c1 <= 90)) Then

                strCiphertext2 = strCiphertext2 & Mid(strCiphertext, j, 1)

                strKey = strKey & Mid(strKey2, j, 1)

                j = j + 1

            Else

                strCiphertext2 = strCiphertext2 & Chr(c1)

                strKey = strKey & " "

            End If

        Next i

        Return strCiphertext2

    End Function

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

        Me.Close()

    End Sub

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Encipher.Click

        chipertext.Text = AutokeyEncipher(plaintext.Text, kunci.Text)

    End Sub

    Private Sub plaintext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plaintext.TextChanged

    End Sub

End Class.

Tampilan Menu Caesar_chiper :

Syntax nya:

Public Class caesar_chiper

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        Dim jumlah As Double = Len(plaintext.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plaintext.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chipertext.Text = xkalimat

    End Sub

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

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

        End

    End Sub

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

        Me.Close()

    End Sub

End Class.

Tampilan Menu  Des_chiper :

 

Syntax nya :

Public Class Des_chiper

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

        plain.Text = ""

        chip.Text = ""

    End Sub

    Private Sub deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(chip.Text)

            x = Mid(chip.Text, i, i)

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        plain.Text = xkalimat

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        plain.Text = ""

        chip.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

End Class.

Tampilan Menu Vernam_chiper :

Syntax nya:

Public Class vernam_chiper

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        Dim j As Integer

        Dim jum 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 Integer

        j = 0

        sKata = plaintext.Text

        jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 65

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)

        Next i

        chipertext.Text = sPlain

    End Sub

    Private Sub plaintext_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plaintext.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 kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

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

        Me.Close()

    End Sub

    Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub

End Class.

Tampilan Menu Vigenere_chiper :

Syntax nya :

Public Class vigenere_chiper

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        chipertext.Text = Enkripsi(plaintext.Text, kunci.Text)

    End Sub     

    Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String

        Dim j As Integer

        Dim jum 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 Integer

        j = 0

        jum = Len(Teks)

        sPlain = ""

        sKey = Kunci

        sKata = Teks

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1))

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Enkripsi = sPlain

    End Function

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

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

        Me.Close()

    End Sub

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

    End Sub

End Class.