Selasa, 24 April 2012

PENGENALAN JARINGAN KOMPUTER

JARINGAN KOMPUTER



Pengertian
- sebuah sistem yang terdiri atas komputer dan perangkat jaringan lainnya yang bekerja bersama-sama untuk mencapai suatu tujuan yang sama.
- Dua buah komputer dapat dikatakan terinterkoneksi jika keduanya dapat saling bertukar informasi.


Tujuan Jaringan Komputer
- Membagi sumber daya: contohnya berbagi pemakaian printer, CPU, memori, harddisk
- Komunikasi: contohnya surat elektronik, instant messaging, chatting.
- Akses informasi: contohnya web browsing.

Manfaat Jaringan Komputer
- Resource sharing: Dapat Saling bagi dan dapat bertukar data antar sistem
Jaringan Komputer “share” :
• Data : Pertukaran informasi (graphics, voices, video, data, etc)
• Software : applikasi-aplikasi
• Hardware : Printer, scanner, fax, modem, peralatan hardware yang lain
- Menghemat uang: Dapat saling bagi pemakaian resources yang mahal
- Reliabilitas tinggi: dapat memiliki sumber-sumber alternatif persediaan
- Skalabilitas, memiliki kemampuan untuk meningkatkan kinerja sistem secara berangsur-angsur sesuai dengan beban pekerjaan dengan hanya menambah sejumlah prosesor.
- Medium komunikasi, mampu menjadi media komunikasi antar personal yang terlibat dalam satu sistem yang menggunakan jaringan komputer
Agar dapat mencapai tujuan yang sama, setiap bagian dari jaringan komputer meminta dan memberikan layanan (service). Pihak yang meminta layanan disebut klien (client) dan yang memberikan layanan disebut pelayan (server). Arsitektur ini disebut dengan sistem client-server, dan digunakan pada hampir seluruh aplikasi jaringan komputer.


Klasifikasi Jaringan Komputer
Menurut Andrew S. Tanembaum, jaringan komputer diklasifikasikan dalam kelompok teknologi transmisi sebagai berikut
- jaringan broadcasting
memiliki saluran komunikasi tunggal yang dipakai bersama-sama oleh semua mesin yang ada pada jaringan.
Pesan berukuran kecil, yang disebut paket, yang dikirim satu mesin dan diterima mesin lainnya.
Dalam tiap paket tersimpan beberapa informasi, antara lain alamat pengirim, alamat yang dituju, ukuran dan pesan itu sendiri.


Beberapa bentuk operasinya :
- unicasting, satu mesin mengirim paket yang ditujukan pada satu mesin khusus, sedangkan mesin lain tidak akan memproses paket tersebut, walaupun ikut ‘mendengar ’
- broadcasting, paket dialamatkan ke semua tujuan dengan memberikan tanda khusus pada alamat yang dituju.
- multicasting, paket dialamatkan pada suatu subset mesin.
- jaringan point-to-point
terdiri dari beberapa koneksi pasangan individu dari mesin-mesin.







Sumber : http://www.google.co.id/url?sa=t&rct=j&q=&esrc=s&source=web&cd=3&ved=0CEYQFjAC&url=http%3A%2F%2Fstaffsite.gunadarma.ac.id%2Ferlangga%2Findex.php%3Fstateid%3Ddownload%26id%3D24938%26part%3Dfiles&ei=JEmWT83GII3xrQf047HrDQ&usg=AFQjCNFBdQcLbJe8eGlDJPtK-jYaAQNSqA&sig2=mu6XL5yAxspN8IiHk_Xoaw


Pengertian Internet Connection
 

Internet Dial Up Konektivitas:

  Saat ini, konektivitas Internet dial-up adalah jenis yang paling umum akses di promosikan oleh ISP atau Internet Service Provider. Sambungan murah dan lambat, namun memungkinkan pengguna untuk terhubung melalui server lokal, yang menunjukkan kekuatan dari kilobit per modem standar 56 detik. -up Internet Dial akses pada dasarnya, akses ke Internet melalui saluran telepon terintegrasi. Router pengguna atau

komputer memungkinkan akses melalui modem terpasang, yang pada gilirannya menghubungkan ke simpul penyedia layanan Internet disukai's. Link modem-to-modem resultan memberdayakan Protokol routing yang berdedikasi Paket internet di Internet. Ini teknologi telah datang jauh, untuk membangun telekomunikasi berbasis komputer antara terminal emulator perangkat lunak, untuk mainframe terintegrasi, layanan online, minicomputer dan bulletin board sistem khusus. Teknologi ini tidak memerlukan infrastruktur, selain sambungan telepon. Koneksi dial-up internet sangat bermanfaat untuk wisatawan dan untuk akses di daerah pedesaan atau terpencil. Ini menarik bagi pengguna anggaran terbatas.

