Practicas VB

AMPLIACIN DE INFORMTICA Diplomatura de Estadstica Universidad de Sevilla
Consideraciones generales Para el desarrollo de las prcticas se deben crear carpetas en las que para guardar los ficheros correspondientes a las mismas.
Ampliacin de Informtica
Diplomatura de Estadstica.
PRCTICA N 1 Objetivos Tras completar esta prctica, el estudiante ser capaz de: Identificar los elementos del entorno integrado de desarrollo de Microsoft Visual Basic 6.0. Aadir controles a un formulario. Establecer las propiedades de los controles. Trabajar con procedimientos de eventos. Crear una aplicacin simple con Microsoft Visual Basic.
Aplicacin N 1 Elaborar una aplicacin que permita calcular el salario neto de un trabajador en funcin del nmero de horas trabajadas, pago por hora de trabajo y un descuento fijo al sueldo bruto del 20%. Los clculos a efectuar para obtener el salario neto de un trabajador se muestran a continuacin:
SalarioBruto = HorasTrabajadas * PagoPorHora Descuento = 0.2 * SalarioBruto SalarioNeto = SalarioBruto Descuento
El diseo de la interfaz debe ser similar a la figura mostrada a continuacin:
Como se puede observar en la figura anterior, para el desarrollo de esta aplicacin, necesitamos situar los siguientes controles en el formulario:
2 marcos 6 etiquetas 6 cajas de texto 3 botones de comando
Una vez situados los controles, establece las propiedades de los controles segn se indica en las siguientes tablas:
Form1 Nombre BorderStyle Caption Moveable StartUpPosition Frame1 Nombre Caption Frame2 Nombre Caption Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption Label5 Nombre AutoSize Caption FrmSalarioNeto 3-Fixed Dialog Clculo del salario neto False 2-CenterScreen Label6 Nombre AutoSize Caption Text1 Nombre Text Text2 Nombre Text Text3 Nombre Text Text4 Nombre Text Text5 Nombre Text Text6 Nombre Text Command1 Nombre Caption Command2 Nombre Caption Command3 Nombre Caption LblSalarioNeto True Salario neto S/.
TxtApellidosNombres
FraIngreso Ingreso de datos:
TxtHorasTrabajadas
FraSalida Salida de datos:
TxtPagoPorHora
LblApellidosNombres True Apellidos y nombres:
TxtSalarioBruto
LblHorasTrabajadas True Horas trabajadas:
TxtDescuento
LblPagoPorHora True Pago por hora S/.
TxtSalarioNeto
LblSalarioBruto True Salario bruto S/.
CmdAceptar &Aceptar
CmdLimpiar &Limpiar
LblDescuento True Descuento S/.
CmdSalir &Salir
Tras establecer las propiedades para los controles, procedemos a aadir cdigo a la aplicacin. Para ello haz doble click sobre el botn Aceptar y aade el siguiente cdigo:
Private Sub CmdAceptar_Click() Dim HorasTrabajadas As Integer, PagoPorHora As Double Dim SalarioBruto As Double Dim Descuento As Double Dim SalarioNeto As Double HorasTrabajadas = Val(TxtHorasTrabajadas) PagoPorHora = Val(TxtPagoPorHora) SalarioBruto = HorasTrabajadas * PagoPorHora Descuento = 0.2 * SalarioBruto SalarioNeto = SalarioBruto - Descuento TxtSalarioBruto = Str(SalarioBruto) TxtDescuento = Str(Descuento) TxtSalarioNeto = Str(SalarioNeto) End Sub
A continuacin haz doble click sobre el botn Salir y aade el siguiente cdigo:
Private Sub CmdSalir_Click() End End Sub
Guarda y luego ejecuta la aplicacin que acabas de crear. Prubala ingresando diferentes valores. Luego, haz doble click sobre el botn Limpiar y aade el siguiente cdigo:
Private Sub CmdLimpiar_Click() TxtApellidosNombres = TxtHorasTrabajadas = TxtPagoPorHora = TxtSalarioBruto = TxtDescuento = TxtSalarioNeto = TxtApellidosNombres.SetFocus End Sub
Guarda y ejecuta la aplicacin. Qu efecto tiene el cdigo aadido en el botn

Limpiar?
Aplicacin N 2 A continuacin se muestra el men de un restaurante rpido: MEN Hamburguesa Cerveza Gaseosa Ensalada Salchichas Refresco Sopa Postre PRECIO (S/.) 2.50 4.00 3.00 1.50 2.00 1.00 1.50 1.50
Se desea construir una aplicacin que calcule las ventas totales al final del da, as como la cantidad pagada por impuestos (18%). La interfaz de entrada y salida deber ser similar a la figura mostrada a continuacin:
Para el diseo del cuadro de men utilizaremos el control Microsoft Hierarchical FlexGrid. Para ello, selecciona el Men Proyecto y elige la opcin Componentes:
A continuacin activa la casilla de verificacin Microsoft Hierarchical FlexGrid Control 6.0 OLEDB y haz click sobre el botn Aceptar. El efecto de esta accin es que este control se aadir al Cuadro de Herramientas. Para el desarrollo de esta aplicacin, procede a situar los siguientes controles en el formulario:
10 etiquetas 10 cajas de texto 1 control MSHFlexGrid 3 botones de comando
A continuacin, elabora el diseo de entrada y salida. Para ello procede a establecer las propiedades segn se indica a continuacin:
Form1 Nombre BorderStyle Caption Moveable StartUpPosition Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption Label5 Nombre AutoSize Caption Label6 Nombre AutoSize Caption Label7 Nombre AutoSize Caption Label8 Nombre AutoSize Caption Label9 Nombre Caption Label10 Nombre Caption
FrmRestaurante 3-Fixed Dialog Restaurante False 2-CenterScreen
MSHFlexGrid1 Nombre Font FontFixed Text1 Nombre Text Text2 Nombre Text Text3 Nombre Text Text4 Nombre Text Text5 Nombre Text Text6 Nombre Text Text7 Nombre Text Text8 Nombre Text Text9 Nombre Locked Text Text10 Nombre Locked Text Command1 Nombre Caption Command2 Nombre Caption
GrdMenu Arial (Negrita 10) Arial (Negrita 10)
TxtHamburguesa
LblHamburguesa True Hamburguesa:
TxtCerveza
LblCerveza True Cerveza:
TxtGaseosa
LblGaseosa True Gaseosa:
TxtEnsalada
TxtSalchichas
LblEnsalada True Ensalada:
TxtRefresco
LblSalchichas True Salchichas:
TxtSopa
LblRefresco True Refresco:
TxtPostre
LblSopa True Sopa:
TxtVentaTotal True
LblPostre True Postre:
TxtImpuesto True
LblVentaTotal Venta total S/.
CmdAceptar &Aceptar
LblImpuesto Impuesto S/.
CmdLimpiar &Limpiar
Command3 Nombre Caption Picture Style
CmdSalir &Salir C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Arrows \Point04.ico 1-Graphical
En primer lugar debemos cargar los datos a la cuadrcula. Esto lo vamos a realizar en tiempo de ejecucin al momento de cargarse en memoria el formulario. Para ello, haz doble click sobre el formulario y aade el siguiente cdigo:
Private Sub Form_Load() GrdMenu.Cols = 2 GrdMenu.Rows = 9 GrdMenu.FixedCols = 0 GrdMenu.FixedRows = 1 GrdMenu.TextArray(0) = Men GrdMenu.TextArray(1) = Precio GrdMenu.TextArray(2) = Hamburguesa GrdMenu.TextArray(3) = 2.50 GrdMenu.TextArray(4) = Cerveza GrdMenu.TextArray(5) = 4.00 GrdMenu.TextArray(6) = Gaseosa GrdMenu.TextArray(7) = 3.00 GrdMenu.TextArray(8) = Ensalada GrdMenu.TextArray(9) = 1.50 GrdMenu.TextArray(10) = Salchichas GrdMenu.TextArray(11) = 2.00 GrdMenu.TextArray(12) = Refresco GrdMenu.TextArray(13) = 1.00 GrdMenu.TextArray(14) = Sopa GrdMenu.TextArray(15) = 1.50 GrdMenu.TextArray(16) = Postre GrdMenu.TextArray(17) = 1.50 End Sub
Luego debemos aadir el cdigo que se encargar de realizar los clculos. Para ello haz doble click sobre el botn Aceptar e ingresa lo siguiente:
Private Sub CmdAceptar_Click() Dim Hamburguesa As Integer, Cerveza As Integer Dim Gaseosa As Integer, Ensalada As Integer Dim Salchichas As Integer, Refresco As Integer Dim Sopa As Integer, Postre As Integer Dim VentaTotal As Double, Impuesto As Double Hamburguesa = Val(TxtHamburguesa) Cerveza = Val(TxtCerveza) Gaseosa = Val(TxtGaseosa) Ensalada = Val(TxtEnsalada) Salchichas = Val(TxtSalchichas) Refresco = Val(TxtRefresco)
Sopa = Val(TxtSopa) Postre = Val(TxtPostre) VentaTotal = Hamburguesa * 2.5 + Cerveza * 4.0 + Gaseosa * 3.0 + Ensalada * 1.5 + Salchichas * 2.0 _ + Refresco * 1.0 + Sopa * 1.5 + Postre * 1.5 Impuesto = 0.18 * VentaTotal TxtVentaTotal = Str(VentaTotal) TxtImpuesto = Str(Impuesto) End Sub
Luego, haz doble click sobre el botn Limpiar y aade el siguiente cdigo:
Private Sub CmdLimpiar_Click() TxtHamburguesa = : TxtCerveza = TxtGaseosa = : TxtEnsalada = TxtSalchichas = : TxtRefresco = TxtSopa = : TxtPostre = TxtVentaTotal = : TxtImpuesto = TxtHamburguesa.SetFocus End Sub
A continuacin haz doble click sobre el botn Salir y aade el siguiente cdigo:
Private Sub CmdSalir_Click() End End Sub
Aplicacin N 3 Elaborar una aplicacin que permita calcular la edad de una persona a partir de su fecha de nacimiento. El diseo de la interfaz debe ser similar a la figura mostrada:
Para el desarrollo de esta aplicacin, hemos de situar los siguientes controles en el formulario:
2 etiquetas 2 cajas de texto 3 botones de comando
Posteriormente, establecemos las propiedades segn se indica a continuacin:

Form1 Nombre BorderStyle Caption Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Text1 Nombre Text FrmEdad 3-Fixed Dialog Calcula la edad de una persona Text2 Nombre Locked Text Command1 Nombre Caption Default Command2 Nombre Caption Command3 Nombre Cancel Caption TxtEdad True
LblFecNac True Fecha de nacimiento:
CmdAceptar &Aceptar True
LblEdad True Su edad es:
CmdLimpiar &Limpiar
TxtFecNac
CmdSalir True &Salir
A continuacin, ingresamos el siguiente cdigo:

Private Sub CmdAceptar_Click() Dim FecNac As Date, Edad As Integer FecNac = CDate(TxtFecNac) Edad = CInt((Date - FecNac) / 365) TxtEdad = Str(Edad) & aos End Sub
Se deja como ejercicio para el estudiante el cdigo asociado con los botones Limpiar y
Salir.
Aplicacin N 4 Se tiene un cajero automtico que dispone de los siguientes tipos de billetes: 10, 20, 50, 100 y 500. Elaborar una aplicacin que permita la lectura de la cantidad a retirar e indique el menor nmero de billetes a utilizar. Se deja como ejercicio para el estudiante.
10
PRCTICA N 2 Objetivos Tras completar esta prctica, el estudiante ser capaz de: Implementar aplicaciones utilizando estructuras de control selectivas. Usar casillas de verificacin y botones de opcin para alternar entre uno o ms valores. Utilizar cajas de dilogo predefinidas para visualizar mensajes. Aplicacin N 1 Se desea elaborar la carta de pago de los trabajadores de una fbrica. Para ello se cuenta con los siguientes datos de entrada:
Apellidos y nombres del trabajador Sueldo bsico Horas extras trabajadas
Adems, se sabe que los trabajadores trabajan en dos turnos: diurno y nocturno. Y que la tarifa por las horas extras diurnas es de 10 y por las horas extras nocturnas es de 15 . Los descuentos a aplicar son sobre el sueldo bsico y se obtienen de la siguiente manera:
Renta = SueldoBasico * 0.1 Fonavi = SueldoBasico * 0.07 AFP = SueldoBasico * 0.03
Finalmente el sueldo neto del trabajador se calcula mediante las siguientes expresiones:
Ingresos = SueldoBasico + HorasExtras * PagoHoraExtra Egresos = Renta + Fonavi + AFP SueldoNeto = Ingresos - Egresos
El diseo de la interfaz deber ser similar a la figura mostrada a continuacin:
11
Para el desarrollo de esta aplicacin, es necesario situar los siguientes controles en el formulario:
2 marcos 5 etiquetas 8 cajas de texto 2 botones de opcin 3 casillas de verificacin 3 botones de comando
Con las propiedades que se indican a continuacin:

Form1 Nombre BorderStyle Caption Moveable Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption Label5 Nombre FrmBoletaDePago 3-Fixed Dialog Carta de pago False AutoSize Caption Text1 Nombre Text Text2 Nombre Text Text3 Nombre Text Text4 Nombre BackColor Text Text5 Nombre BackColor Locked Text Text6 Nombre True Sueldo neto
TxtTrabajador
LblTrabajador True Trabajador:
TxtSueldoBasico
LblSueldoBasico True Sueldo Bruto
TxtHorasExtras
LblHorasExtras True Horas extras:
TxtPagoHoraExtra &H80000004&
LblPagoHoraExtra True Pago hora extra
TxtRenta &H80000004& True
LblSueldoNeto
TxtFonavi
12
BackColor Locked Text Text7 Nombre BackColor Locked Text Text8 Nombre BackColor Locked Text Option1 Nombre Caption Value Option2 Nombre Caption Value Check1 Nombre
&H80000004& True
Caption Check2 Nombre Caption
Renta
ChkFonavi Fonavi
TxtAFP &H80000004& True
Check3 Nombre Caption
ChkAFP AFP
TxtSueldoNeto &H80000004& True Command1 Nombre Caption Default Command2 Nombre Caption Command3 Nombre Cancel Caption CmdAceptar &Aceptar True
OptDiurno Diurno True
OptNocturno Nocturno False
CmdLimpiar &Limpiar
ChkRenta
Una vez establecidas las propiedades, ingresamos el cdigo que se indica a continuacin:
Private Sub CmdAceptar_Click() Dim SueldoBasico As Double Dim HorasExtras As Integer, PagoHoraExtra As Double Dim Renta As Double, Fonavi As Double, AFP As Double Dim Ingresos As Double, Egresos As Double Dim SueldoNeto As Double SueldoBasico = Val(TxtSueldoBasico) HorasExtras = Val(TxtHorasExtras) If OptDiurno Then PagoHoraExtra = 10 End If If OptNocturno Then PagoHoraExtra = 15 End If If ChkRenta.Value Then Renta = SueldoBasico * 0.1 Else Renta = 0 End If If ChkFonavi.Value Then Fonavi = SueldoBasico * 0.07 Else
13
Fonavi = 0 End If If ChkAFP.Value Then AFP = SueldoBasico * 0.03 Else AFP = 0 End If Ingresos = SueldoBasico + HorasExtras * PagoHoraExtra Egresos = Renta + Fonavi + AFP SueldoNeto = Ingresos - Egresos TxtPagoHoraExtra = Str(PagoHoraExtra) TxtRenta = Str(Renta) TxtFonavi = Str(Fonavi) : TxtAFP = Str(AFP) TxtSueldoNeto = Str(SueldoNeto) End Sub Private Sub CmdSalir_Click() End End Sub
Aplicacin N 2 Cuatro notas entre 0 y 20 representan las calificaciones de un estudiante de un curso de programacin. Elaborar una aplicacin para obtener el promedio de esas calificaciones y visualizar su puntuacin de acuerdo al siguiente cuadro: Promedio 19-20 16-18 11-15 6-10 0-5 Puntuacin A B C D E
El diseo de la interfaz deber ser similar a la figura mostrada:
14
Para el desarrollo de esta aplicacin, situamos los siguientes controles en el formulario:

Y establecemos las propiedades segn se indica a continuacin:
15
Form1 Nombre BorderStyle Caption Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption Label5 Nombre AutoSize Caption Label6 Nombre AutoSize Caption Label7 Nombre AutoSize Caption Text1 Nombre Text
FrmNotas 3-Fixed Dialog Puntuacin de un estudiante
Text2 Nombre Text Text3 Nombre Text Text4 Nombre Text Text5 Nombre Text Text6 Nombre BackColor Locked Text Text7 Nombre BackColor Locked Text Command1 Nombre Caption Default Command2 Nombre Caption Command3 Nombre Cancel Caption
TxtN1
LblAlumno True Alumno:
TxtN2
TxtN3
LblN1 True Nota 1:
TxtN4
LblN2 True Nota 2:
LblN3 True Nota 3:
TxtPromedio &H80000004& True
LblN4 True Nota 4:
TxtPuntuacion &H80000004& True
LblPromedio True Promedio:
LblPuntuacion True Puntuacin:
CmdLimpiar &Limpiar
TxtAlumno
Una vez establecidas las propiedades, ingresamos el cdigo que se indica:

Private Sub CmdAceptar_Click() Dim N1 As Double, N2 As Double, N3 As Double, N4 As Double Dim Promedio As Integer N1 = Val(TxtN1) : N2 = Val(TxtN2) N3 = Val(TxtN3) : N4 = Val(TxtN4) Promedio = CInt((N1 + N2 + N3 + N4) / 4) TxtPromedio = Str(Promedio) If Promedio >= 19 And Promedio <= 20 Then
16
TxtPuntuacion = A ElseIf Promedio >= 16 And Promedio <= 18 Then TxtPuntuacion = B ElseIf Promedio >= 11 And Promedio <= 15 Then TxtPuntuacion = C ElseIf Promedio >= 6 And Promedio <= 10 Then TxtPuntuacion = D ElseIf Promedio >= 0 And Promedio <= 5 Then TxtPuntuacion = B Else: MsgBox Error de datos, vbCritical, Mensaje End If End Sub
Aplicacin N 3 Escribir una aplicacin que acepte fechas como tres nmeros (dd, mm, aaaa) y las visualice del modo usual. A manera de ejemplo considere lo siguiente:
En caso de que el usuario ingrese algn dato incorrecto (por ejemplo 13 como un nmero de mes), se debe visualizar el siguiente mensaje:
Cuando el usuario haga click en el botn Salir, se debe mostrar el siguiente mensaje:
17
En caso de que el usuario elija la opcin S, la aplicacin debe terminar. En caso contrario, es decir si el usuario elige la opcin No, se debe proseguir con la aplicacin. Para el desarrollo de esta aplicacin, situamos los siguientes controles en el formulario:
4 etiquetas 3 cajas de texto 1 marco 3 botones de comando
Y establecemos las propiedades segn se indica:

Form1 Nombre BorderStyle Caption Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption FrmFecha 3-Fixed Dialog Fecha en letras Text1 Nombre Text Text2 Nombre Text Text3 Nombre Text Command1 Nombre Caption Default Command2 Nombre Caption Command3 Nombre Caption TxtDia
TxtMes
LblDia True Da:
TxtAnno
LblMes True Mes:
LblAnno True Ao:
CmdLimpiar &Limpiar
LblFecha True
CmdSalir &Salir
Una vez establecidas las propiedades de la interfaz ingresamos el siguiente cdigo:

