KRIPTOGRAFI PROGRAM

Nie dia program Vb.net mengenai kriptografi, yang didalamnya terdiri dari 4 jenis yaitu ;
1. Kriptografi Caesar

2. Kriptografi Vernam

3. Kriptografi Gronsfeld

4. kriptografi Vegenere

oke,,, selanjutnya

kita masuk ke perogramnya. Pertama kita Buat Formnya sebanyak 5 form.
............................

Next

Masuk ke form 1, kta buat gambarnya seperti dibawah ini

Selanjutnya, kita isi datanya

Public Class Form1

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Btnenkripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plain.text)

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

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        Chiper.Text = xkalimat

    End Sub

    Private Sub Btndekrifsi_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Btndekrifsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(Plain.Text)

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

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        Chiper.Text = xkalimat

      

    End Sub

End Class

Public Class Form2

    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    End Sub

    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub KriptografiGransfildToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGransfildToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub KriptografiVigenereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVigenereToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

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

        Close()

    End Sub

End Class

Public Class Form3

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

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.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 nEnec As Integer

        j = 0

        sKata = Plainteks.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

            nEnec = ((nKata + nKunci) Mod 26)

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

        Next i

        Chiperteks.Text = sPlain

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.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_KeyPress1(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 btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndekripsi.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 nEnec As Integer

        j = 0

        sKata = Plainteks.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

            nEnec = ((nKata - nKunci) Mod 26)

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

        Next i

        Chiperteks.Text = sPlain

    End Sub

    Private Sub Kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kunci.TextChanged

    End Sub

End Class

Public Class Form4

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

        Plainteks.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.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 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 = Plainteks.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

        Chiperteks.Text = splain

    End Sub

    Private Sub Btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndekripsi.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 = Plainteks.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

        Chiperteks.Text = splain

    End Sub

End Class

Public Class Form5

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

        Plainteks.Text = ""

        Chiperteks.Text = ""

        Kunci.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 = Plainteks.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)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Chiperteks.Text = sPlain

    End Sub

    Private Sub Btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndekripsi.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 = Plainteks.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)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata - nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Chiperteks.Text = sPlain

    End Sub

End Class

Nie dia hasilnya =>>

Enkripsinya :

Hasil untuk Dekripsi :

TERIMAKASIH,,,
dan semoga bermanfaat.

REVIEW Mesran[dot]Net

Review Mesran[Dot]Net

Disini Saya akan berbagi cerita tentang mesran.Net yaitu sebuah web yang di dalamnya terdapat banyak hal-hal yang bermanfaat bagi mahasiswa. Beliau adalah Ketua dan Dosen di STMIK Budidarma Medan.

Pada mesran.Net terdiri dari beberapa artikel di antaranya artikel mengenai Tips Belajar Bahasa Pemrograman dan beberapa bahasa pemrograman salah satunya VisualBasic. Net, serta program yang berorientasi pada database, contoh : Program Visual Basic Net , C, C++, Pascal, Simpan Edit Hapus Record Pada Database Access bahkan masih banyak lagi.

Apalagi di Akhir semester mesran.Net akan menjadi tempat yang ramai di kunjungi mahasiswa/i STMIK BUDIDARMA untuk melihat Nilai atau IP selama kita belajar satu semester.

 http://mesran.net/  dan http://mesran.blogspot.com/ telah menyediakan berbagai jenis program dan membantu saya untuk memahami setiap Bahasa Pemrograman dan jenis-jenisnya.

Semoga dengan kata-kata "Hanya Ingin Berbagi kebaikan dan mendapatkan kebaikan lain" dapat memberikan ilmu yang berguna buat kita semua.

 

Demikian postingan yang saya buat, semoga bermanfaat.

Terima kasih...

Listview Penjualan Barang

Judul soal: Latihan Listview Penjualan Barang

Desain form berikut :
 