Broadband Internet Connection:


Istilah 'Broadband Internet Connection' memiliki arti yang berbeda dalam konteks yang berbeda. Dalam dunia komunikasi data, broadband mengacu pada transmisi data melalui kabel serat optik. Dalam kasus DSL atau Digital Subscriber Line, sebuah layanan broadband berkaitan dengan transfer informasi digital melalui saluran-bandwidth tinggi, sementara di Ethernet , teknologi menyiratkan transmisi baseband menggunakan bandwidth
lengkap media pilihan (seperti dalam kasus Ethernet 100BASE-T). Dalam komunikasi kekuasaan-line, broadband mengacu pada sinyal kecepatan tinggi untuk mencapai tingkat data yang tinggi (seperti dalam kasus ITU-T G.hn standar), sedangkan dalam distribusi video istilah ini mengacu pada modulasi saluran individu, pada frekuensi tetap . Broadband Internet konektivitas di bidang telekomunikasi mengacu pada sistem yang dikembangkan sinyal khusus yang terintegrasi rentang frekuensi yang luas (atau band). Pada dasarnya, teknologi ini memungkinkan kapasitas informasi pembawa yang lebih besar dan akses internet lebih cepat.

Perbedaan antara Dial Up dan Koneksi Broadband:
Perbedaan utama antara koneksi internet dial-up dan broadband, terletak pada kecepatan akses diberikan. Pilihan broadband cukup kebalikan dari dial-up teknologi berkaitan dengan waktu yang dibutuhkan untuk akses koneksi telepon, sinkronisasi protokol dan transfer data. Layanan Broadband tidak hanya lebih cepat untuk beroperasi, tetapi juga lebih murah atas tuduhan koneksi dan biaya tambahan berikutnya. Kebanyakan penyedia layanan Internet manfaat dari rekoneksi waktu dan biaya yang dikeluarkan. pengguna teknis-cenderung alami menemukan fasilitas broadband jauh lebih menguntungkan daripada mode dial-up. teknologi Internet dapat dikapitalisasi oleh akses ke kecepatan transfer teoritis maksimum dan kecepatan koneksi. Dial-up biasanya menampilkan latency sekitar 400 ms dan banyak lagi, sehingga membuat konferensi video dan game online sangat sulit. Akses internet broadband di sisi lain menawarkan kecepatan sekitar 700 kbit / s atau lebih tinggi dan harga di tingkat yang sama seperti dial-up. Dengan kemajuan teknologi kebutuhan untuk konektivitas kecepatan tinggi menuntut fleksibilitas dari layanan broadband. Namun, ada calon pelanggan yang mendapatkan manfaat dari dial-up konektivitas dari daerah-daerah terpencil karena kesempatan untuk mendapatkan keuntungan melalui biaya diturunkan. konektivitas Internet Dial-up memfasilitasi browsing web murah dan dasar. Teknologi ini dapat lebih dieksplorasi untuk mengaktifkan modem terintegrasi untuk mengkonversi data terkompresi dalam tingkat garis lebih cepat.


CARA INSTALASI ICS

Setting pada Laptop yang akan dijadikan Internet Connection Sharing Server :

Setting Wireless Connection Ad-Hoc
1.  Disini kita gunakan Windows XP 
2.  Klik Start > Control Panel > Network Connections
3.  Klik kanan pada Wireless Network Connection, lalu klik Properties
4.  Pada Wireless Network Connection Properties, klik tab Wireless Networks
5.  Klik Add pada bagian Preferred networks
6.  Selanjutnya isilah Network Name (SSID) untuk jaringan yang akan dibuat
7. Jangan lupa untuk mencentang check box This is a computer-to-computer (ad hoc) network: wireless access point are not used
     Anda juga dapat membubuhkan WEP Password agar koneksi anda aman (optional)
8.  Klik OK trus balik lagi ke tab General
9.  klik properties pada Internet Protocol (TCP/IP)
10. Setting IP Addressnya untuk network yang baru dibuat (Ip address untuk jaringan Ad-hoc Anda)

Setting Internet Connection Sharing
1. Klik Start > Control Panel > Network Setup Wizard
2.    Klik Next dan Next
3. Pada “Select a Connection Method” kemudian pilih “This Computer connects directly to the internet“
4. Selanjutnya pada “Select your internet connection from… ” pilih interface yang terkoneksi secara langsung ke switch NOC.
5. Pada “Select your private Connection” pilih interface yang akan terkoneksi ke client.
    Selanjutnya tinggal di ikutin aza deh… ;))

Setting pada Laptop Client :
1. Klik kanan pada icon Wireless Network yang berada pada taskbar, lalu klik View Available Wireless Networks
2. Wireless Network Connection akan menampilkan list SSID wireless anda. Klik SSID wireless anda lalu klik Connect
3. Jika pada laptop utama ada anda bubuhkan WEP Password maka windows XP meminta anda untuk mengisi password sebelum anda terkoneksi ke jaringan Ad-hoc anda

Baca Selengkapnya :
-http://www.adityaperdana.web.id/ad-hoc-internet-connection-sharing.html#ixzz1swHtpax3

-http://shareknowledge-dlaksi.blogspot.com/2011/08/pengertian-internet-connection.html

Jumat, 14 Oktober 2011

Pembuatan DATABASE Sederhana menggunakan Adodc & DataGrid

MEMBUAT PROGRAM DATABASE MENGGUNAKAN Adodc & DataGrid

Untuk tampilan kita samakan dengan tampilan form database sederhana menggunakan Data & DBGrid, hanya saja kita ganti menggunakan Adodc & DataGrid.

Adapun langkah - langkah pembuatannya adalah sebagai berikut :

1. Buat form seperti gambar dibawah ini :
    
2. Untuk caption tambah,  ubah, hapus dan keluar agar seperti gambar kita ubah dengan cara :
 3. Pada Properties DataGrid kita setting seperti gambar dibawah ini kemudian klik kanan pilih Retrieve fields :
   4. Setting Properties pada Adodc1 dan klik kanan kemudian pilih ADODC Properties  seperti gambar berikut :
  5. Masukkan kodingan :
     
Private Sub form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=I:\All AbouT of CampUS\Tugas VB titin\DataGrid ( Adodc )\AKADEMIK_ATIN.mdb"
Adodc1.RecordSource = "Select *from Jurusan"
'Adodc1.Refresh
DataGrid1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=I:\All AbouT of CampUS\Tugas VB titin\DataGrid ( Adodc )\AKADEMIK_ATIN.mdb"
Adodc2.RecordSource = "Select *from Jurusan"
Adodc2.Refresh
End Sub


Private Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub normal()
Command1.Caption = "&Tambah"
Command2.Caption = "&Ubah"
Command3.Caption = "&Hapus"
Command4.Caption = "&Keluar"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=I:\All AbouT of CampUS\Tugas VB titin\DataGrid ( Adodc )\AKADEMIK_ATIN.mdb"
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(Text1.Text) & "'"
Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then
    If Command1.Caption = "&Simpan" Then
        MsgBox "Data sudah ada"
        Text1.SetFocus
Else
        Text2.Text = Adodc2.Recordset("Nama_Jurusan")
        Text2.SetFocus
    End If
Else
    If Command1.Caption = "&Simpan" Then
        Text2.SetFocus
    Else
        MsgBox "Data sudah ada"
        Text1.SetFocus
        End If
End If
End If
End Sub



Private Sub Command1_Click()
If Command1.Caption = "&Tambah" Then
Call bersih
Command1.Caption = "&Simpan"
Command2.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset("Kode_Jurusan") = Trim(Text1.Text)
Adodc1.Recordset("Nama_Jurusan") = Trim(Text2.Text)
Adodc1.Recordset.Update
'Adodc1.Refresh
DataGrid1.Refresh
'Adodc1.Refresh
DataGrid1.Refresh

Call bersih
Call normal
End If
End Sub


Private Sub Command2_Click()
If Command2.Caption = "&Ubah" Then
Call bersih
Command2.Caption = "&Simpan"
Command1.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(kode_jurusan) & "'"
Adodc2.Refresh

Adodc1.Recordset("Nama_Jurusan") = Trim(Text2.Text)
Adodc1.Recordset.Update
Adodc1.Refresh
DataGrid1.Refresh
End If
End Sub


Private Sub Command3_Click()
If Command3.Caption = "&Hapus" Then
Call bersih
Command3.Caption = "&Oke"
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "&Batal"
Else
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(kode_jurusan) & "'"
Adodc2.Refresh
Adodc1.Recordset("Nama_Jurusan") = Trim(Text2.Text)
Adodc1.Recordset.Delete
'Adodc1.Refresh
DataGrid1.Refresh
End If
End Sub

Private Sub Command4_Click()
If Command4.Caption = "&Keluar" Then
Unload Me
Else
    Call bersih
    Call normal
End If
End Sub



~TAMPILAN SAAT RUNNING~
  • Running " Tambah " ( Tambah >> Simpan, Ubah & Hapus >> tidak aktif, Keluar >> Batal )
  •  Running " Ubah " ( Ubah >> Simpan, Tambah & Hapus >> tidak aktif, Keluar >> Batal )
  • Running " Hapus " ( Hapus >> Simpan, Tambah & Ubah >> tidak aktif, Keluar >> Batal )
  • Running " Batal " ( Kembali ke posisi normal yaitu Tambah, Ubah, Hapus, Keluar >> aktif semua )
         
  • Running " Keluar " ( End program )
       

*** Yang harus diperhatikan ***
> Jika akan melakukan eksekusi Ubah maka letakkan posisi kursor pada record ( data ) yang akan diubah.
> Jika akan melakukan eksekusi Hapus maka letakkan posisi kursor pada record ( data ) yang akan dihapus.


OK temen - temen....Selamat Mencoba....Good Luck !!!

Kamis, 13 Oktober 2011

PEMBUATAN

Minggu, 09 Oktober 2011

MEMBUAT PROGRAM DATABASE SEDERHANA MENGGUNAKAN VISUAL BASIC

PROGRAM DATABASE SEDERHANA MENGGUNAKAN VISUAL BASIC

LANGKAH - LANGKAH PEMBUATAN :
1. Buatlah tampilah form seperti gambar dibawah ini :

  2. Buka new project kemudian ikuti langkah sesuai gambar berikut : 
   
3. Buat Tabel Jurusan dengan cara buka VisData dan klik kanan pada Properties kemudian pilih New Table
    
 4. Pada Data1 setting untuk Properties Recordsource dan DatabaseName seperti gambar berikut :
         
5. Pada DBGrid1 setting properties DataSource kemudian klik kanan lalu pilih Retrieve Fields seperti gambar berikut :
    6. Masukkan coding
       
Private Sub cmd_tambah_Click()
If cmd_tambah.Caption = "tambah" Then
bersih
cmd_tambah.Caption = "Simpan"
cmd_ubah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "Batal"
Else
Data1.Recordset.AddNew
Data1.Recordset("Kode_Jurusan") = Trim(txt_kdjur.Text)
Data1.Recordset("Nama_Jurusan") = Trim(txt_nmjur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub


Private Sub bersih()
txt_kdjur.SetFocus
txt_kdjur.Text = ""
txt_nmjur.Text = ""
End Sub


Private Sub normal()
cmd_tambah.Caption = "Tambah"
cmd_ubah.Caption = "Ubah"
cmd_hapus.Caption = "Hapus"
cmd_keluar.Caption = "keluar"
cmd_tambah.Enabled = True
cmd_ubah.Enabled = True
cmd_hapus.Enabled = True
End Sub




Private Sub Cmd_ubah_Click()
If Cmd_ubah.Caption = "Ubah" Then
bersih
Cmd_ubah.Caption = "Simpan"
Cmd_tambah.Enabled = False
Cmd_hapus.Enabled = False
Cmd_keluar.Caption = "Batal"
Else
Data2.RecordSource = "select* from jurusan where Kode_Jurusan='" & Trim(kdjur) & "'"
'data2.Refresh
Data1.Recordset.Edit
Data1.Recordset("Nama_Jurusan") = Trim(Txt_nmjur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If

Private Sub Cmd_hapus_Click()
If Cmd_hapus.Caption = "Hapus" Then
bersih
Cmd_tambah.Enabled = False
Cmd_ubah.Enabled = False
Cmd_hapus.Caption = "Simpan"
Cmd_keluar.Caption = "Batal"
Else
Data2.RecordSource = "select*from jurusan Kode_Jurusan='" & Trim(kdjur) & "'"
'data2.Refresh
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub



Private Sub cmd_keluar_Click()
If cmd_keluar.Caption = "keluar" Then
Unload Me
Else
bersih
normal
End If
End Sub

 ~TAMPILAN SAAT RUNNING~
1. Ketika Running "tambah"
    Maka Command tambah menjadi Simpan, ubah dan hapus tidak aktif dan keluar menjadi Batal
   
 2. Ketika Running "ubah"
     Maka Command ubah menjadi Simpan, tambah dan hapus tidak aktif, keluar menjadi Batal
    
 3. Ketika Running "hapus"
     Maka Command hapus menjadi Simpan, tambah dan ubah tidak aktif, keluar menjadi Batal
    
 4. Ketika Running "keluar"
     Maka akan kembali ke normal ( tambah, ubah, hapus dan keluar aktif semua ) dan jika tombol "keluar" diklik maka akan keluar dari running ( end program ).
    
 OK...temen - temen ^^^SELAMAT BER_EKSPERIMEN^^^
~Titin's Friends~