Ejercicios De Aplicacion [tercera Entrega]

Lenguaje de Programac

ENTREG A

Instituto Superior Pedagógico Público Chincha” Docente: Luis Carlos Magallanes Gonzáles

COMPUTACIÓN E INFORMÁTICA VII 2009 - I

Control Radiobutton.-

Este control tiene dos valores: True cuando

está activado y False Cuando está desactivado. Además cuenta con una propiedad que permite asignarle estos valores: Checked. Codificación para Radiobutton1 If RadioButton1.Checked = True Then TextBox1.BackColor = Color.Red End If Codificación para Radiobutton2 If RadioButton2.Checked = True Then TextBox1.BackColor = Color.Green End If

Codificación para Radiobutton3 If RadioButton3.Checked = True Then TextBox1.BackColor = Color.Yellow

Evento KEYPRESS

End If

Recordemos que un evento es una acción que realizamos sobre algún objeto, este evento KEYPRESS no permitirá que se halle una operación cuando presionemos por ejemplo la tecla ENTER. Tampoco olvidemos que debemos codificar en el lugar que realicemos la acción y siempre al presionar Enter tendrá la estructura siguiente: IF E.KEYCHAR=CHR(13) THEN Líneas de código a ejecutar END IF

Inputbox y Msgbox Los Inputbox son cajas de entrada, en donde podremos ingresar datos, tal y como lo realizábamos en los Textboxs. Los Msgbox son cajas de mensaje que permite mostrar algún texto o algún resultado almacenado en una variable.

1. En el siguiente formulario, que sólo contiene un botón de comando. En el cual realizaremos los códigos correspondientes para la utilización de los INPUTBOX Y MSGBOX. Consiste en que debemos ingresar un nombre, nota1, nota2, luego debe mostrarse en una caja de mensaje el resultado.

CÓDIGOS: Dim num1, num2, total As Integer InputBox("Ingrese su nombre por favor:", "Atención") num1 = InputBox("Ingrese número 1:", "Número 1") num2 = InputBox("Ingrese número 2:", "Número 2") total = num1 + num2 MsgBox("La suma de ambos números es:" + Str (total), 0 + 64, "Resultado") LUEGO CUANDO HAGAMOS CLICK EN EL BOTÓN SE MOSTRARÁ LA SECUENCIA SIGUIENTE:

CUADRO DE MENSAJE (INPUTBOX)

MSGBOX (“MENSAJE”,BOTON + ESTILO,”TÍTULO”)

Tipos de botones:

Valor de botones

0

=Aceptar

1

=Aceptar

1

=Aceptar – Cancelar

2

=Cancelar

2

=Anular – Reiterar

3

=Reiterar

3

=Si – No – Cancelar

4

=Anular

4

=Si – No

5

=Ignorar

5

=Reiterar – Cancelar

6

=Si

7

=No

Estilos:

CRITICAL

16

QUESTION 32

EXCLAMATION

INFORMATION

48

64

Control LISTBOX Son los Cuadros de lista, pone a disposición del usuario un conjunto de elementos de los cuales el usuario puede elegir.

Propìedades: •

ITEMS.- Es como un objeto que opera dentro del LISTBOX, a la vez tiene las siguientes propiedades: Count.- Cuenta el número de elementos en una lista. Item.- Devuelve el contenido de un elemento no seleccionado.

•

SELECTEDINDEX.- Es la devolución de un índice de un elemento seleccionado.

•

SELECTEDITEM.- Es la devolución de un índice de un elemento seleccionado.

Métodos: •

ADD.- Agregar un elemento.

•

REMOVE.- Quitar un elemento.

•

CLEAR.- Limpia la lista.

Control COMBOBOX Es una combinación del control TEXTBOX y del LISTBOX. Este control permite que el usuario seleccione un elemento. Las propiedades son las mismas del LISTBOX.

Instrucciones repetitivas (Bucle) Las estructuras de bucle permiten repetir la ejecución de una o más líneas de código mientras una condición sea verdadera o hasta que sea verdadera. Tenemos las siguientes: •

For…Next

•

Do…loop

•

For Each…Next

For…Next Este tipo de bucle se utiliza cuando se sabe cuantas veces se va a ejecutar las sentencias. Sintaxis: FOR

contador=valor de inicio

TO

valor final

STEP incremento

Sentencias NEXT Ejemplos:

1. El siguiente procedimiento mostrará la suma de los números del 1 al 10 cuando hagas clic sobre el formulario. Dim i, suma As Integer For i = 1 To 10 suma = suma + i Next MsgBox(suma)

2. El siguiente procedimiento mostrará la suma de los números pares contenidos entre 2 y 10, incluido ambos. Dim i, suma As Integer For i = 2 To 10 Step 2 suma = suma + i Next MsgBox(suma)

3. En el siguiente formulario, debes ingresar un número, luego cuando hagas clic en el botón en el cuadro de lista se debe visualizar la tabla de

multiplicar

ingresado.

del

número

4. Diseñar el formulario siguiente, ingresar un nombre y el número de veces que se repetirá ese nombre dentro del cuadro de lista.

5. Diseñar el formulario siguiente, debe permitir el ingreso de un texto, luego presiona enter y se debe agregar a la caja de lista. Para agregar: Listbox1.items.add(textbox1.text) Textbox1.text=”” Textbox1.focus( ) Para > If listbox1.selectedindex>=0 then Listbox2.items.add(listbox1.text) Listbox1.items.remove(listbox1.selecteditem End If Para >> Dim x as integer For x=0 to Listbox1.items.count-1 Listbox2.items.add(listbox1.items.add(listbox1.items.item(x)) Next Listbox1.items.clear