Mengenal Macam-Macam Jaringan Komputer

1. Local Area NetWork (LAN)

 

Merupakan suatu jaringan komputer yang masih berda di dalam gedung atau ruangan seperti digunakan di rumah, perkantoran, industry, akademi, rumah sakit dll.

 

• Keuntungan menggunakan LAN :

1. Dapat menghubungkan computer dalam jumlah banyak .

2. Access antar computer berlangsung cepat dan mudah .

3. Dapat saling bertukar informasi dengan para pengguna (client).

4. Dapat Memback up Data pada computer lain tanpa harus membongkar hardisk.

5. Hemat waktu dan biaya.

 

2. Metropolotan Area Network(MAN)

 

Merupakan pengembangan dari local area network jaringan komputer ini terdiri dari beberapa jaringan LAN yang saling berhubungan letak jaringan ini bias saling berjauhan tergantung dari panjang kabel yang kita gunakan.

 

3. Wide Area Network (WAN)

 

Merupakan bentuk jaringan komputer yang terdiri dari LAN dan MAN jaringan MAN telah memenuhi berbagai system jaringan seperti perbankkan jual beli secara online di internet.

Jaringan penjualan jasa dan jaringan lainnya wan menggunakan protocol internet NSP (network cervice propider) tanpa NSP jaringan wan tidak dapat bekerja.

 

• Jaringan WAN memiliki beberapa kelebihan:

 

1. Memiliki sistem jaringan yang luas sehingga dapat mencapai Negara, benua, bahkan seluruh dunia.

2. Apabila terhubung dengan jaringan internet msk teransper file pada tempat yang saling berjauhan. Dapat di lakukan dengan cepat menggunakan email.

 

4. Intrannet

 

Merupakan suatu jaringan komputer yang terdiri dari jaringan LAN maupun WAN serta internet untuk akses yang lebih gelobal intranet dapat di artikan hanya memberikan layanan bagi sekelompok pengguna computer yang terhubung dengan LAN maupun WAN untuk mengakses internet dalam lingkup local saja biasanya intranet hanya melayanai sebuah instansi dalam wilayah jangkouan LAN atau WAN tersebut.

 

5. Internet

 

Merupakan gabungan dari berbagai LAN dan WAN yang berada di seluruh jaringan Komputer di dunia. Sehingga terbentuk jaringan dengan sekala yang lebih luas dan gelobal jaringan internet biasanya menggunakan protocol TCP/IP dalam mengirimkan paket data internet berasal dari (interconnected network) yang berarti hubungan dari beragam jaringan computer di dunia yang saling terintegrasi membentuk suatu komunikasi gelobal.

BOM MELEDAK

Bom Meledak, Kasatreskrim Putus Tangan

Warta Kota/Budi SL Malau 

Matraman, Warta Kota
Sebuah paket bom meledak di kantor Komunitas Utan Kayu di Jalan Utan Kayu No 68 H, Matraman, Jakarta Timur. Tiga polisi serta seorang sekuriti mengalami luka. Bahkan salah seorang polisi adalah Kepala Satuan Reserse dan Kriminal (Kasatreskrim) Polrestro Jakarta Timur Kompol Dodi Rahmawan luka cukup parah dan tangan kirinyanya putus.
Bom yang dikirim dalam paket buku tersebut meledak, Selasa (15/3) sekitar pukul 16.20. Menurut keterangan sejumlah saksi paket tersebut diterima pukul 10.00. Namun baru akan dibuka siang hari. Saat akan dibuka ada sejumlah kabel dari dalam paket tersebut. Pihak penerima lalu menelepon polisi karena curiga dan khawatir paket tersebut  berisi bom.
Di dalam paket tersebut terdapat sebuah buku berjudul "Mereka Harus Dibunuh karena Dosa-dosa Mereka Terhadap Islam dan Kaum Muslimin" karangan Drs Sulaiman Azar. Paket tersebut dikirim atas nama Drs Sulaiman Azar yang beralamat di Jalan Bahagia Gg Panser No 29, Ciomas, Bogor. Buku dengan hard cover bergambar target tembakan setebal kurang lebih 5 cm itu ditujukan ke Ulil Absor Abdala, Ketua Jaringan Islam Liberal (JIL). (Budi SL Malau)

Perulangan dalam Delphi 7

1.    Perulangan For

a.      Perulangan For To Do

Penggunaan bentuk for  mengikuti pola seperti berikut :

For counter:=nilai_awal To nilai_akhir Do

Begin

  Perintah1;

  Perintah2;

  .........

End;

Perulangan ini berjalan dengan menggunakan variabel counter  yang akan bertambah secara otomatis. Perulangan selesai jika telah mencapai nilai akhir

Buatlah rancangan Form seperti berikut :

Tuliskan kode program berikut pada tombol For To Do untuk event OnClick

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

  c : char;

begin

listbox1.Clear;

for i := 1 to 10 do

  listbox1.Items.Add('Angka ke = '+ inttostr(i));

for c:= 'A' to 'Z' do

  listbox1.Items.Add(c);

end;

Bentuk perulangan pada contoh diatas adalah For To Do maka arah counter akan bertambah/naik ke atas.

b.    Perulangan For Downto Do

Perulangan ini sama dengan For To Do, namun arah counternya sebaliknya yaitu turun kebawah (mundur/turun)

Ketikkan contoh program berikut pada tombol For Downto Do pada event OnClick

procedure TForm1.Button2Click(Sender: TObject);

var i : integer;

  c : char;

begin

listbox1.Clear;

for i := 10 downto 1 do

  listbox1.Items.Add('Angka ke = '+ inttostr(i));

for c:= 'Z' downto 'A' do

  listbox1.Items.Add(c);

end;

2.      Perulangan Repeat

Perulangan ini bekerja sampai kondisi yang diinginkan tercapai. Bentuk perulangan ini mempunyai pola sebagai berikut :

Repeat

  Perintah1;

  Perintah2;

  ....

Until Kondisi

Ketikkan kode berikut pada event OnClick untuk tombol Repeat Until

procedure TForm1.Button4Click(Sender: TObject);

var i : integer;

begin

i:=0;

listbox1.Clear;

repeat

  i:=i+1;

  listbox1.Items.Add(inttostr(i));

until i=10

end;

Perulangan repeat akan dilakukan sampai kondisi Until bernilai benar. Jadi prinsipnya perulangan dilakukan selama kondisi bernilai salah dan akan berhenti apabila kondisi bernilai benar. Setiap program yang memakai perulangan repeat until minimal akan melakukan perulangan satu kali.

3.      Perulangan While

Perulangan ini mempunyai bentuk :

While kondisi do

  Perintah1

  Perintah2

  ....

End;

Perulangan ini mirip dengan perulangan Repeat Until, tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.

Ketikkan kode program berikut pada event OnClick pada tombol While Do

procedure TForm1.Button5Click(Sender: TObject);

var i : integer;

begin

listbox1.Clear;

i:=0;

While i<10 do

  begin

  i:=i+1;

  listbox1.Items.Add(inttostr(i));

  end;

end;

4.      Label

Label adalah suatu perintah sebagai penanda baris program, untuk berpindah ke posisi yang mempunyai perintah label tersebut.

procedure TForm1.Button6Click(Sender: TObject);

label

  A;

var i:integer;

begin

listbox1.Clear;

i:=0;

A:

i:=i+1;

listbox1.Items.Add(IntToStr(i));

if i<10 then

Goto A;

end;

5.      Perulangan Tersarang (Perulangan dalam perulangan)

Perulangan tersarang adalah suatu perulangan dimana didalam perulangan tersebut ada perulangan lain. Perulangan dibagian dalam akan dikerjakan dahulu sampai selesai kemudian mengerjakan perulangan dibagian luar.

Perulangan tersarang dapat merupakan kombinasi dari perulangan for to do, for down to, while do dan repeat until.

procedure TForm1.Button7Click(Sender: TObject);

var i,j : integer;

  c : char;

begin

listbox1.Clear;

for i:=1 to 5 do

  begin

  j:=0;

  while j <> 5 do

      begin

      j:=j+1;

      listbox1.Items.Add('Data ke = '+ inttostr(i) + ' , ' + inttostr(j));

  end;

end;

A.