KEREN, TULISAN KERLAB KERLIB DELPHI

KEREN, TULISAN KERLAB KERLIB DELPHI

Pada postingan kali ini Muhammad Wali ingin berbagi satu ilmu baru bagaimana membuat tulisan kerlab-kerlib di Delphi 7.
       Langsung saja, sobat harus mencobanya ya...
Buka Delphi anda sehingga akan menampilkan form seperti ini


                Lalu , tambahkan beberapa label sesuai keingingan anda,..kalau saya sendiri berjumlah 10 Label dan ganti nama Caption-nya yang ada disamping kiri layar yaitu pada Object Inspector pada tab Properties. Ikuti petunjuk gambar.
 




Sekarang ganti jenis font, ukuran dan warna tulisannya pada masing-masing label tadi






Tambahkan 1 buah komponen Timer yang ada di komponen pallete
  
Sekarang yang tersisa adalah menulis Source Code-nya di Code Editor Delphi. Klik 2 kali pada komponen timer dan ketikkan source code dibawah ini :
 procedure TForm1.Timer1Timer(Sender: TObject);
begin
 IF A=1 THEN LABEL1.Visible:=TRUE
ELSE IF A=2 THEN LABEL2.Visible:=TRUE
ELSE IF A=3 THEN LABEL3.Visible:=TRUE
ELSE IF A=4 THEN LABEL4.Visible:=TRUE
ELSE IF A=5 THEN LABEL5.Visible:=TRUE
ELSE IF A=6 THEN LABEL6.Visible:=TRUE
ELSE IF A=7 THEN LABEL7.Visible:=TRUE
ELSE IF A=8 THEN LABEL8.Visible:=TRUE
ELSE IF A=9 THEN LABEL9.Visible:=TRUE
ELSE IF A=10 THEN LABEL10.Visible:=TRUE
ELSE
BEGIN
 LABEL1.Visible:=FALSE;
 LABEL2.Visible:=FALSE;
 LABEL3.Visible:=FALSE;
 LABEL4.Visible:=FALSE;
 LABEL5.Visible:=FALSE;
 LABEL6.Visible:=FALSE;
 LABEL7.Visible:=FALSE;
 LABEL8.Visible:=FALSE;
 LABEL9.Visible:=FALSE;
 LABEL10.Visible:=FALSE;
END;

IF A=10 THEN A:=0
ELSE A:=A+1;
end;

Satu lagi jangan dilupakan, deklarasikan variabel A sebagai Byte.

Terakhir jalankan programnya, tekan saja F9 biar cepat dan otomatis programnya dijalankan seperti gambar di bawah ini. Selamat Anda telah sukses.

COMMENTS

Name

Adsense,1,Astronomi,9,Bisnis,15,Blogging,22,Buku,10,Catatan,84,Cinta,7,Computer Science,34,Delphi,2,Dunia Kepenulisan,9,Freelancer,1,Gadget,2,Game,2,HUT RI 70,2,Ilmu Pengetahuan,2,Inspirasi Tokoh,1,Kepribadian,2,Kesehatan,1,Keuangan,1,Khotbah,4,KKN,7,Lifestyle,1,Matematika,1,Motivasi,13,Pengalaman,21,PIMNAS,2,Produktivitas,3,Professional,4,Resensi,4,Review,7,Sahabat,4,SEO,1,Smartphone,1,Startup,6,Student,42,Teknologi,15,Tips,20,Travelling,13,Tutorial,3,Vlogging,1,Wirausaha,31,Youtuber,1,
ltr
item
Muhammad Wali: KEREN, TULISAN KERLAB KERLIB DELPHI
KEREN, TULISAN KERLAB KERLIB DELPHI
KEREN, TULISAN KERLAB KERLIB DELPHI
http://1.bp.blogspot.com/-FcThVxMIERE/VaxPMRNOF4I/AAAAAAAAA9Y/Zv8CccCymmY/s640/buka%2Bform.JPG
http://1.bp.blogspot.com/-FcThVxMIERE/VaxPMRNOF4I/AAAAAAAAA9Y/Zv8CccCymmY/s72-c/buka%2Bform.JPG
Muhammad Wali
https://www.akhywali.net/2015/09/keren-tulisan-kerlab-kerlib-delphi.html
https://www.akhywali.net/
https://www.akhywali.net/
https://www.akhywali.net/2015/09/keren-tulisan-kerlab-kerlib-delphi.html
true
5617546411537444367
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS CONTENT IS PREMIUM Please share to unlock Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy