Reporte De Practicas De Visual Basic

EVALUACION SEGUNDO PARCIAL

MODULO: Desarrollo De Sistemas Básicos De Información

SUBMODULO: Elaborar Sistemas De Información Mediante Un Lenguaje De Programación Visual.

PROFESOR(A): Dora Luz Cruz López

ALUMNOS: Juan Eduardo Sánchez Álvarez
Felipe Rafael Salazar Meléndez

ESPECIALIDAD: INFORMATICA

GRADO: IV SEMESTRE

GRUPO: “ B “

Practica: Arreglos
1.-Abrimos elproyecto arreglos y activamos el formulario.
2.-En la ventana explorador de proyectos pulsamos el botón ver código para activar la ventana código, y en la sección de declaraciones generales definimos las variables i y j con un alcance privado y el tipo de dato integer; y en la misma sección definimos el arreglo valor.
3.-Observamos que arreglos poseen don dimensiones en las cuales el índiceinferior es 1, y el superior, 3. La cantidad de elementos de cada dimensión es 3(1, 2,3), y la cantidad de elementos que conforman el arreglo, 9(3x3=9).
4.- Volvemos al modo diseño y hacemos doble clic sobre el botón totalizar para insertar el procedimiento command1_click () en la ventana código y definimos la variable total con un alcance local y el tipo de dato integer.
5.-Dentro de esteprocedimiento establecemos el valor que tomara cada uno de los elementos (variable) del arreglo, como se nuestra a continuación.
Valor (1, 1)= Val (Text1.Text)
Valor (1, 2)= Val (Text2.Text)
Valor (1, 3)= Val (Text3.Text)
Valor (2, 1)= Val (Text4.Text)
Valor (2, 2)= Val (Text5.Text)
Valor (2, 3)= Val (Text6.Text)
Valor (3, 1)= Val (Text7.Text)
Valor (3, 2)= Val (Text8.Text)
Valor (3, 3)= Val(Text9.Text)
6.-En el mismo procedimiento cree dos ciclos por medio de la instrucción For...Next. Dentro del For anidado establezca el valor de la variable total, la cual contendrá la suma de los valores almacenados en el arreglo y capturamos su valor en el objeto text10.
For I = 1 To 3
For J = 1 to 3
Total = Total + Valor (I, J)
Text10. Text = total
Next J
Next I
7.- Pulsamos la tecla F5para ejecutar la aplicación inserte un numero en cada una de las celdas de la tabla luego oprima el botón Totalizar y observe que resultado de la suma de los valores de la tabla se genera en el objeto Text10.
CONCLUSION
Al finalizar esta práctica aprendimos a identificar los tipos de datos en visual Basic desarrollando aplicaciones que involucran datos de tipo texto y calculo numéricosescribiendo códigos donde se relacionan variables y constantes para la declaración de variables y constantes.

PRACTICA: Select Case
1.-Abrimos un nuevo proyecto exe estandar y activamos el formulario.
2.-Insertamos un objeto listbox, un frame y dos commandbutton.
3.-Configuramos la apariencia del formulario y de los objetos.
4.-Ajustamos el tamaño del formulario y los objetos insertados.5.-Hacemos click sobre el formulario e ingresamos el siguiente procedimiento para configurar la lista de opciones o items en el objeto List1.
PRIVATE SUB FORM_LOAND()
List1. Additem “Buenos Aires”
List1. Additem “El Salvador”
List1. Additem “Madrid”
List1. Additem “Mexico D.F”
List1. Additem “Tokio”
List1. Additem “Washington”
End sub
6.-Regresamos al modo diseño , hacemos doble clic sobre elobjeto Command1, definimos las variables Result y Moneda con el tipo de dato integer y asigne el valor List1.Listlndex a la variable Moneda.
Private sub command1_Click()
Dim Result as Integer
Dim moneda as Integer
Moneda = list1. ListIndex
End sub.
7.-Dentro de este mismo procedimiento agregamos las siguientes instrucciones para generar las respuestas a cada una de las opciones delobjeto List1, para ello empleamos las instrucciones Select Case y las variables definidas en el paso anterior.

Selec Case Moneda
Case 0
Result =msgbox (“moneda local : peso”, vbInformation, “mensaje”)
Case 1
Result =msgbox (“moneda local : colon”, vbInformation, “mensaje”)
Case 2
Result =msgbox (“moneda local : euro”, vbInformation, “mensaje”)
Case 3
Result =msgbox (“moneda local : peso”,...