KRIPTOGRAFI CESSAR

Public Class Form2

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

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As 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 Btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chiper.Text)
            x = Mid(chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plain.Text = xkalimat
    End Sub
End Class

MENU, TOOLBAR DAN STATUS BAR

Public Class Form1

    Private Sub form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

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

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

    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub
End Class

KRIPTOGRAFI VERNAM

Public Class oneTimePad

    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 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

            End If
            nkata = Asc(Mid(skata, j, 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

Latihan Listview Perhitungan Penjualan Barang

Written By Mesran on Rabu, 29 Mei 2013 | 09.05

Kasus Pemrograman : latihan listview perhitungan penjualan barang.

Design Form seperti gambar di bawah

Private Sub jumlahbeli_keypress(ByVal sender As System.Object, ByVal e As System.EventArgs)
    If Asc(e.keychar) = 13 Then
        totalharga.text = harga.text * jumlahbeli.text
    End If
End Sub
Public Class Form1_load

    Private Sub BuatTabel()
        lv.Columns.Add("No Pembelian ", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang ", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Merk ", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Harga ", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub

    Private Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = nopembelian.Text
        lst.SubItems.Add(kodebarang.Text)
        lv.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebarang.Items.Add("TS001")
        kodebarang.Items.Add("TS002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")
    End Sub

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


    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        lv.Items.Clear()

    End Sub

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.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 btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
    End Sub



    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Select Case kodebarang.Text
            Case "TS001"
                namabarang.Text = "Flashdisk 4GB"
                merk.Text = "TOSHIBA"
                harga.Text = "105000"
            Case "TS002"
                namabarang.Text = "Flashdisk 2GB"
                merk.Text = "TOSHIBA"
                harga.Text = "75000"
            Case "VG001"
                namabarang.Text = "Flashdisk 4GB"
                merk.Text = "V-Gen"
                harga.Text = "90000"
            Case "VG002"
                namabarang.Text = "Flashdisk 2GB"
                merk.Text = "V-Gen"
                merk.Text = "60000"
        End Select
    End Sub

SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari total pembayaran tv
PENJUALAN TV. SONY
--------------------------------------------
Nama Barang       :   ?
Harga        :   ?
Jumlah Jual    :   ?
Total Harga    :
Discount    :
Total Pembayaran:
--------------------------------------------

Proses
    Total Harga =  Harga * Jumlah Jual
    Jika Total Harga > 2500000 maka
Discount = 10% * Total Harga
atau
Discount = 0
    Total Pembayaran = Total Harga - Discount

 listing viewnya :

Public Class Form1

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

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        nama.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        dis.Text = ""
        pembayaran.Text = ""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nama.Items.Add("TV Sony 14 Inch")
        nama.Items.Add("TV Sony 21 Inch")
        nama.Items.Add("TV Sony 32 Inch")
        nama.Items.Add("TV Sony 40 Inch")
        nama.Items.Add("TV Sony 80 Inch")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        Select Case nama.Text
            Case "TV Sony 14 Inch"
                harga.Text = "1200000"
            Case "TV Sony 21 Inch"
                harga.Text = "2300000"
            Case "TV Sony 32 Inch"
                harga.Text = "3300000"
            Case "TV Sony 40 Inch"
                harga.Text = "5000000"
            Case "TV Sony 80 Inch"
                harga.Text = "10000000"

        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = harga.Text * jumlah.Text
    End Sub
End Class

Artikel IT | Informasi Teknologi Terbaru

• Home
• About Us
• Contact Us
• Artikel Komputer
• Jaringan Komputer
• Kecantikan
• Blogging
• Kuliner
• Kata kata

Sejarah Jaringan Komputer

Topologi Jaringan Komputer : Sejarah Jaringan Komputer

Di Tahun 1950-an ketika jenis Pada sistem TSS beberapa terminal terhubung ke sebuah host komputer. Dalam proses TSS mulai nampak perpaduan teknologi komputer dan teknologi telekomunikasi yang pada awalnya berkembang sendiri-sendiri.

komputer mulai membesar sampai tercipta superkomputer, maka sebuah komputer harus melayani beberapa terminal. untuk itu ditemukan konsep distribusi proses berdasarkan waktu yang dikenal dengan nama TSS (Time Sharing System), dan untuk pertama kali terbentuklah jaringan (network) komputer pada lapis aplikasi.

Sejarah jaringan komputer global ( dunia ), dimulaipada tahun 1969, ketika Departemen Pertahan Amerika, membentuk Defense Advance Research Projects Agency ( DARPA ) yang bertujuan mengadakan riset mengenai ‘cara menghubungkan sejumlah komputer sehingga membentuk jaringan organik’.

Program riset ini kemudian dikenal dengan nama ARPANET ( Advance Research projects Agency Network ). pada tahun 1970, lebih dari 10 komputer telah berhasil dihubungkan ( satu dengan yang lain ), saling berkomunikasi, dan membentuk sebuah jaringan. pada atahun 1972, Roy Tomlinson berhasil menyempurnakan program e-mail yang ia ciptakan setahun yang lalu untuk riset ARPANET.

Program e-mail tersebut begitu mudah dan lansung populer saat itu. pada tahun yang sama, icon [@] diperkenalkan sebagai lambang yang menunjukkan “at” atau “pada”. Tahun 1973, jaringan komputer yang diberi nama ARPANET mulai dikembangkan meluas sampai luar Amerika Serikat. komputer di University College di London merupakan komputer diluar Amerika yang menjadi anggota jaringan ARPANET. pada tahu yang sama pula, dua orang ahli komputer Vinton Cerf dan Bob Khan mempresentasikan sebuah gagasan yang lebih besar yang menjadi cikal bakal pemikiran International Network. ide ini dipresentasikan untuk pertama kalinya di Sussex University.

Hari bersejarah berikutnya terjadi pada tanggal 26 Maret 1976. ketika itu, ratu Inggris berhasil mengirimkan sebuah e-mail dari Royal Signals and Radar Establishment di Malvern. setahun kemudian, lebih dari 100 komputer telah bergabung dalam system ARPANET dan membentuk sebuah jaringan atau Network.
Pada tahun 1979, Tom Truscott, Jim Ellis, dan Steve Bellovin menciptakan Newsgroups pertama yang diberi nama USENET ( User Network ). pada tahun 1981, France Telecommenciptakan sebuah gebrakan baru dengan meluncurkan telepon televisi pertama dunia ( orang dapat saling menelepon sambil berinteraksi denagan Video link ).

seiring dengan bertambahnya komputer yang membentuk jaringan, dibutuhkan sebuah protokol resmi yang dapat diakui dan diterima oleh semua jaringan. untuk itu, pada tahun 1982 dibentuk sebuah komisi Transmission Control Protocol ( TCP ) atau lebih dikenal dengan sebutan Internet Protocol ( IP ) yang kita kenal hingga saat ini. sementara itu, didaratan Eropa muncul sebuah jaringan tandingan yang dikenal dengan Europe Network ( EUNET ) yang meliputi wilayah Belanda, Inggris, Denmark, dan Swedia. Jaringan eunet ini menyediakan jasa e-mail dan newsgroup USENET.

Untuk menyeragamkan alamat jaringan komputer yang sudah ada, pada tahun 1984 diperkenalkan system dengan nama DOMAIN yang lebih dikenal dengan Domain Name System ( DNS ). dengan system DNS, komputer yang tersambung dengan jaringan melebihi 1.000 komputer. pada tahun 1987 diperkirakan komputer yang tersambung ke jaringan tersebut melonjak 10 kali lipat menjadi 10.000 komputer lebih.
Tahun 1988, Jarkko Oikarinen berkebangsaan Finlandia menemukan sekaligus memperkenalkan Internet Relay Chat atau lebih dikenal dengan IRC yang memungkinkan dua orang atau lebih pengguna komputer dapat berinteraksi secara langsung dengan pengiriman pesan ( Chatting ). akibatnya, setahun kemudian jumlah komputer yang saling berhubungan melonjak 10 kali lipat. tak kurang dari 100.000 komputer membentuk sebuah jaringan.pertengahan tahun 1990 merupakan tahun yang paling bersejarah, ketika Tim Berners Lee merancang sebuah programe editor dan browser yang dapat menjelajai komputer yang satu dengan yang lainnya dengan membentuk jaringan. programe inilah yang disebut WWW atau World WideWeb.

Tahun 1992, komputer yang saling tersambung membentuk jaringan sudah melampaui lebih dari stau juta komputer. pada tahun yang sama muncul satu istilah yang beken, yaitu Surfing ( Menjelajah ). tahun 1994, situs-situs Dunia mulai tumbuh dengan subur ( setidaknya, saat itu terdapat 3.000 alamat halaman ) dan bentuk pertama kalinya Virtual Shopping atau e-retail muncul diberbagai situs. Dunia langsung berubah dengan diluncurkannya perusahaan Search Engine Pertama, yaitu Yahoo!. yang dibangun oleh David Filo dan Jerry yang pada bulan April 1994. Netscape Navigator 1.0. diluncurkan dipenghujung tahun 1994.

• 
  

Judul: Sejarah Jaringan Komputer
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh Syukri Abdullah 03.27

Artikel Terkait Jaringan Komputer :

• Permasalahan dalam Jaringan
• Cara Membangun Jaringan Komputer
• Pengertian Jaringan Komputer Menurut Para Ahli
• Penggolongan Jaringan Komputer
• Sistem Operasi Jaringan Komputer

Tag : Jaringan Komputer

mesran.net mesran.blogspot.com