Untuk pencarian di blog ini secara cepat, silakan gunakan kotak pencarian diatas. [Butuh source code (PHP, Delphi7, Java, VB6.0) hubungi 0857-6221-9320 - SMS Only]
Untuk pencarian di blog ini secara cepat, silakan gunakan kotak pencarian diatas. [Butuh source code (PHP, Delphi7, Java, VB6.0) hubungi 0857-6221-9320 - SMS Only]

Monday, November 12, 2012

Membuat Animasi Teks dengan Delphi7

Masih tentang delphi7. Kali ini kita akan membahas bagaimana membuat animasi teks dengan delphi7. Animasi disini yaitu hanya mengubah ukuran huruf saja sampai dengan batas yang telah di tentukan. Komponen terpenting yang kita gunakan yaitu komponen timer yang terdapat dalam tab Win32. Kegunaan timer ini sebenarnya banyak sekali, misalnya membuat animasi, menampilkan jam, tanggal dan lai - lain. Kita hanya akan membahas bagaimana membuat animasi teks. 
Sekarang coba siapkan komponen berikut :

NoKomponenNameTextCaption
1Label1lblTeks--
2Timer1Timer1--
3Text11txtTeks--
4Button1cmdRun-&Run

Buat tampilan seperti berikut :

user interface,delphi7,animasi dengan delphi7,animasi,cara membuat animasi,cara membuat animasi dengan delphi7,

Kemudian ketikkan listing ini pada Tombol Run
procedure TForm2.cmdRunClick(Sender: TObject);
begin
  if(txtTeks.Text ='') then
    begin
        messageDlg('Anda belum mengetikkan teks...',mtError,[mbOK],0);
        txtTeks.SetFocus;
        exit;
    end;
  lblTeks.Caption := txtTeks.Text ;
  timer1.Enabled := True;
end;

Doble Klik Pada Timer1
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  num:= num+1;
  lblTeks.Font.Size:= num;
  if(num>=30) then
    begin
      num:= 8;
    end
end;

Doble Klik Pada Form
procedure TForm2.FormCreate(Sender: TObject);
begin
  num := 8;
  Timer1.Enabled:= False;
  Timer1.Interval:= 80;
end;


Buat sebuah variabel Global dengan nama num dengan tipe data integer letakkan persisi di atas implementation

var
  Form2: TForm2;
  num : integer;
implementation


Setelah itu save All dan Run (F9).