PEMBUATAN ANIMASI TEKS ZOOM IN AND ZOOM OUT

hasil compile an bisa di download disini http://aguselek.tk/upload/datafile/animasizoom.rar

Kali ini kita akan belajar bersama untuk membuat animasi teks zoom in dan zoom out, sebelumnya saya terinspirasi untuk membuat program ini ketika iseng iseng bermain dengan touchpad laptop yang dengan menggeser dengan dua jari ,, eh ternyata bias zoom juga ya.. nah kemudian saya bergegas untuk membuka program Delphi dan mencoba membuat animasi teks untuk bias zoom-in dan zoom-out secara otomatis secara continue. Nah sekarang mari kita coba untuk membuat program seperti itu. Jangan lupa untuk membuka IDE Delphi dan buatlah project baru dan tambahkan komponen sebagai berikut :

Timer   : name Timer1

Label   : name Label1

Seperti gambar berikut :

Dan kemudian tambahkan code sebagai berikut :

Untuk bagian awal kita harus menambahkan kode pengenalan variable yang kita buat, kita taruh di bagian global variable yaitu bagian paling atas agar nantinya dapat dipakai oleh setiap procedure:

var

  Form1: TForm1;

  tambah:boolean=true;

  sizeMax:integer=50;

  sizeMin:integer=5;

  zoom:integer=1;

  delay:integer=100;

  pesan:string='AGUS';

variable- variable berikut merupakan variable yang akan dipakai untuk mengatur animasi yang akan kita buat . kemudian bagian selanjutnya kita buat procedure yang akan dijalankan pertama ketika form di buat, yang akan men-set nilai awal dari beberapa komponen yang kita buat tadi .

procedure TForm1.FormCreate(Sender: TObject);

begin

        timer1.Interval :=delay;

        label1.Caption := pesan;

        label1.Font.Size :=sizemin;

end;

dan pada bagian terakhir kita membuat procedure untuk animasinya sebagai berikut :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if (label1.Font.Size <= sizeMax) and (tambah = true) then

        begin

        label1.Font.Size := label1.Font.Size + zoom;

          if label1.Font.Size >= sizeMax then

                  tambah:=false;

        end

        else if tambah = false then

        begin

                if label1.Font.Size <= sizeMin then

                  tambah:=true;

                label1.Font.Size := label1.Font.Size - zoom;

        end;

end;

inti dari code di atas merupakan cara untuk menambahkan ukuran dari font label1 secara terus menerus sesuai dengan nilai dari variable zoom sampai batas dari variable sizeMax tercapai dan akan menguranginya sampai batas dari sizeMin tercapai dan begitu seterusnya.

berikut hasil dari compile an program yang telah kita buat tadi :

 

Ok saya kira sampai disini dulu latihan kita kali ini semoga bermanfaat, Amiiin..

Salam hangat,

Agus Minanur Rohman