Today Theme : Crawling data, for Saptial Research

Dataset 700+ data, done manually 400++, just tired, and i got to do for understanding crawling data, cz my job to teach about it, so.. 

List Crawler :

1. https://chrome.google.com/webstore/detail/web-scraper-free-web-scra/jnhgnonknehpejjnehehllkliplmbmhn/related
2. https://www.octoparse.com/pricing
3. Scrappy on going to learn..

Ok, overall just that..

keep write, keep do some meaningful thing..

 Ganbatte..
:))

huffman complete source code

.pas yang pertama :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, ComCtrls,xpman;

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
ProgressBar1: TProgressBar;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
begin
if edit1.Text = '' then
messagedlg('Anda belum memasukkan username atau password !', mtinformation, [mbok],0)
else
if edit2.Text = '' then
messagedlg('Anda belum memasukkan username atau password !', mtinformation, [mbok],0)
else
if edit2.Text = 'a' then
begin
form2.Show;
progressbar1.StepBy(100);
end
else
messagedlg('User name atau password yang anda masukkan salah !', mtinformation, [mbok],0);
end;
end;

end.


.pas yang kedua :

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, jpeg;

type
TForm2 = class(TForm)
OpenDialog1: TOpenDialog;
Memo1: TMemo;
Button2: TButton;
Label1: TLabel;
MainMenu1: TMainMenu;
OpenFile1: TMenuItem;
OpenFile11: TMenuItem;
Label2: TLabel;
Memo2: TMemo;
Memo3: TMemo;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
OpenFile21: TMenuItem;
OpenFile31: TMenuItem;
Image1: TImage;
Label5: TLabel;
Edit4: TEdit;
Memo4: TMemo;
OpenFile41: TMenuItem;
procedure Button2Click(Sender: TObject);
procedure OpenFile11Click(Sender: TObject);
procedure OpenFile21Click(Sender: TObject);
procedure OpenFile31Click(Sender: TObject);
procedure OpenFile41Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit3, Unit1;

{$R *.dfm}


procedure TForm2.Button2Click(Sender: TObject);
begin
form3.Show;

end;

procedure TForm2.OpenFile11Click(Sender: TObject);
var F: TextFile;
text1:string;
begin
if opendialog1.Execute then
begin
edit1.Text:=opendialog1.Files.GetText;
edit1.Text:=copy(edit1.Text,1,length(edit1.Text)-2);
if FileExists(edit1.Text) then
begin
memo1.Clear;
AssignFile(F, edit1.Text);
Reset(F);
while not eoln(f) do
begin
readln(F,text1);
memo1.Lines.add(text1);
end;
CloseFile(F);
end
else
ShowMessage('File '+edit1.Text+'tidak ditemukan');
end;
end;


procedure TForm2.OpenFile21Click(Sender: TObject);
var F: TextFile;
text1:string;
begin
if opendialog1.Execute then
begin
edit2.Text:=opendialog1.Files.GetText;
edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-2);
if FileExists(edit2.Text) then
begin
memo2.Clear;
AssignFile(F, edit2.Text);
Reset(F);
while not eoln(f) do
begin
readln(F,text1);
memo2.Lines.add(text1);
end;
CloseFile(F);
end
else
ShowMessage('File '+edit2.Text+'tidak ditemukan');
end;
end;

procedure TForm2.OpenFile31Click(Sender: TObject);
var F: TextFile;
text1:string;
begin
if opendialog1.Execute then
begin
edit3.Text:=opendialog1.Files.GetText;
edit3.Text:=copy(edit3.Text,1,length(edit3.Text)-2);
if FileExists(edit3.Text) then
begin
memo3.Clear;
AssignFile(F, edit3.Text);
Reset(F);
while not eoln(f) do
begin
readln(F,text1);
memo3.Lines.add(text1);
end;
CloseFile(F);
end
else
ShowMessage('File '+edit3.Text+'tidak ditemukan');
end;
end;

procedure TForm2.OpenFile41Click(Sender: TObject);
var F: TextFile;
text1:string;
begin
if opendialog1.Execute then
begin
edit4.Text:=opendialog1.Files.GetText;
edit4.Text:=copy(edit4.Text,1,length(edit4.Text)-2);
if FileExists(edit4.Text) then
begin
memo4.Clear;
AssignFile(F, edit4.Text);
Reset(F);
while not eoln(f) do
begin
readln(F,text1);
memo4.Lines.add(text1);
end;
CloseFile(F);
end
else
ShowMessage('File '+edit4.Text+'tidak ditemukan');
end;
end;
end.



.pas yang ketiga :

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Grids, jpeg, DB, DBGrids, DBCtrls, ExtCtrls;

type
TForm3 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Image1: TImage;
Label7: TLabel;
Button2: TButton;
Label8: TLabel;
Label9: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

