Delphi – Animasi Teks Zoom

• 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 :

1 2 3 4 5 6 7 8 9 10

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.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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.

1 2 3 4 5 6 7 8 9

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.

1 2 3 4 5 6 7 8 9 10

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.

1 2 3 4 5 6 7 8 9 10

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.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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.

1 2 3 4 5 6

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

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(^.^”). 

klik disini