Penjumlahan, Pengurangan, Pembagian dan Perkalian Bilangan di Borland Delphi 7

Posted on Jumat, 06 April 2012 by

Penjumlahan Bilangan dalam delphi ??? Penjumlahan bilangan di delphi yaitu penjumlahan bilangan didalam Program yang kita buat seperti hal nya kalkulator. Kira-kira ada tau tidak gimana cara nya??? untuk yang belum tau saya kasih tau deh.... Open Delphi ANDA !!! Berikut ini saya kasih tutorialnya Penjumlahan, Pengurangan, Pembagian dan Perkalian .

Seperti Gambar dibawah ini :











Tutorial Penjumlahan Di delphi
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, acProgressBar, StdCtrls, sLabel, sEdit, ExtCtrls,
  sPanel, sSkinProvider, sSkinManager, sStatusBar, sBevel;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sPanel1: TsPanel;
    sEdit1: TsEdit;
    sLabelFX1: TsLabelFX;
    sEdit2: TsEdit;
    sProgressBar1: TsProgressBar;
    sEdit3: TsEdit;
    sStatusBar1: TsStatusBar;
    sLabelFX2: TsLabelFX;
    sBevel1: TsBevel;
    procedure sEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure sEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sEdit2KeyPress(Sender: TObject; var Key: Char);
var
bil1,bil2,hsl:integer;
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
bil1:=strtoint(sedit1.Text);
bil2:=strtoint(sedit2.Text);
hsl:=bil1+bil2;
sedit3.Text:=inttostr(hsl);
end;
end;
end;

procedure TForm1.sEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
Sedit2.SetFocus;
end;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;

end.

Tutorial Pengurangan di Delphi
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, sStatusBar, acProgressBar, StdCtrls, sEdit, ExtCtrls,
  sBevel, sLabel, sPanel, sSkinProvider, sSkinManager;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sPanel1: TsPanel;
    sLabelFX1: TsLabelFX;
    sLabelFX2: TsLabelFX;
    sBevel1: TsBevel;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sProgressBar1: TsProgressBar;
    sEdit3: TsEdit;
    sStatusBar1: TsStatusBar;
    procedure sEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure sEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}


procedure TForm1.sEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
Sedit2.SetFocus;
end;
end;
end;


procedure TForm1.sEdit2KeyPress(Sender: TObject; var Key: Char);
var
bil1,bil2,hsl:integer;
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
bil1:=strtoint(sedit1.Text);
bil2:=strtoint(sedit2.Text);
hsl:=bil1-bil2;
sedit3.Text:=inttostr(hsl);
end;
end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;


end.

Tutorial Pembagian di Delphi
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, sStatusBar, acProgressBar, StdCtrls, sEdit, ExtCtrls,
  sBevel, sLabel, sPanel, sSkinProvider, sSkinManager;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sPanel1: TsPanel;
    sLabelFX1: TsLabelFX;
    sLabelFX2: TsLabelFX;
    sBevel1: TsBevel;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sProgressBar1: TsProgressBar;
    sEdit3: TsEdit;
    sStatusBar1: TsStatusBar;
    procedure sEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure sEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}


procedure TForm1.sEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
Sedit2.SetFocus;
end;
end;
end;


procedure TForm1.sEdit2KeyPress(Sender: TObject; var Key: Char);
var
bil1,bil2,hsl:Real;
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
If sedit2.Text='0' then
begin
Sedit3.Text:='Cannot Devide by Zero';
end
else
begin
bil1:=StrToFloat(sedit1.Text);
bil2:=StrToFloat(sedit2.Text);
hsl:=(bil1/bil2);
sedit3.Text:=FloatToStr(hsl);
end;
end;
end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;

end.

Tutorial Perkalian di Delphi
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, sStatusBar, acProgressBar, StdCtrls, sEdit, ExtCtrls,
  sBevel, sLabel, sPanel, sSkinProvider, sSkinManager;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sPanel1: TsPanel;
    sLabelFX1: TsLabelFX;
    sLabelFX2: TsLabelFX;
    sBevel1: TsBevel;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sProgressBar1: TsProgressBar;
    sEdit3: TsEdit;
    sStatusBar1: TsStatusBar;
    procedure sEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure sEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
Sedit2.SetFocus;
end;
end;
end;


procedure TForm1.sEdit2KeyPress(Sender: TObject; var Key: Char);
var
bil1,bil2,hsl:Real;
begin
  if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(13)) or (Key = Chr(8)) then
  else
  Key := Chr(0);
  begin
if key=#13 then
begin
bil1:=StrToFloat(sedit1.Text);
bil2:=StrToFloat(sedit2.Text);
hsl:=(bil1*bil2);
sedit3.Text:=FloatToStr(hsl);
end;
end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;

end.

Nah udah Tau kan??? Untuk Source Code Penjumlahan, Pengurangan, Pembagian dan Perkalian Bilangan di Borland Delphi 7 Bisa di Download Dibawah ini Via Mediafire + Skin Fullversinya.

File Keterangan
Penjumlahan Download
Pengurangan Download
Pembagian Download
Perkalian Download
Alphaskin Ver 7.30 Download

Program diatas menggunakan ENTER
Bagi Yang telah mendownload Silahkan Dikembangkan kembali. semoga bermanfaat . Kritik dan saran  saya harapkan..sekian terima kasih..

One thought on “Penjumlahan, Pengurangan, Pembagian dan Perkalian Bilangan di Borland Delphi 7”

  1. Anonim30 Januari 2013 pukul 18.12

    gan, punya contoh program sistem pakar pake delphi gk ? butuh banget ni, kirim ya ke email yanxz_alone@yahoo.com,
    ditunggu gan :D

    BalasHapus

Silahkan Tulis Komentar Anda, Sopan dan Berwibawa