Visual Basic - Problema con semáforo en visual basic 6.0

Life is soft - evento anual de software empresarial
 
Vista:

Problema con semáforo en visual basic 6.0

Publicado por Osiel (1 intervención) el 19/06/2015 07:12:57
Hola a todos muchachos.
Tengo un problemita con un semáforo en visual basic, yo no soy el gran programador pero segun yo aquí debería ir perfecto, perdón si estoy en el error. Necesito de su ayuda, pues cuando termina el primer ciclo ya no continua si no que muetra cada shape en intervalos de 1 segundo y no a como esta programado. Ojala me puedan ayudar
No se si se pueda dejar codigos aquí, pero lo adjunto:
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 Sub Command1_Click()
Timer4.Enabled = True
Shape1.FillStyle = 0 - Solid
Label2.Visible = True
End Sub
 
Private Sub Timer4_Timer()
Label2.Caption = Label2.Caption - 1
If Label2.Caption < 1 Then
Timer4.Enabled = False
Timer6.Enabled = True
Label3.Visible = True
Shape3.FillStyle = 0 - Solid
Shape1.FillStyle = 6 - Cross
Label2.Visible = False
End If
End Sub
 
Private Sub Timer5_Timer()
Label4.Caption = Label4.Caption - 1
If Label4.Caption < 1 Then
Timer5.Enabled = False
Timer4.Enabled = True
Label2.Visible = True
Shape1.FillStyle = 0 - Solid
Shape2.FillStyle = 6 - Cross
Label4.Visible = False
End If
End Sub
 
Private Sub Timer6_Timer()
Label3.Caption = Label3.Caption - 1
If Label3.Caption < 1 Then
Timer6.Enabled = False
Timer5.Enabled = True
Label4.Visible = True
Shape2.FillStyle = 0 - Solid
Shape3.FillStyle = 6 - Cross
Label3.Visible = False
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de LUIS A. FRANCO R.

Problema con semáforo en visual basic 6.0

Publicado por LUIS A. FRANCO R. (93 intervenciones) el 22/06/2015 18:00:18
Envia el proyecto en winzip para ver cual es el error.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar