Pertemuan Pertama Membuat Aplikasi Menghitung Luas Segitiga dengan Lazarus

Perhatikan gambar di bawah ini, setelah anda memahami silahkan praktekkan dalam aplikasi lazarus. Component yang di pakai adalah :

  1. Label
  2. Button
  3. Edit

segitiga

Langkah berikutnya, Klik dua kali di button Hitung dan masukkan kode di bawah ini. Yang bercetak tebal.

procedure TForm1.Button1Click(Sender: TObject);
var
  alas,tinggi,luas:real;
begin
  alas:=strtofloat(Edit1.Text);
  tinggi:=strtofloat(Edit2.Text);
  luas:=(alas*tinggi)/2;
  Edit3.Text:=floattostr(luas);
end;                

Setelah anda benar memasukkan code diatas, coba run dengan tekan F9, dan isikan nilai untuk mencobanya. Untuk penjelasan lebih lanjut akan di sampaikan jika ada yang kurang paham.

Semoga bermanfaat.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s