Delphi – Animasi Tampilan Teks

Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Siang ini tetap di Catatan Eko Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich.

Nah ada Siang hari ini saya mau berbagi tips materi Delphi dengan Tema Animasi Tampilan Teks. Dimana Kita akan melihat tampilan teks yang atraktif dengan konsep animasi dengan code visible true or false menggunakan fungsi timer. Nanti teks akan terlihat muncul satu huruf satu hurup sehingga terlihat seperti animasi dengan bantuan interval timer untuk codenya, monggo disimak ya.

Untuk Component Timer temen-temen bisa dapatkan pada pallete system dengan gambar jam lingkaran. Untuk pembuatan teks nya kita tidak akan membuatnya dalam satu teks panjang dengan 1 label namun akan dibuat 1 label adalah 1 kata karena nanti akan muncul satu per satu berdasarkan component label yang ada. Langsung aja kita praktekkan ya.

  • Pertama tama temn temen bisa buat design form sebagai berikut :
  • Aturlah Properties Namenya sebagai Berikut :

Nau untuk alur programnya adalah sebagai berikut :

  • Saat program dijalankan teks akan muncul secara bergantian berdasarkan interval waktu timer. Dengan muneggunakan fungsi visible true atau false.
  • Jika button keluar di klik maka akan muncuk kotak konfirmasi keluar, jika dipilih ok maka akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing codenya :

procedure Tform_materi29.Timer1Timer(Sender: TObject);
begin

  if label1.Visible=false then
    begin
      label1.Visible:=true;
    end
  else if label2.Visible=false then
    begin
      label2.Visible:=true;
    end
  else if label3.Visible=false then
    begin
      label3.Visible:=true;
    end
  else if label3.Visible=true then
    begin
      label1.Visible:=false;
      label2.Visible:=false;
      label3.Visible:=false;
    end;

end;

kode diatas merupkan suatu pengkondisian saja dimana jika label1 visible false maka akan true agar muncul dan terlihat dan dalam selang waktu beberapa detik akan lanjut pada code berikutnya yakni memunculkan teks lainnya. begitu sterusnya hingga diakhir jika sudah muncul semua kita kembalikan ke kondisi awal untuk visible false semuanya.

procedure Tform_materi29.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes)then
    begin
      close;
    end;

end;

jika button keluar di klik maka akan muncul konfirmasi box untuk meyakinkan akan keluar atau tidak, jika ya maka program akan di close;

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

tampilan box konfirmasi keluar d(^o^")

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Animasi Tampilan Teks. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Unduh – Materi 29 Animasi Tampilan Teks.

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 _______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Fungsi Delete

–          Delphi – Menghitung Jumlah Karakter

–          Delphi – Menampilkan dan Menghapus Gambar Image

_______________________________________________________________________________

7 thoughts on “Delphi – Animasi Tampilan Teks

  1. Ping-balik: Delphi – Animasi Teks Zoom « Catatan Eko

  2. Ping-balik: Delphi – Animasi Tampilan Teks | ekoeriyanah

  3. Ping-balik: Delphi – Simulasi Lampu Lalu Lintas | Catatan Eko

  4. Ping-balik: Delphi – Fungsi Enter Pada Edit Box | Catatan Eko

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