PENGENALAN DELPHI

Pada kesempatan kali ini kita akan sama-sama belajar tentang pengenalan program sederhana bahasa pemograman DELPHI. Berikut adalah listing program sederhana delphi, kali aja perlu hehe ... :p 

- Listing Program :

Code                :

unit Pertemuan1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:='Wildan Firdaus';

edit2.text:='57411402';

edit3.text:='1IA03';

label4.caption:=edit1.text;

label5.caption:=edit2.text;

label6.Caption:=edit3.text;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

label4.Caption:='';

label5.caption:='';

label6.caption:='';

edit1.Font.color:=clblack;

edit2.Font.Color:=clblack;

edit3.Font.Color:=clblack;

label4.Font.Color:=clblack;

label5.Font.color:=clblack;

label6.Font.Color:=clblack;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.Font.Color:=clred;

edit2.font.color:=clred;

edit3.font.Color:=clred;

label4.font.color:=clred;

label5.Font.Color:=clred;

label6.Font.color:=clred;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.Font.Color:=clgreen;

edit2.font.color:=clgreen;

edit3.font.Color:=clgreen;

label4.font.color:=clgreen;

label5.Font.Color:=clgreen;

label6.Font.color:=clgreen;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

edit1.Font.Color:=clblue;

edit2.font.color:=clblue;

edit3.font.Color:=clblue;

label4.font.color:=clblue;

label5.Font.Color:=clblue;

label6.Font.color:=clblue;

end;

end.

Logika Program :

Pada pertemuan pertama tentang pengenalan Delphi ini. Kita belajar cara membuat tombol yang berfungsi untuk memunculkan teks, member warna teks pada label dan juga menhapus teks pada kotak isian label dan di kotak edit. Setelah selesai membuat tombol-tombol dalam table kita, berikut adalah contoh kodingnya:

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

*Script diatas diguakan untuk membuat objek-objek yang dibuat dalam program ini.

Lalu buatlah label button untuk kotak isian NAMA, NPM, dan KELAS. Ganti nama teksnya masing masing menjadi Wildan Firdaus, 57411402, dan 1IA03. Berikut adalah kodingannya seperti dibawah ini:

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:='Wildan Firdaus';

edit2.text:='57411402';

edit3.text:='1IA03';

label4.caption:=edit1.text;

label5.caption:=edit2.text;

label6.Caption:=edit3.text;

end;

Lalu ganti teks dan caption label menjadi berwarna merah, hijau, dan biru dengan mengetikkan script seperti dibawah ini:

procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.Font.Color:=clred;

edit2.font.color:=clred;

edit3.font.Color:=clred;

label4.font.color:=clred;

label5.Font.Color:=clred;

label6.Font.color:=clred;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.Font.Color:=clgreen;

edit2.font.color:=clgreen;

edit3.font.Color:=clgreen;

label4.font.color:=clgreen;

label5.Font.Color:=clgreen;

label6.Font.color:=clgreen;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

edit1.Font.Color:=clblue;

edit2.font.color:=clblue;

edit3.font.Color:=clblue;

label4.font.color:=clblue;

label5.Font.Color:=clblue;

label6.Font.color:=clblue;

end;

Tampilan Output Program:

warna merah:

warna hijau:

warna biru: