Manual aplicada 1

Solo disponible en BuenasTareas
  • Páginas : 32 (7842 palabras )
  • Descarga(s) : 0
  • Publicado : 13 de septiembre de 2012
Leer documento completo
Vista previa del texto
Programación Aplicada I
Visual Basic 2008

Universidad Nacional de Cajamarca
Facultad de Ingeniería
Escuela Académico Profesional de Ingeniería de Sistemas
DOCENTE:
ALUMNO:
Universidad Nacional de Cajamarca
Facultad de Ingeniería
Escuela Académico Profesional de Ingeniería de Sistemas
DOCENTE:
ALUMNO:

MICROSOFT VISUAL BASIC 2008

1. Crear una Aplicación en Windows quepermita calcular el promedio de tres notas
* DFD (Diagrama de Flujo de Datos) –En mente
* Interface de Usuario
* Codificar
* Implementación y Pruebas
Además debe mostrar un mensaje indicando si está Aprobado o Desaprobado, si está aprobado la nota y el mensaje deben ser de color azul de lo contrario rojo.

-------------------------------------------------
Public Class Form1-------------------------------------------------

-------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
-------------------------------------------------
TextBox1.Text = ""
-------------------------------------------------
TextBox2.Text = ""-------------------------------------------------
TextBox3.Text = ""
-------------------------------------------------
TextBox4.Text = ""
-------------------------------------------------
TextBox5.Text = ""
-------------------------------------------------
Focus()
-------------------------------------------------
End Sub
--------------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
-------------------------------------------------
'Declarar variables
-------------------------------------------------
Dim n1, n2, n3, Prom As Double
-------------------------------------------------
'Ingresar notas-------------------------------------------------
n1 = TextBox1.Text
-------------------------------------------------
n2 = TextBox2.Text
-------------------------------------------------
n3 = TextBox3.Text
-------------------------------------------------
'Calcular Promedio
-------------------------------------------------
Prom = (n1 + n2 + n3) / 3-------------------------------------------------
TextBox4.Text = Prom
-------------------------------------------------

-------------------------------------------------
If Prom >= 10.5 Then
-------------------------------------------------
TextBox5.Text = "APROBADO"
-------------------------------------------------
TextBox4.ForeColor =Color.Blue
-------------------------------------------------
TextBox5.ForeColor = Color.Blue
-------------------------------------------------
Else
-------------------------------------------------
TextBox5.Text = "DESAPROBADO"
-------------------------------------------------
TextBox4.ForeColor = Color.Red-------------------------------------------------
TextBox5.ForeColor = Color.Red
-------------------------------------------------
End If
-------------------------------------------------
End Sub
-------------------------------------------------
End Class

2. Ingresar 3 sueldos y mostrar el mayor de ellos. No usar más de una condición If

-------------------------------------------------
Public ClassForm2
-------------------------------------------------

-------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
-------------------------------------------------
'Declarar variables
-------------------------------------------------
Dim s1, s2, s3, smay As Double...
tracking img