Belajar PBO

Pemrograman Berorientasi Objek

ALAT PENGHITUNG SEDERHANA

MENGGUNAKAN PROGRAM DELPHI 7

Oleh :

LEONARD A. ONSIK

F 441 08 042

S1 TEKNIK ELEKTRO

FAKULTAS TEKNIK

UNIVERSITAS TADULAKO

 

_____________________________________________________________

Listing Program :

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, XPMan;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Input1: TEdit;

    Input2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Label2: TLabel;

    Label3: TLabel;

    Button5: TButton;

    EdJumlah: TEdit;

    Label4: TLabel;

    XPManifest1: TXPManifest;

    Button6: TButton;

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

var Jumlah:real;

begin

Jumlah:=StrToFloat(input1.Text)*StrToFloat(input2.Text);

EdJumlah.Text:=FloatToStr(Jumlah);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var Jumlah:real;

begin

Jumlah:=StrToFloat(input1.Text)+StrToFloat(input2.Text);

EdJumlah.Text:=FloatToStr(Jumlah);

end;

procedure TForm1.Button2Click(Sender: TObject);

var Jumlah:real;

begin

Jumlah:=StrToFloat(input1.Text)-StrToFloat(input2.Text);

EdJumlah.Text:=FloatToStr(Jumlah);

end;

procedure TForm1.Button4Click(Sender: TObject);

var Jumlah:real;

begin

Jumlah:=StrToFloat(input1.Text)/StrToFloat(input2.Text);

EdJumlah.Text:=FloatToStr(Jumlah);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

input1.Text:='';

input2.Text:='';

EdJumlah.Text:='';

input1.SetFocus;

end;

end.

Bentuk Aplikasi

Gambar 1 : Tampak awal (New)

Gambar 2 : Operasi Penjumlahan

Mungkin ini adalah program sederhana yang dapat dipakai untuk belajar membuat program. Semoga artikel ini dapat bermanfaat.

Mohon kritik dan saran dari semua pembaca. Thx. 

GBU

Welcome

 

Selamat Datang di blog saya...

Blog ini adalah blog pribadi saya dimana isinya adalah semua hal tentang saya tentunya. Tapi bukan hanya itu saja, dalam blog ini juga saya coba membantu teman-teman untuk mengembangkan dirinya dan menambah pengetahuannya melaui file-file pembelajaran baik secara organisasi maupun dalam hal-hal yang berkaitan dengan elektro.

Mudah-mudahan blog ini dapat membantu teman-teman demi mencerdaskan kehidupan bangsa dan negara kita yang tercita..

Terima kasih.