Animasi Teks Zoom Di Delphi

Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Siang ini tetap di Catatan Eko 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 :

01	procedure Tform_materi30.Timer_inTimer(Sender: TObject);

02

begin

03

04	if timer_in.Enabled=true then

05

begin

06	label1.Font.Size:=label1.Font.Size+2;

07	button_in.Enabled:=false;

08

end;

09

10

end;

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

01	procedure Tform_materi30.Timer_outTimer(Sender: TObject);

02

begin

03

04	if timer_out.Enabled=true then

05

begin

06	label1.Font.Size:=label1.Font.Size-2;

07	button_out.Enabled:=false;

08	if label1.Font.Size=0 then

09

begin

10	showmessage('Size Label Sudah 0');

11	timer_out.Enabled:=false;

12	button_in.Enabled:=true;

13	button_out.Enabled:=true;

14	button_stop.Enabled:=false;

15

end;

16

end;

17

18

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.

1	procedure Tform_materi30.FormCreate(Sender: TObject);

2

begin

3

4	button_in.Enabled:=true;

5	button_out.Enabled:=true;

6	button_stop.Enabled:=false;

7	button_keluar.Enabled:=true;

8

9

end;

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

01	procedure Tform_materi30.button_inClick(Sender: TObject);

02

begin

03

04	timer_in.Enabled:=true;

05	button_in.Enabled:=false;

06	button_out.Enabled:=false;

07	button_stop.Enabled:=true;

08	button_keluar.Enabled:=true;

09

10

end;

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

01	procedure Tform_materi30.button_outClick(Sender: TObject);

02

begin

03

04	timer_out.Enabled:=true;

05	button_in.Enabled:=false;

06	button_out.Enabled:=false;

07	button_stop.Enabled:=true;

08	button_keluar.Enabled:=true;

09

10

end;

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

01	procedure Tform_materi30.button_stopClick(Sender: TObject);

02

begin

03

04	if timer_in.Enabled=true then

05

begin

06	timer_in.Enabled:=false;

07

end;

08

09	if timer_out.Enabled=true then

10

begin

11	timer_out.Enabled:=false;

12

end;

13

14	button_in.Enabled:=true;

15	button_out.Enabled:=true;

16	button_stop.Enabled:=false;

17

18

end;

JIka button stop diklik maka timer dinonaktifkan.

1	procedure Tform_materi30.button_keluarClick(Sender: TObject);

2

begin

3

4

close;

5

6

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

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