Private Sub CmdAceptar_Click() Dim CadMes As String, Mes As Integer Mes = Val(TxtMes) Select Case Mes
18
Case 1: CadMes = Enero Case 2: CadMes = Febrero Case 3: CadMes = Marzo Case 4: CadMes = Abril Case 5: CadMes = Mayo Case 6: CadMes = Junio Case 7: CadMes = Julio Case 8: CadMes = Agosto Case 9: CadMes = Setiembre Case 10: CadMes = Octubre Case 11: CadMes = Noviembre Case 12: CadMes = Diciembre Case Else MsgBox Error de datos..., vbCritical, Mensaje Call CmdLimpiar_Click Exit Sub End Select LblFecha = TxtDia & de & CadMes & de & TxtAnno End Sub Private Sub CmdLimpiar_Click() TxtDia = : TxtMes = : TxtAnno = TxtDia.SetFocus End Sub Private Sub CmdSalir_Click() If MsgBox(Desea terminar la aplicacin?, vbQuestion + vbYesNo, Pregunta) = vbYes Then End Else Call CmdLimpiar_Click End If End Sub
Aplicacin N 4 Un restaurante ofrece un descuento del 10% para consumos entre 30 y 50; y un descuento del 20% para consumos mayores a 50; para todos los dems casos no se aplica ningn tipo de descuento. Elaborar una aplicacin que permita determinar el importe a pagar por el consumidor. El diseo de la interfaz y otras consideraciones se dejan a criterio del estudiante.
19
PRCTICA N 3 Objetivos Tras completar esta prctica, el estudiante ser capaz de: Implementar aplicaciones utilizando estructuras de control repetitivas. Cambiar las propiedades de los controles en tiempo de ejecucin. Aplicacin N 1 Escribir una aplicacin que lea un nmero entero y muestre la tabla de multiplicar de dicho nmero. El diseo de entrada y salida debe ser similar al siguiente:

1 etiqueta 2 cajas de texto 1 botn de comando
Y establecemos las propiedades segn se indica en las siguientes tablas:
20
Form1 Nombre BorderStyle Caption Label1 Nombre Caption Text1 Nombre Text
FrmTabla 3-Fixed Dialog Tabla de multiplicar
LblNumero Ingrese un nmero:
Text2 Nombre MultiLine Locked ScrollBars Text Command1 Nombre Caption
TxtTabla True True 2-Vertical
TxtNumero
CmdLimpiar &Limpiar
Una vez diseada la interfaz, ingresamos el cdigo que se indica a continuacin:

Private Sub TxtNumero_Change() If IsNumeric(TxtNumero) Then Dim N As Integer, P As Integer, I As Integer Dim S As String N = Val(TxtNumero) S = For I = 0 To 12 P=N*I S = S & N & * & I & = & P & vbCrLf Next I TxtTabla = S ElseIf TxtNumero = Then Exit Sub Else: MsgBox Ingrese un nmero, vbCritical, Mensaje TxtTabla = End If End Sub Private Sub CmdLimpiar_Click() TxtNumero = : TxtTabla = TxtNumero.SetFocus End Sub
Aplicacin N 2 Un nmero perfecto es un entero positivo, que es igual a la suma de todos los enteros positivos (excluido el mismo) que son divisores suyos. El primer nmero perfecto es 6, ya que los divisores de 6 son 1, 2, 3 y 1 + 2 + 3 = 6. Escribir una aplicacin que encuentre los tres primeros nmeros perfectos. El diseo de la interfaz debe ser similar a la figura mostrada:
21

1 marco 1 caja de texto

Form1 Nombre BorderStyle Caption FrmNumeroPerfecto 3-Fixed Dialog Los 3 primeros nmeros perfectos Frame1 Nombre Caption Text1 Nombre MultiLine Text FraPerfecto Nmero perfecto
TxtPerfecto True
Una vez establecidas las propiedades ingresamos el cdigo que se indica a continuacin:
Private Sub Form_Load() Dim N As Long, I As Long, S As Long Dim K As Integer, Cad As String N = 1 : K = 0 : Cad = While True S=0 For I = 1 To (N - 1) If N Mod I = 0 Then S = S + I Next I If N = S Then Cad = Cad & N & vbCrLf K=K+1 End If If K = 3 Then TxtPerfecto = Cad Exit Sub End If N=N+1 Wend End Sub
22
Aplicacin N 3 Construya una aplicacin que permita el ingreso de un nmero entero y muestre en pantalla la siguiente informacin: 1) Cantidad de cifras, 2) Suma de cifras impares, 3) Suma de cifras pares, 4) Suma total de cifras, 5) Cifra mayor, 6) Cifra menor y 7) Divisores de dicho nmero. El diseo de la interfaz debe ser similar a la figura siguiente:
Para el desarrollo de esta aplicacin, proceda a ubicar los siguientes controles en el formulario: 4 marcos 7 etiquetas 8 cajas de texto 1 botn de comando En seguida proceda a establecer las propiedades segn se indica:
Form1 Nombre BorderStyle Caption Moveable StartUpPosition FrmNumeroPerfecto 3-Fixed Dialog Los 3 primeros nmeros perfectos False 2-CenterScreen Frame1 Nombre Caption Frame2 Nombre Caption FraEntrada
FraSalida
23
Frame3 Nombre Caption Frame4 Nombre Caption Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption Label5 Nombre AutoSize Caption Label6 Nombre AutoSize Caption Label7 Nombre AutoSize Caption
FraDivisores Divisores
Text1 Nombre Text Text2 Nombre Locked Text Text3 Nombre Locked Text Text4 Nombre Locked Text Text5 Nombre Locked Text Text6 Nombre Locked Text Text7 Nombre Locked Text Text8 Nombre MultiLine Locked ScrollBars Text Command3 Nombre Caption Picture Style
TxtNumero
FraSalir
TxtCantCifras True
LblNumero True Ingrese un nmero:
TxtSumImpares True
LblCantCifras True Cantidad de cifras:
TxtSumPares True
LblSumImpares True Suma de cifras impares:
TxtSumTotal True
LblSumPares True Suma de cifras pares:
TxtCifraMayor True
LblSumTotal True Suma total de cifras:
TxtCifraMenor True
LblCifraMayor True Cifra mayor:
TxtDivisores True True 2-Vertical
LblCifraMenor True Cifra menor:
CmdSalir &Salir C:\FundVB\Bitmaps\Exit.bmp 1-Graphical
Una vez establecidas las propiedades ingresamos el cdigo que se indica a continuacin:
Private Sub CmdAceptar_Click() If IsNumeric(TxtNumero) Then Dim S As Integer, SI As Integer, SP As Integer Dim May As Integer, Min As Integer Dim Cad As String Dim I As Integer, J As Integer
24
N = CLng(TxtNumero) M = CLng(TxtNumero) Cad = I=0 J=1 S = SP = SI = 0 For J = 1 To N If (N Mod J = 0) Then Cad = Cad & J & vbCrLf End If Next J While (N > 0) If ((N Mod 10) Mod 2) = 0 Then SP = SP + (N Mod 10) Else SI = SI + (N Mod 10) End If S = S + (N Mod 10) N = N \ 10 I=I+1 Wend May = Mid(TxtNumero, 1, 1) Men = May While (M > 0) If May < (M Mod 10) Then May = M Mod 10 End If If Men > (M Mod 10) Then Men = M Mod 10 End If M = M \ 10 Wend TxtCantCifras = Str(I) TxtSumImpares = Str(SI) TxtSumPares = Str(SP) TxtSumTotal = Str(S) TxtCifraMayor = Str(May) TxtCifraMenor = Str(Men) TxtDivisores = Cad Else MsgBox Debe ingresar un nmero, vbCritical, Mensaje TxtNumero.SetFocus End If End Sub Private Sub CmdSalir_Click() If MsgBox(Desea terminar la aplicacin?, _ vbQuestion + vbYesNo, "Pregunta") = vbYes Then End Else Cancel = True TxtNumero.SetFocus End If
25
End Sub
Aplicacin N 4 Un centro numrico es un nmero que separa una lista de nmeros enteros (comenzando en 1) en dos grupos de nmeros, cuyas sumas son iguales. El primer centro numrico es el 6, el cual separa la lista (1 a 8) en los grupos: (1; 2; 3; 4; 5) y (7; 8) cuyas sumas son ambas iguales a 15. El segundo centro numrico es el 35, el cual separa la lista (1 a 49) en los grupos: (1 a 34) y (36 a 49) cuyas sumas son ambas iguales a 595. Se pide elaborar una aplicacin que calcule los centros numricos entre 1 y N.
26
PRCTICA N 4 Objetivos Tras completar esta prctica, el estudiante ser capaz de: Manipular y realizar operaciones con vectores. Crear una estructura y realizar operaciones con los campos de la misma. Implementar vectores de estructuras. Trabajar con listas desplegables y cuadros combinados.
Aplicacin N 1 Elabora una aplicacin que permita leer N nmeros de tipo entero, y a continuacin los visualice ordenados en forma ascendente o descendente.

3 marcos 1 caja de texto 1 control lista 2 botones de opcin 3 botones de comando
A continuacin, establecemos las propiedades segn se indica:

Form1 Nombre BorderStyle Caption Moveable Frame1 Nombre Caption FrmBurbuja 3-Fixed Dialog Ordenacin por burbuja False Frame2 Nombre Caption Frame3 Nombre Caption
FraLista Lista de nmeros:
FraNumero Ingrese un nuevo nmero:
FraOrden Orden:
27
Text1 Nombre Text List1 Nombre List Option1 Nombre Caption Value Option2 Nombre Caption Value
TxtNumero
Command1 Nombre Caption Default Command2 Nombre Caption
CmdAnnadir &Aadir True
LstNumero CmdOrdenar &Ordenar
OptAscendente Ascendente True
Command3 Nombre Caption Picture Style
OptDescendente Descendente False
CmdSalir &Salir C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Arrows\ Point04.ico 1-Graphical
Una vez establecidas las propiedades proceda ingresamos el cdigo que se indica a continuacin:
Private Sub CmdAceptar_Click() If IsNumeric(TxtNumero.Text) Then LstNumero.AddItem TxtNumero.Text TxtNumero.Text = TxtNumero.SetFocus Else MsgBox Ingrese un nmero, vbCritical, Mensaje TxtNumero.SelStart = 0 TxtNumero.SelLength = Len(TxtNumero.Text) TxtNumero.SetFocus End If End Sub Private Sub CmdOrdenar_Click() Dim I As Integer, J As Integer, T As Integer, N As Integer Dim A() As Integer N = LstNumero.ListCount ReDim A(N) For I = 0 To N - 1 A(I) = LstNumero.List(I) Next I If OptAscendente.Value Then For I = 0 To N - 2 For J = I + 1 To N - 1 If A(I) > A(J) Then T = A(I) A(I) = A(J) A(J) = T End If Next J Next I End If
28
If OptDescendente.Value Then For I = 0 To N - 2 For J = I + 1 To N - 1 If A(I) < A(J) Then T = A(I) A(I) = A(J) A(J) = T End If Next J Next I End If LstNumero.Clear For I = 0 To N - 1 LstNumero.List(I) = A(I) Next I End Sub Private Sub Form_Unload(Cancel As Integer) If MsgBox(Desea terminar la aplicacin?, vbQuestion + vbYesNo, Pregunta) = vbYes Then End Else: Cancel = True : TxtNumero.SetFocus End If End Sub Private Sub CmdSalir_Click() Unload Me End Sub
29
Aplicacin N 2 Elaborar una aplicacin que permita seleccionar un artculo de un cuadro combinado (Combo). Una vez seleccionado un artculo se debe mostrar el precio del mismo. El diseo de la interfaz debe ser similar a la siguiente figura:
La venta ha realizarse a plazos (el inters es fijo para esta ocasin), lo que condiciona la cuota mensual a pagar. Cuando se haga click sobre el botn Cuota mensual debe mostrarse un cuadro de dilogo con los datos propuestos:
De manera similar al hacer click sobre el botn Total nos debe mostrar la cantidad total a pagar.
30

1 marco 3 etiquetas 1 cuadro combinado 2 cajas de texto 3 botones de opcin 2 botones de comando

Form1 Nombre BorderStyle Caption Frame1 Nombre Caption Label1 Nombre Caption Label2 Nombre Caption Label3 Nombre Caption Combo1 Nombre Text Text1 Nombre Locked Text FrmCotizacion 3-Fixed Dialog Pedido de cotizaciones Text2 Nombre Locked Text Option1 Nombre Caption Value Option2 Nombre Caption Value Option3 Nombre Caption Value Command1 Nombre Caption Command2 Nombre Caption
TxtInteres True
FraPlazo Plazo:
OptPlazo 6 meses True
LblArticulo Artculo:
LblPrecio Precio
OptPlazo 12 meses False
LblInteres Inters:
OptPlazo 24 meses False
CboArticulo
CmdCuotaMensual &Cuota mensual
TxtPrecio True
CmdTotal &Total
Una vez establecidas las propiedades de la interfaz, haz doble click sobre el formulario e ingresa las siguientes declaraciones en la seccin General del mdulo de formulario:
Private Type Articulo Nombre As String * 30 Precio As Double End Type Dim A(4) As Articulo, Plazo As Integer Const Interes = 0.12
31
Recuerda que un dato declarado en la seccin General de un mdulo puede ser accedido por todos los procedimientos de dicho mdulo. Luego, contina ingresando el cdigo que se muestra a continuacin:
Private Sub Form_Load() A(0).Nombre = Monitor SAMSUNG SyncMaster 3 A(1).Nombre = Impresora Hewlett Packard DeskJet 930C A(2).Nombre = Impresora Epson Stylus Color 740 A(3).Nombre = Microprocesador Pentium I 233 MHZ A(0).Precio = 150 : A(1).Precio = 275 A(2).Precio = 145 : A(3).Precio = 80 Dim I As Integer For I = 1 To 4 CboArticulo.AddItem A(I - 1).Nombre Next I TxtInteres = Interes : Plazo = 6 End Sub Private Sub CboArticulo_Click() Dim I As Integer I = CboArticulo.ListIndex TxtPrecio = A(I).Precio End Sub Private Sub OptPlazo_Click(Index As Integer) Select Case Index Case 0: Plazo = 6 Case 1: Plazo = 12 Case 2: Plazo = 24 End Select End Sub Private Sub CmdCuotaMensual_Click() Dim Total As Double, CuotaMensual As Double, I As Integer I = CboArticulo.ListIndex Total = A(I).Precio * (1 + Interes) CuotaMensual = Total / Plazo MsgBox Cuota Mensual US$ & Str(CuotaMensual) End Sub Private Sub CmdTotal_Click() Dim Total As Double, I As Integer I = CboArticulo.ListIndex Total = A(I).Precio * (1 + Interes) MsgBox Total US$ & Str(Total) End Sub
32
Aplicacin N 3 Se desea elaborar una aplicacin que permita controlar el proceso de matrcula en un curso de computacin. Para ello se deben recabar los siguientes datos: 1) Curso en que se matricula el alumno, 2) Fecha de matrcula, 3) Apellidos y nombres, 4) Sexo, 5) Direccin, y 6) Distrito de residencia.
Para el desarrollo de esta aplicacin situamos los siguientes controles en el formulario:

4 marcos 6 etiquetas 5 cajas de texto 1 cuadro combinado 2 controles de lista 4 botones de comando
33

Form1 Nombre BorderStyle Caption Frame1 Nombre Caption Frame2 Nombre Caption Frame3 Nombre Caption Frame4 Nombre Caption Label1 Nombre Caption Label2 Nombre Caption Label3 Nombre Caption Label4 Nombre Caption Label5 Nombre Caption Label6 Nombre Caption FrmFichaMatricula 3-Fixed Dialog Ficha de matrcula Combo1 Nombre Text List1 Nombre Text List2 Nombre Text Text1 Nombre Text Text2 Nombre Text Text3 Nombre Text Text4 Nombre Text Text5 Nombre Text Command1 Nombre Caption Command2 Nombre Caption Command3 Nombre Caption Command4 Nombre Caption Picture Style CboSexo
LstCursos
FraIngreso Ingreso de datos:
LstDistrito
FraOpciones Opciones:
TxtCurso
FraCursos Cursos:
TxtFechaMat
FraDistritos Distritos:
TxtAlumno
LblCurso Curso:
TxtDireccion
LblFechaMat Fecha de matrcula:
TxtDistrito
LblAlumno Alumno:
LblSexo Sexo:
CmdGuardar &Guardar
LblDireccin Direccin:
CmdCancelar &Cancelar
LblDistrito Distrito:
CmdLimpiar &Limpiar
CmdSalir &Salir C:\FundVB\Bitmaps\Exit.bmp 1-Graphical
Una vez establecidas las propiedades de la interfaz, ingresamos el cdigo que se indica a continuacin:
34
Private Sub Form_Load() LstCursos.AddItem Borland C++ Nivel I LstCursos.AddItem Borland C++ Nivel II LstCursos.AddItem Microsoft Visual Basic Nivel I LstCursos.AddItem Microsoft Visual Basic Nivel II LstCursos.AddItem Microsoft Visual FoxPro Nivel I LstCursos.AddItem Microsoft Visual FoxPro Nivel II LstCursos.AddItem Microsoft Visual C++ Nivel I LstCursos.AddItem Microsoft Visual C++ Nivel II LstCursos.AddItem Microsoft Visual J++ Nivel I LstCursos.AddItem Microsoft Visual J++ Nivel II LstCursos.AddItem Microsoft SQL Server Nivel I LstCursos.AddItem Microsoft SQL Server Nivel II LstCursos.AddItem Microsoft Power Builder Nivel I LstCursos.AddItem Microsoft Power Builder Nivel II LstDistrito.AddItem Callao LstDistrito.AddItem Bellavista LstDistrito.AddItem Carmen de la Legua LstDistrito.AddItem La Perla LstDistrito.AddItem La Punta LstDistrito.AddItem Ventanilla LstDistrito.AddItem Cercado de Lima LstDistrito.AddItem Ancn LstDistrito.AddItem Ate LstDistrito.AddItem Barranco LstDistrito.AddItem Brea LstDistrito.AddItem Carabayllo LstDistrito.AddItem Comas LstDistrito.AddItem Chaclacayo LstDistrito.AddItem Chorrillos LstDistrito.AddItem El Agustino LstDistrito.AddItem Jess Mara LstDistrito.AddItem La Molina LstDistrito.AddItem La Victoria LstDistrito.AddItem Lince LstDistrito.AddItem Lurigancho LstDistrito.AddItem Lurn LstDistrito.AddItem Magdalena del Mar LstDistrito.AddItem Miraflores LstDistrito.AddItem Pachacamac LstDistrito.AddItem Pucusana LstDistrito.AddItem Pueblo Libre LstDistrito.AddItem Puente Piedra LstDistrito.AddItem Punta Negra LstDistrito.AddItem Rimac LstDistrito.AddItem San Bartolo LstDistrito.AddItem San Isidro LstDistrito.AddItem Independencia LstDistrito.AddItem San Juan de Miraflores LstDistrito.AddItem San Luis LstDistrito.AddItem San Martn de Porres LstDistrito.AddItem San Miguel LstDistrito.AddItem Santiago de Surco LstDistrito.AddItem Villa Mara del Triunfo
35
LstDistrito.AddItem San Juan de Lurigancho LstDistrito.AddItem Santa Mara del Mar LstDistrito.AddItem Santa Rosa LstDistrito.AddItem Los Olivos LstDistrito.AddItem Cieneguilla LstDistrito.AddItem San Borja LstDistrito.AddItem Villa el Salvador LstDistrito.AddItem Santa Anita CboSexo.AddItem Masculino : CboSexo.AddItem Femenino End Sub Private Sub Form_Unload(Cancel As Integer) If MsgBox(Desea terminar la aplicacin?, _ vbQuestion + vbYesNo, Pregunta) = vbYes Then End Else Cancel = True Call CmdLimpiar_Click End If End Sub Private Sub LstCursos_Click() TxtCursos = LstCursos End Sub Private Sub LstDistrito_Click() TxtDistrito = LstDistrito End Sub Private Sub CmdGuardar_Click() LstCursos.Enabled = False LstDistrito.Enabled = False TxtCursos.Locked = True TxtFechaMat.Locked = True TxtAlumno.Locked = True CboSexo.Locked = True TxtDireccion.Locked = True TxtDistrito.Locked = True MsgBox Alumno matriculado, vbInformation, Mensaje End Sub Private Sub CmdLimpiar_Click() LstCursos.Enabled = True LstDistrito.Enabled = True TxtCursos.Locked = False TxtFechaMat.Locked = False TxtAlumno.Locked = False CboSexo.Locked = False TxtDireccion.Locked = False TxtDistrito.Locked = False TxtCursos = TxtFechaMat =
36
TxtAlumno = CboSexo = TxtDireccion = TxtDistrito = TxtCursos.SetFocus End Sub Private Sub CmdCancelar_Click() If MsgBox(Desea modificar algn dato?, _ vbQuestion + vbYesNo, Mensaje) = vbYes Then LstCursos.Enabled = True LstDistrito.Enabled = True TxtCursos.Locked = False TxtFechaMat.Locked = False TxtAlumno.Locked = False CboSexo.Locked = False TxtDireccion.Locked = False TxtDistrito.Locked = False End If End Sub Private Sub CmdSalir_Click() Unload Me End Sub
Aplicacin N 4 Desarrollar una aplicacin que permita realizar consultas acerca de un determinado curso, los cuales se mostraran en una lista. El usuario debe seleccionar un curso y se debe presentar el nombre del profesor encargado del curso (teora), el nombre del jefe de prctica (laboratorio), as como los horarios de teora y de laboratorio. El diseo de la interfaz deber ser similar al siguiente:
37
PRCTICA N 5 Objetivos Tras completar esta prctica, el estudiante ser capaz de: Crear procedimientos y funciones definidos por el usuario. Aadir formularios creados anteriormente a un proyecto. Cambiar el formulario de arranque de un proyecto. Utilizar formularios MDI. Manejar diferentes mtodos y propiedades de los formularios. Crear y utilizar mens en una aplicacin.
Aplicacin N 1 Escribe una funcin que reciba como argumento una cadena de caracteres y la devuelva en forma inversa, por ejemplo si se ingresa la cadena CORAZON deber retornar NOZAROC.


Form1 Nombre Caption BorderStyle Label1 Nombre FrmCadInvertida Cadena invertida 3-Fixed Dialog Autosize Caption Label2 Nombre Autosize Caption True Ingresa una cadena:
LblCadena
LblInvertida True Cadena invertida:
38
Text1 Nombre Text Text2 Nombre Locked Text
TxtCadena
Command1 Nombre Caption Command2 Nombre Caption Command3 Nombre Caption
CmdAceptar &Aceptar
TxtInvertida True
CmdLimpiar &Limpiar
CmdSalir &Salir
Una vez establecidas las propiedades de la interfaz, ingresamos el siguiente cdigo:

Function CadInvertida(Cadena As String) As String Dim Invertida() As String * 1 Dim I As Integer Dim J As Integer N = Len(Cadena) ReDim Invertida(N) For I = 1 To N Invertida(I - 1) = Mid(Cadena, I, 1) Next I For J = (N - 1) To 0 Step -1 CadInvertida = CadInvertida & Invertida(J) Next J End Function Private Sub CmdInvertir_Click() TxtInvertida = CadInvertida(TxtCadena) End Sub Private Sub CmdLimpiar_Click() TxtCadena = TxtInvertida = TxtCadena.SetFocus End Sub Private Sub CmdSalir_Click() End End Sub
39
Aplicacin N 2 Se desea elaborar una aplicacin que permita controlar el proceso de matrcula en un curso de computacin. Para ello se deben recabar los siguientes datos: 1) Curso en que se matricula el alumno, 2) Fecha de matrcula, 3) Apellidos y nombres, 4) Sexo, 5) Direccin, y 6) Distrito de residencia. El diseo de la interfaz debe ser similar a la figura mostrada:
Para seleccionar un curso el usuario deber hacer click en el botn punteado que se encuentra al lado de la caja de texto, provocando que se presente un men de seleccin por realce en el cual se presenta la relacin de todos los cursos disponibles. El curso quedar seleccionado al hacer click en el botn Aceptar.
40
El mismo tipo de seleccin deber realizarse al momento de ingresar el nombre del distrito.
Para el desarrollo de esta aplicacin necesitamos tres formularios y un mdulo. En primer lugar aadimos un mdulo de cdigo al proyecto. Selecciona el Men Proyecto y elige la opcin Agregar mdulo, se debe presentar un cuadro de dilogo similar a la siguiente figura:
Del cuadro de dilogo Agregar mdulo, en la ficha Nuevo, haz click en el botn Abrir. Luego ingresa el siguiente cdigo en la seccin de Declaraciones del mdulo que acabamos de aadir:
Public Curso As String Public Distrito As String
41
Posteriormente procedemos a cambiar el nombre formulario principal por

FrmFichaMatricula. Luego debes aadir los dems formularios necesarios para construir la aplicacin. Para tal fin, selecciona el men Proyecto y elige la opcin Agregar formulario. Del cuadro de dilogo Agregar formulario, en la ficha Nuevo, elige la opcin Formulario y haz click en el botn Abrir. Se debe presentar un cuadro de dilogo similar a la siguiente figura:
En ese instante se aadir un nuevo formulario al proyecto. Cambie el nombre del nuevo formulario por FrmCurso. Repita el procedimiento anterior para aadir el formulario FrmDistrito. A continuacin seguimos un proceso similar a la Aplicacin N3 de la prctica N 4 con los siguientes cambios: Aadir slo 2 marcos y no aadir ningn control de lista. En vez de 4 botones de comando, aadir 6 botones de comando. Luego, establecer las siguientes propiedades para los dos nuevos botones:
Command5 Nombre Caption CmdCurso ... Command6 Nombre Caption CmdDistrito ...
Reemplazar el cdigo del evento Load del formulario por el siguiente:

Private Sub Form_Load() CboSexo.AddItem "Masculino" CboSexo.AddItem "Femenino" End Sub
42
Suprime el cdigo asociado al evento Click de los controles de lista LstCursos y

LstDistrito. En su lugar aade lo siguiente: Private Sub CmdCurso_Click() Load FrmCurso FrmCurso.Show vbModal TxtCurso = Curso End Sub Private Sub CmdDistrito_Click() Load FrmDistrito FrmDistrito.Show vbModal TxtDistrito = Distrito End Sub
A continuacin activa el formulario FrmCurso, para ello haz click sobre el mismo. A continuacin, sita los siguientes controles en el formulario:
1 control de lista 1 botones de comando
Y establece las propiedades segn se indica:

