Coretan Kuliah

Algoritma Pemrograman

Program Kalkulator Sederhana (Delphi 7)

LISTING PROGRAM

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a + b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a - b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

a,b : integer;

c : real;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a/b;

Edit3.Text := floattostr(c);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a * b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

end.

LOGIKA PROGRAM

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a + b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a - b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

a,b : integer;

c : real;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a/b;

Edit3.Text := floattostr(c);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a * b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

end.

Program pada Delphi menggunakan bahasa pemrograman mirip seperti pascal. Pada LISTING PROGRAM bagian yang pertama adalah bagian desain form. Pada form yang saya buat terdapat komponen Label, Edit, dan Button. Label digunakan untuk memberikan nama atau judul pada program, contoh : KALKULATOR. Edit digunakan untuk menginput angka yang akan dihitung dan sebagai kolom untuk hasil perhitungan. Button digunakan untuk memproses perhitungan, dalam program ini button nya adalah Tambah, Kurang, Kali, Bagi, dan Clear.

Berikutnya adalah menulis program pada button perhitungan aritmatik agar button nya berfungsi. Yang pertama adalah BUTTON TAMBAH (+). Ketika menulis program pada delphi selalu diawali dengan kata “procedure”, kemudian mendeklarasikan variabel yang akan kita gunakan, serta jenis variabel nya var a, b, c : integer; , kemudian mulai menuliskan program perhitungannya , diawali dengan kata begin dan diakhiri dengan end;. Selanjutnya ada strtoint yang fungsi nya untuk merubah type data string menjadi integer.

procedure TForm1.Button2Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a - b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

a,b : integer;

c : real;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a/b;

Edit3.Text := floattostr(c);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a * b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

end.

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a + b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a - b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

a,b : integer;

c : real;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a/b;

Edit3.Text := floattostr(c);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a * b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

end.

Yang kedua adalah BUTTON KURANG ( - ) , sama seperti pada Button Tambah, yang membedakan hanyalah perhitungan aritmatika nya (bagian ini adalah proses pengurangan).

Selanjutnya kita membuat BUTTON Kali dan Bagi. Sama juga seperti button tambah dan kurang. Yang membedakan hanya operator aritmatik nya saja.

procedure TForm1.Button3Click(Sender: TObject);

var

a,b : integer;

c : real;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a/b;

Edit3.Text := floattostr(c);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

a,b,c : integer;

begin

a := strtoint(Edit1.Text);

b := strtoint(Edit2.Text);

c := a * b;

Edit3.Text := inttostr(c);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

end.

Edit3.Text = inttostr(c); , digunakan untuk mencetak hasil perhitungan pada kolom Edit3, dimana hasil perhitungannya adalah yang di simpan di variabel C.

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

end.

Yang terakhir adalah Button Clear yang fungsi nya untuk menghapus data perhitungan sebelumnya. Program pada delphi selalu diakhiri dengan end; dan end. pada bagian paling akhir dari sebuah program.

OUTPUT PROGRAM

No comments

, by Unknown

Pages

Program Kalkulator Sederhana (Delphi 7)

Gunadarma University

Gunadarma Site

Labels

Blog Archive

Translate