WELCOME !

SELAMAT DATANG DI BLOG INI ...
BLOG INI DIGUNAKAN UNTUK BERBAGI DAN SIAPA SAJA BOLEH MENGUNDUH DISINI UNTUK KEPERLUAN YANG BAIK DAN TIDAK MERUGIKAN PIHAK SIAPAPUN...

Supported by:
[twitter][wikipedia][blogger][google][yahoo][4shared][ facebook ][ youtube ][ multiply ][ picasa ]

Cari File Di Sini !

waktu mundur kiamat laluan

Rabu, 30 November 2011

Yang perlu diketahui pada animasi dengan menggunakan timer pada delphi :


Jika kita ingin membuat suatu animasi seperti ini maka yang perlu diperhatikan adalah TIMER atau pewaktu,
ada beberapa jenis / istilah yang perlu diperhatikan guna kelancaran berlangsungnya suatu program.

  1. Timer Minus
    Adalah timer yang memindahkan suatu obyek ke atas / mundur (obyek = komponen yang terlihat pada form) dan nilainya minus
    contoh :
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    panel1.left:=panel1.left - 1
    if panel1.left<=-100 then
    panel1.left:=100
    end;
    yang artinya : mundurkan panel 1 hingga posisi koordinat -100 (di luar form) , jika posisinya kurang dari atau sama dengan - 100 maka kembalikan panel1 ke posisi koordinat 100
    begitu seterusnya, dan ini yang dinamakan pengulangan atau looping ini baik, tetapi tidak bagus untuk komputer dengan kecepatan rendah
    ==========================================================================================================
  2. Timer Plus:
    Adalah timer yang memindahkan suatu obyek ke bawah / maju (obyek = komponen yang terlihat pada form) dan nilainya non-minus ( beda dengan plus, kalau plus itu sepert "progressbar1.position+1")
    contoh :
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    panel1.left:=panel1.left + 1 // ini contoh 'nilai plus'
    if panel1.left>=150 then
    panel1.left:=0
    end;
    yang artinya : majukan panel 1 hingga posisi koordinat 100 (di tepi kanan form) , jika posisinya lebih dari atau sama dengan 150 maka kembalikan panel1 ke posisi koordinat 0
    begitu seterusnya, dan ini yang dinamakan pengulangan atau looping ini baik, tetapi tidak bagus untuk komputer dengan kecepatan rendah
    ==========================================================================================================
  3. Timer Pasif :
    Timer yang mengubah atau mengupdate suatu bagian dari suatu obyek komponen secara berkala, dan terus memperbarui hingga user menghentikannya , contoh :
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    memo1.lines.add('a');
    end;
    yang artinya lakukan perintah tulis huruf  a  pada komponen memo, secara terus menerus karena user tidak memberi tahu kapan operasi ini akan dihentikan.
    ==========================================================================================================
  4. Timer Aktif :
    Timer yang dipakai untuk prosedur yang berulangkali dilakukan/ loop (perulangan), timer di set dengan menggunakan blok if... then dan kita menentukan berapa lama delay / tunda pada proses looping itu.
    ==========================================================================================================
  5. Timer Switch :
    Timer yang dipakai untuk melakukan switch , timer yang mengerti kapan saat suatu fitur / tombol / komponen diaktifkan maupun dimatikan , dengan memberi / Mengesetnya memakai if...Then
    ==========================================================================================================

Tidak ada komentar:

Posting Komentar