Luas Segitiga Dengan Delphi
Pembelajaran Delphi hari ini tentang penggunaan
komponen
- TLabel
- TPanel
- TButton
- TEdit
Komponen komponen ini akan diaplikasikan dalam rumus
Luas Segitiga.
Rumusnya :
L=axt
Bagi newbi, kalau masih bingung liat gambar diatas,
ikuti instruksi dibawah:
a.
Pilih Tlabel 3 buah, ganti nama masing
masing TLabel sesuai selera. Disini nama TLabel nya diganti dengan nama
LabelTinggi, LabelAlas, dan LabelHasil. (cara menggantinya klik Tlabel yang
akan diubah namanya, pada bagian Object Inspector pilih Name, ganti nama nya
sesuai selera. Proses pengubahan nama berlaku untuk semua komponen)
b.
Pilih TEdit 2 buah, ganti nama nya dengan
EditTinggi dan EditAlas.
c.
Pilih TButton 2 buah, ganti namanya dengan
ButtonHitung dan Button Keluar.
d.
Ganti nama form dengan nama FormSegitiga
e.
Pilih TPanel, ganti nama dengan
PanelSegitiga.
Yosh, sekarang masuk pada bagian codingnya.
a.
Klik ButtonHitung, pada Object Inspector
pilih Event. Klik 2 kali pada bagian OnClick. Ketikkan coding seperti contoh
dibawah ini.
procedure
TFormSegitiga.ButtonHitungClick(Sender: TObject);
var
KodeKesalahan : Integer;
Tinggi : Real;
Alas : Real;
Luas : Real;
StrLuas : String;
begin
Val(EditTinggi.Text, Tinggi, KodeKesalahan);
if
KodeKesalahan <> 0 then
begin
ShowMessage('Invalid');
EditTinggi.SetFocus; // Fokus ke edit tinggi
Exit;
//Keluar dari prosedur
end;
Val(EditAlas.Text, Alas, KodeKesalahan);
if
KodeKesalahan <> 0 then
begin
ShowMessage('Invalid');
EditAlas.SetFocus; // Fokus ke edit alas
Exit; //Keluar dari prosedur
end;
//
Hitung Luas Segitiga Siku
Luas :=
0.5 * Tinggi * Alas;
//Konversi dari bilangan luas StrLuas ke LabelHasil
Str(Luas:0:2, StrLuas);
//Tampilkan string luas StrLuas ke LabelHasil
LabelHasil.Caption := 'Luas = ' + StrLuas;
end;
b.
Klik ButtonKeluar, pada Object Inspector
pilih Event. Klik 2 kali pada bagian OnClick. Ketikkan coding seperti contoh
dibawah ini.
procedure
TFormSegitiga.ButtonKeluarClick(Sender: TObject);
begin
FormSegitiga.Close;
end;
c.
Yosh, coba run programnya. Hasilnya seperti
gambar dibawah ini (gambar 2) (kalau masih bingung, bisa langsung komen. Akan saya
jawab sebisa mungkin)
0 komentar:
Posting Komentar