EjercicioNo 1-Calculadora

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.

EjercicioNo 1-Calculadora

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

EjercicioNo 1-Calculadora

Cargado por

Copyright:

Formatos disponibles

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

1.5.2 Ejemplo 1.2: Minicalculadora elemental

La Tabla 1.3 muestra los objetos y las propie-

Control Propiedad Valor Control Propiedad Valor

A continuación se muestra el código correspondiente a los procedimientos que gestionan los

Private Sub cmdDiv_Click()

Private Sub cmdProd_Click()

Private Sub cmdResta_Click()

Private Sub cmdSuma_Click()

1.5.3 Ejemplo 1.3: Transformación de unidades de temperatura

También podría gustarte