El documento habla sobre Visual Basic 6.0, incluyendo ejemplos de una calculadora básica y una conversión de temperaturas. Explica conceptos como acceder a propiedades de controles y usar la función Val() para convertir cadenas a números.
0 calificaciones0% encontró este documento útil (0 votos)
9 vistas2 páginas
El documento habla sobre Visual Basic 6.0, incluyendo ejemplos de una calculadora básica y una conversión de temperaturas. Explica conceptos como acceder a propiedades de controles y usar la función Val() para convertir cadenas a números.
El documento habla sobre Visual Basic 6.0, incluyendo ejemplos de una calculadora básica y una conversión de temperaturas. Explica conceptos como acceder a propiedades de controles y usar la función Val() para convertir cadenas a números.
El documento habla sobre Visual Basic 6.0, incluyendo ejemplos de una calculadora básica y una conversión de temperaturas. Explica conceptos como acceder a propiedades de controles y usar la función Val() para convertir cadenas a números.
Descargue como PDF, TXT o lea en línea desde Scribd
Descargar como pdf o txt
Está en la página 1/ 2
ESIISS: Aprenda Visual Basic 6.
0 como si estuviera en Primero página 8
3. Es también interesante ver cómo se accede desde programa a la propiedad backColor de la
caja de texto que se llama txtCaja: se hace utilizando el punto en la forma txtCaja.BackColor. Los colores se podrían también introducir con notación hexadecimal (comenzando con &H, seguidos por dos dígitos entre 00 y FF (es decir, entre 0 y 255 en base 10) para los tres colores fundamentales, es decir para el Red, Green y Blue (RGB), de derecha a izquierda. Aquí se han utilizado las constantes simbólicas predefinidas en Visual Basic 6.0: vbRed, vbGreen y vbBlue (ver Tabla 6.1, en la página 69). 4. Recuérdese que si se desea que el código de todos los eventos aparezca en una misma ventana hay que activar la opción Default to Full Module View en la solapa Editor del comando Tools/Options. También puede hacerse directamente en la ventana de código con uno de los botones que aparecen en la parte inferior izquierda ( ). 5. Es muy importante crear primero el control frame y después, estando seleccionado, colocar los botones de opción en su interior. No sirve hacerlo a la inversa. Visual Basic supone que todos los botones de opción que están dentro del mismo frame forman parte del mismo grupo y sólo permite que uno esté seleccionado.
1.5.2 Ejemplo 1.2: Minicalculadora elemental
En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro operaciones aritméticas (Figura 1.3). Los ficheros de este proyecto se pueden llamar minicalc.vbp y minicalc.frm. El usuario introduce los datos y clica sobre el botón correspondiente a la operación que desea realizar, apareciendo inmediatamente el resultado en la caja de texto de la derecha. Figura 1.3. Minicalculadora elemental.
La Tabla 1.3 muestra los objetos y las propie-
dades más importantes de este ejemplo.
Control Propiedad Valor Control Propiedad Valor
frmMinicalc Name frmMinicalc lblEqual Name lblEqual Caption Minicalculadora Caption = txtOper1 Name txtOper1 cmdSuma Name cmdSuma Text Caption + txtOper2 Name txtOper2 cmdResta Name cmdResta Text Caption - txtResult Name txtResult cmdMulti Name cmdProd Text Caption * lblOp Name lblOp cmdDivi Name cmdDiv Caption Caption / Tabla 1.3. Objetos y propiedades del ejemplo Minicalculadora.
A continuación se muestra el código correspondiente a los procedimientos que gestionan los
eventos de este ejemplo. Option Explicit
Private Sub cmdDiv_Click()
txtResult.Text = Val(txtOper1.Text) / Val(txtOper2.Text) lblOp.Caption = "/" End Sub Capítulo 1: Introducción página 9
Private Sub cmdProd_Click()
txtResult.Text = Val(txtOper1.Text) * Val(txtOper2.Text) lblOp.Caption = "*" End Sub
Private Sub cmdResta_Click()
txtResult.Text = Val(txtOper1.Text) - Val(txtOper2.Text) lblOp.Caption = "-" End Sub
Private Sub cmdSuma_Click()
txtResult.Text = Val(txtOper1.Text) + Val(txtOper2.Text) lblOp.Caption = "+" End Sub
En este ejemplo se ha utilizado repetidamente la función Val() de Visual Basic. Esta función convierte una serie de caracteres numéricos (un texto formado por cifras) en el número entero o de punto flotante correspondiente. Sin la llamada a la función Val() el operador + aplicado a cadenas de caracteres las concatena, y como resultado, por ejemplo, “3+4” daría “34”. No es lo mismo los caracteres “1” y “2” formando la cadena o string “12” que el número 12; la función val() convierte cadenas de caracteres numéricos –con los que no se pueden realizar operaciones aritméticas- en los números correspondientes –con los que sí se puede operar matemáticamente-. Visual Basic 6.0 transforma de modo automático números en cadenas de caracteres y viceversa, pero este es un caso en el que dicha transformación no funciona porque el operador “+” tiene sentido tanto con números como con cadenas.
1.5.3 Ejemplo 1.3: Transformación de unidades de temperatura
La Figura 1.4 muestra un programa sencillo que permite ver la equivalencia entre las escalas de temperaturas en grados centígrados y grados Fahrenheit. Los ficheros de este proyecto se pueden llamar Temperat.vbp y Temperat.frm. En el centro del formulario aparece una barra de desplazamiento vertical que permite desplazarse con incrementos pequeños de 1º C y grandes de 10º C. Como es habitual, también puede cambiarse el valor arrastrando con el ratón el cursor de la barra. Los valores máximos y mínimo de la barra son 100º C y -100º C. A ambos lados de la barra aparecen dos Figura 1.4. Equivalencia de temperaturas. cuadros de texto (color de fondo blanco) donde aparecen los grados correspondientes a la barra en ambas escalas. Encima aparecen dos rótulos (labels) que indican la escala de temperaturas correspondiente. Completan la aplicación un botón Salir que termina la ejecución y un menú File con la única opción Exit, que termina asimismo la ejecución del programa. La Tabla 1.4 indica los controles utilizados en este ejemplo junto con las propiedades y los valores correspondientes.
