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 :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| 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.
1
2
3
4
5
6
7
8
9
| 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 :
0 Response to "TUTORIAL cara membuat animasi tampilan teks pada Delphi"
Posting Komentar
[[ Silahkan berkomentar yang sesuai dengan topik, Mohon Maaf komentar dengan nama komentator dan isi komentar yang berbau PORNOGRAFI, OBAT, HACK, JUDI dan komentar yang mengandung LINK AKTIF, Tidak akan ditampilkan. Terima Kasih! ]]