Utilice vb6 para crear un semáforo. La luz verde tarda 20 segundos, la luz verde 10 segundos y la luz roja 30 segundos. debería hacer esto
1. Controles
1. Imagen de demostración, dibuje una imagen directamente y luego cárguela en Imagen1.
2. Círculo, use el control de Forma, agrupe o no la matriz de control a voluntad.
3. Utilice el control de etiquetas.
4. Lo que uso aquí son dos controles Check. Contenido: automático, manual.
Además, los dos botones que se muestran en el manual utilizan la opción.
Para cerrar el botón utilice: Comando
5. Poner otro temporizador (timer), Intervalo: 1000, Habilitado: Falso
2. p>
1. Constantes:
Const TXDR = 55' Tiempo de semáforo en rojo para tráfico este-oeste
Const TXLR = 60' Tiempo de semáforo en rojo para tráfico de norte a sur
Const TXH = 5 'Tiempo de luz amarilla de tráfico
2. Variable, una variable para cronometrar y una variable que representa el estado.
Las variables de estado están disponibles o no. Si se usan, se puede ahorrar tiempo de procesamiento de la CPU.
3. Responder a los eventos.
Automático, manual, necesidad de responder a eventos. Mi código está escrito principalmente en el temporizador, por lo que esta respuesta al evento es muy simple.
Código del programa:
Private Sub Check1_Click() 'Haga clic automáticamente
Si Check1.Value = 1 Entonces 'Si se abre automáticamente
Check2.Value = 0 'Apagado manual
DoEvents 'Esperar a que se ejecute la respuesta de apagado manual
TXjs = 0
Timer1.Enabled = True 'Abrir temporizador
De lo contrario
Timer1.Enabled = False 'Apaga el temporizador
Finalizar si
End Sub
Private Sub Check2_Click() 'Hacer clic manualmente
Si Check2.Value = 1 Entonces 'Si se cierra manualmente
Check1.Value = 0 'Cerrar automáticamente
DoEvents ' Espera a que se ejecute la respuesta de apagado automático
TXjs = 0
Timer1.Enabled = True 'Abrir temporizador
Else 'De lo contrario
Timer1 .Enabled = False 'Apagar el temporizador
Finalizar si
End Sub
4.
Primero, cuente y agregue 1 cada 1 segundo
Cuando el resultado del tiempo exceda un ciclo, configúrelo en 0
Realice una selección de múltiples ramas en. el resultado del tiempo.
Seleccione el caso TXjs
El caso es lt; TXDR 'Este y Oeste Rojo
El caso es lt TXDR TXH 'Este y Oeste Amarillo
Caso es lt; TXDR TXH TXLR 'Norte y Sur Rojo
Caso es lt TXDR TXH TXLR TXH 'Norte y Sur Rojo
Caso más
TXjs = 0
End Select
En cada rama, cuatro luces y cuatro cuentas regresivas se especifican por separado.
Para la parte manual, no es nada. Simplemente haga un juicio y luego especifíquelo directamente.
Código de programa:
Si Check2.Value = 1 Entonces
Si Option1.Value = True Entonces
Shape1(0). FillColor = vbRed
Shape1(1).FillColor = vbRed
Shape1(2).FillColor = vbGreen
Shape1(3).FillColor = vbGreen
'Label1(0).ForeColor = vbRed
'Label1(1).ForeColor = vbRed
'Label1(2).ForeColor = vbGreen
'Label1(3).ForeColor = vbGreen
Label4.Caption = "Norte y Sur: Verde"
Label5.Caption = "Este y Oeste: Rojo"
DoEvents
Else
Shape1(0).FillColor = vbGreen
Shape1(1).FillColor = vbGreen
Shape1(2 ).FillColor = vbRed
Shape1(3).FillColor = vbRed
'Label1(0).ForeColor = vbGreen
'Label1( 1).ForeColor = vbGreen
'Label1(2).ForeColor = vbRed
'Label1(3).ForeColor = vbRed
Label4.Caption = " Norte y Sur: Rojo"
Label5.Caption = "Algo: Verde"
DoEvents
End If
Label1(0) .Caption = "∞"
Etiqueta1(1).Caption = "∞"
Etiqueta1(2).Caption = "∞"
Etiqueta1(3 ).Caption = "∞ "
Fin Si
Las propiedades son las mismas, echa un vistazo