Berbagi dan Belajar

Yang pertama kita harus mendisaign formnya.

1. Sediakan 4 label
2. 4 edit text
3. 1 button

Cara nya adalah

1. Aktifkan buttonnya lalu pilih onklick, adan isikan kode dibawah ini :
    var
        a,b,c,d,e:double;
    begin
    a:=strtoint(edit1.text);
    b:=strtoint(edit3.Text);
    edit2.text:=floattostr((a-110)*1.1);
    c:=strtofloat(edit2.Text);
    d:=1.1+c;
    e:=0.9+c;

      if  b = c then
        begin
        edit4.text:='Ideal';
        end
      else
      if b > d then
        begin
        edit4.Text :='Gemuk';
        end
      else
        begin
        edit4.Text :='Kurus';
        end;
       end;


2. Kemudian Aktifkan form nya dan pilih onshow, lalu ketikan kode dibawah ini  :

    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    edit1.setfocus;

Maka program yang kita buat selesai.