pemograman

• 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';

Tweet