belajar membuat KABEL STRAIGHT trought & cross over

 belajar membuat KABEL STRAIGHT trought & cross over

oleh salsabel pada Mar.03, 2009, dalam kategori Jaringan

Kali ini kita akan langsung fokus terutama pada kabel CAT5 karena tipe kabel ini paling populer saat ini. Di bagian bawah Anda juga akan mendapatkan informasi mengenai kabel klasik yang digunakan untuk kabel telepon (CAT1) juga.
Bagi yang pengen belajarjaringan, sangat penting bagi Anda untuk tahu bagaimana sebenarnya cara tepat untuk membuat koneksi kabel UTP karena inilah bagian dasar jaringan yang akan membantu anda menghindari frustrasi berjam-jam dan pemecahan masalah jika memulai dengan benar. Di sisi lain, jika Anda dihadapkan pada jaringan dengan kabel yang buruk, maka Anda akan dapat menemukan masalah dan memperbaikinya sehingga lebih efisien.

Mengetahui setting kabel UTP
Mari kita lihat bagaimana UTP kabel dibuat.
Ada 2 skema kabel populer yang kebanyakan digunakan saat ini, yakni: T-568A dan T-568B. Satu hal yang membedakan kedua skema ini adalah kode warna pasangan 2 dan 3 akan diposisikan silang. Keduanya bekerja dengan baik, selama Anda tidak mencampuradukkan aturan masing-masing.
Ujung kabel UTP dibuat dengan memasangkan konektor dengan bantuan tang UTP dan atau Crimping Tool.
Konektor/steker UTP seringkali disebut sebagai “RJ-45″, tetapi sebenarnya istilah tersebut ditujukan untuk konektor 8 pin yang dipasangi pinout USOC untuk telepon. Konektor pada ujung kabel disebut sebagai “plug” dan tempat stopkontak/tempat menancapkan plut disebut sebagai “jack.”
Seperti yang telah disebutkan sebelumnya, UTP memiliki 4 pasang kabel yang dibuat saling melilit. sekarang mari kita lihat pasangan kabel terbut untuk melihat kode warna yang mereka miliki:
Seperti yang dapat Anda lihat pada gambar di sebelah kiri, 4 pasangan yang berlabel.
Pasangan 2 dan 3 biasa digunakan untuk jaringan 10/100Mbit, sedangkan pasangan 1 dan 4 are tidak dipakai. Dalam Gigabit Ethernet, keempat pasangan ini digunakan.
Ethernet umumnya menggunakan jalur 8-kabel konduktor dengan plug dan jack 8-pin. Konektor standar disebut “RJ-45″ mirip seperti konektor RJ-11 standar telepon, cuma agak sedikit lebih lebar karena memuat pin yang lebih banyak.
Catatan: Perlu diketahui bahwa skema pengkabelan yang akan kita bicarakan di sini adalah tentang kabel straight. Setting Kabel Cross dibahas di halaman yang berbeda. Temukan ulasan tersebut di sini. Temukan juga panduan perkembangan kabel UTP di sini

Kedelapan-kabel konduktor data berisi 4 pasang kawat. Setiap pasang terdiri dari satu kabel dengan warna penuh dan satu kabel strip putih dari corak warna yang sama. kedua kabel dililitkan bersama. Untuk menjaga ketahanan Ethernet, Anda tidak perlu mengupas lebih dari yang dibutuhkan (cukup sekitar 1 cm).
Pasangan yang ditujukan untuk Ethernet 10 dan 100 Mbit adalah Orange dan Hijau. Dua pasangan yang lain, Coklat dan Biru, dapat digunakan untuk jaringan Ethernet kedua atau untuk sambungan telepon. Ada dua standar kabel UTP, yang pertama disebut “T568A” (juga disebut “EIA”) dan “T568B” (juga disebut “AT & T” dan “258A”). Keduanya hanya berbeda dalam urutan kode warna- yakni, penempatan warna apa di pin yang mana, bukan pada sinyal listrik apa pada warna apa.
T-568A dianggap menjadi standar instalasi yang baru, sedangkan T-568B merupakan alternatif yang juga banyak digunakan. Sekedar informasi, perlu diketahui bahwa perlatan yang siap digunakan pada umunya disetting untuk tipe T568B. T568B juga merupakan standar AT&T. Bahkan, menurut saya sangat sedikit orang yang menggunakan kawat T568A pada jaringan mereka. Informasi ini penting agar sistem pengkabelan tidak tercampur, karena Anda dan peralatan Anda bisa dibuat bingung karenanya
Penempatan pin untuk skema T568B
Perlu diketahui bahwa nomor pin ganjil selalu berwarna strip putih diikuti warna utama (1,3,5,7). Kabel yang dihubungkan ke Konektor RJ-45 dapat Anda lihat pada gambar di bawah ini:

