A small tutorial~

Membuat label berjalan dengan timer~

Bahan :
1. Label [Label1]
2. Timer [Timer1]

Code :

Private sub Timer1_timer ()
label1.left = label1.left + 100
End sub

Dengan demikian, label anda akan berjalan terus sampai overload :D

Bagaimana cara mengembalikan label ke awal ?

Code :

Private sub Timer1_Timer ()
Label1.left = label1.left + 100

IF label1.left = [MAX Width dari window anda] then
label1.left = 0
end if
End sub

NOTE!
Saat memasukan nilai kedalam [MAX Width dari window Anda], perhatikan juga nilai "left" pada "label1"

nilai left pada label1 [Label1.left] harus bulat.
Dengan kata lain, tidak ada nilai sen.

Contoh :
>> Properties
label1.left = 192
Nilai 92 adalah nilai sen.

Bila terjadi hal seperti ini, silahkan dibulatkan ke atas sesuai dengan trik pembulatan angka.

>> Properties
label1.left = 200

Demikian juga dengan [Max Width dari Window anda],
nilai harus bulat tanpa ada sen sedikitpun.
Contoh : 2000

Selesai !

Mudah to?

~Nisie