Program Delphi Sederhana

Tampilan awal pada Form sebelum memulai memasukan    code-code ke dalam program

LISTING PROGRAM

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    { Private declarations }      

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Pada Button 2 :

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Color:=clRed;

end;

Pada Button 3 :

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Color:=clYellow;

end;

 Pada Button 1:

procedure TForm1.Button3Click(Sender: TObject);

begin

Label1.Caption:='nama saya ' +edit1.text;

end;

 LOGIKA PROGRAM

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

Ø   Berfungsi untuk menjelaskan bahwa proyek yang kita kelola menggunakan

windows,messages,SysUtils dan sebagainya.

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Edit1: TEdit;

    Label1: TLabel;

Ø  Adalah untuk menunjukan items apa saja yang terdapat pada lembar kerja Form,dimana terdapat 3 Button,1 Edit Text,dan 1 Label.

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    { Private declarations }      

Ø  Menunjukan bagimana cara kerja dimana ketika tombol – tombol Button di klik akan menghasilkan aksi yang sudah kita buat codingya di setiap tombol.Private declaration adalah bahwa kita harus mendeklarasikan setiap items secara satu-persatu.

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Ø  Berfungsi sebagai wadah untuk penjabaran program pada Form 1,dimana untuk setiap itemsnya haruslah di awali dengan begin dan diakhiri dengan end.

Pada Button 2 :

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Color:=clRed;

end;

Ø  Adalah coding yang digunakan untuk  menggantin warna tampilan background pada form menjadi warna Merah, dengan meggunakan kode “cl” terlebih dahulu.Dan setiap ahir dalam blok haruslah di akhiri (;) karena jika tidak maka program tidak akan berjalan atau akan mengalami kendala.

Pada Button 3 :

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Color:=clYellow;

end;

Ø  Adalah coding yang digunakan untuk  menggantin warna tampilan background pada form menjadi warna Kuning, dengan meggunakan kode “cl” terlebih dahulu.Dan setiap ahir dalam blok haruslah di akhiri (;) karena jika tidak maka program tidak akan berjalan atau akan mengalami kendala.

 Pada Button 1:

procedure TForm1.Button3Click(Sender: TObject);

begin

Label1.Caption:='nama saya ' +edit1.text;

end;

Ø  Kode untuk memerintahkan mencetak output pada properties Label yang telah kita buat,output yang tercetak akan ditambahkan dengan ‘nama saya’ di depan dan digabungkan dengan fungsi text yang telah kita input pada kotak isian edit text .

 

OUTPUT

Ø Apabila kita mengklik button merah maka secara otomati bakground akan mengubah warna defaultnya menjadi warna merah

Ø Dan disini ketika kita menuliskan suatu nama kemudian menekan tombol Tampilkan maka secara otomatis akan menampilkanyya pada lable seperti contoh di bawah ini.