Beranda > Borlan Delphi > Animasi Teks Efek Mesin Ketik Pada Delphi

Animasi Teks Efek Mesin Ketik Pada Delphi

Sebelumnya kita telah belajar membuat efek blink pada teks, dan sekarang kita akan membuat efek mesin ketik pada Judul Form ataupun pada caption label. Namun sebelumnya kita perlu tahu dulu apa yang dimasud dengan efek mesin ketik. Efek Mesin Ketik maksudnya adalah efek pada teks yang akan muncul satu per satu seperti lagi di ketik. Efek ini kalau dikalangan website banyak digunakan untuk judul website atau blog, namun disini kita akan menggunakannya untuk caption label atau pun caption form sehingga saat dijalankan judul form atau label yang kita beri animasi ini akan muncul perhuruf seperti lagi di ketik. Oke kita langsung praktekkan yaaa,,, caranya yaitu :
  1. Buka Program Delphi, Tentunya teman – teman sudah tahu. Kalau belum tahu ini caranya : Klik Start => All Programs => Borland Delphi => Delphi 7.0 (Kalau yang teman – teman gunakan versi 7, tapi untuk versi yang lain juga sama)
  2. Tambahkan 1 buah komponen Timer dan atur property intervalnya menjadi 10
  3. Klik 1X (satu kali) pada form kemudian tekan F12 pada keyboard, pada bagian var teman – teman ketikan listeing berikut :


    var

    n : integer;
  4. Kemudian Kembali Form, klik 2x (dua kali) pada form, pada FormCreate ketikkan listing berrikut :
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    n:=0;
    end;
  5. Kemudian kembali lagi ke from, pada komponen Timer klik 2x(dua kali) kemudian masukkan listing berikut ini :
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    n:=n+1;
    if n=1 then Form1.caption:=’M’;
    if n=2 then Form1.caption:=Form1.caption + ‘E’;
    if n=3 then Form1.caption:=Form1.caption + ‘N’;
    if n=4 then Form1.caption:=Form1.caption + ‘U’;
    if n=5 then Form1.caption:=Form1.caption + ‘ ‘;
    if n=6 then Form1.caption:=Form1.caption + ‘U’;
    if n=7 then Form1.caption:=Form1.caption + ‘T’;
    if n=8 then Form1.caption:=Form1.caption + ‘A’;
    if n=9 then Form1.caption:=Form1.caption + ‘M’;
    if n=10 then Form1.caption:=Form1.caption + ‘A’;
    if n=10 then timer1.enabled:=false;
    end;
  6. Jika Captionnya ingin bergerak secara berkisinambungan (terus menerus) maka dapat dilakukan dengan cara berikut :
    pada listing
    if n=10 then timer1.enabled:=false;
    digantin dengan
    if n=10 then
    begin
    Form1.caption:=’ ‘;
    n:=0;
    end;
    sehinggga menjadi :
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    n:=n+1;
    if n=1 then Form1.caption:=’M’;
    if n=2 then Form1.caption:=Form1.caption + ‘E’;
    if n=3 then Form1.caption:=Form1.caption + ‘N’;
    if n=4 then Form1.caption:=Form1.caption + ‘U’;
    if n=5 then Form1.caption:=Form1.caption + ‘ ‘;
    if n=6 then Form1.caption:=Form1.caption + ‘U’;
    if n=7 then Form1.caption:=Form1.caption + ‘T’;
    if n=8 then Form1.caption:=Form1.caption + ‘A’;
    if n=9 then Form1.caption:=Form1.caption + ‘M’;
    if n=10 then Form1.caption:=Form1.caption + ‘A’;

    if n=10 then
    begin
    Form1.caption:=’ ‘;
    n:=0;
    end;

    end;

Catatan :
Atur Kecepatan pergerakkan dengan mengganti property interval di timer.

Itu saja dulu mohon sarannya, kalau ada kesalahan mohon diberitahu dan dimaafkan karena saya juga masih dalam pembelajaran.
Kategori:Borlan Delphi
  1. Belum ada komentar.
  1. No trackbacks yet.

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

%d blogger menyukai ini: