Kamis, 06 September 2012

Kalkulator Sederhana dengan Delphie

Gambar
                         



Buat para pembaca yang berminat untuk mencoba membuat kalkulator sederhana seperti gambar diatas, 
berikut nih langkah - langkahnya :
1. Buat Form baru terlebih dahulu,kemudian letakkan 1 buah Panel yang berada pada tab standard

2. Seletah itu,pada tab properties hilangkan caption panel tersebut. 

3. Kemudian masih pada tab standard letakkan 6 buah button,3 buah data edit dan 3 buah label.

4. Setelah itu atur letak kesemuanya seperti terlihat pada gambar diatas



Nah sekarang pembaca tinggal meletakkan sedikit coding pada masing masing button tersebut.
berikut cara peletakannya  :
unit kalkulTR;
interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    bil1: TEdit;
    bil2: TEdit;
    Label3: TLabel;
    total: TEdit;
    ulang: TButton;
    bag: TButton;
    kal: TButton;
    krg: TButton;
    tmb: TButton;
    kel: TButton;
    procedure tmbClick(Sender: TObject);
    procedure kelClick(Sender: TObject);
    procedure ulangClick(Sender: TObject);
    procedure krgClick(Sender: TObject);
    procedure kalClick(Sender: TObject);
    procedure bagClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bagClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a/b;
total.Text:=floattostr(c);
end;
procedure TForm1.kalClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a*b;
total.Text:=floattostr(c);
end;
procedure TForm1.kelClick(Sender: TObject);
begin
IF(Application.MessageBox('Yakin nih mau keluar?','infomasi',mb_yesno)=idyes)then
close;
end;
procedure TForm1.krgClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a-b;
total.Text:=floattostr(c);
end;
procedure TForm1.tmbClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a+b;
total.Text:=floattostr(c);
end;
procedure TForm1.ulangClick(Sender: TObject);
begin
bil1.Clear;
bil2.Clear;
total.Clear;
end;
end.


----Lucrative next to you----

Tidak ada komentar:

Posting Komentar