Form2 Nombre BorderStyle Caption FrmCurso 3-Fixed Dialog Cursos List1 Nombre Text Command1 Nombre Caption LstCursos
CmdAceptar &Aceptar
Una vez establecidas las propiedades ingresa el cdigo que se indica a continuacin:
Private Sub Form_Load() LstCursos.AddItem Borland C++ Nivel I LstCursos.AddItem Borland C++ Nivel II LstCursos.AddItem Microsoft Visual Basic Nivel I LstCursos.AddItem Microsoft Visual Basic Nivel II LstCursos.AddItem Microsoft Visual FoxPro Nivel I LstCursos.AddItem Microsoft Visual FoxPro Nivel II LstCursos.AddItem Microsoft Visual C++ Nivel I LstCursos.AddItem Microsoft Visual C++ Nivel II LstCursos.AddItem Microsoft SQL Server Nivel I LstCursos.AddItem Microsoft SQL Server Nivel II LstCursos.AddItem Microsoft Power Builder Nivel I LstCursos.AddItem Microsoft Power Builder Nivel II End Sub Private Sub CmdAceptar_Click() Curso = LstCursos.Text FrmCurso.Hide End Sub
Por ltimo, desarrolla el cdigo correspondiente al formulario FrmDistrito. Ampliacin de Informtica Diplomatura de Estadstica. 43
Aplicacin N 3 Elaborar una aplicacin que permita presentar los diferentes tipos de formularios de Visual Basic. Utiliza como contenedor principal un formulario MDI, tal como se muestra en la figura:
Para el desarrollo de esta aplicacin necesitamos utilizar un formulario MDI (interfaz de mltiples documentos). Para ello selecciona el Men Proyecto y elige la opcin Agregar formulario MDI, se debe presentar un cuadro de dilogo similar a la siguiente figura:
44
Del cuadro de dilogo Agregar formulario MDI, en la ficha Nuevo, haga click en el botn Abrir. Cambia el nombre del formulario MDI por MDIPrincipal. A continuacin aade los formularios para las diferentes opciones del men. Cambia los nombres de los formularios segn se indica: Formulario Nombre
Form1 Form2 Form3 Form4 Form5 Form6 Form7 FrmNone FrmFixedSingle FrmSizable FrmFixedDialog FrmFixedToolWindow FrmSizableToolWindow FrmAcercaDe
Posteriormente, disea el men de opciones. Para ello haz click derecho sobre el formulario MDI y elige la opcin Editor de mens. Establece las propiedades segn: Caption Name ShortCut
MnuPrincipal MnuNone MnuFixedSingle MnuSizable MnuFixedDialog MnuFixedToolWindow MnuSizableToolWindow MnuLinea MnuAcercaDe MnuSalir A continuacin haz click en el botn Aceptar del Editor de mens. Luego proceda &Men Principal &0-None &1-Fixed Single &2-Sizable &3-Fixed Dialog &4-Fixed ToolWindow &5-Sizable ToolWindow &Acerca del autor &Salir Ninguno Ninguno Ninguno Ninguno Ninguno Ninguno Ninguno Ninguno Ninguno Ctrl + X
a ingresar el
siguiente cdigo para el formulario MDI:

Private Sub MDIForm_Unload(Cancel As Integer) If MsgBox(Desea terminar la aplicacin?, _ vbQuestion + vbYesNo, Mensaje) = vbYes Then End Else: Cancel = True End If End Sub Private Sub MnuNone_Click() Load FrmNone FrmNone.Show End Sub Private Sub MnuFixedSingle_Click() Load FrmFixedSingle FrmFixedSingle.Show End Sub Private Sub MnuSizable_Click() Load FrmSizable FrmSizable.Show End Sub
45
Private Sub MnuFixedDialog_Click() Load FrmFixedDialog FrmFixedDialog.Show End Sub Private Sub MnuFixedToolWindow_Click() Load FrmFixedToolWindow FrmFixedToolWindow.Show End Sub Private Sub MnuSizableToolWindow_Click() Load FrmSizableToolWindow FrmSizableToolWindow.Show End Sub Private Sub MnuAcercaDe_Click() Load FrmAcercaDe FrmAcercaDe.Show End Sub Private Sub MnuSalir_Click() Unload Me End Sub
A continuacin activa el formulario FrmNone y sita un botn de comandos sobre el mismo. A continuacin, establece las propiedades segn se indica a continuacin:
Form1 Nombre BorderStyle Caption MDIChild FrmNone 0-None None True Command1 Nombre Caption
CmdVolver &Volver
Una vez establecidas las propiedades, ingresa el cdigo que se muestra a continuacin:
Private Sub CmdVolver_Click() Unload Me End Sub
Repite el procedimiento anterior para los dems tipos de formularios. Aplicacin N 4 Elaborar una aplicacin que acepte como entrada la reserva de agua de un depsito y los litros que se consumen a la semana. Utilizando una funcin definida por el usuario determinar como resultado las cantidades de agua que quedan al final de cada semana. El proceso finalizar cuando no quede agua suficiente para una semana. Utilizar otro formulario para mostrar la salida. Ampliacin de Informtica Diplomatura de Estadstica. 46

Practicas VB

Cargado por

Copyright:

Formatos disponibles

Practicas VB

Cargado por

Información del documento

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

Practicas VB

Cargado por

Copyright:

Formatos disponibles

AMPLIACIN DE INFORMTICA Diplomatura de Estadstica Universidad de Sevilla

El diseo de la interfaz debe ser similar a la figura mostrada a continuacin:

FraIngreso Ingreso de datos:

FraSalida Salida de datos:

LblApellidosNombres True Apellidos y nombres:

LblHorasTrabajadas True Horas trabajadas:

LblPagoPorHora True Pago por hora S/.

LblSalarioBruto True Salario bruto S/.

LblDescuento True Descuento S/.

Guarda y ejecuta la aplicacin. Qu efecto tiene el cdigo aadido en el botn

FrmRestaurante 3-Fixed Dialog Restaurante False 2-CenterScreen

GrdMenu Arial (Negrita 10) Arial (Negrita 10)

LblHamburguesa True Hamburguesa:

LblCerveza True Cerveza:

LblGaseosa True Gaseosa:

LblEnsalada True Ensalada:

LblSalchichas True Salchichas:

LblRefresco True Refresco:

LblSopa True Sopa:

LblPostre True Postre:

LblVentaTotal Venta total S/.

LblImpuesto Impuesto S/.

Command3 Nombre Caption Picture Style

CmdSalir &Salir C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Arrows \Point04.ico 1-Graphical

Posteriormente, establecemos las propiedades segn se indica a continuacin:

LblFecNac True Fecha de nacimiento:

CmdAceptar &Aceptar True

LblEdad True Su edad es:

CmdSalir True &Salir

A continuacin, ingresamos el siguiente cdigo:

El diseo de la interfaz deber ser similar a la figura mostrada a continuacin:

Con las propiedades que se indican a continuacin:

LblTrabajador True Trabajador:

LblSueldoBasico True Sueldo Bruto

LblHorasExtras True Horas extras:

LblPagoHoraExtra True Pago hora extra

TxtRenta &H80000004& True

Caption Check2 Nombre Caption

TxtAFP &H80000004& True

Check3 Nombre Caption

OptDiurno Diurno True

OptNocturno Nocturno False

CmdSalir True &Salir

El diseo de la interfaz deber ser similar a la figura mostrada:

Para el desarrollo de esta aplicacin, situamos los siguientes controles en el formulario:

Y establecemos las propiedades segn se indica a continuacin:

FrmNotas 3-Fixed Dialog Puntuacin de un estudiante

LblAlumno True Alumno:

LblN1 True Nota 1:

LblN2 True Nota 2:

LblN3 True Nota 3:

TxtPromedio &H80000004& True

LblN4 True Nota 4:

TxtPuntuacion &H80000004& True

LblPromedio True Promedio:

CmdAceptar &Aceptar True

LblPuntuacion True Puntuacin:

CmdSalir True &Salir

Una vez establecidas las propiedades, ingresamos el cdigo que se indica:

Y establecemos las propiedades segn se indica: