ketentuan gambar :




penjelasan : {harap melihat nama caption atau text nya:spt button,edit..text}


procedure TForm1.Button10Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '0';
end;

procedure TForm1.Button11Click(Sender: TObject);
var a,b,c:integer;
begin
edit2.Text:=edit2.Text + '+';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;

procedure TForm1.Button12Click(Sender: TObject);
var a,b,c:single;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit3.Text);

if Edit2.Text = '+' then
begin
b := a + b;
edit3.Text :=floattostr(b);
end

Else if Edit2.Text = '-' then
begin
b := a - b ;
edit3.Text :=floattostr(b);
end
Else if Edit2.Text = 'x' then
begin
b := a * b;
edit3.Text :=floattostr(b);
end
Else if Edit2.Text = ':' then
begin
b := a / b;
edit3.Text :=floattostr(b);
end;


end;

procedure TForm1.Button13Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.SetFocus;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
edit2.Text:=edit2.Text + 'x';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
edit2.Text:=edit2.Text + ':';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
edit2.Text:=edit2.Text + '-';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '9';
end;

end.





*************************Selamat mencoba********************************************

Grup A
Tim Laga Gol
Poin Ma M S K GM GK
Meksiko 1 1 0 1 0 1 1
Afrika Selatan 1 1 0 1 0 1 1
Prancis 1 1 0 1 0 0 0
Uruguay 1 1 0 1 0 0 0

Grup B
Tim Laga Gol
Poin Ma M S K GM GK
Korea Selatan 3 1 1 0 0 2 0
Argentina 3 1 1 0 0 1 0
nigeria 0 1 0 0 1 0 1
Yunani 0 1 0 0 1 0 2

Grup C
Tim Laga Gol
Poin Ma M S K GM GK
Slovenia 3 1 1 0 0 1 0
Amerika Serikat 1 1 0 1 0 1 1
Inggris 1 1 0 1 0 1 1
Aljazair 0 1 0 0 1 0 1

Grup D
Tim Laga Gol
Poin Ma M S K GM GK
Jerman 3 1 1 0 0 4 0
Ghana 3 1 1 0 0 1 0
Serbia 0 1 0 0 1 0 1
Australia 0 1 0 0 1 0 4

Grup E
Tim Laga Gol
Poin Ma M S K GM GK
Belanda 3 1 1 0 0 2 0
Jepang 3 1 1 0 0 1 0
Kamerun 0 1 0 0 1 0 1
Denmark 0 1 0 0 1 0 2

Grup F
Tim Laga Gol
Poin Ma M S K GM GK
Selandia Baru 1 1 0 1 0 1 1
Paraguay 1 1 0 1 0 1 1
Slowakia 1 1 0 1 0 1 1
Italia 1 1 0 1 0 1 1

desain kalkulator..sapa yg bisa delphi nya?
tolong di bantu y???

para pembaca dan teman2 sekalian...saya akan menjelaskan arti sahabat yg paling berharga melalui sebuah ilustrasi cerita yg di jadikan film di sebuah stasiun televisi ternama di Indonesia ini..

ada seseorang sebut saja angel..saat ia kecil ia telah mempunyai seorang sahabat sebut saja Rizla..saat angel kecil ia hidup di kalangan menengah...sedangkan Rizla ia hidup serba berkecukupan kalangan atas...mereka selalu bersama saat disekolah ataupun bermain..dan Rizla memberikan uang jajan kepada angel..smpai lulus SD mreka selalu bersama sampai akhirnya ayah dari angel mendapatkan tugas untuk mengurusin proyek di luar kota sebut saja batam...mereka yg setiap hari bersama harus menangis bersama pula cz perpisahan itu...tp angel setahun sekali mengunjungi rizla sahabatnya..setelah beberapa tahun ayahnya angel mendpatkan proyek yang lebih besar sebut saja negara singapore...akhirnya angel sekeluarga pindah ke singapore..dan angel melanjutkan studi di sana..angel dan rizla akhirnya tidak bisa bertemu lagi...kesedihan yg mendalam menyelimuti mereka,,
setelah beberapa tahun kemudian angel yang telah menyelesaikan studinya SMA,,ia ingin kembali ke Indonesia..angel tidak mengetahui bagaimana kbar sahabatnya rizla...cz telah lama mereka tidak bertemu...akhirnya angel pun mendatangi rumah Rizla...tapi apa yang terjadi sungguh tidak terduga dengan pa yg terpikir oleh angel..Rumah rizla seperti tidak terawat lagi..banyak tumbuhan liar yg tumbuh...cz angel tidak percaya dengan apa yg ia liat..ia bertanya kepada seorang Bapak yg sedang berkebun..."Pak bener itu rumah rizla???trus rizla nya kemana"tanya angel..."Pasti non temen lamanya rizla ya dan udah lama ga ketemu ya?? ke 2 orang tua rizla telah meninggal non..kasihan sekarang rizla non..ia(rizla)miskin dan sakit-sakitan...udah itu yatim piatu pula"jawab Bapak itu..."bapak tau ga rizla sekarang di mana??"tanya angel.."di dekat hutan sana non"jelas bapak tsb.."makasih ya pak"...
lalu angel pun berjalan menuju hutan dekat rumah lama rizla..setelah sampai di lorong rumah rizla di situ ada seekor kambing kecil..cz angel takut kambing..angel pun berusaha mengusir kambing itu dengan ranting yang telah kering...tp kambing itu jg ga mau pergi..tiba2 ada remaja yg melintas tu lewat saja dari kambing itu..tp 20cm kemudian remaja itu di gigit ular berbisa..lalu angel pun berterima kasih pada si kambing itu..tdk lama kemudian rizla datang dan mengajak angel ke rumah sederhananya...
"ngel,kamu masih inget q??"tanya rizla..
"masih la riz,,kn qm sahabat dan selalu bersma dengan q"jawab angel..
"Riz,,q sekarang pengen ngebahagiain qm,,cz qm dulu kecil udh mebahagiain q..."kata angel
"qm udah inget dan datang pun q udah bahagia..q skarang ga punya apa2 lagi cz orang tuaku udah ga da...dan mungkin q pun akan menyusul mereka..saat ini aku hanya mempunyai seekor kambing itu,,dan q menamai kambing itu barbara"jawab rizla...
"hust jgn bilang gitu..kita ke rumah sakit ya..q ga mau kehilangan kamu rizla..qm ga boleh pergi...
barbara artis yg kita kagumi saat kita kecil dulu kan??"jawab angel..
"udah terlambat angel..q udah ga kuat...q mohon kenangan terakhir q..ambilah kambing itu dan rawat dia...mungkin itu yg bisa q beri utkmu"kata rizla..
"q ga mau kehilangan qm..."
sebelum angel selesai berbicara...Rizla sahabatnya menghembuskan nafas terakhirnya dan menutup mata selamanya di pelukan dan pangkuan angel.....
**selesai**

para pembaca dan teman2 sekalian..inti dari cerita di atas adalah setia dari seorang sahabat smpai akhirnya mereka bener2 berpisah slamanya..sahabat itu berarti ia selalu hadir utk qt saat kpn aja...
kebahagiaan itu lah yg diharapkan seorang sahabat...sahabat adalah t4 di mana qt berbagi perasaan...
mantan pacar banyak kita dengar,,tp mantan sahabat jarang kita dengar..
sebenarnya cerita di atas mengingatkan saya pada seorang sahabat..ia hanya bersma kami selama 9bulan...ia menderita penyakit yg akhirnya merenggut nyawanya..tp saya salut dg dia namanya Ertha maretha..saya salut pada ertha cz ia mampu menghadapi deritanya..sampai saat nya ia pulang pada Bapa...
Ertha qmi yakin engkau udah bahagia bersama Bapa di surga...19maret2007

FTP (singkatan dari File Transfer Protocol) adalah sebuah protokol Internet yang berjalan di dalam lapisan aplikasi yang merupakan standar untuk pentransferan berkas (file) komputer antar mesin-mesin dalam sebuah internetwork.

FTP merupakan salah satu protokol Internet yang paling awal dikembangkan, dan masih digunakan hingga saat ini untuk melakukan pengunduhan (download) dan penggugahan (upload) berkas-berkas komputer antara klien FTP dan server FTP. Sebuah Klien FTP merupakan aplikasi yang dapat mengeluarkan perintah-perintah FTP ke sebuah server FTP, sementara server FTP adalah sebuah Windows Service atau daemon yang berjalan di atas sebuah komputer yang merespons perintah-perintah dari sebuah klien FTP. Perintah-perintah FTP dapat digunakan untuk mengubah direktori, mengubah modus transfer antara biner dan ASCII, menggugah berkas komputer ke server FTP, serta mengunduh berkas dari server FTP.



Sebuah server FTP diakses dengan menggunakan Universal Resource Identifier (URI) dengan menggunakan format ftp://namaserver. Klien FTP dapat menghubungi server FTP dengan membuka URI tersebut.
Cara kerja protokol FTP

FTP menggunakan protokol Transmission Control Protocol (TCP) untuk komunikasi data antara klien dan server, sehingga di antara kedua komponen tersebut akan dibuatlah sebuah sesi komunikasi sebelum transfer data dimulai. Sebelum membuat koneksi, port TCP nomor 21 di sisi server akan "mendengarkan" percobaan koneksi dari sebuah klien FTP dan kemudian akan digunakan sebagai port pengatur (control port) untuk (1) membuat sebuah koneksi antara klien dan server, (2) untuk mengizinkan klien untuk mengirimkan sebuah perintah FTP kepada server dan juga (3) mengembalikan respons server ke perintah tersebut. Sekali koneksi kontrol telah dibuat, maka server akan mulai membuka port TCP nomor 20 untuk membentuk sebuah koneksi baru dengan klien untuk mentransfer data aktual yang sedang dipertukarkan saat melakukan pengunduhan dan penggugahan.

FTP hanya menggunakan metode autentikasi standar, yakni menggunakan username dan password yang dikirim dalam bentuk tidak terenkripsi. Pengguna terdaftar dapat menggunakan username dan password-nya untuk mengakses, men-download, dan meng-upload berkas-berkas yang ia kehendaki. Umumnya, para pengguna terdaftar memiliki akses penuh terhadap beberapa direktori, sehingga mereka dapat membuat berkas, membuat direktori, dan bahkan menghapus berkas. Pengguna yang belum terdaftar dapat juga menggunakan metode anonymous login, yakni dengan menggunakan nama pengguna anonymous dan password yang diisi dengan menggunakan alamat e-mail.

1. Komputer klien dapat berupa pc desktop atau laptop yang mempunyai browser dan terkoneksi dengan jaringan internet atau intranet.

2. Komputer yang berfungsi sebagai server, dimana didalamnya terdapat perangkat
lunak web server. Agar komputer ini dapat diakses oleh client maka komputer harus
terhubung ke jaringan (intranet atau internet). Dalam jaringan internet, komputer ini
bisa saja bernama www.google.com, www.bl.ac.id, atau memiliki kode komputer
(disebut IP Address) seperti 202.10.20.10 dan 200.100.50.25.

3. Pertama‐tama, client (user) akan meminta suatu halaman ke (web) server untuk
ditampilkan di komputer client. Misalnya client mengetikkan suatu alamat (biasa
disebut URL) di browser http://www.google.com. Client menekan tombol Enter atau
klik tombol Go pada browser. Lalu apa yang terjadi? Melalui media jaringan (bisa
internet, bisa intranet) dan melalui protokol http, akan dicarilah komputer bernama
www.google.com. Jika ditemukan, maka seolah‐olah terjadi permintaan, “hai google,
ada client yang minta halaman utama nich, ada dimana halamannya?”. Inilah yang
disebut request.

4. Sekarang dari sisi server (web server). Mendapat permintaan halaman utama google
dari client, si server akan mencari‐cari di komputernya halaman sesuai permintaan.
Namanya juga mencari, kadang ketemu, kadang juga tidak ketemu. Jika ditemukan,
maka halaman yang diminta akan dikirimkan ke client (si peminta), namun jika tidak
ditemukan, maka server akan memberi pesan “404. Page Not Found”, yang artinya
halaman tidak ditemukan.