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

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..

2 thoughts on “Penjumlahan, Pengurangan, Pembagian dan Perkalian Bilangan di Borland Delphi 7

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

    BalasHapus
  2. Mengapa dalam program pembagian di Delphi 7 terdapat pengecekan jika pembagian dengan angka nol dilakukan? Regard Telkom University

    BalasHapus

Silahkan Tulis Komentar Anda, Sopan dan Berwibawa