Aplikasi kamus ini menggunakan database file teks sebagai database bahasa. Berikut ini cara membuat kamu studi kasus pada kamus Indonesia - Jawa atau sebaliknya
Pertama siapkan dulu database bahasanya, ada empat buah file teks
1. indonesia1.txt merupakan merupakan file yang berisi kata-kata dalam bahasa indonesia, setiap kata ditulis perbaris
2. jawa1.txt merupakan file berisi kata-kata dalam bahasa jawa yang merupakan terjemahan dari file indonesia1.txt
3. jawa2.txt merupakan merupakan file yang berisi kata-kata dalam bahasa jawa, setiap kata ditulis perbaris
4. indonesia2.txt merupakan file berisi kata-kata dalam bahasa jawa yang merupakan terjemahan dari file jawa2.txt
Berikut ini kode lengkap untuk unit1 nya
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids;
type
TForm1 = class(TForm)
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Clear; {merefresh combobox1}
combobox2.Clear;
radiobutton1.Checked :=true;
combobox1.Items.LoadFromFile('Indonesia1.txt');
{memasukkan data pada file 'Indonesia1.text' ke dalam komponen combobox1}
combobox2.Items.LoadFromFile('Jawa1.txt');
{memasukkan data pada file 'Jawa1.text' ke dalam komponen combobox2}
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
combobox1.Items.LoadFromFile('Indonesia1.txt');
{memasukkan data pada file 'Indonesia1.text' ke dalam komponen combobox1}
combobox2.Items.LoadFromFile('Jawa1.txt');
{memasukkan data pada file 'Jawa1.text' ke dalam komponen combobox2}
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
combobox1.Items.LoadFromFile('Jawa2.txt');
{memasukkan data pada file 'Jawa2.text'
ke dalam komponen combobox1}
combobox2.Items.LoadFromFile('Indonesia2.txt');
{memasukkan data pada file 'Indonesia2.text'
ke dalam komponen combobox2}
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
combobox2.ItemIndex:=combobox1.ItemIndex;
{Indeks dari combobox2 sama dengan indeks pada combobox1}
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
{ketika kotak edit teks pada komponen combobox1
mengalami perubahan, maka program akan menjalankan
instruksi di bawah ini}
begin
if combobox1.ItemIndex <> combobox2.ItemIndex then
combobox2.Text:=combobox1.Text;
{jika indeks dari combobox1 tidak sama dengan indeks
pada combobox2 maka teks dari combobox2 akan sama
dengan teks pada combobox1}
end;
end.
- Sekarang, Anda bisa pasang iklan disini!
- Mau Tukeran Link Dengan Blog Ini? (Pengunjung Blog Ini Lebih dari 100/hari)
- Cek Jumlah Pengunjung
|