Printable Version of Topic

Click here to view this topic in its original format

Dream.In.Code _ Visual Basic Tutorials _ Blinking Text for Beginners

Posted by: akhileshbc 27 Sep, 2008 - 08:59 PM

Hi guys,
Most of you had created many programs for various purpose. But have you ever thought of some animation in your program..smile.gif

Here I am going to mention a small tutorial on creating a blinking text effect. It is for pure beginners.

First of all open the Visual Basic using Start>Programs>Microsoft Visual Studio>Visual Basic 6.0.

Then select Standard EXE and click open.
You will get a blank Form.

From the toolbox(in left side), select Command Button and create two buttons in your form(say, Command1 and Command2).
Also, create a Timer in your form(say, Timer1)

Then open the code window(View menu> View Code).
Then write the code as below:

vb
Private Sub Command1_Click()
Timer1.Interval = 100 'interval of the timer
Timer1.Enabled = True 'starting the animation
Label1.Caption = "Welcome" 'text to display
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False 'stopping the animation
End Sub

Private Sub Form_Load()
Timer1.Enabled = False 'disabling the animation on loading the form
End Sub

Private Sub Timer1_Timer()
If Label1.Visible = True Then 'checking whether it is visible
	Label1.Visible = False 'if visible then, make it invisible
ElseIf Label1.Visible = False Then 'checking whether it is invisible
	Label1.Visible = True 'if invisible then, make it visible
End If
End Sub

I had included most of the comments in the code itself. I think you understand my coding. If you have any doubt, please feel free to contact me....smile.gif

-Akhilesh B Chandran

Posted by: gleeenob 9 Nov, 2008 - 01:52 PM

you messed up on the " Private Sub Form_Load()
Timer1.Enabled = False
End Sub " part but hey w/e

Posted by: massoud raji 26 Dec, 2008 - 04:29 PM

Dear Sir
Thank you but the following statement is redundant:

If Label1.Visible = False Then 'checking whether it is invisible

Posted by: rdsrds2120 7 Jan, 2009 - 07:58 PM

Very nice tutorial, now, here is for anyone that wants it to toggle back and forth only using one command button


CODE


Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Interval = 100
Label1.Caption="Welcome" 'It is OK that it rapplies the interval and caption                
                                        
If Timer1.Enabled = True Then
     Timer1.Enabled = False
ElseIf Timer1.Enabled = False Then
     Timer1.Enabled = True
End If


now, be careful for a common If Then mistake that I see in my class. Some people try to put the code
CODE

If Timer1.Enabled = True Then
     Timer1.Enabled = False
End If

If Timer1.Enabled = False Then
     Timer1.Enabled= True
End If

in place of the ElseIf statment nested in.
The problem with this is when the code is executed if Timer1.Enabled = True, it would become false and then be applied to the next If Then Statement. It is good to learn a very very well understanding of the If Then statement if you are a very beginning programmer.
I free handed this coding so don't get too picky with the ity bity techs like the Private Subs and wahtnot






Posted by: Dalidar91 15 Oct, 2009 - 09:20 AM

QUOTE(rdsrds2120 @ 7 Jan, 2009 - 07:58 PM) *

Very nice tutorial, now, here is for anyone that wants it to toggle back and forth only using one command button


CODE


Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Interval = 100
Label1.Caption="Welcome" 'It is OK that it rapplies the interval and caption                
                                        
If Timer1.Enabled = True Then
     Timer1.Enabled = False
ElseIf Timer1.Enabled = False Then
     Timer1.Enabled = True
End If


now, be careful for a common If Then mistake that I see in my class. Some people try to put the code
CODE

If Timer1.Enabled = True Then
     Timer1.Enabled = False
End If

If Timer1.Enabled = False Then
     Timer1.Enabled= True
End If

in place of the ElseIf statment nested in.
The problem with this is when the code is executed if Timer1.Enabled = True, it would become false and then be applied to the next If Then Statement. It is good to learn a very very well understanding of the If Then statement if you are a very beginning programmer.
I free handed this coding so don't get too picky with the ity bity techs like the Private Subs and wahtnot



how does this all work in Microsoft VB 2008 i do not have an older version and the people i work with require me to use it so if you can help me figure out how to make it work in vb 2008 i would be greatly appreciated

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)