Selasa, 10 Februari 2015

Delphi aplication program to calculate square area

Menghitung Luas
  1. Membuka program Delphi
  2. Ketik menu File-New-Aplication, maka terbuka jendela kerja seperti dibawah ini
  3. Buat lah label, dan Button sehingga membentuk seperti dibawah ini

 4. Klik button1 maka akan terbuka jendela windows





 5. Kemudian Ketik

unit materi1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    txtPanjang: TEdit;
    txtLebar: TEdit;
    Label3: TLabel;
    txtLuas: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Panjang,Lebar,Luas:integer;

begin
  Panjang:=StrToInt(txtPanjang.Text);
  Lebar:=StrToInt(txtLebar.Text);
  Luas:=Panjang*Lebar;
  txtLuas.Text:=IntToStr(Luas);
end;

end.

ketika ndi run

 Nah, sekian dulu yah postingan ratih kali ini..
semoga bermanfaat guys,.....