Persiapan :
- 1 Form
- 1 buah textbox
- 1 buah label
- 2 buah command button
Option Explicit
Dim Play As Boolean
Sub Sleep(Delay%)
Dim Mulai%
While Mulai < play =" True
Mulai = Mulai + 1
DoEvents
Wend
End Sub
Sub Animasi()
Dim h$, f$, c$, i%, t%, d%
Dim strTemp$, length%
Dim buffLeft$, buffRight$
If Play = False Then Exit Sub
h = Text1
'// Gaya Huruf Besar dan kecil
Label1 = LCase(h)
c = Label1
For i = 1 To Len(h)
Sleep 10000
Mid(c, i, 1) = UCase(Mid(c, i, 1))
Label1 = c
Next i
For i = 1 To Len(h)
Sleep 10000
Mid(c, (Len(h) + 1) - i, 1) = _
LCase(Mid(c, (Len(h) + 1) - i, 1))
Label1 = c
Next i
'// Gaya mengetik
Label1 = "|"
For i = 1 To 5
Sleep 10000
If Label1 = "|" Then
Label1 = " "
Else
Label1 = "|"
End If
Next i
For i = 1 To Len(h)
Sleep 10000
Label1 = Left(h, i) & "|"
Next i
Label1 = Left(Label1, Len(Label1) - 1)
'// Berjalan dari sebelah kiri
Label1 = h
Do
Sleep 22000
Label1 = Mid(Label1, 2, Len(Label1) - 1) & Left(Label1, 1)
DoEvents
Loop Until Label1 = h
'// Berjalan dari sebelah kanan
Label1 = h
Do
Sleep 22000
Label1 = Right(Label1, 1) & Left(Label1, Len(Label1) - 1)
Loop Until Label1 = h
'// Gaya Terbang
t = Label1.Top
Label1.Top = t + 500
While Label1.Top >= t
Sleep 5000
Label1.Top = Label1.Top - 10
Wend
Sleep 12000
'// Gaya Menghilang
Label1.Visible = False
Sleep 15000
Label1.Visible = True
Sleep 17000
'// Gaya ZOOM
'Label1.Alignment = vbCenter
For i = 1 To Label1.FontSize
Sleep 10000
Label1.FontSize = i
Next i
'// Gaya Strip
Label1 = String(Len(h), " ")
f = Label1
For i = 1 To Len(h)
Sleep 8000
c = Mid(h, Len(h) - (i - 1), 1)
Mid(f, Len(f) - (i - 1), 1) = c
Label1 = f
Next i
'// Gaya Blink
For i = 1 To 10
Sleep 12000
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
Next i
'// Gaya Melompat dan Box
strTemp = Label1
For i = 1 To 2
length = 0
While length <>
Sleep 10000
length = length + 1
If i = 1 Then
Label1 = String(Len(strTemp), " ")
buffLeft = Label1
Mid(buffLeft, length, 1) = Mid(strTemp, length, 1)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), 1) = _
Mid(strTemp, Len(strTemp) - (length - 1), 1)
Label1 = buffRight
Else
buffLeft = Label1
Mid(buffLeft, length, length) = _
Mid(strTemp, length, length)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), length) = _
Mid(strTemp, Len(strTemp) - (length - 1), length)
Label1 = buffRight
End If
DoEvents
Wend
Next i
Animasi
End Sub
Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Command1.Caption = "Stop"
Text1 = Text1 & " "
Label1 = Text1
Play = True
Else
Command1.Caption = "Mulai"
Play = False
End If
Animasi
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Form1.Caption = "Mainkan Label dengan Berbagai Animasi"
Text1.Text = "Mainkan Label dengan Berbagai Animasi "
Command1.Caption = "Mulai"
Command2.Caption = "Close"
End Sub
