Assalamualaikum, selamat malam teman-teman semua, kali ini
saya akan posting program mencari luas segitiga dengan menggunakan Delphi..
Langsung saja yang teman-teman :)
Include
Jika teman – teman sudah membuat tampilan seperi gambar diatas,
double klik pada tombol hitung kemudian masukkan source code berikut :
var
a:integer;
t:integer;
Luas:real;
begin
a:=strtoint(edit1.Text);
t:=strtoint(edit2.Text);
Luas:=1/2*a*t;
edit3.Text:=FloatTostr(Luas);
end;
Sebenarnya intinya cuma itu, tapi saya menambahkan dua
tombol button lagi..
yaitu tombol ulang dan tombol keluar.
Jika teman-teman juga menambahkan tombol itu, double klik
pada tombol ulang dan masukkan source code berikut :
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
source code diatas berguna untuk menghapus atau membersihkan
bagian edit jika kita ingin memasukkan angka lainnya.
Kemudian pada tombol keluar, saya menggunakan komentar, tapi
jika teman-teman lebih memilih sederhana, gampangnya tinggal memasukka code
:
Close;
Tapi jika ingin menambahkan komentar pada tombol keluarnya masukkan source code
berikut :
begin
if(application.MessageBox('Anda Yakin ingin
Keluar??','Informasi',MB_YESNO)=idYES)then
close;
end;
Demikian tutorial singkat dari saya :D
Koment jika ada kesalahan, kita sama-sama belajar :D
Hehehee...
Salam Anak IT (y)
Related Posts: