Animasi Delphi 7

Tugas Akhir Mata Kuliah IMK (Interaksi Manusia dan Komputer)

Langkah-langkah membuat animasi text dengan program delphi 7

1.       Buat form baru dan label1. Isilah properti sesuai dengan keingan Anda

2.       Buat timer , klik 2 kali dan isikan

Tuliskan di bawah ‘var’

  Form1: TForm1;

  jeda:integer=500;

  tulisan:string='...';

  n:integer;

setelah itu buatlah procedure Delay sebagai berikut:

procedure Delay(t:LongInt);

var mulai,selesai:LongInt;

begin

  mulai:=GetTickCount;

  repeat

  Application.ProcessMessages;

  selesai:=GetTickCount;

  until(selesai-mulai)>=t;

  end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

n:=n+1;

if n>Length(tulisan)then n:=1;

label1.Caption:='mohon tunggu sejenak'+Copy(tulisan,1,n)

end;

Cara membuat form pembuka sebelum form utama muncul

1.       Bukalah form baru.

2.       Ubah propertinya sebagai berikut:

BorderStyle = bsNone

Position = poSreenCenter

Cara membuat Status Bar pada bagian bawah form

1.       Bukalah form baru.

2.       Tambahkan StatusBar pada Win32.

3.       Klik 2 kali dan buatlah panel baru. Jika anda ingin menambahkan jam pada status bar maka  bukalah timer, lalu klik 2 kali dan tuliskan kodenya:

statusbar1.Panels[1].Text:=DateTimeToStr(now);

berikuta adalah contoh form pembuka, animasi text serta status bar yang saya buat:

form1. Sebagai form pembuka sebelum form utama muncul. Dengan menambahkan animasi loading menggunakan timer pada proggressbar dan timer pada label.

Setelah selasai menunggu maka akan muncul form utama. Dan untuk menjalankan animasinya anda tinggal klick tombol jalan.

Untuk mendownload animasi ini klick di sini.