spongebob

Pengertian Jaringan Komputer

Pengertian Jaringan Komputer - Sistem jaringan komputer adalah gabungan atau kumpulan dari beberapa komputer yang dapat diakses secara bersama – sama (seperti floopy disk, CD-ROM, printer, dan sebagainya), dan dapat berhubungan dengan komputer induk sistem lainnya yang letaknya berjauhan.

Adapun komunikasi data dapat diartikan pengiriman data secara elektronik dari satu tempat ke tempat lain melalui suatu media komunikasi, dan data yang dikirimkan tersebut merupakan hasil atau akan diproses oleh suatu sistem komputer.

Sistem jaringan dapat memiliki peralatan pada komputer server untuk dipakai secara bersama dengan komputer client-nya. Namun pada setiap komputer lokal dapat juga dipasang peralatan khusus untuk keperluan komputer lokal tersebut.


Dalam jaringan ada tiga komponen utama yang harus dipahami, yaitu :

• Host atau node, yaitu sistem komputer yang berfungsi sebagai sumber atau penerima dari data yang dikirimkan. Node ini dapat berupa:
• Server : komputer tempat penyimpanan data dan program-program aplikasi yang digunakan dalam jaringan,
• Client : komputer yang dapat mengakses sumber daya (berupa data dan program aplikasi) yang ada pada server,
• Shared pheriperal : peralatan-peralatan yang terhubung dan digunakan dalam jaringan (misalnya, printer, scanner, harddisk, modem, dan lain-lain).

• Link, adalah media komunikasi yang menghubungkan antara node yang satu dengan node lainnya. Media ini dapat berupa saluran transmisi kabel dan tanpa kabel,
• Software (Perangkat Lunak), yaitu program yang mengatur dan mengelola jaringan secara keseluruhan. Termasuk di dalamnya sistem operasi jaringan yang berfungsi sebagai pengatur komunikasi data dan periferal dalam jaringan.

Tipe-tipe Jaringan Komputer

Ada beberapa tipe jaringan komputer yang umumnya digunakan. Berikut ini beberapa klasifikasi tipe jaringan komputer yang ada :

1.    Berdasarkan letak geografis

• Local Area Network (LAN), jaringan ini berada pada satu bangunan atau lokasi yang sama, dengan kecepatan transmisi data yang tinggi (mulai dari 10 Mbps ke atas), dan menggunakan peralatan tambahan seperti repeater, hub, dan sebagainya.

• Metropolitan Area Network (MAN), jaringan ini merupakan gabungan beberapa LAN yang terletak pada satu kota(jangkauan 50-75 mil) yang dihubungkan dengan kabel khusus atau melalui saluran telepon, dengan kecepatan transmisi antara 56 Kbps sampai 1 Mbps, dan menggunakan peralatan seperti router, telepon, ATM switch, dan antena parabola.

• Wide Area Network (WAN), jaringan ini merupakan gabungan dari komputer LAN atau MAN yang ada di seluruh permukaan bumi ini yang dihubungkan dengan saluran telepon, gelombang elektromagnetik, atau satelit; dengan kecepatan transmisi yang lebih lambat dari 2 jenis jaringan sebelumnya, dan menggunakan peralatan seperti router, modem, WAN switches..

2.    Berdasarkan arsitektur jaringan

• jaringan peer to peer
• jaringan berbasis server (server-based network/server-client network)
• jaringan hibrid.

(Bagian ini akan dibahas lebih lanjut pada bahasan selanjutnya)

3.    Berdasarkan teknologi transmisi

• Jaringan switch, merupakan jaringan yang penyampaian informasi dari pengirim ke penerima melalui mesin-mesin perantara atau saluran telepon,
• Jaringan broadcast, merupakan jaringan yang penyampaian informasi dari pengirim ke penerima dilakukan secara broadcast (disiarkan ke segala arah) baik melalui saluran kabel maupun saluran tanpa kabel.

Beberapa komponen dasar yang biasanya membentuk suatu LAN adalah sebagai berikut:

1.    Workstation
Dalam jaringan, workstation sebenarnya adalah node atau host yang berupa suatu sistem komputer. User berhubungan dengan jaringan melalui workstation dan juga saling berkomunikasi seperti saling bertukar data. User juga dapat mengakses program aplikasi pada workstation yang dapat bekerja sendiri di workstation (stand-alone) itu sendiri ataupun menggunakan jaringan untuk saling berbagi informasi dengan workstation atau user lain.
Workstation dapat berfungsi sebagai :

a.    Server
Sesuai dengan namanya, ini adalah perangkat keras yang berfungsi untuk melayani jaringan dan klien yang terhubung pada jaringan tersebut. Server dapat berupa sistem komputer yang khusus dibuat untuk keperluan tertentu, seperti untuk penggunaan printer secara bersama (print server), untuk hubungan eksternal LAN ke jaringan lain (communication server), dan file server yakni disk yang digunakan secara bersama oleh beberapa klien. Server ini tidak dapat digunakan sebagai klien, karena baik secara hardware maupun software, ia hanya berfungsi untuk mengelola jaringan.

Ada pula server yang berupa workstation dengan disk drive yang cukup besar kapasitasnya, sehingga server tersebut dapat juga digunakan sebagai workstation oleh user.

b.    Client (klien)
Sebuah workstation umumnya berfungsi sebagai klien dari suatu server, karena memang workstation akan menggunakan fasilitas yang diberikan oleh suatu server. Jadi, server melayani, sedangkan klien dilayani.

2.    Link
Link atau hubungan dalam Jaringan Lokal dikenal sebagai media transmisi berupa kabel maupun tanpa kabel, yang secara fisik menghubungkan server dan klien.

3.    Transceiver
Transceiver (transmitter-receiver) merupakan perangkat keras yang menghubungkan workstation atau sistem komputer dengan media transmisi .

4.    Kartu Jaringan (Network Interface Card / NIC)
Kartu jaringan ini adalah kartu yang dipasang pada PC yang mengendalikan pertukaran data antarworkstation yang ada dalam jaringan lokal. Setiap workstation harus dilengkapi dengan NIC yang secara fisik terhubung langsung dengan bus internal dari PC.

5.    Perangkat Lunak Jaringan
Perangkat lunak jaringan mencakup:

• sistem operasi LAN,
• perangkat lunak aplikasi,
• perangkat lunak pemrograman, dan
• program utiliti.

Perangkat lunak ini sangat penting dan mutlak untuk memungkinkan komunikasi antara sistem komputer yang satu dengan sistem komputer lainnya. Tanpa perangkat lunak ini, jaringan tidak akan berfungsi. Sistem komputer dengan LAN dapat menjalankan semua perangkat lunak aplikasi yang dapat berjalan pada stand-alone PC.

Penjualan

Public Class Penjualan

    Private Sub Penjualan_Load(..)
        Cbfaktur.Items.Add("001-TOYAVZ13")
        Cbfaktur.Items.Add("001-TOYINO15")
        Cbfaktur.Items.Add("002-TOYAVZ15")
        Cbfaktur.Items.Add("002-TOYINO20")
        Cbfaktur.Items.Add("001-HONAVZ13")
        Cbfaktur.Items.Add("001-HONINO15")
        Cbfaktur.Items.Add("002-HONAVZ15")
        Cbfaktur.Items.Add("002-HONINO20")

        Cbfaktur.Items.Add("001-KIAAVZ13")
        Cbfaktur.Items.Add("001-KIAINO15")
        Cbfaktur.Items.Add("002-KIAAVZ15")
        Cbfaktur.Items.Add("002-KIAINO20")
        Cbfaktur.Items.Add("001-SUZAVZ13")
        Cbfaktur.Items.Add("001-SUZAINO15")
        Cbfaktur.Items.Add("002-SUZAVZ15")
        Cbfaktur.Items.Add("002-SUZINO20")
        Cbfaktur.Items.Add("001-FORAVZ13")
        Cbfaktur.Items.Add("001-FORINO15")
        Cbfaktur.Items.Add("002-FORAVZ15")
        Cbfaktur.Items.Add("002-FORINO20")
        Cbtahun.Items.Add("2010")
        Cbtahun.Items.Add("2011")
        Cbtahun.Items.Add("2012")

        Cbjlhbeli.Items.Add("1")
        Cbjlhbeli.Items.Add("2")
        Cbjlhbeli.Items.Add("3")
        Cbjlhbeli.Items.Add("4")
        Cbjlhbeli.Items.Add("5")

        Cblama.Items.Add("12")
        Cblama.Items.Add("24")
        Cblama.Items.Add("36")
        Call BUAT_TABEL()
 End Sub
    Sub BUAT_TABEL()
        LV.GridLines = True
        LV.View = View.Details
        LV.FullRowSelect = True
        Lv.Columns.Add("FAKTUR PENJUALAN")
        Lv.Columns.Add("MERK MOBIL")
        Lv.Columns.Add("TIPE")
        Lv.Columns.Add("HARGA")
        Lv.Columns.Add("TAHUN")
        Lv.Columns.Add("JUMLAH BELI")
        Lv.Columns.Add("DP")
        Lv.Columns.Add("LAMA")
        Lv.Columns.Add("CICILAN")
    End Sub

    Private Sub Cbfaktur_SelectedIndexChanged(...)
        Dim x As String
        Dim y As String
        x = Microsoft.VisualBasic.Mid(Cbfaktur.Text, 5, 3)
        y = Microsoft.VisualBasic.Mid(Cbfaktur.Text, 8, 3)
        If x = "TOY" Or x = "toy" Then
            Txmerk.Text = "TOYOTA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "HON" Or x = "hon" Then
            Txmerk.Text = "HONDA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"

            End If
        End If
        If x = "KIA" Or x = "kia" Then
            Txmerk.Text = "KIA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "SUZ" Or x = "suz" Then
            Txmerk.Text = "SUZUKI"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "FOR" Or x = "for" Then
            Txmerk.Text = "FORTUNER"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
    End Sub

    Private Sub Btkeluar_Click(...)
        Me.Close()
    End Sub

    Private Sub Bthapuslist_Click(....)
        Lv.Items.Clear()
    End Sub

    Private Sub Btmasuk_Click(..)
        Dim LST As New ListViewItem
        LST.Text = Cbfaktur.Text
        LST.SubItems.Add(Txmerk.Text)
        LST.SubItems.Add(Txtipe.Text)
        LST.SubItems.Add(Txharga.Text)
        LST.SubItems.Add(Cbtahun.Text)
        LST.SubItems.Add(Cbjlhbeli.Text)
        LST.SubItems.Add(Txdp.Text)
        LST.SubItems.Add(Cblama.Text)
        LST.SubItems.Add(Txcicilan.Text)

        Lv.Items.Add(LST)

    End Sub

    Private Sub Bthapusrecord_Click(...)
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Cbtahun_SelectedIndexChanged(....)
        If Cbtahun.Text = 2010 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 65000000
        ElseIf Cbtahun.Text = 2010 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 70000000
        ElseIf Cbtahun.Text = 2011 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 75000000
        ElseIf Cbtahun.Text = 2011 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 80000000
        ElseIf Cbtahun.Text = 2012 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 85000000
        ElseIf Cbtahun.Text = 2012 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 90000000
        End If
    End Sub

    Private Sub Cbjlhbeli_SelectedIndexChanged(....)
        Txdp.Text = 0.2 * Txharga.Text * Cbjlhbeli.Text
    End Sub

    Private Sub Cblama_SelectedIndexChanged(.....)
        Txcicilan.Text = 0.1 * Txharga.Text * Cblama.Text
    End Sub
