Membuat aplikasi kamus bahasa sederhana

Dec

12

2007

Membuat aplikasi kamus bahasa sederhana

Posted by Hafid Mukhlasin, S.Kom at 12/12/2007

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.

Membuat Alarm Sederhana dengan Delphi

Posted by

Muhamad Burhanudin

March 11, 2011

Sebelumnya minta maaf lo tulisan kali ini agak cupu, bagi yang sudah jago silahkan ditinggal.:)) Tulisan kali ini tentang membuat alarm sederhana dengan delphi 7, permasalahan yang mendasari dari tulisan ini adalah ketika kita sedang asyik coding atau bahkan ol, kadang tanpa sadar tertidur nah padahal akan ada acara pada jam tertentu, maka kita butuh aplikasi untuk alarm. Dari situlah saya berpikir bagaimana membuat alarm sederhana??
Baiklah, pada alaram ini kita hanya membutuhkan 8 Komponen, dengan rincian sebagai berikut :

1. Label1==> Untuk menampilkan jam.
2. Edit1 ==> Digunakan untuk input waktu alarm.
3. Label2==> Untuk menampilkan pesan ketika jam sama dengan waktu alarm.
4. Mediaplayer (pada tab System) ==> Menjalankan suara ketika jam sama dengan waktu alarm.
5. Opendialog (pada tab Dialogs) ==> Untuk memilih lagu yang akan digunakan saat alarm.
6. Button1 ==> Untuk memanggil Opendialog
7. Button2==> Untuk membuat penyetop lagu.
8. Timer(pada tab System) ==> Komponen utama pembuat alarm atau jam.

Dari kedelapan komponen tersebut, selanjutnya kita buat tampilan sebagai berikut :

Jika sudah membuat tampilan seperti diatas, tahap selanjutnya ikuti langkah berikut :

• Klik pada Timer, pada Properties ubah interval dari 1000 menjadi 10.
• Klik 2 kali pada timer, dan ketikan source berikut :
  procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := timetostr(time());
try
if edit1.Text=Label1.Caption then
begin
MessageDlg('Waktunya bangun!!!',mtWarning,[mbYes],0);
label2.caption:='Waktunya Bangun!!!';
MediaPlayer1.Play;
end;
Except
ShowMessage('Maaf anda Belum memilih Lagu');
end;
end;
• Kemudian klik 2 kali pada Button Pilih Lagu, dan ketikan source ini :
  
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
Position:=0;
end;
end;
end;
• Terakhir Klik 2 kali pada Button Stop, tulis berikut :
  procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;
• Selesai alarm siap dijalankan…:))

Untuk menjalakan alarm, pertama kita pilih lagu yang akan dijalankan, kemudian isikan waktu alarm, dengan ketentuan text harus sama dengan waktu yang ditujukan jam.