Holiday - Greenday

Saturday, 29 November 2014

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


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
==============================================================
unit LABTI;

interface

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 :


 
 

No comments:

Post a Comment