Kali Saya Akan Membagikan Ilmu CARA MEMBUAT TEXS BERJALAN DI DELPHI 7 DENGAN SIMPEL, Ikuti Tutor Yang Saya Buat Agar Tidak Eror Pas Di Run. Ok Langsung Aja Kita Praktekan :)
#ALAT YANG DIPERLUKAN#
1.-1 Panel
2.-1 Label
3.-1 Timer
#LANGKAH PERTAMA#
1.-Buka Delphi 7
2.-Tambahkan Componen di From1 Seperti Dibawah Ini:
[ 1 Panel ], [ 1 Timer ] dan Tambahkan [ 1 Label ] di panel1
3.-Kosongkan Nama Panel Di Bagian Caption
4.-Ganti Nama Label Terserah Anda Di [Caption]
5.-Klik 1 Kali Pada Timer Dan Rubah Angka [Interval 1000] Menjadi 2
#LANGKAH KEDUA#
1.-Klik 2 Kali Pada Timer
2.-Isikan Code Dibawah ini Pada Timer:
Label1.Left:=Label1.Left-1;
if Label1.Left <1 then Label1.Left:=300;
#LANGKAH KETIGA#
1.-Klik Run / F9
2.-Selesai
NB: Untuk Menentukan Kecepatan Berjalan Anda Bisa Mengubah di Bagian Angka -1 dan Di Interval
[ Lebih Besar Angkannya Maka Akan Lebih Cepat Jalannya]
#ALAT YANG DIPERLUKAN#
1.-1 Panel
2.-1 Label
3.-1 Timer
#LANGKAH PERTAMA#
1.-Buka Delphi 7
2.-Tambahkan Componen di From1 Seperti Dibawah Ini:
[ 1 Panel ], [ 1 Timer ] dan Tambahkan [ 1 Label ] di panel1
3.-Kosongkan Nama Panel Di Bagian Caption
#LANGKAH KEDUA#
1.-Klik 2 Kali Pada Timer
2.-Isikan Code Dibawah ini Pada Timer:
Label1.Left:=Label1.Left-1;
if Label1.Left <1 then Label1.Left:=300;
#LANGKAH KETIGA#
1.-Klik Run / F9
NB: Untuk Menentukan Kecepatan Berjalan Anda Bisa Mengubah di Bagian Angka -1 dan Di Interval
[ Lebih Besar Angkannya Maka Akan Lebih Cepat Jalannya]
Jika Masih Binggung Bisa Lihat Videonya Di Bawah Sini
Jika Mau Copas Sertakan Sumbernya !!!
OK OK OK OK OK
Creat By : Fatkhur Rozak
