Saturday 2 November 2013

Assalamu'alikum wr.wb.
Pada kesempatan kali ini saya akan membagikan tentang program sederhana delphi menghitung luas dan volume kerucut

Langkah pertama masuk ke program dephi kemudian desain form seperti dibawah ini dilengkapi dengan gambar kerucut. Untuk cara memasukan gambar bisa dilihat di Cara masukan gambar




Langkah ke dua masukan baris program di bawah ini dengan cara double klik pada ke tiga button.. button1 untuk Hitung, button 2 untuk reset dan button3 untuk close.

procedure TForm1.Button1Click(Sender: TObject);
 var t,r,s,v,l:Real;
begin
  t:=StrToFloat(Edit1.Text);
  r:=StrToFloat(Edit2.Text);
  s:=StrToFloat(Edit3.Text);
  v:=(1/3)*3.14*r*r*t;
  l:=3.14*r*(r+s);
  Edit4.Text:=FloatToStr(v);
  Edit5.Text:=FloatToStr(l);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;
end.

Dengan klik run maka tampilanya akan seperti di bawah ini :



Sekian yang dapat saya sampaikan tentang program sederhana menghitung luas kerucut menggunakan delphi, semoga bermanfaat.
Wassalamu'alikum wr. wb.

0 comments:

Post a Comment