Contoh Program Sederhana Menggunakan DELPHI 7

Membuat olahan warna dan input data mahasiswa .. ini lah hasil saya belajar dari lab TI dan dengan sedikit kreasi serta kombinasi warna yang menghasilkan sebuah tema pada form input data

Software                    : DELPHI 7 Second Edition
 

LISTING PROGRAM

==============================================================

unit LABTI;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Panel1: TPanel;

    Panel2: TPanel;

    Label4: TLabel;

    Edit4: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Showmessage('NAMA:'+edit1.Text+#10#10+

'NPM:'+edit2.Text+#10#10+

'KELAS:'+edit3.Text+#10#10+

'JURUSAN:'+edit4.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Color:=clgray;

Form1.Panel1.Color:=claqua;

Form1.Panel2.Color:=clblack;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form1.Color:=clblue;

Form1.Panel1.Color:=clblack;

Form1.Panel2.Color:=clred;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form1.Color:=cllime;

Form1.Panel1.Color:=clred;

Form1.Panel2.Color:=clyellow;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
end;

end.

==============================================================

                                                                                          

Logika Program :

Pada awal membuat form di software pemrograman DELPHI kita sudah disediakan kerangka sebagai struktur untuk membangun sebuah program .. seperti ini :

unit

interface

uses

type                             à Kerangka utama pada DELPHI

  end;

var

implementation

end.

unit LABTI;

à ini memberitahukan bahwa nama file program yang di buat yaitu LABTI .. apabila di dalam sebuah direktori ini akan berextention ( .pas ) , jadi nama filenya yaitu LABTI.pas

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Panel1: TPanel;

    Panel2: TPanel;

    Label4: TLabel;

    Edit4: TEdit;

à Nah kalau ini merupakan suatu komponen palette yang di pakain di dalam form design ( di sini yaitu ada label , edit , button dan panel.

procedure Button1Click(Sender: TObject);

à koding di atas berarti, pada komponen button yang ada di form design berfungsi untuk melakukan click pada object yang di tentukan, dan pada button inilah nantinya kita akan mengisi sebuah scrip supaya button tersebut ketika di click mempunyai fungsi tertentu

procedure TForm1.Button1Click(Sender: TObject);

begin

Showmessage('NAMA:'+edit1.Text+#10#10+

'NPM:'+edit2.Text+#10#10+

'KELAS:'+edit3.Text+#10#10+

'JURUSAN:'+edit4.Text);

end;.

à koding di atas merupakan scrip yang di pasang pada button submit , untuk melakukan proses input dari komponen edit yang di submit menggunakan komponen button.

Begin merupakan perintah awal untuk memasukan sebuah scrip yang di akhiri dengan end; ( begin … end; ).

Showmessage merupakan sebuah perintah yang berfungsi untuk menampilkan hasil dari input berupa tex box / massage box yang berukuran kecil.

'NAMA:'+edit1.Text+#10#10+ à ini berarti perintah untuk mengarahkan arah input dari label NAMA ke komponen edit berupa text .  +#10#10+ à kalau ini artinya memasang perintah enter setelah data pada NAMA keluar .. jadi data output akan terpisah oleh enter sehingga bentuk nya nanti yaitu NAMA

                        NPM

                        KELAS

                        JURUSAN
kenapa di bagian jurusan tidak menggunakan fungsi enter ?? ya karena jurusan adalah komponen input yang terakhir sehingga tidak perlu di berikan kode enter .. dan di setiap kelompok scrip harus menggunakan (;) karena itu merupakan cirri khas dari bahasa pascal / Delphi.

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

à arti dari perintah di atas adalah , perintah untuk melakukan penutupan / close semua program yang sedang berjalan , perbedaannya dengan close; yaitu tidak semua program yang tertutup melainkan hanya program yang sedang aktif saja.

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Color:=clgray;

Form1.Panel1.Color:=claqua;

Form1.Panel2.Color:=clblack;

end; 

à Scrip diatas berarti pada button 3 yang terdapat pada form 1 , mempunyai fungsi mengubah warna formnya menjadi abu-abu , panel satu menjadi biru laut ,

 Dan panel 2 menjadi warna hitam , yang berubah yaitu lihat pada design di bagian select your background theme dan data mahasiswa.

Begitu juga dengan scrip ini yang mempunyai fungsi yang sama dengan scrips di atas
procedure TForm1.Button4Click(Sender: TObject);

begin

Form1.Color:=clblue;

Form1.Panel1.Color:=clblack;

Form1.Panel2.Color:=clred;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form1.Color:=cllime;

Form1.Panel1.Color:=clred;

Form1.Panel2.Color:=clyellow;

end;

scrip ini di buat berdasarkan 3 button yang mempunyai fungsi yang sama namun hanya editor warnanya saja yang berbeda sehingga dengan 3 pilihan warna ini bisa di jadikan pilihan background sesuai dengan yang kita inginkan.


Output :