misi mas.. berikut tutorial pembuatan app text animasi dengan VB,

oc langsung aja ea....

pertama sediakan app VB, law belum ada silakan dunlud aja di topik sebelh

langkah2 na sebagai berikut:

1. buat desain form sebagus mungkin
2. caption untuk formnya animasi label
3. buat satu buah kolom text (tidak ada yang dirubah)
4. buat satu buah kolom label (properties alignment ganti jadi center)
5. buat dua buah command button yang caption yang pertama beri nama start and yang kedua stop.
6. setelah itu beres dah……….


langkah selanjutna qt masukin source code na dengan cara double click command star

nah sampai s2 dah ngerti ea...

untuk code na silakan di copas di bawah ini


Option Explicit

Dim Play As Boolean
Sub Sleep(Delay%)
Dim Mulai%

While Mulai < Delay - (1000) And Play = True
Mulai = Mulai + 1
DoEvents
Wend
End Sub

Sub Damn()
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 < Len(strTemp)
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

Damn
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
Damn
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "ANACK_GORONTALO"
Text1.Text = "http://anackgorontalo.my-php.net"
Command1.Caption = "Mulai"
Command2.Caption = "Close"
End Sub


oc selesai dah... untuk menjalankana silakan tekan tombol f5.

gud luck friend