Susunan Kabel UTP (STRAIGHT dan CROSS)

Kabel UTP (Unshielded Twisted Pair) adalah suatu kabel yang digunakan sebagai media penghubung antar computer dan peralatan jaringan (hub atau switch). Kabel UTP merupakan salah satu kabel yang paling popular saat yang di gunakan untuk membuat jaringan computer.

1. Kabel Straight : Kabel dengan kombinasi ini digunakan untuk koneksi antar perangkat yang berbeda jenis, seperti antara komputer ke switch, komputer ke hub/bridge, router ke switch, router ke bridge dsb.

Susunan Warna Kabel Straight :

1. Putih – orange
2. Orange
3. Putih – hijau
4. Biru
5. Putih – biru
6. Hijau
7. Putih – cokelat
8. cokelat

2. Kabel Cross : Kabel dengan kombinasi ini adalah diperuntukkan untuk koneksi peer to peer antara perangkat yang sejenis. Contohnya dari komputer ke komputer, dari komputer ke router, dari switch ke switch dsb.

Susunan Warna Kabel Cross :

1. Putih – hijau
2. hijau
3. Putih – orange
4. Biru
5. Putih -biru
6. orange
7. Putih – cokelat
8. cokelat

sEMOGA BerMAnFAat.#MrQ

Seminar blog

Civitas akademik

MATA KULIAH KEAHLIAN

Foxpro :

CrUd | Download

Soal UAS SI/TI

Hari dan Tanggal  : 06-11 Februari 2017

Mata Kuliah : Pemrograman Visual SI / TI  2
Semester : 3 (Tiga)

Jenjang / Jurusan : Strata Satu (S1) SI/TI

Dosen : Haliq, S.Kom

Soal :

1. Tuliskan dan Jelaskan Pengertian dari Listing Program dibawah ini :

LISTING TBL TAMBAH

IF THISFORM.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_TAMBAH.CAPTION='\<BATAL'
   THISFORM.TBL_HAPUS.ENABLED=.F.
   THISFORM.TBL_SIMPAN.ENABLED=.T.
   THISFORM.BLOK_DATA(.T.)
   THISFORM.BLOK_NAVIGASI(.F.)
   THISFORM.BERSIH
 
   SELE HABISPAKAI
   IF RECCOUNT()=0 THEN
      THISFORM.NORUT.VALUE='22001'
      RETURN
   ENDIF
 
   GO BOTTOM
   A=VAL(NORUT)
   A=A+1
   THISFORM.NORUT.VALUE=STR(A,5)
   THISFORM.TGL.SETFOCUS
   ELSE
 
   THISFORM.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_HAPUS.ENABLED=.T.
   THISFORM.TBL_SIMPAN.ENABLED=.F.
   THISFORM.BLOK_DATA(.F.)
   THISFORM.BLOK_NAVIGASI(.T.)
   THISFORM.BERSIH
   THISFORM.TBL_AWAL.CLICK

   ENDIF

LISTING TBL_SIMPAN

SELECT TRANSAKSI
SET ORDER TO 1 &&NORUT
SEEK ALLTRIM(THISFORM.NORUT.VALUE)

IF THISFORM .TBL_TAMBAH.CAPTION='\<BATAL' THEN
   IF !FOUND()
   SELE BARANG
   SET ORDER TO 1 &&KOBAR
   IF SEEK(THISFORM.KOBAR.VALUE)THEN
   IF THISFORM.STOCK.VALUE>BARANG.JUMLAH
   MESSAGEBOX("MA'AF JUMLAH BARANG KURANG/HABIS")
   THISFORM.TBL_TAMBAH.CAPTION='\<TAMBAH'
   THISFORM.TBL_HAPUS.ENABLED=.T.
   THISFORM.TBL_SIMPAN.ENABLED=.F.
   THISFORM.TBL_AWAL.CLICK
   THISFORM.BLOK_NAVIGASI(.T.)
   THISFORM.BLOK_DATA(.F.)
   THISFORM.REFRESH
   RETURN
   ELSE
   REPLACE BARANG.JUMLAH WITH BARANG.JUMLAH-THISFORM.JUMLAH.VALUE
   SELE HABISPAKAI
      APPEND BLANK
      REPLACE NORUT WITH THISFORM.NORUT.VALUE
      REPLACE TGL WITH CTOD(THISFORM.TGL.VALUE)
      REPLACE NIP WITH THISFORM.NIP.VALUE
      REPLACE NAMA WITH THISFORM.NAMA.VALUE
      REPLACE KOBAR WITH THISFORM.KOBAR.VALUE
      REPLACE NABAR WITH THISFORM.NABAR.VALUE
      REPLACE JUMLAH WITH THISFORM.JUMLAH.VALUE
      THISFORM.TBL_TAMBAH.CLICK
ENDIF
ENDIF
ENDIF
ENDIF

IF THISFORM.TBL_HAPUS.CAPTION='\<BATAL'
   IF FOUND()THEN
      DELETE
      PACK
      THISFORM.TAMPIL_DATA
      THISFORM.REFRESH
      THISFORM.TBL_HAPUS.CLICK
   ENDIF
ENDIF


Catatan :

• Untuk Listing Program silahkan copy paste di blog : https://haliq1891.blogspot.co.id/
• Untuk Penjelasan dan jawaban "Tulis Tangan"
• dikumpulkan paling lambat hari Sabtu, Tanggal 11-02-2017, Pukul 10:00 Pagi, untuk Mahasiswa jam : 15:30-17:00 Hari : Jumat.

Ttd

Haliq, S.Kom