Chat LIVE With Programming Experts! There Are 23 Online Right Now...

Programming Help

Web Development



What's Here?

  • Members: 244,307
  • Replies: 693,184
  • Topics: 113,169
  • Snippets: 3,863
  • Tutorials: 935
  • Total Online: 792
  • Members: 54
  • Guests: 738

Welcome to Dream.In.Code
Become a VB Expert!

Join 244,307 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 792 people online right now. Registration is fast and FREE... Join Now!




Timer Control "Production Line"

 
 Reply to this topicStart new topic

Timer Control "Production Line"
2112chase
30 Nov, 2008 - 06:38 PM
Post #1

New D.I.C Head
*

Joined: 30 Nov, 2008
Posts: 1
Just a basic question. I'm making a timer, and every 5 seconds i am to produce a graphic (a small box). How do I go about doing this.

User is offlineProfile CardPM
+Quote Post


VB Crash
RE: Timer Control "Production Line"
30 Nov, 2008 - 06:58 PM
Post #2

D.I.C Head
**

Joined: 28 Nov, 2008
Posts: 130



Thanked: 7 times
My Contributions
vb

If Picture1.Visible = True Then
Picture1.Visible = False
Else
Picture1.Visible = True
End If


Vace
User is offlineProfile CardPM
+Quote Post

jens
RE: Timer Control "Production Line"
30 Nov, 2008 - 11:51 PM
Post #3

D.I.C Regular
Group Icon

Joined: 9 May, 2008
Posts: 263



Thanked: 18 times
Dream Kudos: 475
My Contributions
CODE

''There must be one timer on the form.
Private Sub Form_Load()
  Timer1.Interval = 5000
End Sub


'Click anywhere on the form to exit
Private Sub Form_Click()
  Unload Me
End Sub


Private Sub Timer1_Timer()
  Dim T, M, S, i As Integer
   'This will run every 5 seconds. I'm making a shape blink on and off.
    Shape1.FillColor = IIf(Shape1.FillColor = &H80000008, &HFF00&, &H80000008)
  
  T = Hour(Time)
  M = Minute(Time)
  S = Second(Time)
  'Here you put stuff you want to use with hour, minute and second.
End Sub


/Jens

This post has been edited by jens: 30 Nov, 2008 - 11:51 PM
User is offlineProfile CardPM
+Quote Post

VB Crash
RE: Timer Control "Production Line"
1 Dec, 2008 - 07:59 AM
Post #4

D.I.C Head
**

Joined: 28 Nov, 2008
Posts: 130



Thanked: 7 times
My Contributions
I think my code is simple (fro you) , is better and is what you need.

Thanks
Vace
User is offlineProfile CardPM
+Quote Post

skyhawk133
RE: Timer Control "Production Line"
1 Dec, 2008 - 08:02 AM
Post #5

Head DIC Head
Group Icon

Joined: 17 Mar, 2001
Posts: 16,441



Thanked: 117 times
Dream Kudos: 1650
Expert In: Web Development

My Contributions
jens and VB Crash, please keep in mind that we do not give people code without seeing some effort from the original poster first. This has been our policy for years and it is to prevent cheating and the site turning in to "do my homework for me". You are welcome to help, but the original poster must show what they have done to attempt the problem.
User is offlineProfile CardPM
+Quote Post

VB Crash
RE: Timer Control "Production Line"
1 Dec, 2008 - 08:09 AM
Post #6

D.I.C Head
**

Joined: 28 Nov, 2008
Posts: 130



Thanked: 7 times
My Contributions
Sorry bos, I just wana help them. They are begginers ( I know how it is , I was beginer long time ago and I know how is the feeling). I dont wana break the policy low, sorry. I just wana help them...

Vace
User is offlineProfile CardPM
+Quote Post

VB Crash
RE: Timer Control "Production Line"
1 Dec, 2008 - 09:15 AM
Post #7

D.I.C Head
**

Joined: 28 Nov, 2008
Posts: 130



Thanked: 7 times
My Contributions
I'm sorry for my mistakes. Sorry 1 more time. Sorry 2112chase. Sorry jens. That was rude from my side. Sorry. If I understand well jens are you tring to make Timer or you are using timer?

Vace
User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic

Time is now: 7/4/09 06:46PM
Invision Power Board v2.1.7 © 2009  IPS, Inc.
Licensed to: MediaGroup1

Live VB Help!

Be Social

Dream.In.Code RSS Feed Dream.In.Code LinkedIn Group Follow Us On Twitter Fan Us On Facebook

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month