Seberkas Coretan Secercah Cahaya

Ada properti dasar untuk mengatur timer.

timer1.enabled => bisa true atau false

timer1.interval(‘interval’) => dalam milisecond

now:=waktu sekarang.

dengan bermodal tiga properti ini kita dapat membuat durasi.

cara kerja timer

Fasilitas timer pada awalnya saya gak dong pada kapan dia dieksekusi dan diakhiri. Ternyata komponen timer akan berjalan dengan properti timer1.enabled:=true; sehingga jika kita memasukkan perintah dan memanggil suatu prosedure di dalam timer1.timer(jika timer1 di click akan muncul ) maka setiap interval yang ditentukan sebelumnya . Untuk timer1.interval(1000) akan dieksekusi secara berkala setelah 1 detik.

Sederhana Bukan!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Sementara itu dulu kali ya!!!!!1

jika pada bagian nulis dan baca file ke /dari notepad telah dibahas maka untuk menentukkan direktory yang akan dibaca/ditulis gak harus manual, karena di delphi menyediakan komponen Topendialog dan Tsavedialog.

Open File dengan Topendialog

untuk keperluan ini dapat dipakai perintah: Opendialog.execute karena akan mereturn kan true atau false

if Opendialog1.Execute then

var :

filename:string;

begin

filename:opendialog1.filename;
//aksi setelah kita mendapatkan string filename membuka file yang berada di directory filename

end;

Save File dengan Tsavedialog

untuk keperluan ini dapat dipakai perintah: Savedialog.execute karena akan mereturn kan true atau false

if Savedialog1.Execute then

var :

filename:string;

begin

filename:Savedialog1.filename;
//aksi setelah kita mendapatkan string filename yaitu menyimpan file ke directory filename

end;

Jika kita ingin buat text editor dengan delphi misalnya ato kita cuman ingin buka file notepad kemudian kita tampilkan kembali text yang ada ke program kita maka ada fasilitas delphi untuk menangani hal tersebut.

Misalnya aja kita gunakan TrichEdit component sebagai display text.

Proses Read

Maka kita dapat memasukkan text notepad ke richEdit.txt dengan cara berikut ini.

RichEdit1.Lines.LoadFromFile(filename);kalo pakek memo

memo1.Lines.LoadFromFile(filename)//filename ini berupa string dapat juga yang menunjukkan alamta directory file yang akan dibuka dengan opendialog1.filename jika pakek open dialog ( dibahas nanti )

Dengan demikian text yang ada pada notepad semuanya dapat langsung tampil di richEdit1.

RichEdit1.Lines.Add(‘text yang ingin dituliskan‘);//kalo pakek memo

memo1.Lines.Add(‘text yang ingin dituliskan‘);

maka akan menambahkan satu baris baru di richEdit1.

Proses Write

Untuk menyimpan file yang kita tulis ke richEdit maka digunakan perintah :

RichEdit1.Lines.SaveToFile(FileName); //kalo pakek memo

RichEdit1.Lines.SaveToFile(FileName);//filename ini berupa string dapat juga yang menunjukkan alamat directory file dimana file akan disimpan atau dapat dengan savedialog1.filename jika pakek open dialog ( dibahas nanti ). Hasilnya bagusan pakek memo.Karena jika pakek richedit maka headernya akan ditulis semua jadi gak sama dengan yang ditulis meski konten yang kita tulis tetap ada.

Kemudian jika kita ingin membaca text per baris dan per huruf dapat dilakukan dengan prosedure berikut:

var

F: System.Text;

kalimat:string;

huruf:char;

while not Eof(F) then//membaca jika file belum berakhir
begin

begin

//masukkan perintah yang ingin dilakukan

end;
ReadLn(F,Kalimat);//mbaca satu baris kumpulan huruf2

end

Dalam delphi ada beberapa cara untuk dapat play suatu file sound seperti .wav. Yang pernah saya coba sih pakek Tmediaplayer komponen. Komponen ini simple meski belum lengkap. Tapi enak kok implementasinya. Ni contoh pemakaiannya

Drag komponen Tmediaplayer. Kemudian masukkan perintah berikut di dalam evet yang kita inginkan :

mediaplayer1.filename:=’filename’; //filename berupa string yang menunjuk ke directory file yang akan dijalankan tentu aja file wav.

mediaplayer1.Open;//membuka file name yang telah tersimpan

mediaplayer1.Play;//menjalankan file yang akan dibuka

mediaplayer1.pause//untuk mempause

mediaplayer1.stop;//Untuk menghentikan player nya

Moga aja bermanfaat. Selamat mencoba.

Kemudian untuk mengatur volume tidak disediakan oleh komponen ini. Sehingga kita harus menambahkan sendiri prosedure tambahan yang digunakan untuk mengatur volume. Ada beberpa versi pengaturan volume setelah saya browse( maklum gak bisa buat sendiri ) ada yang mono dan setereo. Yang mono tak coba belum bisa entah kenapa. Tapi yang setereo malah bisa. prosedure nya sebagai berikut:

tambahkan dahulu setelah implementation dengan baris berikut

uses MMSystem;

kemudian tambahkan prosedure sebagai berikut {$R *.dfm} :

procedure LeftVolume(Value: DWord);
var
Rvol,
temp: DWord;
begin { LeftVolume }
// WaveoutGetVolume() retrieves the current volume
WaveoutGetVolume(WAVE_MAPPER, @temp);
Rvol := hiword(temp);
asm
shl Rvol,16
end;
Rvol := Rvol and $ffff0000;
WaveoutSetVolume(WAVE_MAPPER, Value or Rvol)
end; { LeftVolume }

procedure RightVolume(Value: DWord);
var
Lvol,
temp: DWord;
begin { RightVolume }
// WaveoutGetVolume() retrieves the current volume
WaveoutGetVolume(WAVE_MAPPER, @temp);
Lvol := Loword(temp);
asm
shl value,16
end;
Value := Value and $ffff0000;
WaveoutSetVolume(WAVE_MAPPER, Value or Lvol)
end; { RightVolume }
Maka prosedure leftvolume dan rightvolume siap dipanggi sebelum mediaplayer1.play.

Dalam delphi tipe data nya hampir sama dengan yang lain ada integer ,boolean,string,char,extended,cardinal,real,dll. masing masing punya karakteristk sendiri2. Dalam pengolahan data ini delphi memberikan fasilitas convert tipe data yang ( menurut saya ) lebih enak dibanding yang lain ( semisal VB ). Seperti jika kita ingin ubah dari string atau char ke integer atau cardinal maka ada perintah strtoint(variable integer,cardinal) ,Kemudian jika kita ingin merubah sebaliknya cukup inttostr(variable string) . Masih ada lagi untuk data desimal aeperti real,double pokoknya yang pecahan bisa makai floatto str(variable real/double). Mungkin itu dulu jika ada lagi nanti tak tambahin.Doakan aja dapat yang lain