MEMBUAT TEXT BERJALAN DI DELPHI

on Senin, 17 Desember 2012

Ayo.. bagi2 ilmu, kali ini saya punya tutorial untuk membuat text berjalan di Delphi 2010. Tapi juga bisa dicoba di Delphi 7.0. Tapi karena saya menggunakan Delphi 2010, jadi inilah hasil tutorialnya.

1.Buka aplikasi Delphi 2010.
2.File -> New -> VCL Forms Application – Delphi.



3.Tunggu sampai form1 muncul.
4.Letakkan TImage (Tool Palette – Additional) pada form1, lalu atur ukurannya terserah.


5.Klik properties Picture pada Object Inspecktor, sehingga akan muncul sebagai berikut:


6.Lalu klik load -> cari logo UIN Maliki Malang -> Ok.


7.Atur logonya, lalu letakkan TLabel (Tool Palette – Standard) pada form1 dan letakkan di bawah logo UIN.

8.Pada properties Label1 ganti captionnya dengan “UNIVERSITAS ISLAM NEGERI MALANG”, lalu ganti fontnya dengan Times New Roman dengan size 12 dan Bold atau terserah kemauan juga bisa.



9.Selanjutnya letekkan TTimer pada form1 (Tool Palette – System).

10.Pada properties Interval di Object Inspecktor ganti dengan “500”.

11.Maka hasil desainnya akan seperti ini:


Codingnya :
1.Double clik pada form1 yang berada di Stucture.

2.Dan isikan source code pada tempat-tempat seperti ini :


3.Double clik pada Timer1 dan isikan source code seperti berikut :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
n:=n+1;
if n=1 then label1.Caption:='U';
if n=2 then label1.Caption:=label1.Caption + 'N';
if n=3 then label1.Caption:=label1.Caption + 'I';
if n=4 then label1.Caption:=label1.Caption + 'V';
if n=5 then label1.Caption:=label1.Caption + 'E';
if n=6 then label1.Caption:=label1.Caption + 'R';
if n=7 then label1.Caption:=label1.Caption + 'S';
if n=8 then label1.Caption:=label1.Caption + 'I';
if n=9 then label1.Caption:=label1.Caption + 'T';
if n=10 then label1.Caption:=label1.Caption + 'A';
if n=11 then label1.Caption:=label1.Caption + 'S';
if n=12 then label1.Caption:=label1.Caption + ' ';
if n=13 then label1.Caption:=label1.Caption + 'I';
if n=14 then label1.Caption:=label1.Caption + 'S';
if n=15 then label1.Caption:=label1.Caption + 'L';
if n=16 then label1.Caption:=label1.Caption + 'A';
if n=17 then label1.Caption:=label1.Caption + 'M';
if n=18 then label1.Caption:=label1.Caption + ' ';
if n=19 then label1.Caption:=label1.Caption + 'N';
if n=20 then label1.Caption:=label1.Caption + 'E';
if n=21 then label1.Caption:=label1.Caption + 'G';
if n=23 then label1.Caption:=label1.Caption + 'E';
if n=24 then label1.Caption:=label1.Caption + 'R';
if n=25 then label1.Caption:=label1.Caption + 'I';
if n=26 then label1.Caption:=label1.Caption + ' ';
if n=27 then label1.Caption:=label1.Caption + 'M';
if n=28 then label1.Caption:=label1.Caption + 'A';
if n=29 then label1.Caption:=label1.Caption + 'L';
if n=30 then label1.Caption:=label1.Caption + 'A';
if n=31 then label1.Caption:=label1.Caption + 'N';
if n=32 then label1.Caption:=label1.Caption + 'G';

end;

end.

4.Sekarang tinggal menjalankan programnya, bisa tekan F9 pada keyboard atau tekan icon .

Silahkan download hasil programnya disini http://www.4shared.com/rar/uSoojM8Y/Text_Berjalan1.html

Walaupun tutorial ini masih sederhana.
Tapi semaoga bermanfaat….. ^_^


Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO theproperty-developer

1 komentar:

m Eko Suprianto mengatakan...

Sepp, lah ngunu seh mosting blog..
hahahaahah

Posting Komentar