Jump to content
Tuts 4 You

[Share] VB animation Text

agoes_doubleb

By agoes_doubleb
in Programming and Coding

Recommended Posts

agoes_doubleb

agoes_doubleb

Posted
Posted (edited)

This is some animation text with vb... :flowers:

VERSION 5.00
Begin VB.Form Form1 
   Caption		 =   "Form1"
   ClientHeight	=   3570
   ClientLeft	  =   60
   ClientTop	   =   450
   ClientWidth	 =   7500
   LinkTopic	   =   "Form1"
   ScaleHeight	 =   3570
   ScaleWidth	  =   7500
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer TmrAnim8 
	  Interval		=   50
	  Left			=   6660
	  Top			 =   3780
   End
   Begin VB.Timer TmrAnim7 
	  Interval		=   20
	  Left			=   6210
	  Top			 =   3780
   End
   Begin VB.Timer TmrAnim6 
	  Interval		=   50
	  Left			=   5760
	  Top			 =   3780
   End
   Begin VB.Timer TmrAnim5 
	  Interval		=   100
	  Left			=   5310
	  Top			 =   3780
   End
   Begin VB.Timer TmrAnim4 
	  Interval		=   50
	  Left			=   4860
	  Top			 =   3780
   End
   Begin VB.Timer TmrAnim3 
	  Interval		=   50
	  Left			=   4410
	  Top			 =   3780
   End
   Begin VB.Timer TmrAnim2 
	  Interval		=   50
	  Left			=   3960
	  Top			 =   3780
   End
   Begin VB.Timer TmrAnim1 
	  Interval		=   50
	  Left			=   3510
	  Top			 =   3780
   End
   Begin VB.Label LblAnim8 
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Index		   =   0
	  Left			=   180
	  TabIndex		=   7
	  Top			 =   2970
	  Width		   =   900
   End
   Begin VB.Label LblAnim7 
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Index		   =   0
	  Left			=   180
	  TabIndex		=   6
	  Top			 =   2520
	  Width		   =   900
   End
   Begin VB.Label LblAnim6 
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Index		   =   0
	  Left			=   210
	  TabIndex		=   5
	  Top			 =   2160
	  Width		   =   900
   End
   Begin VB.Label LblAnim5 
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Index		   =   0
	  Left			=   210
	  TabIndex		=   4
	  Top			 =   1770
	  Width		   =   900
   End
   Begin VB.Label LblAnim4 
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Index		   =   0
	  Left			=   240
	  TabIndex		=   3
	  Top			 =   1380
	  Width		   =   900
   End
   Begin VB.Label LblAnim3 
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Left			=   240
	  TabIndex		=   2
	  Top			 =   990
	  Width		   =   900
   End
   Begin VB.Label LblAnim2 
	  Alignment	   =   2  'Center
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Left			=   240
	  TabIndex		=   1
	  Top			 =   600
	  Width		   =   6930
   End
   Begin VB.Label LblAnim1 
	  AutoSize		=   -1  'True
	  Caption		 =   "Label1"
	  BeginProperty Font 
		 Name			=   "Courier New"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   270
	  Left			=   240
	  TabIndex		=   0
	  Top			 =   210
	  Width		   =   900
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Anim1 As String, Anim2 As String, Anim3 As String, Anim4 As String, Anim5 As String, Anim6 As String, Anim7 As String, Anim8 As StringPrivate Sub Form_Load()
Anim1 = "Agoes Doubleb Keren"
Anim2 = "Doubpsycho Cakep"
Anim3 = "Agoes Tri Hariyanto"
Anim4 = "Keren gak animasinya"
Anim5 = "Hidup Agoes yang cakep"
Anim6 = "Pagi Mas Agoes yang Keren"
Anim7 = "Visual Basic 6 Is The Best"
Anim8 = "I'm Falling in Love with API"
LblAnim1 = Anim1
LblAnim2 = Anim2
LblAnim3 = Anim3LblAnim4(0) = Left(Anim4, 1)
For i = 1 To Len(Anim4) - 1
Load LblAnim4(i)
LblAnim4(i).Visible = True
LblAnim4(i).Caption = Mid(Anim4, i + 1, 1)
LblAnim4(i).Move LblAnim4(i - 1).Left + LblAnim4(i - 1).Width
Next iLblAnim5(0) = Left(Anim5, 1)
For i = 1 To Len(Anim5) - 1
Load LblAnim5(i)
LblAnim5(i).Visible = True
LblAnim5(i).Caption = Mid(Anim5, i + 1, 1)
LblAnim5(i).Move LblAnim5(i - 1).Left + LblAnim5(i - 1).Width
Next iLblAnim6(0) = Left(Anim6, 1)
For i = 1 To Len(Anim6) - 1
Load LblAnim6(i)
LblAnim6(i).Visible = True
LblAnim6(i).Caption = Mid(Anim6, i + 1, 1)
LblAnim6(i).Move LblAnim6(i - 1).Left + LblAnim6(i - 1).Width
Next iLblAnim7(0) = Left(Anim7, 1)
LblAnim7(0).Visible = False
For i = 1 To Len(Anim7) - 1
Load LblAnim7(i)
'LblAnim7(i).Visible = True
LblAnim7(i).Caption = Mid(Anim7, i + 1, 1)
LblAnim7(i).Move LblAnim7(i - 1).Left + LblAnim7(i - 1).Width
Next i
LblAnim8(0) = Left(Anim8, 1)
For i = 1 To Len(Anim8) - 1
Load LblAnim8(i)
LblAnim8(i).Visible = True
LblAnim8(i).Caption = Mid(Anim8, i + 1, 1)
LblAnim8(i).Move LblAnim8(i - 1).Left + LblAnim8(i - 1).Width
Next i
End SubPrivate Sub TmrAnim1_Timer()
Static Kanan As Boolean
LblAnim1.Left = LblAnim1.Left + IIf(Kanan, 400, -400)
If LblAnim1.Left < 0 Then
Kanan = True
ElseIf LblAnim1.Left > Me.Width - LblAnim1.Width Then
Kanan = False
End If
End SubPrivate Sub TmrAnim2_Timer()
Static i As Integer
i = i + 1
If TmrAnim2.Interval = 500 Then
LblAnim2.Caption = IIf(LblAnim2.Caption = "", Anim2, "")
If i = 6 Then
  i = 0
  TmrAnim2.Interval = 50
End If
Else
LblAnim2.Caption = Left(Anim2, i)
End If
If i = Len(Anim2) Then
i = 0
TmrAnim2.Interval = 500
End If
End SubPrivate Sub TmrAnim3_Timer()
Static Atas As Boolean
Static TopAsli As Integer
If TopAsli = 0 Then TopAsli = LblAnim3.Top
LblAnim3.Top = IIf(Atas, LblAnim3.Top - 60, TopAsli)
Atas = Not Atas
LblAnim3.Left = LblAnim3.Left + 400
If LblAnim3.Left > Me.Width Then
LblAnim3.Left = 0 - LblAnim3.Width
End If
End SubPrivate Sub TmrAnim4_Timer()
Static j As Integer
If j < Len(Anim4) Then LblAnim4(j).FontSize = LblAnim4(j).FontSize + 9
If j > 0 And j < Len(Anim4) + 1 Then LblAnim4(j - 1).FontSize = LblAnim4(j - 1).FontSize - 3
If j > 1 And j < Len(Anim4) + 2 Then LblAnim4(j - 2).FontSize = LblAnim4(j - 2).FontSize - 3
If j > 2 Then LblAnim4(j - 3).FontSize = LblAnim4(j - 3).FontSize - 3j = j + 1
If j > Len(Anim4) + 2 Then
j = 0
End If
End SubPrivate Sub TmrAnim5_Timer()Static j As Integer
Dim i As Integer
If j < Len(Anim5) Then LblAnim5(j).Top = LblAnim5(j).Top - 60
If j > 0 And j < Len(Anim5) + 1 Then LblAnim5(j - 1).Top = LblAnim5(j - 1).Top + 60
j = j + 1
If j > Len(Anim5) + 2 Then
j = 0
End If
For i = 0 To Len(Anim5) - 1
LblAnim5(i).Left = LblAnim5(i).Left + 200
Next i
If LblAnim5(0).Left > Me.Width Then
For i = Len(Anim5) - 1 To 0 Step -1
  LblAnim5(i).Left = IIf(i = Len(Anim5) - 1, 0 - LblAnim5(i).Width, 0 - ((Len(Anim5) - i) * LblAnim5(i).Width))
Next i
End If
End SubPrivate Sub TmrAnim6_Timer()
Static j As Integer
Randomize
If j > 0 And j < Len(Anim6) + 1 Then LblAnim6(j - 1).ForeColor = vbBlack
If j > 1 And j < Len(Anim6) + 2 Then LblAnim6(j - 2).ForeColor = vbBlue
j = j + 1
If j > Len(Anim6) + 2 Then
j = 0
End If
For i = 0 To Len(Anim6) - 1
LblAnim6(i).Left = LblAnim6(i).Left + 200
Next i
If LblAnim6(0).Left > Me.Width Then
For i = Len(Anim6) - 1 To 0 Step -1
  LblAnim6(i).Left = IIf(i = Len(Anim6) - 1, 0 - LblAnim6(i).Width, 0 - ((Len(Anim6) - i) * LblAnim6(i).Width))
Next i
End If
End SubPrivate Sub TmrAnim7_Timer()
Static j As Integer
Randomize
Jatuh LblAnim7(j), LblAnim7(j).Top
j = j + 1
If j = Len(Anim7) Then
j = 0
For i = 0 To Len(Anim7) - 1
  LblAnim7(i).Visible = False
Next i
End If
End SubPrivate Sub Jatuh(Obj As Label, NTop As Integer)
Obj.Top = 0
Obj.Visible = True
While Not Obj.Top > NTop
Obj.Top = Obj.Top + 1
Wend
End SubPrivate Sub TmrAnim8_Timer()
Static j As Integer
Randomize
If j > 0 And j < Len(Anim8) + 1 Then LblAnim8(j - 1).ForeColor = vbRed
If j > 1 And j < Len(Anim8) + 2 Then LblAnim8(j - 2).ForeColor = vbBlack
j = j + 1
If j > Len(Anim8) + 2 Then
j = 0
End If
End Sub

Paste in Notepad and save with filename Animation.Frm ... :ph34r:

:thumbsup:

Edited by agoes_doubleb
hanjian

hanjian

Posted
Posted

Ho ho....Very Simple and Thx for this Share but....this Room for Programming Keygen, Patcher and Etc.

"Hanjian"

Teddy Rogers

Teddy Rogers

Posted
Posted
this Room for Programming Keygen, Patcher and Etc.

It is for all coding related issues and subjects... :thumbs:

Ted.

agoes_doubleb

agoes_doubleb

Posted
  • Author
Posted

Yes, we can add this in our keygen, patcher, crackme etc

yohukm

yohukm

Posted
Posted (edited)

Good share agoes_doubleb

usefull source THANKS

post-31911-1234510595_thumb.jpg

Edited by yohukm
hanjian

hanjian

Posted
Posted

ho ho ho ho.....For ALL COding....Oke.... :D thx For this Info.

"Hanjian"

MB!

MB!

Posted
Posted

@ agoes thank's for related source code..very usefull :thumbsup:

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing
×
×
  • Create New...