0 Membuat Kalkulator Mini dengan Delphi

Bagaimana cara membuat kalkulator mini dengan Delphi? Mudah!
Berikut Source Codenya.

Pertama, design form (kurang lebih) seperti dibawah ini:

Kemudian tambahkan variabel :

var

  a , b , c : integer;

  d : real;

• Kedua, ubah property “name” dari ComboBox1 menjadi tanda.
• Ketiga, pilih tombol ComboBox-nya, kemudian dobel klik property “Items“, dan isi dengan : 

+

-

x

/

Lalu property “ItemIndex” diubah menjadi 0.
Selanjutnya, 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';

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

  Edit1.Text := '0';

  Edit2.Text := '0';

  Edit3.Text := '0';

Cobalah jalankan dengan menekan F9

Thank's For AaEzha

Artikel Terkait :