Fungsi IF pada lazarus (Kasus Mas Rifki)

Membuat sebuah kondisi, dimana kita mengingikan suatu nilai akan menyesuaikan jika kondisi lain berubah. Lihat teks yang di cetak tebal.

procedure TForm1.Button1Click(Sender: TObject);
var
b, ts, d, fc, fy ,Ab :single;
T, C, a, d1, Mn :single;
begin
b:=StrTofloat(Edit1.Text);
ts:=StrTofloat(Edit2.Text);
d:=StrTofloat(Edit3.Text);
fc:=StrTofloat(Edit4.Text);
fy:=StrTofloat(Edit5.Text);
Ab:=StrTofloat(Edit6.Text);

T:=Ab*fy;
Edit7.Text:=FloatToStr(T);

a:=(Ab*fy)/(0.85*fc*b);
If a > 20 then //Seumpama a lebih besar dari 20
Begin

//di sini di isi kondisi yang diinginkan
Edit9.Text:=FloatToStr(a);
end;

C:=0.85*fc*a*b;
Edit8.Text:=FloatToStr(C);

d1:=((d/2)+ts-(a/2));
Edit10.Text:=FloatToStr(d1);

Mn:=C*d1;
Edit11.Text:=FloatToStr(Mn);
end;

2 Responses to “Fungsi IF pada lazarus (Kasus Mas Rifki)”

  1. Ferdy Lpu Says:

    Gak ngerti yang beginian..

    Berkunjung mas🙂

    • maseadi Says:

      Hehehe… Ya Mas Ferdy…
      Kemarin saya berkunjung ke mas Ferdy tapi gk ninggalin jejak… tutu “Pola Pikir yang tidak sehat”..


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