Visual basic

PRACTICA 2 FORMULARIOS Y CONTROLES
FORMULARIOS .En visual Basic Net, el formulario (Form) es el que contiene todos los controles que se utilizarán en la interfaz del usuario .cuando una aplicación de visual BASIC se ejecuta, cada ventana que se muestra es un formulario.

Los términos formulario (Form) y ventana (Windows) describen la misma entidad ventana en tiempo de ejecución,Formulario en tiempo de diseño

Formulario regular. Regular Form, Caja de dialogo (dialogbox). No puede usarse menús

EJERCICIO 1. APERTURAR UN PROYECTO PARA FORMULARIO

Ir al menú Archivo Nuevo proyecto y la plantilla aplicación para Windows

[pic]

Este programa utiliza una etiqueta (LblSaludo) y el evento Form-Load para mostrar un saludo al ejecutarlo

[pic]

Diseñe el formulario hagadoble clic y agregue el siguiente código

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
REM asigna e titulo al formulario
Me.Text = " Mi primer Programa "
' ALinea el texto de saludo al centro
LblSaludo.TextAlign = ContentAlignment.MiddleCenter
' muestra el saludo en doslineas diferentes
LblSaludo.Text = "HOLA MUNDO " & Chr(10) & Chr(13) & " Bienvenido a Visual Basic 2008"
End Sub
End Class
Programa N 2: Este programa permite ingresar el nombre de una persona y mostrarle su contenido

Diseñe el siguiente formulario .Cambie las propiedades de los controles

|Control |Propiedad |Valor ||Form1 |Text |BIENVENIDO |
|TextBox1 |Name |TxtNombre |
|Button1 |Name |BtnSaludo |
| |Text |Saludo |
|Label1 |Text |Ingrese suNombre |
|Label2 |Name |LblSaludo |
|Button2 |Name |BTnCerrar |
| |Text |Cerra |

Inserte el siguiente código

Public Class Form1
Private Sub BtnSaludo_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles BtnSaludo.Click
'Define la variable nombre y le asigna el valor ingresado
Dim Nombre As String = TxtNombre.Text
'Alinea el texto del saludo al centro de la etiqueta
LblSaludo.TextAlign = ContentAlignment.MiddleCenter
'Muestra el saludo
LblSaludo.Text = "Hola: " & Chr(10) & Chr(13) & Nombre & Chr(10) & Chr(13) &Chr(10) _
& Chr(13) & "Bienvenido a Visual Basic 2008"
End Sub
Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
Close()
End Sub End Class
La salida sería

Ejercicio 3 Este programa permite ingresar el nombre y tres notas de un alumnos y mostrar los puntos y el promedio obtenido, Si esta aprobado supromedio se muestra en color azul , de lo contrario en color rojo

Public Class Form1
Private Sub BtnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click
Dim Nota1, Nota2, Nota3, Puntos, Promedio As Single
Nota1 = Single.Parse(TxtNota1.Text)
Nota2 = Single.Parse(TxtNota2.Text)
Nota3 =Single.Parse(TxtNota3.Text)
Puntos = Nota1 + Nota2 + Nota3
Promedio = Puntos / 3
LblPuntos.Text = Puntos.ToString
LblPromedio.Text = Promedio.ToString
If Promedio >= 10.5 Then
LblPromedio.ForeColor = Color.Blue
Else
LblPromedio.ForeColor = Color.Red
End If
End Sub
Private Sub BtnNuevo_Click(ByVal sender As System.Object,...