Kalkulator Ver 1.0 (Delphi7)

Pada Postingan Sebelumnya kita telah Membahas satu per satu mengenai Penjumlahan, Pengurangan, Pembagian dan Perkalian, kali ini coba kita gabungkan dari ke EMPAT rangkaian bilangan tersebut jadi satu Program Mungkin akan lebih simple... Kali ini saya Buat Tutorial KALKULATOR dengan Delphi mungkin sedikit sederhana dan mudah untuk dibuat.

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