Delphi – Animasi Teks Zoom

Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Siang ini tetap di Eko Eriyanah Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich.

Nah ada Siang hari ini saya mau berbagi tips materi Delphi dengan Tema Animasi Teks Zoom. Dimana Kita akan melihat tampilan teks yang atraktif dengan konsep animasi dengan perubahan Size Font Sehingga Terlihat Seperti Zoom dengan menggunakan fungsi timer. Nanti teks akan terlihat membesar jika di zoom in dan mengecil jika di zoom out, monggo disimak ya.

Untuk Component Timer temen-temen bisa dapatkan pada pallete system dengan gambar jam lingkaran. untuk teksnya kita buat menggunakan Label dimana nanti akan kita ubah ubah pengaturan size fontnya. Langsung aja kita praktekkan ya.

  • Pertama tama temn temen bisa buat design form sebagai berikut :
  • Aturlah Properties Namenya sebagai Berikut :

Nau untuk alur programnya adalah sebagai berikut :

  • Saat program dijalankan kita bisa mengklik button zoom in yang akan membuat label1 membesar terlihat seperti zoom dengan code perubahan size fontnya.
  • Jika button Zoom Out diklik maka akan membuat size label1 mengecil sehingga terlihat seperti zoom out
  • Jika button Stop Di klik maka akan menghentikan fungsi timer sehingga font size label 1 tidak berubah dan melakukan stop zooming
  • jika button keluar diklik makan akan keluar dari program

_______________________________________________________________________________

Berikut ini adalah listing codenya :

procedure Tform_materi30.Timer_inTimer(Sender: TObject);
begin

if timer_in.Enabled=true then
begin
label1.Font.Size:=label1.Font.Size+2;
button_in.Enabled:=false;
end;

end;

Jika timer in berjalan, maka label 1 membesar animasi zoom.

procedure Tform_materi30.Timer_outTimer(Sender: TObject);
begin

if timer_out.Enabled=true then
begin
label1.Font.Size:=label1.Font.Size-2;
button_out.Enabled:=false;
if label1.Font.Size=0 then
begin
showmessage('Size Label Sudah 0');
timer_out.Enabled:=false;
button_in.Enabled:=true;
button_out.Enabled:=true;
button_stop.Enabled:=false;
end;
end;

end;

jika timer out enable true maka label1 akan mengecil dan jika sizenya sudah 0 maka akan ada showmessage bahwa sizenya sudah mencapai 0. dan kembali menyetop aplikasi timer.

procedure Tform_materi30.FormCreate(Sender: TObject);
begin

button_in.Enabled:=true;
button_out.Enabled:=true;
button_stop.Enabled:=false;
button_keluar.Enabled:=true;

end;

Jika Program berjalan zoom ini true, zoom out  true dan untuk button stop false.

procedure Tform_materi30.button_inClick(Sender: TObject);
begin

timer_in.Enabled:=true;
button_in.Enabled:=false;
button_out.Enabled:=false;
button_stop.Enabled:=true;
button_keluar.Enabled:=true;

end;

jika button zoom in dijalankan maka timer in berjalan dan button stop aktif.

procedure Tform_materi30.button_outClick(Sender: TObject);
begin

timer_out.Enabled:=true;
button_in.Enabled:=false;
button_out.Enabled:=false;
button_stop.Enabled:=true;
button_keluar.Enabled:=true;

end;

jika button zoom out dijalankan maka timer out berjalan dan button stop aktif.

procedure Tform_materi30.button_stopClick(Sender: TObject);
begin

if timer_in.Enabled=true then
begin
timer_in.Enabled:=false;
end;

if timer_out.Enabled=true then
begin
timer_out.Enabled:=false;
end;

button_in.Enabled:=true;
button_out.Enabled:=true;
button_stop.Enabled:=false;

end;

JIka button stop diklik maka timer dinonaktifkan.

procedure Tform_materi30.button_keluarClick(Sender: TObject);
begin

close;

end;

jika button keluar diklik maka akan keluar dari program.

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

hasil zoom in label 1 membesar

hasil zoom out label mengecil

button Stop mengehentikan perubahan size label

Untuk Temen Temen yang mau liat sourcecodenya secara jelas untuk copy paste maka temen temen bisa lihat di pojok kanan atas listcode bisa temen temen klik yang view sourcecode untuk menampilkan codenya, perhatikan gambar berikut :

klik view sourcecode di kanan atas ( dilingkari merah )
contoh tampilan sourcecode saat sudah di klik d(^o^”)

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Animasi Teks Zooming. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini .

Unduh – Materi 30 Animasi Teks Zoom

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 

( Tulisan ini import dari Blog Ku lainnya Catatan Eko )

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Animasi Tampilan Teks

–          Delphi – Merubah Font Style Check Box

–          Delphi – Fungsi Delete

_______________________________________________________________________________

7 thoughts on “Delphi – Animasi Teks Zoom

  1. Ping-balik: Catatan Eko

  2. Ping-balik: Buat Portable SoftwareMu Sendiri « Catatan Eko

  3. Wah… kebetulan sekali saya baru mempelajari program delphi ini,…
    jadi saya sangat terbantu sekali..
    terimakasih banyak…

    salam kenal juga.. ^_

  4. Ping-balik: Buat Portable SoftwareMu Sendiri | ekoeriyanah

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s