Scribd
Cargar
86 vistas3 páginas

Aplicación #3

Este documento describe cómo crear una aplicación en Visual Basic que calcule el promedio de 4 calificaciones ingresadas por un estudiante y muestre la puntuación correspondiente según una escala de letras. Proporciona instrucciones para agregar controles y propiedades al formulario, y el código para calcular el promedio, asignarlo a un texto y mostrar la letra según el rango del promedio.

Cargado por

Martha Erika Pichardo martinez
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
86 vistas3 páginas

Aplicación #3

Este documento describe cómo crear una aplicación en Visual Basic que calcule el promedio de 4 calificaciones ingresadas por un estudiante y muestre la puntuación correspondiente según una escala de letras. Proporciona instrucciones para agregar controles y propiedades al formulario, y el código para calcular el promedio, asignarlo a un texto y mostrar la letra según el rango del promedio.

Cargado por

Martha Erika Pichardo martinez
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
Está en la página 1/ 3

ELABORACION DE UNA APLICACIÓ N PARA OBTENER UN

PROMEDIO
Aplicación Nº 2
Cuatro notas entre 0 y 20 representan las calificaciones de un
estudiante de un curso de programación. Elaborar una aplicación para
obtener el promedio de esas calificaciones y visualizar su puntuación de
acuerdo al siguiente cuadro:

Promedio Puntuación
19-20 A
16-18 B
11-15 C
6-10 D
0-5 E

El diseño de la interfaz deberá ser similar a la figura mostrada:

Para el desarrollo de esta aplicación, proceda a ubicar los


siguientes controles en el formulario:

7 etiquetas
7 cajas de texto
3 botones de comando
Luego, proceda a establecer las propiedades según se indica a
continuación:

Form1
Nombre FrmNotas
BorderStyle 3-Fixed Dialog
Caption Puntuación de un estudiante

Label1
Nombre LblAlumno
AutoSize True
Caption Alumno:

Label2
Nombre LblN1

MODULO DE VISUAL BASIC Pá gina 1


ELABORACION DE UNA APLICACIÓ N PARA OBTENER UN
PROMEDIO
AutoSize True
Caption Nota 1:

Label3
Nombre LblN2
AutoSize True
Caption Nota 2:

Label4
Nombre LblN3
AutoSize True
Caption Nota 3:

Label5
Nombre LblN4
AutoSize True
Caption Nota 4:

Label6
Nombre LblPromedio
AutoSize True
Caption Promedio:

Label7
Nombre LblPuntuacion
AutoSize True
Caption Puntuación:

Text1
Nombre TxtAlumno
Text

Text2
Nombre TxtN1
Text

Text3
Nombre TxtN2
Text

Text4
Nombre TxtN3
Text

Text5
Nombre TxtN4
Text

Text6
Nombre TxtPromedio

MODULO DE VISUAL BASIC Pá gina 2


ELABORACION DE UNA APLICACIÓ N PARA OBTENER UN
PROMEDIO
BackColor &H80000004&
Locked True
Text

Text7
Nombre TxtPuntuacion
BackColor &H80000004&
Locked True
Text

Command1
Nombre CmdAceptar
Caption &Aceptar
Default True

Command2
Nombre CmdLimpiar
Caption &Limpiar

Command3
Nombre CmdSalir
Cancel True
Caption &Salir

Una vez establecidas las propiedades, proceda a ingresar el código


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
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

MODULO DE VISUAL BASIC Pá gina 3

También podría gustarte

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy