cara membuat kalkulator mengguanakan bahasa case di delphi 7

    Oke gan, kali ini saya akan membagikan agan semua coding case untuk membuat calculator dengan menggunakan delphi 7

ini adalah gambar kalkulator yang dudah jadi 

bagian pertama
ini adalah coding tombol button keluar dari kalkulator

procedure TForm1.Button1Click (Sender: TObject);
begin
    Application.Terminate;
end;



bagian kedua
ini adalah coding untuk combobox yang sudah agan buat sebelumnya

procedure TForm1.ComboBox1Change (Sender: TObject);
var angka1, 
      angka2, 
      hasil    :real;
 begin
      case ComboBox1.ItemIndex of
        0 : begin
              angka1 := StrToFloat (Edit1.Text);
             angka2 := StrToFloat (Edit2.Text);
             hasil := angka1 * angka2;
              Edit3.Text := FloatToStr (hasil);
        end;
         1 : begin
              angka1 := StrToFloat (Edit1.Text);
             angka2 := StrToFloat (Edit2.Text);
             hasil := angka1 / angka2;
              Edit3.Text := FloatToStr (hasil);
        end;
         2 : begin
              angka1 := StrToFloat (Edit1.Text);
             angka2 := StrToFloat (Edit2.Text);
             hasil := angka1 + angka2;
              Edit3.Text := FloatToStr (hasil);
        end;
         3 : begin
              angka1 := StrToFloat (Edit1.Text);
             angka2 := StrToFloat (Edit2.Text);
             hasil := angka1 - angka2;
              Edit3.Text := FloatToStr (hasil);
        end;
      end;
   end;
end.

 semoga bermanfaat untuk agan semua 

Share This :