Hay todo tipo de luces de neón parpadeando en la noche urbana. Entre ellas, las más utilizadas son probablemente las luces de agua corriente. Su efecto fluido aporta vitalidad a la noche tranquila. ¿Qué tipo de efecto tendría si añadiéramos una cadena de luces de agua con gas a la interfaz del software multimedia que creamos? Siga los pasos a continuación para agregar una cadena de luces de agua corriente con un efecto de persecución a su programa multimedia.
1. Cree un nuevo formulario. Ingrese al entorno del sistema Visual5asic4.0, cree un nuevo formulario (FORM1) y establezca la propiedad Backcolor de FORM1 en RGB (192,192,192).
2. Construye la primera linterna. Haga clic en "Etiqueta" en la "Barra de control de formulario" y extraiga un cuadro rectangular (ETIQUETA1) en FORM1. Establezca su atributo Título en "★" (también pueden ser otros caracteres, el "★" aquí se puede encontrar en el "Mapa de caracteres" de "Accesorios" de WINDOWS95), Tamaño automático en .T., Estilo de fondo en 0 y Color de frente. a rojo, tamaño de fuente 18.
3. Crea otras 29 linternas. Haga clic en ETIQUETA1 con el mouse, presione la tecla CTRL C (copiar) y luego presione la tecla CTRL V (pegar) para crear otra etiqueta (ETIQUETA1 (1)) con el mismo título que ETIQUETA1 en FORM1. para crear una matriz de control, seleccione 'SÍ'. Repita esta copia para crear un total de 30 etiquetas y colóquelas en un cuadro rectangular en orden.
4. Crea un temporizador. Haga clic en "Temporizador" en la "Barra de control de formulario" con el mouse y luego haga clic una vez en FORM1 para crear un temporizador (TIMER1) en FORM1. Establezca su propiedad Intervalo en 400.
5. Haga doble clic en FORM1 y escriba el proceso de carga de FORM1 de la siguiente manera:
PRivateSubForm_Load()
yo=0
Forj=0A9
Etiqueta1(j*3).ForeColor=&HFF&'Rojo
Etiqueta1(j*3 1).ForeColor=&HFF00&'verde
Etiqueta1(j*3 2).ForeColor=&HFFFF&'amarillo
Siguientej
FinSub
6. Haga doble clic en TIMER1 y escriba el proceso del temporizador de TIMER1 de la siguiente manera:
PrivadoSubTimer1_Timer()
Si yo = 30 entonces
yo=0
Fin si
yo=yo 1
ParaJ=0A29
Etiqueta1(J).Visible=Falso
SiguienteJ
SiIMod3=2Entonces
ParaJ=0A9
Etiqueta1(J*3 1).Visible=Verdadero
SiguienteJ
Demás
SiIMod3=0Entonces
ParaJ=0A9
Etiqueta1(J*3 2).Visible=Verdadero
SiguienteJ
Demás
ParaJ=0A9
Etiqueta1(J*3).Visible=Verdadero
SiguienteJ
Fin si
Fin si
FinSub
Después de ejecutar el formulario, puede ver que las luces roja, verde y azul se encienden alternativamente. Ajustar el valor del atributo Intervalo del Temporizador1 puede cambiar la velocidad del ciclo de los tres grupos de luces.
El programa anterior se ejecuta correctamente en Visual Basic 5.0 y Windows 95. ->