Membuat kalkulator mini dengan delphi 7

Bagaimana cara membuat kalkulator mini dengan Delphi? Mudah koq!

berikut caranya :

1.design form (kurang lebih) seperti dibawah ini :

   kemudian tambahkan variabel :

   var

   a , b , c : integer;

   d : real;

2.ubah property “name” dari ComboBox1 menjadi tanda

3.pilih tombol ComboBox-nya, kemudian dobel klik property “Items“, dan isi dengan :

   +

   -

   x

   /

 4.property “ItemIndex” diubah menjadi 0.

 5.dobel klik pada tombol “sama dengan”/”=”, lalu tulis kode berikut: 

    a := StrToInt(Edit1.Text);

  b := StrToInt(Edit2.Text);

  if (a = 0) and (b = 0) then

  begin

  end

  else

  begin

    if tanda.ItemIndex = 0 then

    begin

      c := a + b;

      Edit3.Text := IntToStr(c);

    end

    else if tanda.ItemIndex = 1 then

    begin

      c := a - b;

      Edit3.Text := IntToStr(c);

    end

    else if tanda.ItemIndex = 2 then

    begin

      c := a * b;

      Edit3.Text := IntToStr(c);

    end

    else

    begin

      d := a / b;

      Edit3.Text := FloatToStr(d);

    end;

  end;

  Edit1.Text := '0';

  Edit2.Text := '0';

6.Terakhir, dobel klik pada tombol “CE” lalu isi dengan kode berikut: 

  Edit1.Text := '0';

   Edit2.Text := '0';

   Edit3.Text := '0';

7.Cobalah jalankan dengan menekan F9