berikut SCREENSHOT nya :




Berikut Tutorial dengan Coding Lengkapnya :



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Panel1: TPanel;
    Exit1: TMenuItem;
    N1: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Shape1: TShape;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button6: TButton;
    StatusBar1: TStatusBar;
    procedure Exit1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
//keluar aplikasi
Application.Terminate;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
bil1,bil2,hsl:Real;
begin
if (edit2.Text='') or (edit1.Text='')then
begin
ShowMessage('Bilangan Wajib Di Isi');
end
else
begin
bil1:=strtoFloat(edit1.Text);
bil2:=strtoFloat(edit2.Text);
hsl:=bil1+bil2;// edit1 ditambah edit2
edit3.Text:=floattostr(hsl);//edit3 di isi dari hasil Penjumlahan bilangan 1 dan 2
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then {No Action...}
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
edit2.SetFocus;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//code mengosongkan TEDIT
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then {No Action...}
  else
  Key := Chr(0);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
bil1,bil2,hsl:Real;
begin
if (edit2.Text='') or (edit1.Text='')then
begin
ShowMessage('Bilangan Wajib Di Isi');
end
else
begin
bil1:=strtoFloat(edit1.Text);
bil2:=strtoFloat(edit2.Text);
hsl:=bil1-bil2;// edit1 dikurang edit2
edit3.Text:=floattostr(hsl);//edit3 di isi dari hasil pengurangan bilangan 1 dan 2
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
bil1,bil2,hsl:Real;
begin
if (edit2.Text='') or (edit1.Text='')then
begin
ShowMessage('Bilangan Wajib Di Isi');
end
else
begin
bil1:=strtoFloat(edit1.Text);
bil2:=strtoFloat(edit2.Text);
hsl:=bil1*bil2;// edit1 di kali edit2
edit3.Text:=floattostr(hsl);//edit3 di isi dari hasil perkalian bilangan 1 dan 2
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
bil1,bil2,hsl:Real;
begin
If edit2.Text='0' then
begin
edit3.Text:='Tidak Bisa dibagi nol';
end
else
if (edit2.Text='') or (edit1.Text='')then
begin
ShowMessage('Bilangan Wajib Di Isi');
end
else
begin
bil1:=strtoFloat(edit1.Text);
bil2:=strtoFloat(edit2.Text);
hsl:=bil1/bil2; //edit1 dibagi edit 2
edit3.Text:=floattostr(hsl);//edit3 di isi dari hasil pembagian bilangan 1 dan 2
end;
end;

procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//apabila mouse mendekati Edit3
edit3.Hint:=edit3.Text;
end;

end.


Untuk SourceCodenya silahkan Download dibawah ini via Mediafire