Animasi Tampilan Teks Di Delphi

Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Siang ini tetap di Catatan  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 :

01	procedure Tform_materi29.Timer1Timer(Sender: TObject);

02

begin

03

04	if label1.Visible=false then

05

begin

06	label1.Visible:=true;

07

end

08	else if label2.Visible=false then

09

begin

10	label2.Visible:=true;

11

end

12	else if label3.Visible=false then

13

begin

14	label3.Visible:=true;

15

end

16	else if label3.Visible=true then

17

begin

18	label1.Visible:=false;

19	label2.Visible:=false;

20	label3.Visible:=false;

21

end;

22

23

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.

1	procedure Tform_materi29.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes)then

5

begin

6

close;

7

end;

8

9

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 :

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.