Program Listviewnya:

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jenjang", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Jurusan", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Dosen", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Mata Kuliah", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Akhir", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Keterangan", 80, HorizontalAlignment.Center)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Jenjang.Text)
        lst.SubItems.Add(Jurusan.Text)
        lst.SubItems.Add(M_Kuliah.Text)
        lst.SubItems.Add(Nama_dosen.Text)
        lst.SubItems.Add(Nilai_akhir.Text)
        lst.SubItems.Add(Nilai_huruf.Text)
        lst.SubItems.Add(Keterangan.Text)
        LV.Items.Add(lst)

    End Sub


    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Nilai_akhir.Text = 0.1 * Nilai_kehadiran.Text + 0.15 * Nilai_tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        Select Case Nilai_akhir.Text
            Case Is >= 80
                Nilai_huruf.Text = "A"
                Keterangan.Text = "LULUS"
            Case 70 To 79
                Nilai_huruf.Text = "B"
                Keterangan.Text = "LULUS"
            Case 60 To 69
                Nilai_huruf.Text = "C"
                Keterangan.Text = "GAGAL"
            Case 50 To 59
                Nilai_huruf.Text = "D"
                Keterangan.Text = "GAGAL"
            Case Is <= 49
                Nilai_huruf.Text = "E"
                Keterangan.Text = "GAGAL"
        End Select
        Nilai_akhir.Enabled = False
        isitabel()
        Nilai_huruf.Text = ""
        Keterangan.Text = ""
        Nama.Text = ""
        NPM.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Nama_dosen.Text = ""
        Nilai_akhir.Text = ""
        M_Kuliah.Text = ""
        Nilai_kehadiran.Text = ""
        Nilai_tugas.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Kode_dosen.Text = ""
        Kode_matakuliah.Text = ""
    End Sub

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

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        NPM.Items.Add("12110574")
        NPM.Items.Add("12110161")
        NPM.Items.Add("12110741")
        NPM.Items.Add("12110927")
        NPM.Items.Add("1202208")
        Dim i As Integer
        For i = 100 To 1 Step -5
            Nilai_kehadiran.Items.Add(i)
        Next
        For i = 100 To 1 Step -5
            Nilai_tugas.Items.Add(i)
        Next
        For i = 100 To 1 Step -5
            Nilai_UTS.Items.Add(i)
        Next
        For i = 100 To 1 Step -5
            Nilai_UAS.Items.Add(i)
        Next i
        Kode_matakuliah.Items.Add("123")
        Kode_matakuliah.Items.Add("456")
        Kode_matakuliah.Items.Add("789")
        Kode_matakuliah.Items.Add("012")
        Kode_dosen.Items.Add("012")
        Kode_dosen.Items.Add("345")
        Kode_dosen.Items.Add("678")
        Kode_dosen.Items.Add("901")
        Nilai_akhir.Enabled = False

    End Sub

    Private Sub Kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_matakuliah.SelectedIndexChanged
        Select Case Kode_matakuliah.Text
            Case "123"
                M_Kuliah.Text = "Visual Basic"
            Case "456"
                M_Kuliah.Text = "Matriks"
            Case "789"
                M_Kuliah.Text = "arsitektur dan organisasi kom"
            Case "012"
                M_Kuliah.Text = "struktur data"
        End Select
        Nilai_akhir.Enabled = False

    End Sub

    Private Sub Kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_dosen.SelectedIndexChanged
        Select Case Kode_dosen.Text
            Case "012"
                Nama_dosen.Text = "Mesran"
            Case "345"
                Nama_dosen.Text = "Kennedi Tampubolon"
            Case "678"
                Nama_dosen.Text = "Pilipus tarigan."
            Case "901"
                Nama_dosen.Text = "alex riki s."
        End Select

    End Sub

    Private Sub Nilai_akhir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Nilai_akhir.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Nilai_akhir.Text = 0.1 * Nilai_kehadiran.Text + 0.15 * Nilai_tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
            Nilai_akhir.Enabled = False
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110161"
                Nama.Text = " Anisah H"
                Jenjang.Text = "S1"
                Jurusan.Text = "TI"
            Case "12110741"
                Nama.Text = "TIKA H"
                Jenjang.Text = "D3"
                Jurusan.Text = "MI"
            Case "12110574"
                Nama.Text = "EKO"
                Jenjang.Text = "S1"
                Jurusan.Text = "TI"
            Case "12110927"
                Nama.Text = " JUNI Sihombing"
                Jenjang.Text = "S1"
                Jurusan.Text = "SI"
            Case "1202208"
                Nama.Text = "Septriani Simanjuntak"
                Jenjang.Text = "D3"
                Jurusan.Text = "KA"
        End Select

    End Sub
End Class

Demikian hasil nya :

Semoga bermanfaat bagi anda...

Demikian postingan saya :

 Nama: Anisah harahap

 NPM : 12110161

Perangkat Keras Dan Perangkat Lunak Pada Komputer

Perangkat Keras dan Fungsinya Untuk Akses Internet

Macam-Macam Perangkat Keras dan Fungsinya Yang dibutuhkan Komputer atau Notebook Untuk Mengakses Internet :

1. MODEM (MODULASI DEMOLATOR)
2. ETHERNET CARD ATAU LAN CARD
3. HUB ATAU SWITCH
4. ROUTER

1. Modem

Fungsi dari modem adalah mengubah data dari digital ke listrik atau gelombang elektronik dan sebaliknya.

Jenis-jenis modem berdasarkan beberapa kategori :

A.     Berdasarkan letak di CPU Komputer, modem terbagi dua, yaitu :

1.            modem internal

         modem yang berada di dalam cpu

2.            modem external

         modem yang berada di luar cpu

B.     Berdasarkan cara koneksi dengan ISP, modem terbagi dua, yaitu :

1.            modem wireline atau wired

modem yang menggunakan media kabel untuk berkoneksi dengan ISP

2.            modem wireless

modem yang menggunakan media nirkabel (gelombang elektronik)untuk berkoneksi dengan ISP

C.     Berdasarkan ISP (Internet Service Provider) yang digunakan atau teknologi ISP yang dipakai, jenis modem bisa dibagi menjadi beberapa macam, antara lain :

1.            modem adsl

2.            modem dsl

3.            modem cdma

4.            modem gsm

5.            modem dial up

2. Ethernet Card atau Lan Card

Lan Card ( kartu jaringan ) berfungsi sebagai alat penghubung sebuah komputer dengan jaringan komputer atau penghubung komputer dengan modem jenis adsl dan dsl.

3. Hub atau Switch

Switch berfungsi menghubungkan dua komputer atau lebih. Switch dibutuhkan, jika ingin melakukan sharing internet.

4. Router

Router mempunyai fungsi yang sama dengan Switch, tetapi lebih pintar. Kelebihan Router dibanding Switch adalah fungsi routing dan gateway-nya. Fungsi routing berguna untuk memilih rute yang terbaik dalam jaringan, sedangkan gateway berfungsi seperti komputer server.

Pada saat sekarang ini sudah ada jenis modem tertentu yang juga mempunyai fungsi sebagai router, gateway atau switch. Jadi pada saat kita ingin melakukan sharing internet ke beberapa komputer cukup membeli modem model tersebut.

Persyaratan minimal komputer atau notebook yang digunakan untuk akses komputer

1. Processor Pentium III 500 Mhz
2. Ram 64 MB
3. VGA Card 4 MB
4. Sound Card dan Speaker
5. CD ROM
6. Harddisk 10 GB
7. Monitor CRT SVGA

Perangkat Lunak Komputer

Perangkat Lunak (software) merupakan suatu program yang dibuat oleh pembuat program untuk  menjalankan perangkat keras komputer. Perangkat Lunak adalah program yang berisi kumpulan instruksi untuk melakukan proses pengolahan data. Software sebagai penghubung antara manusia sebagai pengguna dengan perangkat keras komputer, berfungsi menerjemahkan bahasa manusia ke dalam bahasa mesin sehingga perangkat keras komputer memahami keinginan pengguna dan menjalankan instruksi yang diberikan dan selanjutnya memberikan hasil yang diinginkan oleh manusia tersebut.

Perangkat lunak komputer berfungsi untuk :

1. Mengidentifikasi program
2. Menyiapkan aplikasi program sehingga tata kerja seluruh perangkat komputer terkontrol.
3. Mengatur dan membuat pekerjaan lebih efisien.

Macam-macam Perangkat Lunak

Perangkat lunak terbagi menjadi 4 macam, yaitu :

1. Sistem Operasi (Operating System),
2. Program Aplikasi (Application Programs),
3. Bahasa Pemrograman (Programming Language),
4. Program Bantu (Utility)

1.  Sistem Operasi (Operating System)

Sistem Operasi yaitu program yang berfungsi untuk mengendalikan sistem kerja yang mendasar sehingga mengatur kerja media input, output, tabel pengkodean, memori, penjadwalan prosesor, dan lain-lain. Sistem operasi berfungsi sebagai penghubung antara manusia dengan perangkat keras dan perangkat lunak yang akan digunakan. Adapun fungsi utama sistem operasi adalah :

• Menyimpan program dan aksesnya
• Membagi tugas di dalam CPU
• Mengalokasikan tugas-tugas penting
• Merekam sumber-sumber data
• Mengatur memori sistem termasuk penyimpanan, menghapus dan mendapatkan data
• Memeriksa kesalahan sistem
• Multitugas pada OS/2″, Windows ’95″, Windows ’98″, Windows NT”, /2000/XP
• Memelihara keamanan sistem,   khusus pada jaringan yang membutuhkan kata sandi (password) dan penggunaan ID

Contoh Sistem Operasi, misalnya : Disk operating System (DOS), Microsoft Windows, Linux, dan Unix.

2.  Program Aplikasi (Aplication Programs)

Program Aplikasi adalah  perangkat lunak yang dirancang khusus untuk kebutuhan tertentu, misalnya program  pengolah kata, mengelola lembar kerja, program presentasi, design grafis, dan lain-lain.

3. Bahasa Pemrograman (Programming Language)

Perangkat lunak bahasa yaitu program yang digunakan untuk menerjemahkan instruksi-instruksi yang ditulis dalam bahasa pemrograman ke bahasa mesin dengan aturan atau prosedur tertentu, agar diterima oleh komputer.

Ada 3 level bahasa pemrograman, yaitu :

• Bahasa tingkat rendah (low level language)

Bahasa ini disebut juga bahasa mesin (assembler), dimana pengkodean bahasanya menggunakan kode angka 0 dan 1.

• Bahasa tingkat tinggi (high level language)

Bahasa ini termasuk dalam bahasa pemrograman yang mudah dipelajari oleh pengguna komputer karena menggunakan bahasa Inggris. Contohnya : BASIC, COBOL, PASCAL, FORTRAN.

• Bahasa generasi keempat (4 GL)

Bahasa pemrograman 4 GL (Fourth Generation Language) merupakan bahasa yang berorientasi   pada objek yang disebut Object Oriented Programming (OOP). Contoh software ini adalah : Visual Basic, Delphi, Visual C++

4. Program Bantu (Utility)

Perangkat Lunak merupakan perangkat lunak yang berfungsi sebagai aplikasi pembantu dalam kegiatan yang ada hubungannya dengan komputer, misalnya memformat disket, mengopi data, mengkompres file, dan lain-lain.

Contoh software ini diantaranya :

• Norton Utility
• Winzip
• Norton Ghost
• Antiviru

Memahami Macam-Macam Topologi Jaringan Komputer

Memahami macam-macam Topologi jaringan komputer sangatlah penting karena sebelum kita membuat sebuah jaringan kita terlebih dahulu harus mengerti tentang skema atau gambaran atau topologi apa yang bagus untuk kita gunakan.