End Class

Latihan Penggajian Pegawai....

     
  Listing Programnya:

Public Class penggajian_pegawai

    Private Sub penggajian_pegawai_Load(...)

        nip.Items.Add("01467")
        nip.Items.Add("01245")

        nip.Items.Add("01356")

        nip.Items.Add("01578")

        nip.Items.Add("01689")

        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IVA")
        gol.Items.Add("IVB")
        status.Items.Add("MENIKAH")
        status.Items.Add("TIDAK MENIKAH")
        jlh_anak.Items.Add("0")
        jlh_anak.Items.Add("1")
        jlh_anak.Items.Add("2")
        jlh_anak.Items.Add("3")
        jlh_anak.Items.Add("4")
    End Sub
Private Sub nip_SelectedIndexChanged(...)
        If nip.Text = "01245" Then
            nama.Text = "Ramayana"
        ElseIf nip.Text = "01356" Then
            nama.Text = "Ramadhani"
        ElseIf nip.Text = "01467" Then
            nama.Text = "Ramasheila"
        ElseIf nip.Text = "01578" Then
            nama.Text = "Ramasyla"
        ElseIf nip.Text = "01689" Then
            nama.Text = "Ramayahya"
        End If
    End Sub
Private Sub gol_SelectedIndexChanged(...)
        If gol.Text = "IIIA" Then
            gapok.Text = 1500000
        ElseIf gol.Text = "IIIB" Then
            gapok.Text = 1750000
        ElseIf gol.Text = "IVA" Then
            gapok.Text = 2500000
        ElseIf gol.Text = "IVB" Then
            gapok.Text = 3000000
        End If
    End Sub
 Private Sub status_SelectedIndexChanged(....)
        tunjkeluarga.Text = 0
        tunjanak.Text = 0
        If status.Text = "MENIKAH" Then
            jlh_anak.Items.Add("0")
            jlh_anak.Items.Add("1")
            jlh_anak.Items.Add("2")
            jlh_anak.Items.Add("3")
            jlh_anak.Items.Add("4")
            tunjkeluarga.Text = "0.2" * gapok.Text
ElseIf status.Text = "TIDAK MENIKAH" Then
            jlh_anak.Items.Add("-")
            tunjanak.Text = 0
            tunjkeluarga.Text = 0
            jlh_anak.Items.Clear()
        End If
        total_gaji.Text = Val(gapok.Text) + Val(tunjkeluarga.Text) + Val(tunjanak.Text)
    End Sub
Private Sub Bthapus_Click(....)
        nip.Text = ""
        nama.Text = ""
        gol.Text = ""
        status.Text = ""
        jlh_anak.Text = ""
        gapok.Text = ""
        tunjkeluarga.Text = ""
        tunjanak.Text = ""
        total_gaji.Text = ""
    End Sub
 Private Sub Btkeluar_Click(...)
        End
    End Sub
Private Sub jlh_anak_SelectedIndexChanged(....)
        If jlh_anak.Text = 0 Then
            tunjanak.Text = 0
        ElseIf jlh_anak.Text <= 2 Then
            tunjanak.Text = 150000 * jlh_anak.Text
        ElseIf jlh_anak.Text > 2 Then
            tunjanak.Text = 150000 * 2
        End If
        total_gaji.Text = Val(gapok.Text) + Val(tunjkeluarga.Text) + Val(tunjanak.Text)
    End Sub
 Private Sub Btme_Click(.....)
        aku.Show()
    End Sub
End Class