animasi label

Trik this was utilized to make tag animations moves, flicker by use of Timer's function and component.

1

2. For properties's arrangement component You can see on table hereunder.

Table 1.4 Managing properties component

Control’s Name	Properties	Point
RadioButton 1	Text	Berkedip
RadioButton 2	Text	Berjalan kanan ke kiri
RadioButton 3	Text	Berjalan bawah ke atas
Label1	Text	Hisyam
Timer1	Enabled	true
	Interval	100

3.      Hereafter You click icon View Code, then code's typing programs as hereunder.

1 2	Imports VB = Microsoft.VisualBasic Public Class Form1 Dim Animasi, MA, XI, KOM As String End Class

4.      Hereafter clicks double on form's sheet code's typing pestle programs as hereunder.

1	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Animasi = "Hisyam "     End Sub

5.      Then You click double on Timer1's component, then code typing programs as hereunder.

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
1	If Me.RadioButton1.Checked = True Then
2	Timer1.Interval = 250
3	Me.Label1.Visible = Not Me.Label1.Visible
4	ElseIf Me.RadioButton2.Checked = True Then
5	Timer1.Interval = 100
6	Label1.Visible = True
7	On Error Resume Next
8	MA = VB.Left(Animasi, 1)
9	XI = VB.Len(Animasi)
10	KOM = VB.Right(Animasi, XI - 1)
11	Animasi = KOM + MA
12	Animasi = KOM + MA
13	Me.Label1.Text = Animasi
14	ElseIf Me.RadioButton3.Checked = True Then
15	Timer1.Interval = 100
16	Label1.Visible = True
17	If Label1.Top < Me.Height - Me.Height - Label1.Height Then
18	Label1.Top = Me.Height - 1
19	Label1.Top = Label1.Top - 25
20	Else
21	Label1.Top = Label1.Top - 25
22	End If
23	End If End Sub End Class

Related Post :)

Posted in: VB