tutorial senderhana caba membuat animasi warna di form
di sini aku menggunakan fungsi "RANDOMIZE" untuk mengacak warna
Project "Warna-Warni"
============Start Of Project "Warna-Warni"================
langah-langkah
1. buat new project
2. tambahkan 1 LABEL ke dalam form
3. tambahkan 1 Timer ke dalam form set Interval di 100
4 masukkan script ini kedalam timer1_timer
Code:
Private Sub Timer1_Timer()
Randomize
Label1.BackColor = Int(RGB(Rnd * 255, Rnd * 255, Rnd * 255))
End Sub
dan lihat hasil nya
==============End Of Project "Warna-Warni" ===============
berikut ada project Marque (Running Text)
langah-langkah
1. buat new project
2. tambahkan 1 LABEL ke dalam form set back style mencadi transparent
3. tambahkan 1 Timer ke dalam form set Interval di 100
4. buat variable global
Code:
Dim arah as string 'letakkan di paling atas dari source code
5. masukkan scrip ini kedalam
Code:
Private Sub Form_Load()
arah = "kiri"
End Sub
6.masukkan script ini
Code:
Private Sub Timer1_Timer()
If arah = "kiri" Then
If Label1.Left >= 0 Then
Label1.Left = Label1.Left - 100
Else
arah = "kanan"
End If
Else
If Label1.Left <= Form1.Width Then
Label1.Left = Label1.Left + 100
Else
arah = "kiri"
End If
End If
End Sub
selamat mencoba