You are not logged in.

IAO

Beginner

  • "IAO" is male
  • "IAO" started this thread

Posts: 38

Date of registration: May 25th 2013

Location: Venezuela

Occupation: Electronic

  • Send private message

1

Thursday, July 11th 2013, 7:44pm

Problem with Timer1 and Timer2 (RESOLVED)

Hi

I have a problem with Timer1-2 running at the same time.
Timer1 should run first, at the end Timer1, Timer2 should run.

Sometimes Timer1 does not run. Direct jumps Timer2

I have two days doing tests and I can not see what's wrong.
In VB6 this works well..

Put 2 timer, 1 label, 1 buttom

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

Dim i As Integer , g As Integer 

Public Sub Command1_Click()
   Timer1.Enabled = True
   Timer1.Interval=400

   'MsgBox  "See Problem"    '*<=== Uncomment to see how it work.
   
   Timer2.Enabled = True
   Timer2.Interval=500
   Label1.ForeColor = vbRed 
End Sub

Public Sub Timer1_Timer()
    i=i+1  
    If i >= 10 Then 
      Timer1.Enabled=False 
    End If   

    Label1.Caption =  "Change Test Leads : " + i 
    'Label1.Refresh 
    'DoEvents
     
End Sub

Public Sub Timer2_Timer()
    g=g+1
    If  g >= 10 Then
      Timer2.Enabled=False
    End If     
  
    Label1.Caption = "Wait a Moment : " + g
    'Label1.Refresh 
    'DoEvents
    
End Sub


I hope someone can help. ;(
Thanks in advance. :)
http://b4jar.freeforums.org/

This post has been edited 4 times, last edit by "IAO" (Jul 12th 2013, 2:07am)

IAO

Beginner

  • "IAO" is male
  • "IAO" started this thread

Posts: 38

Date of registration: May 25th 2013

Location: Venezuela

Occupation: Electronic

  • Send private message

2

Friday, July 12th 2013, 1:51am

Hi....

I think this solved my problem. The program is working as I wanted.

Put 2 timer(Timer1 and Timer2, 1 Label, 1 Buttom controls in form designer.

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

Private Winapi Function Sleep Lib "Kernel32.dll" (ByVal aTime As Integer)

Dim i As Integer,  g As Integer 

Public Sub Command1_Click()
   Timer1.Interval=400
   Timer1.Enabled = True
   g=10

  Do
  '***Yield to other programs 
  '***(better than using DoEvents which eats up all the CPU cycles)
    Sleep 100
    DoEvents
  Loop Until i >= 10


   Timer2.Interval=500   
   Timer2.Enabled = True
   Label1.ForeColor = vbRed 
End Sub

Public Sub Timer1_Timer()
    i=i+1  
    If i >= 10 Then 
      Timer1.Enabled=False 
    End If   

    Label1.Caption =  "Change Test Leads : " + i 
     
End Sub

Public Sub Timer2_Timer()
    g=g-1
    If  g <= 1 Then
      Timer2.Enabled=False
    End If     
  
    Label1.Caption = "Wait a Moment : " + g
    
End Sub


I hope this can help others.
Greetings and best wishes. :thumbsup:


.
http://b4jar.freeforums.org/

This post has been edited 5 times, last edit by "IAO" (Jul 12th 2013, 2:02am)

Similar threads

Rate this thread
WoltLab Burning Board