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

Cara Membuat Program Mengurutkan Data Menggunakan Delphi

Kali ini saya akan berbagi kepada para pembaca tentang Cara Membuat Program Mengurutkan Data 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 Console Application

4.       Kemudian, langkah selanjutnya adalah membuat listing programnya, misalnya untuk program yang satu ini listing programnya kurang lebih seperti di bawah ini :

 program Program_mengurutkandata;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  deret : array[1..100] of integer;
  loop, nested, banyak, tampung : integer;
begin
  write ('Berapa banyak bilangan yang ingin diurutkan ? = ');
  readln (banyak);
  for loop := 1 to banyak do
  begin
    write ('Bilangan ke ',loop:3,' = ');
    readln (deret[loop]) ;
  end;
  for loop := 1 to banyak -1 do
    for nested := loop +1 to banyak do
      if (deret[nested]< deret[loop]) then
      begin
        tampung:= deret[nested];
        deret[nested]:= deret[loop];
        deret[loop]:= tampung
      end;
  writeln;
  writeln('Hasil pengurutan bilangan dari besar ke kecil');
  for loop:= banyak downto 1 do
  begin
    writeln ('Data ke ', (banyak- loop+1):3, '=', deret[loop]);
    end;
    read;
    writeln;
    writeln('Program Mengurutkan Data, by : Achmad Chamza Anshori_2A') ;
    readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.


begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

5.       Setelah semua sudah selesai dan dirasa sudah cukup benar pembuatan 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 Mengurutkan Data... Semoga bisa bermanfaat bagi anda semuanya. :)

Cara Membuat Program Array Menggunakan Delphi

Kali ini saya akan berbagi kepada para pembaca tentang Cara Membuat Program Array 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 Program_Array;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Lbdata: TListBox;
    btninput: TButton;
    btnclear: TButton;
    btnclose: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    procedure btninputClick(Sender: TObject);
    procedure btnclearClick(Sender: TObject);
    procedure btncloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btninputClick(Sender: TObject);
Var i:integer;
Nama1,nama2 :array[1..5] of string;
S: string;
begin
  s:= inputbox('Input Data','Masukkan Jumlah Data :','0');
for i:= 1 to strtoint(s) do
begin
nama1[i]:= inputbox('Data Ke:'+inttostr(i),'Nama Awal',' ');
nama2[i]:= inputbox('Data Ke:'+inttostr(i),'Nama Belakang',' ');
Lbdata.ITEMS.ADD(NAMA1[I]+ ' ' +NAMA2[I]);
EDIT1.Text:= INTTOSTR (Lbdata.Items.COUNT);
END;
end;

procedure TForm1.btnclearClick(Sender: TObject);
begin
 Lbdata.clear;
EDIT1.Text:=' ';
end;

procedure TForm1.btncloseClick(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 Array... Semoga bisa bermanfaat bagi anda semuanya. :)