[Lazarus tutorial] Membuat aplikasi form berkedip

Assalamu 'alaikum semua, udah lama nih engga ketemu di dunia maya yang "aneh, tapi virtual ini", hihihihi... :D

Hari ini kita bahas cara membuat aplikasimu formnya berkedip dengan Lazarus RAD IDE. Yuk mari disimak ;)

Untuk Lazarusnya download di lazarus.freepascal.org 105 MB di Windows, tersedia juga untuk paket .DEB dan .RPM atau TARnya sesuai distro Linux yang dipakai.

1. Klik popup-menu "File" > "New" > Pilih "Application".


2. Lalu, sudah tersedia Form1, tambahkan satu button, disana otomatis dinamai Button1.


3. Tambahkan timer, liat objek inspector itu di kanan gambar, pada tab "Properties" beri "Interval" sesuai lama form meredup (saya buat 30 agar berkedip dengan cepat), pada opsi "Enabled" beri nilai False. Untuk Button1, beri Caption "buat berkedip!".

Nah sekarang pembuatan, klik 2 kali Button1 tadi, tulis code

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True // baris ini untuk menjalankan Timer1 tadi
end;

Keterangan: Kode diatas akan mengaktifkan komponen Timer1


Klik 2 kali Button1 tadi, tulis kode (perhatikan fungsi kode)

procedure TForm1.Timer1Timer(Sender: TObject);
begin

Form1.AlphaBlendValue:= Form1.AlphaBlendValue - 5; // nilai akan bekurang 5
if Form1.AlphaBlendValue = 0 then // jika nilai nol maka dibalikkan ke 255
begin
Form1.AlphaBlendValue:= 255; // Opacity normal di Lazarus bernilai 255, ini bit atau byte lupa saya :D
end;
end;

Sekian tutorial dari saya :D Semoga bermanfaat.

• Tweet
• Share
• Share
• Share
• Share

About Admin MC3

This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.

Related Post