Archive
Mengenai Saya
Pengikut
Rabu, 23 Mei 2012
koneksi 2 komputer peer to peer windows xp & windows 7
Published :
21.57
Author :
adi susanto
pagi guyss...
kali ini mau posting gimana cara koneksikan 2 buah komputer atau lebih sehingga bisa saling terhubung.... dan kenapa peer to peer???? disebut peer to peer karena semua komputer yang terhubung memiliki kedudukan yang sama dalam jaringan tersebut....
silahkan donnload materi nya disini
Minggu, 06 Mei 2012
Program Delphi 7
Published :
20.14
Author :
adi susanto
haii guyss....
kali ini saya mau bikin program sederhana dari delphi 7. dalam program tersebut ada beberapa skript For To Do, For Downto Do, While Do, Repeat Until. termasuk juga ada script untuk membuat pangkat bilangan. semoga teman-teman bisa membedakan beberapa skript tersebut.
CEK IT DOT>>>>
procedure TForm1.btkeluarClick(Sender: TObject);
begin
close;
end;
procedure TForm1.fortodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=1 to 10 do
begin
b:=b+inttostr(j)+' ';
j:=j+2;
end;
label1.caption:=b;
end;
procedure TForm1.fordowntodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=10 downto 1 do
begin
b:=b+inttostr(i)+' ';
j:=j+2;
end;
label2.Caption:=b;
end;
procedure TForm1.whiledoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
i:=1;
b:='';
while i<=10 do begin b:=b+inttostr(i)+' '; i:=i+1; end; label3.Caption:=b; end; procedure TForm1.repeatuntilClick(Sender: TObject); var i, j : integer; b : string; begin i:=1; b:=''; repeat b:=b+inttostr(i)+' '; i:=i+1; until i>10;
label4.caption:=b;
end;
procedure TForm1.bt_pangkatClick(Sender: TObject);
var
bil, hasil, pangkat, a : integer;
begin
bil := strtoint(edit1.text);
hasil := bil;
pangkat := strtoint(edit2.text);
if edit2.text='0' then edit3.text:='1' else
if edit2.Text='1' then edit3.Text:=edit1.Text
else
begin
for a :=2 to pangkat do
hasil :=hasil*bil;
edit3.text:=inttostr(hasil);
end;
end;
end.
untuk tambilan hasilnya seperti gambar di bawah ne.....
dan berikut adalah hasil jadinya....
ok demikian tutorial kali ini....semoga bermanfaat....
see u... : )
kali ini saya mau bikin program sederhana dari delphi 7. dalam program tersebut ada beberapa skript For To Do, For Downto Do, While Do, Repeat Until. termasuk juga ada script untuk membuat pangkat bilangan. semoga teman-teman bisa membedakan beberapa skript tersebut.
CEK IT DOT>>>>
procedure TForm1.btkeluarClick(Sender: TObject);
begin
close;
end;
procedure TForm1.fortodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=1 to 10 do
begin
b:=b+inttostr(j)+' ';
j:=j+2;
end;
label1.caption:=b;
end;
procedure TForm1.fordowntodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=10 downto 1 do
begin
b:=b+inttostr(i)+' ';
j:=j+2;
end;
label2.Caption:=b;
end;
procedure TForm1.whiledoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
i:=1;
b:='';
while i<=10 do begin b:=b+inttostr(i)+' '; i:=i+1; end; label3.Caption:=b; end; procedure TForm1.repeatuntilClick(Sender: TObject); var i, j : integer; b : string; begin i:=1; b:=''; repeat b:=b+inttostr(i)+' '; i:=i+1; until i>10;
label4.caption:=b;
end;
procedure TForm1.bt_pangkatClick(Sender: TObject);
var
bil, hasil, pangkat, a : integer;
begin
bil := strtoint(edit1.text);
hasil := bil;
pangkat := strtoint(edit2.text);
if edit2.text='0' then edit3.text:='1' else
if edit2.Text='1' then edit3.Text:=edit1.Text
else
begin
for a :=2 to pangkat do
hasil :=hasil*bil;
edit3.text:=inttostr(hasil);
end;
end;
end.
untuk tambilan hasilnya seperti gambar di bawah ne.....
dan berikut adalah hasil jadinya....
ok demikian tutorial kali ini....semoga bermanfaat....
see u... : )
Langganan:
Postingan (Atom)
Cari Blog Ini
Popular Posts
-
haaii guyyss.... met pagi.... assalamualaikum wr. wb. kali ini saya mau bikin program konversi dari angka ke huruf menggunakan delphi......
-
sistem operasi ada bahasa kerennya Operating Sistem (OS) secara sederhana dapat diartikan sebagai sebuah program yang bertugas menghubungkan...