CONTOH PROGRAM KALKULATOR DENGAN MENGGUNAKAN DELPHI 2009

unit Unit1KALKULATOR; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; hasil : integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin hasil := Abs(strtoint(edit1.Text)); edit3.Text := inttostr(hasil); end; procedure TForm1.Button2Click(Sender: TObject); var nilaipecahan : real; begin nilaipecahan := Trunc(strtofloat(edit1.Text)); edit3.Text := floattostr(nilaipecahan); end; procedure TForm1.Button3Click(Sender: TObject); begin hasil := strtoint(edit1.Text) + strtoint (edit2.Text); edit3.Text := inttostr(hasil); end; procedure TForm1.Button4Click(Sender: TObject); begin hasil := strtoint(edit1.Text) - strtoint (edit2.Text); edit3.Text := inttostr(hasil); end; procedure TForm1.Button5Click(Sender: TObject); begin hasil := strtoint(edit1.Text) * strtoint (edit2.Text); edit3.Text := inttostr(hasil); end; procedure TForm1.Button6Click(Sender: TObject); var hasilbagi : real; begin hasilbagi := strtoint(edit1.Text) / strtoint (edit2.Text); edit3.Text := floattostr(hasilbagi); end; end.