uses unit2, Unit1, Unit4;
var TnPeng: set of char=[' ', ',', '?', ';', '.', ':', '-','=', '+', '/', '*', '(', ')', '''', '>', '>', '`','"'];
dftUrut :TStringlist; {non-visual list to hold the words for sorting}


{$R *.dfm}

function pisahkata(var line:string):string;
var
i,start:integer;
begin
result:='';
if length(line)>0 then
begin
line:=line+' ';
start:=1;
while (line[start] in TnPeng) do inc(start);
i:=start+1;
if i<=length(line) then
while not (line[i] in TnPeng) do inc(i);
result:=copy(line,start,i-start);
delete(line,1,i);
end;
end;

function checkstopwords(kata:string):boolean;
var
i : integer;
line : string;
begin
result:=true;
for i:=0 to form2.memo1.lines.count-1 do
begin
line:=trim(form2.memo1.lines[i]);
if line<>'' then
begin
if kata=line then
begin
result:=false;
break;
end
else result:=true;
end;
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
i, ii, count, count0,count1,count2,count3,count4 :integer;
line, kata, w, kata1, kata2,bd,bud : string;
txtloc : string; // posisi kata di dokumen (dari stringgrid)
txtpos,n: integer; // posisi kata di stringgrid , real position
nmrkata,m: integer; // posisi kata di stringlist , shorted position
textloc : array[0..500] of string[30];
textsum : array[1..500] of integer;
sgretrivrow, sgindexrow, akhir: integer;
katabaru: boolean;
f:textfile;
begin
// Retrieving.....
//for i:=0 to 500 do textloc[i]:='';
StringGrid1.Cols[0].Clear;
StringGrid1.Cols[1].Clear;
StringGrid1.Cols[2].Clear;
StringGrid2.Cols[0].Clear;
StringGrid2.Cols[1].Clear;
StringGrid2.Cols[2].Clear;
StringGrid2.Cols[3].Clear;

//listbox1.clear; //umpama pakai listbox
count0:=0;count1:=0;count2:=0;count3:=0;
StringGrid1.Cells[0,0]:='Nomor';
StringGrid1.Cells[1,0]:='Text';
StringGrid1.Cells[2,0]:='Tempat';
StringGrid2.Cells[0,0]:='Nomor';
StringGrid2.Cells[1,0]:='Text';
StringGrid2.Cells[2,0]:='Jumlah';
StringGrid2.Cells[3,0]:='Tempat';

//hitung jumlah kata di dokumen1
for i:=0 to form2.memo1.lines.count-1 do
begin
line:=form2.memo1.lines[i];
while line<>'' do
begin
w:=pisahkata(line);
if w<>'' then
begin
if checkstopwords(w) then
begin
inc(count0);inc(count1);
//listbox1.items.add(w); //umpama pakai listbox
StringGrid1.Cells[0,count0]:=IntToStr(count0);
StringGrid1.Cells[1,count0]:=w;
StringGrid1.Cells[2,count0]:='D1-'+IntToStr(count1);

end;
end;
end;
end;
//lbJmlKata1.caption:=inttostr(count1)+' Words in '+odDoc1.filename;
label1.caption:='Document 1 = '+inttostr(count1)+' Words.';

//hitung jumlah kata di dokumen2
for i:=0 to form2.memo2.lines.count-1 do
begin
line:=form2.memo2.lines[i];
while line<>'' do
begin
w:=pisahkata(line);
if w<>'' then
begin
if checkstopwords(w) then
begin
inc(count0);inc(count2);
//listbox1.items.add(w); //umpama pakai listbox
StringGrid1.Cells[0,count0]:=IntToStr(count0);
StringGrid1.Cells[1,count0]:=w;
StringGrid1.Cells[2,count0]:='D2-'+IntToStr(count2);
end;
end;
end;
end;
//lbJmlKata2.caption:=inttostr(count2)+' Words in '+odDoc2.filename;
label2.caption:='Document 2 = '+inttostr(count2)+' Words.';

//hitung jumlah kata di dokumen3
for i:=0 to form2.memo3.lines.count-1 do
begin
line:=form2.memo3.lines[i];
while line<>'' do
begin
w:=pisahkata(line);
if w<>'' then
begin
if checkstopwords(w) then
begin
inc(count0);inc(count3);
//listbox1.items.add(w); //seumpama pakai listbox
StringGrid1.Cells[0,count0]:=IntToStr(count0);
StringGrid1.Cells[1,count0]:=w;
StringGrid1.Cells[2,count0]:='D3-'+IntToStr(count3);

end;
end;
end;
end;
//label3.caption:=inttostr(count3)+' Words in '+odDoc3.filename;
label3.caption:='Document 3 = '+inttostr(count3)+' Words.';
// total jumlah kata di ke-3 dokumen

//hitung jumlah kata di dokumen4
for i:=0 to form2.memo4.lines.count-1 do
begin
line:=form2.memo4.lines[i];
while line<>'' do
begin
w:=pisahkata(line);
if w<>'' then
begin
if checkstopwords(w) then
begin
inc(count0);inc(count4);
//listbox1.items.add(w); //umpama pakai listbox
StringGrid1.Cells[0,count0]:=IntToStr(count0);
StringGrid1.Cells[1,count0]:=w;
StringGrid1.Cells[2,count0]:='D4-'+IntToStr(count4);
end;
end;
end;
end;
//lbJmlKata3.caption:=inttostr(count3)+' Words in '+odDoc3.filename;
label7.caption:='Document 4 = '+inttostr(count4)+' Words.';

//label4.caption:=inttostr(count1)+' Words in ALL documents.'
label4.caption:='Total = ';
label8.Caption:=inttostr(count0);
label9.caption:='Words.';

//sorting , summarizing , indexing ......
StringGrid2.Cells[0,1]:='1';
StringGrid2.Cells[1,1]:=StringGrid1.Cells[1,1];
StringGrid2.Cells[2,1]:='1'; //start sum
StringGrid2.Cells[3,1]:=StringGrid1.Cells[2,1];
textsum[1]:=1;
katabaru := false;
sgindexrow := 1;
sgretrivrow:=499;

for i:=2 to sgretrivrow do
begin
kata1:=StringGrid1.Cells[1,i];
akhir := sgindexrow;
if kata1<>'' then begin
for ii:=1 to akhir do
begin
kata2:=StringGrid2.Cells[1,ii];
if kata1=kata2 then
begin
textsum[ii]:=textsum[ii]+1;
StringGrid2.Cells[2,ii]:=IntToStr(textsum[ii]); //new sum
StringGrid2.Cells[3,ii]:=StringGrid2.Cells[3,ii]+', '+StringGrid1.Cells[2,i];
katabaru:=false;
akhir:=ii;
end
else katabaru:=true;
end;
if katabaru then
begin
//add new row
inc(sgindexrow);
ii:=sgindexrow;
StringGrid2.Cells[0,ii]:=IntToStr(ii);
StringGrid2.Cells[1,ii]:=StringGrid1.Cells[1,i];
StringGrid2.Cells[2,ii]:='1'; //new sum
StringGrid2.Cells[3,ii]:=StringGrid1.Cells[2,i];
textsum[ii]:=1;
katabaru:=false;
end;
end;
end;
begin
for n:=1 to stringgrid2.RowCount-1 do
begin
bd:=stringgrid2.Cells[1,n];
for m:=1 to stringgrid2.RowCount-1 do
begin
bud:=stringgrid2.Cells[1,m];
begin
if bd=bud then
stringgrid2.Cells[1,m]:='';
//melakukan inisialisasi untuk baris pertama
//melakukan perulangan untuk melakukan pencarian yang sama dengan dirinya
//lalu menghapusnya,tanpa yg pertama dihapus
end;
end;
end;
end;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
form4.show;
end;

end.



.pas yang keempat/akhir :

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons;

type
TForm4 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

uses Unit3, Unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
var i:integer;
begin
form4.StringGrid1.Cells[0,0]:='Nomor';
form4.StringGrid1.Cells[1,0]:='Text';
form4.StringGrid1.Cells[2,0]:='Peluang';
form4.StringGrid1.Cells[3,0]:='Kode';
form4.StringGrid1.Cells[4,0]:='Prosentase';

for i:=1 to 500 do
begin
form4.StringGrid1.cells[0,i]:=inttostr(i);
end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var a,b,x,z,i,j:integer;
m:string;
n:real;
begin
begin
with form3.StringGrid2 do
for z:=1 to 500 do
begin
if cells[2,z]<>'' then
begin
x:=z;
end
else
break;
end;
end;
a:=1;
b:=0;
for i:=1 to 500 do
for j:=1 to x do
begin
form4.StringGrid1.Cells[1,i]:=form3.StringGrid2.Cells[1,i];
form4.StringGrid1.Cells[2,j]:=form3.StringGrid2.Cells[2,j] +'/'+ form3.Label8.Caption;
form4.StringGrid1.Cells[4,j]:=inttostr(((strtoint(form3.StringGrid2.Cells[2,j])*100) div strtoint(form3.Label8.Caption)))+' %';
form4.StringGrid1.Cells[3,1]:=inttostr(b);
end;
for j:=1 to x-1 do
begin
m:=m+inttostr(a);
form4.StringGrid1.Cells[3,j+1]:=m+inttostr(b);
form4.StringGrid1.Cells[3,x]:=m;
end;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form1.close;
end;

end.


ok sekian ingin lain2 hub email saya di broth3r_13@yahoo.com

belajar huffman

ini ialah hasil otodidakq selama berhari2 meski tak diterima dosenq, tapi ini sungguh hasil kerja kerasq...
source code enkripsi huffman tapi dgn asumsi yg pembuat ialah pemula yaaa.. hehe...99x


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, Grids;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Edit1: TEdit;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
OpenDialog1: TOpenDialog;
Label15: TLabel;
TabSheet3: TTabSheet;
GroupBox3: TGroupBox;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label16: TLabel;
Label17: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
StringGrid1: TStringGrid;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
GroupBox4: TGroupBox;
BitBtn7: TBitBtn;
StringGrid2: TStringGrid;
GroupBox5: TGroupBox;
StringGrid3: TStringGrid;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
GroupBox6: TGroupBox;
Label56: TLabel;
Button1: TButton;
Label57: TLabel;
memo2: TMemo;
memo3: TMemo;
Label58: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit4, Unit2;

{$R *.dfm}



procedure TForm1.BitBtn1Click(Sender: TObject);
var F: TextFile;
text1:string;
begin
if opendialog1.Execute then
begin
edit1.Text:=opendialog1.Files.GetText;
edit1.Text:=copy(edit1.Text,1,length(edit1.Text)-2);
if FileExists(edit1.Text) then
begin
memo1.Clear;
AssignFile(F, edit1.Text);
Reset(F);
while not eoln(f) do
begin
readln(F,text1);
memo1.Lines.add(text1);
end;
CloseFile(F);
end
else
ShowMessage('File '+edit1.Text+'tidak ditemukan');
end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Text:='';
edit1.text:='';
begin
with StringGrid1 do
begin
cells[1,1]:='0';
cells[1,2]:='0';
cells[1,3]:='0';
cells[1,4]:='0';
cells[1,5]:='0';
cells[1,6]:='0';
cells[1,7]:='0';
cells[1,8]:='0';
cells[1,9]:='0';
cells[1,10]:='0';
cells[1,11]:='0';
cells[1,12]:='0';
cells[1,13]:='0';
cells[1,14]:='0';
cells[1,15]:='0';
cells[1,16]:='0';
cells[1,17]:='0';
cells[1,18]:='0';
cells[1,19]:='0';
cells[1,20]:='0';
cells[1,21]:='0';
cells[1,22]:='0';
cells[1,23]:='0';
cells[1,24]:='0';
cells[1,25]:='0';
cells[1,26]:='0';
cells[0,1]:=label3.Caption;
cells[0,2]:=label4.Caption;
cells[0,3]:=label5.Caption;
cells[0,4]:=label6.Caption;
cells[0,5]:=label7.Caption;
cells[0,6]:=label8.Caption;
cells[0,7]:=label9.Caption;
cells[0,8]:=label10.Caption;
cells[0,9]:=label11.Caption;
cells[0,10]:=label12.Caption;
cells[0,11]:=label13.Caption;
cells[0,12]:=label14.Caption;
cells[0,13]:=label16.Caption;
cells[0,14]:=label17.Caption;
cells[0,15]:=label32.Caption;
cells[0,16]:=label33.Caption;
cells[0,17]:=label34.Caption;
cells[0,18]:=label35.Caption;
cells[0,19]:=label36.Caption;
cells[0,20]:=label37.Caption;
cells[0,21]:=label38.Caption;
cells[0,22]:=label39.Caption;
cells[0,23]:=label40.Caption;
cells[0,24]:=label41.Caption;
cells[0,25]:=label42.Caption;
cells[0,26]:=label43.Caption;
END;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
memo1.Text:='';
edit1.text:='';
label18.Caption:='0';
label19.Caption:='0';
label20.Caption:='0';
label21.Caption:='0';
label22.Caption:='0';
label23.Caption:='0';
label24.Caption:='0';
label25.Caption:='0';
label26.Caption:='0';
label27.Caption:='0';
label28.Caption:='0';
label29.Caption:='0';
label30.Caption:='0';
label31.Caption:='0';
label44.Caption:='0';
label45.Caption:='0';
label46.Caption:='0';
label47.Caption:='0';
label48.Caption:='0';
label49.Caption:='0';
label50.Caption:='0';
label51.Caption:='0';
label52.Caption:='0';
label53.Caption:='0';
label54.Caption:='0';
label55.Caption:='0';
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
profil.show;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var counter,i:integer;
s:string;
begin
s:=memo1.lines.GetText;//kalimat yang lengkapnya
counter:=0; //index ke..
for i:=1 to length(s) do
begin
//tambah a till z
if s[i]='A' then //yang dicari
inc(counter);
label18.Caption:=inttostr(counter);
END; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='B' then //yang dicari
inc(counter);
label19.Caption:=inttostr(counter)
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='C' then //yang dicari
inc(counter);
label20.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='D' then //yang dicari
inc(counter);
label21.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='E' then //yang dicari
inc(counter);
label22.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='F' then //yang dicari
inc(counter);
label23.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='G' then //yang dicari
inc(counter);
label24.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='H' then //yang dicari
inc(counter);
label25.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='I' then //yang dicari
inc(counter);
label26.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='J' then //yang dicari
inc(counter);
label27.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='K' then //yang dicari
inc(counter);
label28.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='L' then //yang dicari
inc(counter);
label29.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='M' then //yang dicari
inc(counter);
label30.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='N' then //yang dicari
inc(counter);
label31.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='O' then //yang dicari
inc(counter);
label44.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='P' then //yang dicari
inc(counter);
label45.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='Q' then //yang dicari
inc(counter);
label46.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='R' then //yang dicari
inc(counter);
label47.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='S' then //yang dicari
inc(counter);
label48.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='T' then //yang dicari
inc(counter);
label49.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='U' then //yang dicari
inc(counter);
label50.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='V' then //yang dicari
inc(counter);
label51.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='W' then //yang dicari
inc(counter);
label52.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='X' then //yang dicari
inc(counter);
label53.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='Y' then //yang dicari
inc(counter);
label54.Caption:=inttostr(counter);
end; counter:=0;
for i:=1 to length(s) do
begin
if s[i]='Z' then //yang dicari
inc(counter);
label55.Caption:=inttostr(counter);
end;
end;

procedure SortStringGrid(var GenStrGrid: TStringGrid; ThatCol: Integer);
const
TheSeparator = '@';
var
CountItem, I, J, K, ThePosition: integer;
MyList: TStringList;
MyString, TempString: string;
begin
CountItem := GenStrGrid.RowCount; //jmlh data
MyList := TStringList.Create;//disimpan di memory
MyList.Sorted := false; //asumsi awal
try
begin
for I := 1 to (CountItem - 1) do //looping sd jmlh data
MyList.Add(GenStrGrid.Rows[I].Strings[ThatCol] + TheSeparator +
GenStrGrid.Rows[I].Text);
Mylist.Sort;
for K := 1 to Mylist.Count do
begin
MyString := MyList.Strings[(K - 1)];
ThePosition := Pos(TheSeparator, MyString);
TempString := '';
{Eliminate the Text of the column on which we have sorted the StringGrid}
TempString := Copy(MyString, (ThePosition + 1), Length(MyString));
MyList.Strings[(K - 1)] := '';
MyList.Strings[(K - 1)] := TempString;
end;
for J := 1 to (CountItem - 1) do
GenStrGrid.Rows[J].Text := MyList.Strings[(J - 1)];
end;
finally
MyList.Free;
end;
end;
//listbox1.Items.ValueFromIndex[3]:=form1.caption;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
SortStringGrid(StringGrid1, 1);
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
with StringGrid1 do
begin
cells[1,1]:='0';
cells[1,2]:='0';
cells[1,3]:='0';
cells[1,4]:='0';
cells[1,5]:='0';
cells[1,6]:='0';
cells[1,7]:='0';
cells[1,8]:='0';
cells[1,9]:='0';
cells[1,10]:='0';
cells[1,11]:='0';
cells[1,12]:='0';
cells[1,13]:='0';
cells[1,14]:='0';
cells[1,15]:='0';
cells[1,16]:='0';
cells[1,17]:='0';
cells[1,18]:='0';
cells[1,19]:='0';
cells[1,20]:='0';
cells[1,21]:='0';
cells[1,22]:='0';
cells[1,23]:='0';
cells[1,24]:='0';
cells[1,25]:='0';
cells[1,26]:='0';
cells[0,1]:=label3.Caption;
cells[0,2]:=label4.Caption;
cells[0,3]:=label5.Caption;
cells[0,4]:=label6.Caption;
cells[0,5]:=label7.Caption;
cells[0,6]:=label8.Caption;
cells[0,7]:=label9.Caption;
cells[0,8]:=label10.Caption;
cells[0,9]:=label11.Caption;
cells[0,10]:=label12.Caption;
cells[0,11]:=label13.Caption;
cells[0,12]:=label14.Caption;
cells[0,13]:=label16.Caption;
cells[0,14]:=label17.Caption;
cells[0,15]:=label32.Caption;
cells[0,16]:=label33.Caption;
cells[0,17]:=label34.Caption;
cells[0,18]:=label35.Caption;
cells[0,19]:=label36.Caption;
cells[0,20]:=label37.Caption;
cells[0,21]:=label38.Caption;
cells[0,22]:=label39.Caption;
cells[0,23]:=label40.Caption;
cells[0,24]:=label41.Caption;
cells[0,25]:=label42.Caption;
cells[0,26]:=label43.Caption;
cells[1,1]:=label18.Caption;
cells[1,2]:=label19.Caption;
cells[1,3]:=label20.Caption;
cells[1,4]:=label21.Caption;
cells[1,5]:=label22.Caption;
cells[1,6]:=label23.Caption;
cells[1,7]:=label24.Caption;
cells[1,8]:=label25.Caption;
cells[1,9]:=label26.Caption;
cells[1,10]:=label27.Caption;
cells[1,11]:=label28.Caption;
cells[1,12]:=label29.Caption;
cells[1,13]:=label30.Caption;
cells[1,14]:=label31.Caption;
cells[1,15]:=label44.Caption;
cells[1,16]:=label45.Caption;
cells[1,17]:=label46.Caption;
cells[1,18]:=label47.Caption;
cells[1,19]:=label48.Caption;
cells[1,20]:=label49.Caption;
cells[1,21]:=label50.Caption;
cells[1,22]:=label51.Caption;
cells[1,23]:=label52.Caption;
cells[1,24]:=label53.Caption;
cells[1,25]:=label54.Caption;
cells[1,26]:=label55.Caption;
end;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
var i,j,k,m,n,z:integer;
bd:string;
begin
with stringgrid1 do
begin
for i:=1 to ColCount - 1 do
for j:=1 to rowCount - 1 do
begin
if cells[i,j]<>inttostr(0) then
begin
k:=i-1;
m:=i-1;
n:=rowcount-j;
bd:=cells[k,j];
with stringgrid2 do
begin
cells[m,n]:=bd;
for z:=1 to n do
cells[i,n]:=inttostr(z);
end;
end;
end;
end;
end;


procedure TForm1.BitBtn8Click(Sender: TObject);
var i,j:integer;
begin
for i:=1 to 26 do
begin
stringgrid3.Cells[0,i]:=stringgrid2.Cells[0,i];
end;
for i:=1 to i do
BEGIN
if StringGrid2.Cells[1,i]<>'' then
begin
form1.StringGrid3.Cells[1,i]:=form2.StringGrid1.Cells[1,i];
end;
end;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
var i:integer;
begin
form2.show;
with form2.StringGrid1 do
begin
for i:=1 to rowcount-1 do
begin
cells[0,i]:=inttostr(i);
end;
cells[1,1]:='00001';
cells[1,2]:='00010';
cells[1,3]:='00011';
cells[1,4]:='00100';
cells[1,5]:='00101';
cells[1,6]:='00110';
cells[1,7]:='00111';
cells[1,8]:='01000';
cells[1,9]:='01001';
cells[1,10]:='01010';
cells[1,11]:='01011';
cells[1,12]:='01100';
cells[1,13]:='01101';
cells[1,14]:='01110';
cells[1,15]:='01111';
cells[1,16]:='10000';
cells[1,17]:='10001';
cells[1,18]:='10010';
cells[1,19]:='10011';
cells[1,20]:='10100';
cells[1,21]:='10101';
cells[1,22]:='10110';
cells[1,23]:='10111';
cells[1,24]:='11000';
cells[1,25]:='11001';
cells[1,26]:='11010';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
bd,new,j:string;
aaa:tpoint;
begin
label57.Caption:=inttostr(length(memo2.lines.GetText));
bd:=memo2.lines.GetText;
for i:=1 to length(memo2.Lines.GetText) do
begin
if bd[i]='A' then
j:=form1.caption;
memo3.Lines[1]:=j;
{aaa:=memo3.CaretPos;
new:=memo3.Lines[aaa.y];
new:=Copy(new,0,aaa.x)+memo2.Text+Copy(new,aaa.x+1,Length(new));
memo3.Lines[aaa.X]:=new;
counter:=0; //index ke..
for i:=1 to length(s) do
begin
//tambah a till z
if s[i]='A' then //yang dicari
inc(counter);
label18.Caption:=inttostr(counter);
END; counter:=0;
var
CurPoint: TPoint;
cText: string;
cLine: string;
begin
cLine:='Hello Adam';
CurPoint:=Memo1.CaretPos;
cText:=Memo1.Lines[CurPoint.y];
cText:=Copy(cText,0,CurPoint.x)+cLine+Copy(cText,C urPoint.x+1,Length(cText));
Memo1.Lines[CurPoint.y]:=cText;
end;
}
end;
end;

end.

Perhitungan Konversi Manual

Misalnya kita memiliki Nilai Desimal, dan itu diubah ke biner maka caranya :
+ nilai desimal 24
Prosesnya
Nilai 24 : 2 sisa 0
Hasilnya 12 : 2 sisa 0
Hasilnya 6 : 2 sisa 0
Hasilnya 3 : 2 sisa 1
Hasilnya 1 : 2 sisa 1
Hasilnya 0
Maka Nilai Binernya bisa dibaca dari sisanya mulai dari bawah ke atas sehingga :
Nilai 24(Desimal)= 11000(Biner)

Ok's tunggu kelanjutannya yach...

Diantara 2 Pilihan

Pilihan Jurusan ya...(Menentukan hidupQ selanjutnya..)

Pilihan Ke 1

Multimedia adalah penggunaan komputer untuk menyajikan dan menggabungkan teks, suara, gambar, animasi dan video dengan alat bantu ([tool]) dan koneksi ([link]) sehingga pengguna dapat ber-([navigasi]), berinteraksi, berkarya dan berkomunikasi. Multimedia sering digunakan dalam dunia hiburan. Selain dari dunia hiburan, Multimedia juga diadopsi oleh dunia Game.

Multimedia dimanfaatkan juga dalam dunia pendidikan dan bisnis. Di dunia pendidikan, multimedia digunakan sebagai media pengajaran, baik dalam kelas maupun secara sendiri-sendiri. Di dunia bisnis, multimedia digunakan sebagai media profil perusahaan, profil produk, bahkan sebagai media kios informasi dan pelatihan dalam sistem e-learning.

Multimedia adalah media dan konten yang menggunakan kombinasi dari berbagai bentuk konten. The term can be used as a noun (a medium with multiple content forms) or as an adjective describing a medium as having multiple content forms. Istilah ini dapat digunakan sebagai kata benda (media dengan konten beberapa bentuk) atau sebagai kata sifat yang menggambarkan sebuah media sebagai memiliki konten beberapa bentuk. The term is used in contrast to media which only use traditional forms of printed or hand-produced material. Istilah ini digunakan dalam media yang kontras dengan hanya menggunakan bentuk-bentuk tradisional dicetak atau tangan-bahan yang diproduksi. Multimedia includes a combination of text , audio , still images , animation , video , and interactivity content forms. Multimedia mencakup kombinasi teks, audio, gambar diam, animasi, video, dan interaktivitas bentuk konten.

Multimedia is usually recorded and played, displayed or accessed by information content processing devices, such as computerized and electronic devices, but can also be part of a live performance. Multimedia (as an adjective) also describes electronic media devices used to store and experience multimedia content. Multimedia biasanya direkam dan bermain, ditampilkan atau diakses oleh konten informasi pengolahan perangkat, seperti komputer dan perangkat elektronik, tetapi juga dapat menjadi bagian dari sebuah live performance. Multimedia (sebagai kata sifat) juga menggambarkan media elektronik perangkat yang digunakan untuk menyimpan dan pengalaman multimedia isi. Multimedia is distinguished from mixed media in fine art ; by including audio, for example, it has a broader scope. Multimedia dibedakan dari campuran media dalam seni rupa; oleh termasuk audio, misalnya, ia memiliki lingkup yang lebih luas. The term "rich media" is synonymous for interactive multimedia . Hypermedia can be considered one particular multimedia application. Istilah "rich media" adalah sinonim untuk multimedia interaktif. Hypermedia dapat dianggap sebagai salah satu aplikasi multimedia tertentu.

Examples of individual content forms combined in multimedia: Contoh bentuk konten individu digabungkan dalam multimedia:
Text Teks	Audio Audio	Still Images Masih Images
Animation Animasi	Video Footage Video Footage	Interactivity Interaktivitas

Contents Isi [hide] 1 Categorization of multimedia 1 Kategorisasi multimedia 2 Major characteristics of multimedia 2 Mayor karakteristik multimedia 3 Terminology 3 Terminologi 3.1 History of the term 3,1 Sejarah istilah 3.2 Word usage and context 3,2 Word penggunaan dan konteks 4 Usage 4 Penggunaan 4.1 Creative industries 4,1 Creative industries 4.1.1 Commercial 4.1.1 Komersial 4.1.2 Entertainment and fine arts 4.1.2 Hiburan dan seni murni 4.2 Education 4,2 Pendidikan 4.3 Engineering 4,3 Rekayasa 4.4 Industry 4,4 Industri 4.5 Mathematical and scientific research 4,5 matematika dan penelitian ilmiah 4.6 Medicine 4,6 Kedokteran 4.7 Document Imaging 4,7 Document Imaging 4.8 Miscellaneous 4,8 Miscellaneous 5 Structuring information in a multimedia form 5 Penataan informasi dalam bentuk multimedia 6 Conferences 6 Pertemuan 7 See also 7 Lihat juga 8 References 8 Referensi 9 External links 9 Pranala luar

[ edit ] Categorization of multimedia [Sunting] Kategorisasi multimedia

Multimedia may be broadly divided into linear and non-linear categories. Multimedia mungkin secara luas dibagi menjadi linier dan non-linear kategori. Linear active content progresses without any navigational control for the viewer such as a cinema presentation . Linear konten aktif berlangsung tanpa kontrol navigasi untuk penampil seperti bioskop presentasi. Non-linear content offers user interactivity to control progress as used with a computer game or used in self-paced computer based training . Hypermedia is an example of non-linear content. Non-linear konten pengguna menawarkan interaktivitas untuk mengontrol kemajuan seperti yang digunakan dengan permainan komputer atau digunakan dalam diri-mondar-mandir pelatihan berbasis komputer. Hypermedia adalah contoh konten non-linear.

Multimedia presentations can be live or recorded. Multimedia presentasi dapat hidup atau direkam. A recorded presentation may allow interactivity via a navigation system . Sebuah presentasi direkam memungkinkan interaktivitas melalui sistem navigasi. A live multimedia presentation may allow interactivity via an interaction with the presenter or performer. Sebuah presentasi multimedia hidup memungkinkan interaktivitas melalui interaksi dengan presenter atau pemain.

[ edit ] Major characteristics of multimedia [Sunting] Mayor karakteristik multimedia

Multimedia presentations may be viewed in person on stage , projected , transmitted , or played locally with a media player . Presentasi multimedia dapat dilihat pada orang di panggung, diproyeksikan, ditransmisikan, atau bermain lokal dengan media player. A broadcast may be a live or recorded multimedia presentation. Sebuah siaran dapat langsung atau direkam presentasi multimedia. Broadcasts and recordings can be either analog or digital electronic media technology. Siaran dan rekaman dapat berupa analog atau digital teknologi media elektronik. Digital online multimedia may be downloaded or streamed . Digital online multimedia dapat didownload atau streaming. Streaming multimedia may be live or on-demand. Streaming multimedia dapat hidup atau on-demand.

Multimedia games and simulations may be used in a physical environment with special effects, with multiple users in an online network , or locally with an offline computer, game system , or simulator . Permainan dan simulasi multimedia dapat digunakan dalam lingkungan fisik dengan efek khusus, dengan beberapa pengguna dalam sebuah online jaringan, atau lokal dengan komputer offline, sistem permainan, atau simulator.

The various formats of technological or digital multimedia may be intended to enhance the users' experience, for example to make it easier and faster to convey information. Berbagai format multimedia digital teknologi atau mungkin dimaksudkan untuk meningkatkan para pengguna pengalaman, misalnya untuk membuatnya lebih mudah dan lebih cepat untuk menyampaikan informasi. Or in entertainment or art, to transcend everyday experience. Atau dalam hiburan atau seni, untuk mengatasi pengalaman sehari-hari.

A lasershow is a live multimedia performance. Sebuah lasershow adalah hidup kinerja multimedia.

Enhanced levels of interactivity are made possible by combining multiple forms of media content. Online multimedia is increasingly becoming object-oriented and data-driven, enabling applications with collaborative end-user innovation and personalization on multiple forms of content over time. Enhanced tingkat interaktivitas dimungkinkan dengan menggabungkan beberapa bentuk dari isi media. Online multimedia semakin menjadi berorientasi objek dan data-driven, memungkinkan aplikasi dengan kolaborasi pengguna akhir inovasi dan personalisasi di beberapa bentuk konten dari waktu ke waktu. Examples of these range from multiple forms of content on Web sites like photo galleries with both images (pictures) and title (text) user-updated, to simulations whose co-efficients, events, illustrations, animations or videos are modifiable, allowing the multimedia "experience" to be altered without reprogramming. Contoh dari berbagai dari berbagai bentuk konten pada situs Web seperti foto galeri dengan kedua gambar (foto) dan judul (text) user-update, untuk simulasi yang co-efficients, peristiwa, ilustrasi, animasi atau video yang dimodifikasi, yang memungkinkan multimedia "pengalaman" harus diubah tanpa pemrograman. In addition to seeing and hearing, Haptic technology enables virtual objects to be felt. Selain melihat dan mendengar, Haptic teknologi memungkinkan objek virtual dirasakan. Emerging technology involving illusions of taste and smell may also enhance the multimedia experience. Melibatkan teknologi baru ilusi rasa dan bau juga dapat meningkatkan pengalaman multimedia.

[ edit ] Terminology [Sunting] Terminologi

[ edit ] History of the term [Sunting] Sejarah istilah

The term "multimedia" was coined ^{[ citation needed ]} by Bob Goldstein (later ' Bobb Goldsteinn ') to promote the July 1966 opening of his "LightWorks at L'Oursin" show at Southampton , Long Island. Istilah "multimedia" diciptakan ^[rujukan?] Oleh Bob Goldstein (kemudian 'Bobb Goldsteinn') untuk mempromosikan pembukaan Juli 1966-nya "LightWorks di L'Oursin" pertunjukan di Southampton, Long Island. On August 10, 1966, Richard Albarino of Variety borrowed the terminology, reporting: “Brainchild of songscribe-comic Bob (' Washington Square ') Goldstein, the 'Lightworks' is the latest multi-media music-cum-visuals to debut as discotheque fare.” ^{[ 1 ]} . Pada tanggal 10 Agustus 1966, Richard Albarino dari Variety meminjam terminologi, melaporkan: "gagasan songscribe-komik Bob ( 'Washington Square') Goldstein, yang 'Lightworks' adalah multi media terbaru musik-cum-visual untuk debut sebagai diskotik tarif. ^"[1]. Two years later, in 1968 , the term “multimedia” was re-appropriated to describe the work of a political consultant, David Sawyer, the husband of Iris Sawyer—one of Goldstein's producers at L'Oursin. Dua tahun kemudian, pada 1968, istilah "multimedia" adalah kembali disesuaikan untuk menggambarkan karya seorang konsultan politik, David Sawyer, suami dari Iris Sawyer-salah satu produsen Goldstein di L'Oursin.

In the intervening forty years, the word has taken on different meanings. Dalam selang empat puluh tahun, kata telah diambil pada makna yang berbeda. In the late 1970s the term was used to describe presentations consisting of multi-projector slide shows timed to an audio track. ^{[ citation needed ]} However, by the 1990s 'multimedia' took on its current meaning. Pada akhir 1970-an istilah ini digunakan untuk mendeskripsikan presentasi terdiri dari multi-proyektor slide diatur untuk melacak audio. ^[Rujukan?] Namun, pada tahun 1990-an 'multimedia' mengambil makna saat ini. The German language usage society, Gesellschaft fur deutsche Sprachgebrauch, decided to recognize the word's significance and ubiquitousness in the 1990s by awarding it the title of 'Word of the Year' in 1995. Penggunaan bahasa Jerman masyarakat, Gesellschaft fur deutsche Sprachgebrauch, memutuskan untuk mengenali kata yang makna dan ubiquitousness pada 1990-an dengan pemberian gelar itu 'Word of the Year "di tahun 1995. The institute summed up its rationale by stating "[Multimedia] has become a central word in the wonderful new media world" ^{[ 2 ]} Institut diringkas dasar pemikirannya dengan menyatakan "[Multimedia] telah menjadi kata sentral dalam dunia media baru yang indah" ^[2]

In common usage, the term multimedia refers to an electronically delivered combination of media including video, still images, audio, text in such a way that can be accessed interactively. Dalam penggunaan umum, istilah merujuk multimedia dikirimkan secara elektronik kombinasi media termasuk video, gambar diam, audio, teks sedemikian rupa sehingga dapat diakses secara interaktif. Much of the content on the web today falls within this definition as understood by millions. Sebagian besar konten di web ini termasuk dalam definisi ini sebagaimana yang dipahami oleh jutaan. Some computers which were marketed in the 1990s were called "multimedia" computers because they incorporated a CD-ROM drive, which allowed for the delivery of several hundred megabytes of video, picture, and audio data. Beberapa komputer yang dipasarkan pada 1990-an disebut "multimedia" komputer karena mereka memasukkan CD-ROM drive, yang memungkinkan untuk pengiriman beberapa ratus megabyte video, gambar, dan audio data.

[ edit ] Word usage and context [Sunting] Firman penggunaan dan konteks

Since media is the plural of medium, the term "multimedia" is a pleonasm if "multi" is used to describe multiple occurrences of only one form of media such as a collection of audio CDs . Karena media adalah jamak dari media, istilah "multimedia" adalah pleonasm jika "multi" digunakan untuk menggambarkan beberapa kejadian hanya salah satu bentuk media seperti koleksi CD audio. This is why it's important that the word "multimedia" is used exclusively to describe multiple forms of media and content. Inilah mengapa penting bahwa kata "multimedia" digunakan secara eksklusif untuk menggambarkan berbagai bentuk media dan konten.

The term "multimedia" is also ambiguous. Istilah "multimedia" juga ambigu. Static content (such as a paper book) may be considered multimedia if it contains both pictures and text or may be considered interactive if the user interacts by turning pages at will. Konten statis (seperti buku kertas) dapat dianggap multimedia jika berisi gambar dan teks atau dapat dianggap interaktif jika user berinteraksi dengan halaman di akan berputar. Books may also be considered non-linear if the pages are accessed non-sequentially. Buku-buku juga dapat dianggap non-linear jika halaman diakses non-secara berurutan. The term "video", if not used exclusively to describe motion photography, is ambiguous in multimedia terminology. Video is often used to describe the file format, delivery format, or presentation format instead of " footage " which is used to distinguish motion photography from " animation " of rendered motion imagery. Istilah "video", jika tidak digunakan secara eksklusif untuk menggambarkan gerak fotografi, adalah ambigu dalam terminologi multimedia. Video ini sering digunakan untuk mendeskripsikan format file, format pengiriman, atau format presentasi bukannya "rekaman" yang digunakan untuk membedakan gerak fotografi dari "animasi" dari membuat gerak pencitraan. Multiple forms of information content are often not considered multimedia if they don't contain modern forms of presentation such as audio or video. Beberapa bentuk konten informasi sering tidak dianggap multimedia jika mereka tidak mengandung bentuk modern dari presentasi seperti audio atau video. Likewise, single forms of information content with single methods of information processing (eg non-interactive audio) are often called multimedia, perhaps to distinguish static media from active media. Performing arts may also be considered multimedia considering that performers and props are multiple forms of both content and media. Demikian juga, bentuk-bentuk informasi tunggal puas dengan metode tunggal informasi pengolahan (misalnya non-interaktif audio) ini sering disebut multimedia, mungkin untuk membedakan statis media dari aktif media. Pertunjukan seni juga dapat dipertimbangkan mengingat multimedia artis dan alat peraga adalah beberapa bentuk baik konten dan media.

[ edit ] Usage [Sunting] Penggunaan

A presentation using Powerpoint . Sebuah presentasi menggunakan Powerpoint. Corporate presentations may combine all forms of media content. Corporate presentasi dapat menggabungkan segala bentuk isi media.

Virtual reality uses multimedia content. Virtual reality menggunakan konten multimedia. Applications and delivery platforms of multimedia are virtually limitless. Aplikasi dan platform pengiriman multimedia yang hampir tak terbatas.

VVO Multimedia-Terminal in Dresden WTC (Germany) VVO Multimedia-Terminal di Dresden WTC (Jerman)

Multimedia finds its application in various areas including, but not limited to, advertisements , art , education , entertainment , engineering , medicine , mathematics , business , scientific research and spatial temporal applications . Multimedia menemukan penerapannya dalam berbagai bidang termasuk, namun tidak terbatas pada, iklan, seni, pendidikan, hiburan, teknik, kedokteran, matematika, bisnis, penelitian ilmiah dan aplikasi spasial temporal. Several examples are as follows: Beberapa contoh adalah sebagai berikut:

[ edit ] Creative industries [Sunting] Creative industries

Creative industries use multimedia for a variety of purposes ranging from fine arts, to entertainment, to commercial art, to journalism , to media and software services provided for any of the industries listed below. Industri kreatif menggunakan multimedia untuk berbagai keperluan, mulai dari seni murni, untuk hiburan, seni komersial, untuk jurnalistik, media dan perangkat lunak untuk layanan yang diberikan untuk salah satu industri yang tercantum di bawah ini. An individual multimedia designer may cover the spectrum throughout their career. Seorang individu desainer multimedia mungkin mencakup spektrum sepanjang karir mereka. Request for their skills range from technical, to analytical, to creative. Permintaan keterampilan mereka berkisar dari teknis, untuk analitis, kreatif.

[ edit ] Commercial [Sunting] Komersial

Much of the electronic old and new media used by commercial artists is multimedia. Banyak elektronik lama dan media baru yang digunakan oleh seniman komersial adalah multimedia. Exciting presentations are used to grab and keep attention in advertising . Presentasi menarik digunakan untuk merebut dan mempertahankan perhatian dalam periklanan. Business to business, and interoffice communications are often developed by creative services firms for advanced multimedia presentations beyond simple slide shows to sell ideas or liven-up training. Bisnis ke bisnis, dan komunikasi antar jawatan sering dikembangkan oleh layanan kreatif perusahaan untuk presentasi multimedia yang canggih luar slide sederhana untuk menjual ide atau menghidupkan-up pelatihan. Commercial multimedia developers may be hired to design for governmental services and nonprofit services applications as well. Komersial pengembang multimedia dapat disewa untuk desain untuk jasa pemerintah dan layanan nirlaba aplikasi juga.

[ edit ] Entertainment and fine arts [Sunting] Hiburan dan seni murni

In addition, multimedia is heavily used in the entertainment industry, especially to develop special effects in movies and animations. Selain itu, multimedia banyak digunakan dalam industri hiburan, khususnya untuk mengembangkan efek khusus dalam film dan animasi. Multimedia games are a popular pastime and are software programs available either as CD-ROMs or online. Multimedia game adalah hobi populer dan program perangkat lunak yang tersedia baik sebagai CD-ROM atau secara online. Some video games also use multimedia features. Beberapa video game juga menggunakan fitur multimedia. Multimedia applications that allow users to actively participate instead of just sitting by as passive recipients of information are called Interactive Multimedia . Aplikasi multimedia yang memungkinkan pengguna untuk secara aktif berpartisipasi, bukan hanya duduk sebagai penerima pasif informasi disebut Interaktif Multimedia. In the Arts there are multimedia artists , whose minds are able to blend techniques using different media that in some way incorporates interaction with the viewer. Dalam Seni ada seniman multimedia, yang pikirannya mampu memadukan teknik menggunakan media yang berbeda yang dalam beberapa cara menggabungkan interaksi dengan pemirsa. One of the most relevant could be Peter Greenaway who is melding Cinema with Opera and all sorts of digital media. Salah satu yang paling relevan dapat Peter Greenaway yang penyatuan Cinema dengan Opera dan segala macam media digital. Another approach entails the creation of multimedia that can be displayed in a traditional fine arts arena, such as an art gallery . Pendekatan lain mencakup penciptaan multimedia yang dapat ditampilkan dalam arena seni tradisional, seperti galeri seni. Although multimedia display material may be volatile, the survivability of the content is as strong as any traditional media. Meskipun materi display multimedia dapat berubah-ubah, maka isi survivability kekuatan seperti apapun media tradisional. Digital recording material may be just as durable and infinitely reproducible with perfect copies every time. Materi rekaman digital mungkin hanya sebagai tahan lama dan jauh diulang dengan salinan sempurna setiap saat.

[ edit ] Education [Sunting] Pendidikan

In Education , multimedia is used to produce computer-based training courses (popularly called CBTs) and reference books like encyclopedia and almanacs. Dalam pendidikan, multimedia digunakan untuk menghasilkan pelatihan berbasis komputer kursus (populer disebut CBTs) dan buku referensi seperti bebas dan almanak. A CBT lets the user go through a series of presentations, text about a particular topic, and associated illustrations in various information formats. Edutainment is an informal term used to describe combining education with entertainment, especially multimedia entertainment. Sebuah CBT memungkinkan pengguna melalui serangkaian presentasi, teks tentang topik tertentu, dan terkait informasi ilustrasi dalam berbagai format. Edutainment adalah istilah informal digunakan untuk menggambarkan menggabungkan pendidikan dengan hiburan, terutama hiburan multimedia.

Learning theory in the past decade has expanded dramatically because of the introduction of multimedia. Teori belajar dalam sepuluh tahun terakhir telah berkembang secara dramatis karena pengenalan multimedia. Several lines of research have evolved (eg Cognitive load , Multimedia learning , and the list goes on). Beberapa baris penelitian telah berkembang (misalnya beban kognitif, pembelajaran multimedia, dan banyak lagi). The possibilities for learning and instruction are nearly endless. Kemungkinan untuk pembelajaran dan pengajaran yang hampir tak terbatas.

[ edit ] Engineering [Sunting] Teknik

Software engineers may use multimedia in Computer Simulations for anything from entertainment to training such as military or industrial training. Insinyur perangkat lunak dapat menggunakan multimedia dalam Simulasi Komputer untuk apa pun dari hiburan untuk pelatihan seperti pelatihan militer atau industri. Multimedia for software interfaces are often done as a collaboration between creative professionals and software engineers. Multimedia untuk interface perangkat lunak sering dilakukan sebagai kolaborasi antara para profesional kreatif dan perangkat lunak insinyur.

[ edit ] Industry [Sunting] Industri

In the Industrial sector , multimedia is used as a way to help present information to shareholders, superiors and coworkers. Dalam sektor Industri, multimedia digunakan sebagai cara untuk membantu menyajikan informasi kepada para pemegang saham, atasan dan rekan kerja. Multimedia is also helpful for providing employee training, advertising and selling products all over the world via virtually unlimited web-based technologies. Multimedia juga sangat membantu untuk memberikan pelatihan karyawan, iklan dan penjualan produk di seluruh dunia melalui hampir tak terbatas teknologi berbasis web.

[ edit ] Mathematical and scientific research [Sunting] Matematika dan penelitian ilmiah

In mathematical and scientific research , multimedia is mainly used for modelling and simulation. Dalam matematika dan penelitian ilmiah, multimedia terutama digunakan untuk pemodelan dan simulasi. For example, a scientist can look at a molecular model of a particular substance and manipulate it to arrive at a new substance. Sebagai contoh, seorang ilmuwan bisa melihat pada model molekul zat tertentu dan memanipulasinya untuk sampai pada suatu zat baru. Representative research can be found in journals such as the Journal of Multimedia . Perwakilan penelitian dapat ditemukan dalam jurnal-jurnal seperti Journal of Multimedia.

[ edit ] Medicine [Sunting] Kedokteran

In Medicine , doctors can get trained by looking at a virtual surgery or they can simulate how the human body is affected by diseases spread by viruses and bacteria and then develop techniques to prevent it. Dalam Kedokteran, dokter bisa dilatih dengan melihat virtual operasi atau mereka dapat mensimulasikan bagaimana tubuh manusia dipengaruhi oleh penyakit disebarkan oleh virus dan bakteri dan kemudian mengembangkan teknik untuk mencegahnya.

[ edit ] Document Imaging [Sunting] Document Imaging

Document Imaging is a technique that takes hard copy of an image/document and converts it into a digital format Document Imaging adalah suatu teknik yang memerlukan hard copy dari suatu gambar / dokumen dan mengkonversikannya menjadi sebuah format digital

[ edit ] Miscellaneous [Sunting] Lain-lain

In Europe, the reference organization for Multimedia industry is the gyan jaiswlConvention (EMMAC). Di Eropa, organisasi referensi untuk industri multimedia adalah Gyan jaiswlConvention (EMMAC).

[ edit ] Structuring information in a multimedia form [Sunting] Penataan informasi dalam bentuk multimedia

Multimedia represents the convergence of text, pictures, video and sound into a single form. Multimedia mewakili konvergensi teks, gambar, video dan suara ke dalam satu bentuk. The power of multimedia and the Internet lies in the way in which information is linked. Kekuatan multimedia dan internet terletak pada cara di mana informasi yang terhubung.

Multimedia and the Internet require a completely new approach to writing. Multimedia dan Internet yang benar-benar membutuhkan pendekatan baru untuk menulis. The style of writing that is appropriate for the 'on-line world' is highly optimized and designed to be able to be quickly scanned by readers. ^{[ 3 ]} Gaya penulisan yang sesuai untuk 'on-line dunia "sangat dioptimalkan dan dirancang untuk dapat dengan cepat scan oleh pembaca. ^[3]

A good site must be made with a specific purpose in mind and a site with good interactivity and new technology can also be useful for attracting visitors. Situs yang baik harus dibuat dengan tujuan tertentu dalam pikiran dan interaktivitas situs dengan baik dan teknologi baru juga dapat berguna untuk menarik pengunjung. The site must be attractive and innovative in its design, function in terms of its purpose, easy to navigate, frequently updated and fast to download. ^{[ 4 ]} Situs harus menarik dan inovatif dalam desain, fungsi dalam hal tujuan, mudah dinavigasi, yang sering diperbarui dan cepat untuk men-download. ^[4]

When users view a page, they can only view one page at a time. Ketika pengguna melihat halaman, mereka hanya bisa melihat satu halaman pada satu waktu. As a result, multimedia users must create a 'mental model of information structure'. ^{[ 5 ]} Akibatnya, multimedia, pengguna harus membuat "model mental informasi struktur '. ^[5]

Patrick Lynch , author of the Yale University Web Style Manual, states that users need predictability and structure, with clear functional and graphical continuity between the various components and subsections of the multimedia production. Patrick Lynch, penulis dari Universitas Yale Web Style Manual, menyatakan bahwa pengguna memerlukan prediktabilitas dan struktur, dengan grafis yang jelas dan kesinambungan fungsional antara berbagai komponen dan subbagian produksi multimedia. In this way, the home page of any multimedia production should always be a landmark, able to be accessed from anywhere within a multimedia piece. Dengan cara ini, halaman rumah produksi multimedia apa pun harus selalu tengara, dapat diakses dari manapun di bagian multimedia.

Pilihan Ke 2

Jaringan komputer adalah sebuah sistem yang terdiri atas komputer dan perangkat jaringan lainnya yang bekerja bersama-sama untuk mencapai suatu tujuan yang sama. Tujuan dari jaringan komputer adalah:

• Membagi sumber daya: contohnya berbagi pemakaian printer, CPU, memori, harddisk
• Komunikasi: contohnya surat elektronik, instant messaging, chatting
• Akses informasi: contohnya web browsing

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 Berdasarkan skala :

• Personal Area Network (PAN)
• Campus Area Network (CAN)
• Local Area Network (LAN): suatu jaringan komputer yang menghubungkan suatu komputer dengan komputer lain dengan jarak yang terbatas.
• Metropolitant Area Network (MAN): prinsip sama dengan LAN, hanya saja jaraknya lebih luas, yaitu 10-50 km.
• Wide Area Network (WAN): jaraknya antar kota, negara, dan benua. ini sama dengan internet.
• Global Area Network (GAN)

Berdasarkan fungsi : Pada dasarnya setiap jaringan komputer ada yang berfungsi sebagai client dan juga server. Tetapi ada jaringan yang memiliki komputer yang khusus didedikasikan sebagai server sedangkan yang lain sebagai client. Ada juga yang tidak memiliki komputer yang khusus berfungsi sebagai server saja. Karena itu berdasarkan fungsinya maka ada dua jenis jaringan komputer:

• Client-server

Yaitu jaringan komputer dengan komputer yang didedikasikan khusus sebagai server. Sebuah service/layanan bisa diberikan oleh sebuah komputer atau lebih. Contohnya adalah sebuah domain seperti www.detik.com yang dilayani oleh banyak komputer web server. Atau bisa juga banyak service/layanan yang diberikan oleh satu komputer. Contohnya adalah server jtk.polban.ac.id yang merupakan satu komputer dengan multi service yaitu mail server, web server, file server, database server dan lainnya.

• Peer-to-peer

Yaitu jaringan komputer dimana setiap host dapat menjadi server dan juga menjadi client secara bersamaan. Contohnya dalam file sharing antar komputer di Jaringan Windows Network Neighbourhood ada 5 komputer (kita beri nama A,B,C,D dan E) yang memberi hak akses terhadap file yang dimilikinya. Pada satu saat A mengakses file share dari B bernama data_nilai.xls dan juga memberi akses file soal_uas.doc kepada C. Saat A mengakses file dari B maka A berfungsi sebagai client dan saat A memberi akses file kepada C maka A berfungsi sebagai server. Kedua fungsi itu dilakukan oleh A secara bersamaan maka jaringan seperti ini dinamakan peer to peer.

Berdasarkan topologi jaringan, jaringan komputer dapat dibedakan atas:

• Topologi bus
• Topologi bintang
• Topologi cincin
• Topologi mesh
• Topologi pohon
• Topologi linier

Berdasarkan kriterianya, jaringan komputer dibedakan menjadi 4 yaitu:

1. Berdasarkan distribusi sumber informasi/data

- Jaringan terpusat Jaringan ini terdiri dari komputer klient dan server yang mana komputer klient yang berfungsi sebagai perantara untuk mengakses sumber informasi/data yang berasal dari satu komputer server

- Jaringan terdistribusi Merupakan perpaduan beberapa jaringan terpusat sehingga terdapat beberapa komputer server yang saling berhubungan dengan klient membentuk sistem jaringan tertentu.

2. Berdasarkan jangkauan geografis dibedakan menjadi:

- Jaringan LAN merupakan jaringan yang menghubungkan 2 komputer atau lebih dalam cakupan seperti laboratorium, kantor, serta dalam 1 warnet.

- Jaringan MAN Merupakan jaringan yang mencakup satu kota besar beserta daerah setempat. Contohnya jaringan telepon lokal, sistem telepon seluler, serta jaringan relay beberapa ISP internet.

- Jaringan WAN Merupakan jaringan dengan cakupan seluruh dunia. Contohnya jaringan PT. Telkom, PT. Indosat, serta jaringan GSM Seluler seperti Satelindo, Telkomsel, dan masih banyak lagi.

3. Berdasarkan peranan dan hubungan tiap komputer dalam memproses data.

- Jaringan Client-Server Pada jaringan ini terdapat 1 atau beberapa komputer server dan komputer client. Komputer yang akan menjadi komputer server maupun menjadi komputer client dan diubah-ubah melalui software jaringan pada protokolnya. Komputer client sebagai perantara untuk dapat mengakses data pada komputer server sedangkan komputer server menyediakan informasi yang diperlukan oleh komputer client.

-Jaringan Peer-to-peer Pada jaringan ini tidak ada komputer client maupun komputer server karena semua komputer dapat melakukan pengiriman maupun penerimaan informasi sehingga semua komputer berfungsi sebagai client sekaligus sebagai server.

4. Berdasarkan media transmisi data

- Jaringan Berkabel (Wired Network) Pada jaringan ini, untuk menghubungkan satu komputer dengan komputer lain diperlukan penghubung berupa kabel jaringan. Kabel jaringan berfungsi dalam mengirim informasi dalam bentuk sinyal listrik antar komputer jaringan.

- Jaringan Nirkabel (Wireless Network) Merupakan jaringan dengan medium berupa gelombang elektromagnetik. Pada jaringan ini tidak diperlukan kabel untuk menghubungkan antar komputer karena menggunakan gelombang elektromagnetik yang akan mengirimkan sinyal informasi antar komputer jaringan.

Sumbernya dari

http://id.wikipedia.org/wiki/Jaringan_komputer