Cara Membuat Program Procedure dan Function Menggunakan Delphi

Kali ini saya akan berbagi kepada para pembaca tentang Cara Membuat Program Procedure dan Function Menggunakan Delphi...

Pertama kita harus mempunyai aplikasi delphi terlebih dahulu tentunya, jika sudah punya aplikasinya langkah-langkahnya sebagai berikut :

1.       Pertama buka terlebih dahulu aplikasi delphinya

2.       Setelah itu pilih File à New à Pilih Application

3.       Langkah selanjutnya kita harus membuat formnya terlebih dahulu, kurang lebih contohnya seperti di bawah ini :

4.       Kemudian, setelah form sudah selesai langkah selanjutnya adalah membuat listing programnya, misalnya untuk program di atas listing programnya kurang lebih seperti di bawah ini :

 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    EPanjang: TEdit;
    ELebar: TEdit;
    ETinggi: TEdit;
    EVolume: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BVolume: TButton;
    BReset: TButton;
    Label6: TLabel;
    ELuas: TEdit;
    Label5: TLabel;
    Label7: TLabel;
    btnkeluar: TButton;
    procedure BVolumeClick(Sender: TObject);
    procedure BResetClick(Sender: TObject);
    procedure EPanjangKeyPress(Sender: TObject; var Key: Char);
    procedure btnkeluarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //Disini membuat Fungsi VBalok dan Prosedur Reset
    Function VBalok(Panjang,Lebar,Tinggi:TEdit;out Luas:Integer):String;
    Procedure Reset;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }



{ TForm1 }

procedure TForm1.Reset;
      Var i:Byte;Komponen:TComponent;
begin
      For i:=0 to ComponentCount-1 do
      Begin
           Komponen:=Components[i];
           If Komponen.InheritsFrom(TEdit) then
           Begin
                TEdit(Komponen).Clear ;
                If  TEdit(Komponen).TabOrder=0 then
                Begin
                     TEdit(Komponen).SetFocus
                End;
           End;
      End;
end;

function TForm1.VBalok(Panjang, Lebar, Tinggi: TEdit;out Luas:Integer): String;
      Var P,L,T,Vol:Integer;
begin

      P:= StrToInt(Panjang.Text );
      L:= StrToInt(Lebar.Text );
      T:= StrToInt(Tinggi.Text );
      Luas:=P*L;
      Vol:=Luas*T;
      Result:= IntToStr(Vol)+' cm3';
end;

procedure TForm1.BVolumeClick(Sender: TObject);
      Var LBalok:Integer;
begin
     EVolume.Text :=VBalok(EPanjang,ELebar,ETinggi,LBalok);
     ELuas.Text := IntToStr(LBalok)+' cm2';
end;

procedure TForm1.BResetClick(Sender: TObject);
begin
     Reset
end;

procedure TForm1.EPanjangKeyPress(Sender: TObject; var Key: Char);
begin
     If Not (Key in ['0'..'9',#8,#13])then Key:=#0;
end;

     procedure TForm1.btnkeluarClick(Sender: TObject);
begin
halt;
end;

end.

5.       Setelah semua sudah selesai dan dirasa sudah cukup benar baik pembuatan formnya maupun listing programnya, coba jalankan program tersebut(running) dengan menekan tombol F9 pada keyboard.

6.       Good Luck !!! Semoga berhasil...!!!

Demikian para pembaca, itu tadi sedikit informasi dari saya mengenai Cara Membuat Program Procedure dan Function... Semoga bisa bermanfaat bagi anda semuanya. :)