Pertemuan 1 : Instalasi Borland Delphi 7 dan Pembuatan Program Kamus Sederhana

A. Instalasi Borland Delphi 7

1. Download folder disini.

2. Pilih Windows Installer Package.
3. Selanjutnya klik next, hingga finish.

B. Pembuatan Kamus Sederhana

1. Siapkan komponen :

• TLabel (pada halaman Tab Standard, sebanyak 2 buah).

• TButton (pada halaman Tab Standard, sebanyak 2 buah).

• TMemo (pada halaman Tab Standard, sebanyak 1 buah).

• TListBox (pada halaman Tab Standard, sebanyak 1 buah).2. Pilih Kontrol ListBox, dan pada Object inspector pilih properti items. Klik tanda (…) di sebelah kanan. Maka akan muncul String List Editor.

3. Isikan beberapa nama untuk berkas kontrol ListBox1. Seperti gambar di bawah ini :

Klik OK.

4. Klik 2 kali pada badan form hingga muncul tampilan Unit1 (Saya merubah Unit1 menjadi UKAMUS). Lalu isikan listing seperti di bawah ini :

unit UKAMUS;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

ListBox1: TListBox;

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

//listing untuk mendesain form dari dalam program

form1.Caption := 'Program Kamus Sederhana Inggris-Jepang';

form1.Position:=poDesktopCenter;

Form1.BorderStyle:=bsDialog;

Label2.Caption:='Bahasa Jepang';

Label1.Caption:='Pencarian kata Bahasa Inggris';

Button1.Caption:='Keluar';

Button2.Caption:='Pilihan Paling Atas';

Memo1.ReadOnly:=True;

Memo1.Text:='';

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

//listing untuk melakukan pengecekan arti kata

case ListBox1.ItemIndex of

0:Memo1.Text:='Chichi';

1:Memo1.Text:='Watashi';

2:Memo1.Text:='Oji';

3:Memo1.Text:='Pabirion';

4:Memo1.Text:='Josei';

5:Memo1.Text:='Oto-to';

6:Memo1.Text:='Iku';

7:Memo1.Text:='Ha';

8:Memo1.Text:='Hito';

9:Memo1.Text:='Gakushi';

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

//listing untuk keluar program

close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//listing untuk meletakkan kursor

ListBox1.ItemIndex:=0;

Memo1.Text:='Chichi';

end;

end.

5. Jalankan Program dengan menekan F9

Posted in: Delphi