Partial preview of the text
Download Documento informativo de Visual Basic and more Transcriptions Visual Arts in PDF only on Docsity!
1L.- Sencillo programa de colores y posiciones =. Colores Verde Amarillo Posicion @ Ariba ~ Abajo En la siguiente figura se muestra el formulario y los controles de un ejemplo muy sencillo que permite mover una caja de texto por la pantalla, permitiendo a su vez representarla con cuatro colores diferentes. A continuacion se muestra el codigo correspondiente a los procedimientos de este ejemplo. Option Explicit Private Sub Form_Load() txtCaja.Top = 0 End Sub Private Sub optArriba_Click() txtCaja.Top = 0 End Sub Private Sub optAbajo_Click() txtCaja.Top = frmColoresO.ScaleHeight - txtCaja.Height End Sub Private Sub optAzul_ Click() txtCaja.BackColor = vbBlue End Sub Private Sub optRojo_Click() txtCaja.BackColor = vbRed End Sub Private Sub optVerde_Click() txtCaja.BackColor = vbGreen End Sub Private Sub optAmarillo_Click() txtCaja.BackColor = vbYellow End Sub Sobre este primer programa en Visual Basic 6.0 se pueden hacer algunos comentarios: 1.-El comando Option Explicit sirve para obligar a declarar todas las variables que se utilicen. Esto impide el cometer errores en los nombres de las variables. Declarar una variable es crearla con un nombre y de un tipo determinado antes de utilizarla. 2.-Cada una de las partes de cédigo que empieza con un Private Sub y termina con un End Sub es un procedimiento, esto es, una parte del codigo independiente y reutilizable. El nombre de uno de estos procedimientos, por ejemplo optAzul_Click(), es tipico de Visual Basic. La primera parte es el nombre de un objeto (control); después va un separador que es el caracter de subrayado(_); a continuacién el nombre de un evento —Click, en este caso-, y finalmente unos paréntesis entre los que irian los argumentos, en caso de que los hubiera. 3.-Es tambien interesante ver como se accede desde programa a la propiedad backcolor de la caja de texto que se llama éxtcaja: se hace utilizando el punto en la forma txtCaja.BackColor. Los colores se podrian también introducir con notacién hexadecimal (comenzando con &Seguidos por dos digitos 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. Aqui se han utilizado las constantes simbdlicas predefinidas en Visual Basic 6.0: vbRed, vbGreen y vbBlue. Escaneade con CamSeanner 2.-Mini caleuladora Elemental mm. Calculadora Turbo wi Es 12 ;| 5 2.4 En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro operaciones aritméticas. Los ficheros de este proyecto se pueden Ilamar mnicalc.vbp y minicalc.frm. El usuario introduce los datos y clica sobre el bot6n correspondiente a la operacion que desea realizar, apareciendo inmediatamente el resultado en la caja de texto de la derecha. Private Sub cmdResta_Click() txtResult.Text = Val(txtOperl.Text)- Val (txtOper2.Text) IblOp.Caption = “-” End Sub Private Sub cmdSuma_Click() txtResult.Text = Val(txtOper1.Text) + Val(txtOper2.Text) [blOp.Caption = “+” End Sub En este ejemplo se ha utilizado repetidamente la funcion Valy) de Visual Basic. Esta funcion convierte una serie de caracteres numéricos en el nimero entero o de punto flotante correspondiente. Sin la llamada a la funcién ValQ) el operador + aplicando a cadenas de caracteres las concatena, y como resultado, por ejemplo, “3+4” daria “34”. No es lo mismo los caracteres “1” y “2” formando la cadena o string “12” que el numero 12; la funcion ValQ convierte cadenas de caracteres numéricos —con los que no se pueden realizar operaciones aritméticas- en los numeros correspondientes —con los que si se puede operar matematicamente-. Visual Basic 6.0 transforma de modo automatico numeros en cadenas de caracteres y viceversa, pero este es un caso en el que dicha transformacion no funciona porque el operador “+” tiene sentido tanto con nimeros como con cadenas. Escaneade con CamSeanner Encima aparecen dos rotulos (/abels) que indican la escala de temperaturas correspondiente. Completan la aplicacion un boton. Salir que termina la ejecucién y un ment File con la unica opcién Exit, que termina asimismo la ejecucién del programa. Tabla de Objetos y Propiedades Control Propiedad | Valor Control Propiedad Valor frmTemp Name fimTemp vsbTemp Name vsbTemp Caption Conversor de Min 100 temperaturas mnuFile Name mnuFile Max -100 Caption &File SmallChange | 1 mnuFileExit | Name mnuFileExit LargeChange | 10 Caption E&xit Value yj emdSalir Name emdSalir IblCent Name [bl Cent Caption Salir Caption Grados Centigrados Font MS Sans Serif, Bold, 14 Font MS Sans Serif, 10 txtCent Name txtCent IblFahr Name IblFahr & text 0 Caption Grados Fahrenheit txtFahr Name txtFahr Font MS Sans Serif, 10 text 32 Escaneade con CamSeanne! Por otra parte, el codigo con el que este programa responde a los eventos es el contenido en los siguientes procedimientos: Option Explicit Private Sub cmbSalir_Click() Beep End End Sub Private Sub mnuFileExit_ClickQ End End Sub Private Sub vsbTemp_Change() txtCent.Text = vsbTemp. Value txtFahr.Text = 32 + 1.8 * vsbTemp. Value End Sub (55 ‘a | be} | y Escaneade con CamSeanner 4.- Colores RGB m. Colores it] Ea Informatica 1 = Fondo * Texto | Salir | Rojo « » 226 Were « » 82 Azul « > Tel La figura muestra el formulario y los controles del proyecto Colores. Los ficheros de este proyecto se pueden llamar Colores.vbp y Colores.frm. En este ejemplo se dispone de tres barras de desplazamiento con las que pueden controlarse las componentes RGB del color del fondo y del color del texto de un control /abel. Dos botones de opcidn permiten determinar si los valores de las barras se aplican al fondo o al texto. Cuando se cambia del texto al fondo o viceversa los valores de las barras de desplazamiento cambian de modo acorde. A la derecha de las barras de desplazamiento tres cajas de texto contienen los valores numéricos de los tres colores (entre 0 y 255). Private Sub optColor_Click(Index As Integer) If Index = 0 Then 'Se pasa a cambiar el fondo Frojo = hsbColor(0).Value Fverde = hsbColor(1).Value Fazul = hsbColor(2).Value hsbColor(0).Value = Brojo hsbColor(1). Value = Bverde hsbColor(2).Value = Bazul Else 'Se pasa a cambiar el texto Brojo = hsbColor(0).Value Bverde = hsbColor(1).Value Bazul = hsbColor(2).Value hsbColor(0).Value = Frojo hsbColor(1).Value = Fverde hsbColor(2).Value = Fazul End If End Sub Escaneade con CamSeanner Una caracteristica importante de este ejemplo es que se han utilizado Vectores (arrays) de controles, Las tres barras se llaman AsbColor y se diferencian por la propiedad Index, que toma los valores 0,1 y 2. También las tres cajas de texto, las tres abels y los dos botones de opcion son arrays de controles. Para crear un array de controles basta crear el primero de ellos y luego hacer Copy y Paste tantas veces como se desee, respondiendo afirmativamente al cuadro de dialogo que pregunta se desea crear un array El procedimiento Sub que contiene el codigo que gestiona un evente de unarray es unico para todo el array, y recibe como argumento la propiedad Index. De este modo que se puede saber exactamente en qué control del array se ha producido el evento. Asi pues, una ventaja de los arrays de controles es que pueden compartir el cédigo de los eventos y permitir un tratamiento conjunto por medio de bucles for. A continuacion se muestra el codigo correspondiente a los procedimientos que tratan los eventos de este ejemplo. 
