VisualBasic5.0 se está volviendo cada vez más popular entre los programadores debido a su método de programación visual. Podemos usar VisualBasic5.0 para escribir software multimedia con hermosas interfaces y hermosa música. Sin embargo, puede encontrar algunos problemas que son difíciles de resolver durante el proceso de programación real. Las siguientes son algunas de las experiencias del autor en la creación multimedia, que pueden enriquecer su caja de accesorios multimedia.
1. Música de fondo
Cuando usamos Visual Basic 5.0 para compilar aplicaciones, podemos usar el método de anidamiento OLE para agregar fácilmente música de fondo a una aplicación.
Ingrese al entorno del sistema VisualBasic5.0 y cree un nuevo formulario. Haga clic en el 'Contenedor OLE' en el 'Control de formulario' y arrástrelo a cualquier parte del FORMULARIO. Seleccione 'Clip multimedia' en la ventana 'Insertar objeto', seleccione la columna 'Mostrar como icono' (esta columna debe estar seleccionada, de lo contrario no se puede ocultar) y presione la tecla 'Confirmar' para salir.
En la ventana 'Reproductor multimedia', seleccione 'Archivo', 'Abrir' y seleccione el archivo de sonido que desea usar como música de fondo de la lista de archivos. Dado que los archivos de música generalmente no son muy largos, requieren una reproducción en bucle, lo que se puede lograr configurando el 'reproductor multimedia' para que se reproduzca repetidamente. Luego seleccione 'Opciones' en el menú 'Editar', seleccione 'Repetir reproducción' en la ventana de opciones y elimine la marca de verificación frente a 'Barra de control de reproducción', confirme y salga.
Regrese al entorno del sistema Visual Basic 5.0, presione el botón derecho del mouse y haga clic en la columna "Propiedades" en el menú emergente para abrir la ventana de propiedades. Seleccione el objeto 'Ole1' y establezca su propiedad 'Visible' en .F y su propiedad 'Autosize' en .F. Presione el botón derecho del mouse nuevamente, haga clic en la columna 'Código' en el menú emergente para ingresar a la ventana de escritura del proceso y escriba el proceso 'Cargar' del objeto 'Form1':
PRivateSubForm_Load()
OLE1.DoVerb(0)
FinSub
4. Presione la tecla 'F5' para ejecutar.
2. Botón tridimensional con efecto transparente
Al crear software multimedia, a veces necesitamos botones tridimensionales con efectos transparentes. Podemos usar la combinación de etiqueta (LABEL) y forma (SHAPE) para completar este diseño.
Ingrese al entorno del sistema Visual Basic 5.0, cree un nuevo formulario (FORM1) y establezca la propiedad Imagen de FORM1 en un archivo de mapa de bits de WINDOWS (.BMP).
Haga clic en "Forma" en la "Barra de control de formulario" y extraiga un cuadro rectangular (FORMA1) en FORM1. Crea SHAPE2, SHAPE3 y SHAPE4 de la misma manera. Establezca las propiedades de estas cuatro FORMAS de la siguiente manera en la ventana de propiedades:
FORMA1:
Color del borde=&HFFFFFF
Ancho del borde=3Izquierda=2160
Superior=2040Ancho=1100
FORMA2:
Color del borde=&H80000008
Ancho del borde=3Izquierda=2160
Superior=2520Ancho=1100
FORMA3:
Color del borde=&HFFFFFF
Ancho del borde=3Izquierda=2160
Superior=2040Altura=500
FORMA4:
Color del borde=&H80000008
Ancho del borde=3Izquierda=3240
Superior=2040Altura=500
Haga clic en la "Etiqueta" en la "Barra de control de formulario" con el mouse, extraiga un cuadro rectangular (ETIQUETA1) en FORM1 y ajuste su tamaño para que quepa en las cuatro FORMAS. Establezca su propiedad Título en el título del botón personalizado, Alineación en 2 y Estilo de fondo en 0.
Haga doble clic en LABEL1 y escriba el proceso MouseDown y el proceso MouseUp de LABEL1 de la siguiente manera:
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Forma1.BorderColor=&H80000008
Forma3.BorderColor=&H80000008
Forma2.BorderColor=&HFFFFFF
Forma4.BorderColor=&HFFFFFF
Etiqueta1.Top=Etiqueta1.Top 10
FinSub
PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Forma1.BorderColor=&HFFFFFF
Forma3.BorderColor=&HFFFFFF
Forma2.BorderColor=&H80000008
Forma4.BorderColor=&H80000008
Etiqueta1.Top=Etiqueta1.Top-10
FinSub
Simplemente presione la tecla 'F5' para ejecutarlo.
3. Subtítulos móviles
En la televisión, a menudo vemos una línea de texto de aviso o información publicitaria que se mueve de derecha a izquierda en la parte inferior de la pantalla, lo que no solo sirve como aviso sino que no daña toda la pantalla. También podemos completar este diseño en VisualBasic5.0.
Ingrese al entorno del sistema Visual Basic 5.0, cree un nuevo formulario (FORM1) y establezca la propiedad Backcolor de FORM1 en un RGB (192,192,192).
Haga clic en "Etiqueta" en la "Barra de control de formulario" y extraiga un cuadro rectangular (ETIQUETA1) en FORM1. Establezca sus propiedades Título en "Demostración de subtítulos activos", Tamaño automático en .T., Estilo de fondo en 0, Color frontal en RGB (128, 128, 128), Nombre de fuente en "escritura oficial", Fuente en negrita en .T. y Tamaño de fuente en 36.
Haga clic en LABEL1 con el mouse, presione la tecla CTRL C (copiar) y luego presione la tecla CTRL V (pegar) para crear otra etiqueta (LABEL2) con el mismo título que LABEL1 en FORM1 y establezca su atributo Forecolor en RGB (255 , 255, 0 ). Ajuste la posición de LABEL2 para que quede un poco más alta que LABEL1, de modo que LABEL1 parezca la sombra de LABEL2.
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 200.
Haga doble clic en FORM1 y escriba el proceso de carga de FORM1 de la siguiente manera:
PrivadoSubForm_Load()
Etiqueta1.Izquierda=Ancho 50
Etiqueta2.Izquierda=Ancho
FinSub
6. Haga doble clic en TIMER1 y escriba el proceso del temporizador de TIMER1 de la siguiente manera:
PrivadoSubTimer1_Timer()
SiLabel1.Left<0-Label1.WidthThen
Etiqueta1.Izquierda=Ancho 50
Etiqueta2.Izquierda=Ancho
Fin si
Etiqueta1.Izquierda=Etiqueta1.Izquierda-500
Etiqueta2.Izquierda=Etiqueta2.Izquierda-500
FinSub
7. Presione la tecla 'F5' para ejecutar y verá que los subtítulos aparecen en el lado derecho de la pantalla y desaparecen cuando se mueven hacia el extremo izquierdo de la pantalla.
4. Aparece y desaparece gradualmente el texto
Los subtítulos de comentarios al comienzo de muchos juegos y los créditos creativos después de la explosión utilizan el método de aparición y desaparición gradual de caracteres. También se puede producir texto con efectos de aparición y desaparición gradual en Visual Basic 5.0.
Ingrese al entorno del sistema Visual Basic5.0 y cree un nuevo formulario (FORM1).
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 "Aparición y desaparición gradual del texto", Tamaño automático en .T., Estilo de fondo en 0, color de texto en RGB (0,128,128), fuente en "escritura oficial", Fuente en negrita en .T. y tamaño de fuente en 36. .
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 Interval en 100 y su propiedad Enabled en .F..
Haga clic en el "Botón de comando" en la "Barra de control de formulario" y abra un cuadro rectangular (COMANDO1) en FORM1. Establezca su propiedad Título en "Inicio".
Haga doble clic en COMMAND1 y escriba el proceso de clic de COMMAND1 de la siguiente manera:
PrivadoSubCommand1_Click()
IfTimer1.Enabled=FalseThen
Temporizador1.Enabled=Verdadero
Fin si
FinSub
Haga doble clic en FORM1 y escriba el proceso de activación de FORM1 de la siguiente manera:
Color de fondo=RGB(0,128,128)
yo=0
7. Haga doble clic en TIMER1 y escriba el proceso del temporizador de TIMER1 de la siguiente manera:
PrivadoSubTimer1_Timer()
yo=yo 10
SiI>=255*2Entonces
Temporizador1.Enabled=Falso
yo=0
Fin si
SiI>=255Entonces
Etiqueta1.ForeColor=RGB(255*2-I,128,128)
Demás
Etiqueta1.ForeColor=RGB(I,128,128)
Fin si
FinSub
Presione la tecla 'F5' para ejecutar. Haga clic en el botón "Inicio" con el mouse y podrá ver que el título cambia gradualmente del color de fondo a rojo y luego de rojo al color de fondo.
Todos los programas anteriores se ejecutan correctamente en Visual Basic 5.0 y WINDOWS95. ->