Topologi jaringan komputer atau bisa juga di sebut dengan arsitektur jaringan adalah gambaran atau sebuah perencanaan hubungan antar komputer dalam jaringan LAN ( Local Area Network ), yang umumnya jaringan tersebut menggunakan kabel untuk media transmisinya, konektor, Ethernet card dan perangkat pendukung jaringan computer lainnya.

Memahami Macam-Macam Topologi Jaringan Komputer

Topologi jaringan komputer sendiri memiliki beberapa jenis yang sering terdapat pada hubungan antar komputer pada jaringan local area yaitu Topologi Bus, Topologi Ring, Topologi Star, Topologi Tree atau disebut juga Hierarchial (Hirarki), Topologi Mesh dan Full Connected dan juga Topologi Hybrid.untukmemahami macam-macam Topologi jaringan komputer lebih lanjut kita bahas satu persatu.

Macam-macam topologi jaringan

Topologi Bus

Topologi bus adalah sebuah bentangan satu kabel yang di kedua unung kabel tersebut ditutup, dimana sepanjang kabel itu memiliki node-node atau titik yang menghubungkan komputer. Dalam topologi ini signal dalam kabel di lewati satu arah sehingga memungkinkan terjadinya tabrakkan atau collision.

Keuntungan

• Mudah di gunakan karena tidak memakai banyak media, kabel yang digunakan juga banyak tersedia di pasaran.
• Setiap computer dapat saling berhubungan langsung.

Kerugian

• Sering terjadi eror/hang/crass talk karena computer harus bergantian untuk memakai jalur akses atau ditambah relay.

Topologi Ring

Topologi ini berupa lingkaran tertutup yang berisi node-node. Pergerakan data cepat karena Signal dapat mengalir dengan dua arah sehingga dapat terhindar dari collision.

Keuntungan

• Terjadinya kegagalan koneksi akibat gangguan media dapat di atasi dengan jalur lain yang masih terhubung.
• Penggunaan sambungan poin to pion membuat transmission eror dapat di perkecil.

Kerugian

• Jika data yang dikirim melalui banyak computer, transfer data menjadi lambat.

Topologi Star

Topologi star memiliki karakteristik node (station) berkomunikasi langsung dengan node yang lain dengan menggunakan central node (Hub/Switch). Signal mengalir dari node ke central node dan di lanjutkan ke node tujuan. Sehingga jika salah satu segmen terputus maka tidak mempengaruhi yang lain.

Keuntungan

• Akses ke stasion lain cepat (client server).
• Dapat menerima node baru selama di central node masih tersedia.
• Hub/Switch bertindak sebagai konsentrator.
• Hub/Switch dapat disusun seri agar dapat menambahkan jumlah station lagi.
• User dapat lebih banyak dari pada topologi bus dan ring.

Kerugian

• Jika trafik data cukup tinggi dan collition maka semua koneksi data akan tertunda dan koneksi akan di lanjutkan dengan cara random.

Topologi Tree

Tidak semua station memiliki kedudukan yang sama. Station yang memiliki kedudukan yang lebih tinggi akan menguasai station dibawahnya.

Topologi Mesh dan Full Connected

Topologi ini menghubungkan antar centra secara penuh. Topologi mesh ini merupakan topologi dengan teknologi yang khusus (ad hock) yang tidak dapat digunakan dengan menggunakan pengkabelan karena proses yang sangat rumit.

Topologi Hybrid

Topologi ini merupakan gabaungan dari topologi yang ada di atas, yang dapat memadukan dari beberapa topologi yang berbeda baik dari segi system maupun transmisinya.

Demikian informasi tentang bagaimana cara memahami macam-macam Topologi jaringan komputer , semoga dengan adanya informasi ini anda dapat memahami topologi jaringan dan menggunakan topologi jaringan dengan baik dan benar, terimakasih.