"Belajar Itu Indah"

selama saya kuliah banyak hal-hal baru yang bisa dipelajari , ya salah satunya membuat program sederhana ini dengan menggunakan delphi.

langsung saja ya keintinya.. ^_^.

langkah pertama : desain form terlebih dahulu

posisinya bisa dikreasikan sendiri.. oh ia sebelumnya jangan lupa untuk mengingat rumus bujur sangkar nya ya… nah ini dia untuk luas bujur sangkar = sisi*sisi dan untuk keliling bujur sangkar= 4 * sisi . jadi kita hanya membutuhkan satu edit box untuk menampung nilai sisi. bisa diperhatikan gambar form diatas..

langkah kedua : double click untuk button hitung luas. kemudian tuliskan coding untuk luas bujur sangkar berikut :

procedure TForm1.HitungLuasClick(Sender: TObject);

var hasil : real;
begin
hasil:=strtofloat(edit1.Text)*strtofloat(edit1.Text);
label11.Caption:=floattostr(hasil);
end;

setelah itu kembali pada desain bisa dengan menekan tombol F12 pada keyboard.

langkah ketiga : double click untuk button hitung keliling. kemudian tuliskan coding untuk keliling bujur sangkar berikut :

procedure TForm1.HitungKelilingClick(Sender: TObject);

var hasil : real;
begin

hasil:=4*(strtofloat(edit1.text));
Label12.Caption:=FloatToStr(hasil);

end;

//setelah itu kembali ke desain form dengan menekan tombol F12

langkah keempat  : double click pada button kembali keawal .

procedure TForm1.kembalikeawalClick(Sender: TObject);

begin

edit1.clear

end;

langkah kelima  : double click pada button keluar.

procedure TForm1.keluarClick(Sender: TObject);

begin

application.terminate

end;

nah jika sudah selesai anda bisa menjalankannya dengan menekan tombol F9 pada keyboard . masukkan deh angka yang anda inginkan .

// jika ada kesalahan bisa anda tinggalkan komentar… &  selamat mencoba……….

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: