Selasa, 18 Desember 2012

Membuat Animasi Teks di-Zoom

0 komentar
           Halo sahabat blogger anak dunia TI. Pada siang hari ini saya ingin melakukan experiman apakah teks pada delphi bisa diZoom? . Ide ini teratrik saat saya melihat poto, poto yang dilihat bisa dizoom. lah dengan matahari yang sangat bersinar ini saya ingin mencoba dan akan membagikan ilmu ini kepada anda semua. Pada dasarnya di delphi kita bisa membuat apa saja, karena software ini adalah pembuat program.
            Dalam membuat teks Zoom, banyak komponen yang harus dipenuhi, Seperti :
- 1 TForm
- 4 TButton
- 1 Tlabel
- 2  TTimer

Langkah - Langkah

1. Buatlah sebuah Form.
2. Buatlah 2 Ttimer pada Tool palette, System > Ttimer
   (* NB : pada Propeties Ttimer ganti Enabled  yang aslinya True menjadi False [2 Ttimer]. )
3. Buatlah 4 TButton pada Tool Palette, Standard > TButton.
(*NB : Kasih caption pada butto, Zoom In, Zoom Out, Stop, Exit. yang mempunyai fungsi satu satu yaitu Tombol Zoom In berfungsi sebagai menambah ukuran pada label1, Zoom Out berfungsi sebagai memperkecil Label1, Stop berfungsi sebagai apabila apabila kita meng-Zoom kita dapat memberhentikan, Stop berfungsi sebagai mengakhiri sebuah aplikasi.) 

 4. Buatlah Tlabel pada Tool Palette, Standard > Tlabel .
(*NB : Kasih Caption pada Label terserah )

5. Sehingga pada form akan tampil Seperti :
6. Sekarang Input kode pada Button Tbutton1 "Zoom In".
(*NB : - "timer1.Enabled:=true;" berfungsi agar Ttimer1 Aktif dan Ttimer2 masih belum aktif
            - "Button2.Enabled:=false;" berfungsi agar pada button Zoom Out tidak bisa diKlick.
            - "Button3.Enabled:=true; " berfungsi agar pada button Stop bisa diklick(dijalankan).
            - "Button4.Enabled:=true;"  berfungsi agar pada button Exit bisa diklik (dijalankan))

7. Input Kode pada "TButton2 "Zoom Out".
(*NB : - "timer2.Enabled:=true;" berfungsi agar Ttimer2 Aktif dan Ttimer1 masih belum aktif
            - "Button1.Enabled:=false;" berfungsi agar pada button Zoom In tidak bisa diKlick.
            - "Button2.Enabled:=True" berfungsi agar pada butto Zoom Out berfungsi.
            - "Button3.Enabled:=true; " berfungsi agar pada button Stop bisa diklick(dijalankan).
            - "Button4.Enabled:=true;"  berfungsi agar pada button Exit bisa diklik (dijalankan))

8. Input kode pada Ttimer1, Seperti 

(*NB : kode diatas maksudnya jika Ttimer1 berjalan, maka button1 mati dan label1 fontnya akan membesar sebesar 2X)

9. Input kode pada Ttimer2, Seperti
(*NB : kode diatas maksudnya jika ttimer2 berjalan, maka button2 mati dan label1 akan mengecil sebanya 2X dan apabila label1 kecil hingga titik "0" maka akan mengeluarkan Message (' Size sudah Paling Kuwecil').)

10. Masukan input kode form, Seperti 
( *NB : Berfungsi sebagai bilamana aplikasi dijalankan, maka hanya Tbutton3 atau tombol 'Stop' akan mati dan tidak berfungsi).

11. Selesai -tekan F9 dan Run tombol hijau pada Debug Bar         

 SKETSA.

Leave a Reply

Labels