Home » » Membuat Kalkulator Dengan BORLAN DELPHI 7

Membuat Kalkulator Dengan BORLAN DELPHI 7

Written By eko dain nuraffandi on Minggu, 03 Februari 2013 | Minggu, Februari 03, 2013

Design form ini untuk membuat kalkulator sederhana, tapi program ini hanya sederhana karena hanya dapat menghitung pengurangan, penjumlahan, perkalian dan pembagian. Setidaknya kita sudah bisa membuatnya dengan menggunakan Delphi 7.
Cara membuatnya juga tidak sulit, sangat sederhana dan hanya membutuhkan beberapa komponen yang ada di Menu Delphi 7. Untuk Lebihjelasnya langsung saja ke TKP.


Langkah pertama, siapkan form Delphi 7, seperti yang gambar di atas, komponen yang di butuhkan untuk membuat kalkulator sederhana adalah sebagai berikut :


Komponen
Name
Caption
Form
Form1
Kalkulator (judul program)
Label
Label1
Nilai 1
Label
Label2
Nilai 2
Label
Label3
Hasil
GroupBox
GroupBox1
(kosong)
Button
Button1
+ (additon)
Button
Button2
- (Reduction)
Button
Button3
X (Multiplication)
Button
Button4
: (Division)
Button
Button5
Clear
Button
Button6
Exit
Edit.text
Edit1.text
(kosong)
dit.text
Edit2.text
(kosong)
Edit.text
Edit3.text
(kosong)


Langkah kedua, masukkan script di bawah ini :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a+b;
    Edit3.Text :=FloatToStr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a-b;
    Edit3.Text :=FloatToStr(c);


end;

procedure TForm1.Button3Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a*b;
    Edit3.Text :=FloatToStr(c);


end;

procedure TForm1.Button4Click(Sender: TObject);
var
a,b,c : Double;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  c:= a/b;
    Edit3.Text :=FloatToStr(c);


end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Close
end;

end.


Silahkan Di Compile, jika sudah bisa di Compile maka Kalkulator Sederhana ini telah siap digunakan. Tapi jika masih ada yang error maka koreksi kembali script yang ada di Form dengan yang ada pada postingan ini. Oke jangan lupa Di Simpan Project tadi, jika tidak di simpan maka sia-sia kerja keras selama ini.
Share this article :

0 komentar:

Poskan Komentar

Diberdayakan oleh Blogger.
 
Support : Your Link | Your Link | Your Link
Copyright © 2013. Sekedar Belajar - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger