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:
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
0