Kode Warna untuk T568B
Warna Pin – nama pasangan
1 putih-orange (pasangan 2) TxData +
2 orange (pasangan 2) …….. TxData –
3 putih-hijau (Pasangan 3) .. RecvData +
4 biru (pasangan 1)
5 putih-biru (pasangan 1)
6 hijau (Pasangan 3) ……….. RecvData -
7 putih-coklat (pasangan 4)
8 coklat (pasangan 4)
Jack yang ditempelkan pada tembok mungkin disambungkan dalam urutan yang berbeda karena kabel seringkali dibuat cross-over dalam jack itu sendiri. Jack yang baik biasanya dilengkapi dengan diagram pengkabelan atau setidaknya urutan nomor pin. Perhatikan bahwa pasangan biru berada di tengah-tengah pin; pasangan ini menjelaskan posisi pasangan merah/hijau pasangan yang dapat digunakan untuk saluran telepon biasa dengan konektor RJ-11.
(hijau=putih-biru;merah=biru)
Penempatan pin untuk skema T568A
Spesifikasi T568A membalik posisi kabel berwarna orange dan hijau sehingga pasangan 1 dan 2 berada di 4 pin tengah. (Perlu diketahui bahwa dalam konektor RJ-11 di atas, pasangan 1 dan 2 berada di 4 pin tengah) T568A berjalan:

Kode Warna untukT568A
Warna Pin – nama pasangan
1 putih-hijau (Pasangan 3) .. RecvData +
2 hijau (Pasangan 3) ………. RecvData -
3 putih-orange (pasangan 2) TxData +
4 biru (pasangan 1)
5 putih-biru (pasangan 1)
6 jeruk (pasangan 2) ……… TxData –
7 putih-coklat (pasangan 4)
8 coklat (pasangan 4)
Diagram di bawah ini menunjukkan perbandingan antara 568A dan 568B:

Kapan dan dimana tipe kabel ini digunakan?
Penggunaan kabel straight yang paling umum adalah sambungan antara PC dan hub/switch. Dalam hal ini PC terhubung langsung ke hub/switch yang otomatis membuat cross-over secara internal dengan menggunakan sirkuit khusus. Dalam kasus penggunaan kabel CAT1, yang biasa digunakan pada saluran telepon, hanya 2 kawat yang digunakan. Koneksi tipe ini tidak memerlukan cross-over khusus karena telepon terhubung langsung ke soket telepon.

Gambar di atas menunjukkan kepada kita standar CAT5 straight yang biasa digunakan untuk menghubungkan PC ke HUB. Anda mungkin sedikit bingung karena Anda mungkin beranggapan data TX + dari satu sisi untuk tersambung ke TX + di sisi lainnya, namun bukan begitu cara kerjanya.
Bila Anda menghubungkan PC ke HUB, HUB yang akan secara otomatis menyilang kabel Anda dengan sirkuit internal, alhasil Pin 1 dari PC (TX +) dihubungkan ke Pin 1 HUB (yang terhubung ke RX +). Hal ini juga berlaku pada pin yang lain.
Jika tidak HUB tidak menyilang posisi pin melalui sirkuit internal (hal ini terjadi jika Anda menggunakan Uplink port pada hub) maka Pin 1 dari PC (TX +) akan terhubung ke Pin 1 HUB (dalam hal ini TX +). Jadi Anda cermati bahwa tidak peduli apapun yang kita lakukan pada port HUB (uplink atau normal), sinyal ditetapkan pada 8 pin pada PC, akan selalu tetap sama, maka setting pin di HUB yang akan berubah sesuai dengan posisi normal atau uplink.



gambar alat dan bahan.
Urutan pengkabelan pun berbeda antara Cross (Crossover) dan (Straight-through).
1. Kabel UTP Seperlunya

2. RJ-45 (8P8C modular jack)

3. Crimp Tool

4. Cable Tester

Read More

cara membuat kalkulator dengan vb6

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:




Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Read More