Baldor

Aplicación Desarrollada Nº II-03

Este programa utiliza una etiqueta (LblSaludo) y el evento Form_Load para mostrar un saludo al ejecutarlo.
Para desarrollar este programa solo debe dibujar en un formulario y una etiqueta llamada LblSaludo y asignarle en su propiedad AutoSize el valor False.
Instrcciones del evento Load del formulario.
‘Asigna el titulo al formulario
Me.Text= “Miprograma de Ejemplo”
“Alinea el texto del saludo al centro.
LblSaludo.TextAling= ContentAlignment.MiddleCenter
“Muestra el saludo en dos líneas diferentes
LblbSaludo.Text= “Hola a Todos” & Chr(13) & Chr(13) & “Bienvenidos a Visual Basic 2008 Express”











Aplicación Desarrollada Nº II-04
Este programa permite ingresar un nombre y mostrar un saludo.Controles Utilizados







Si al hacer clic en el botón Saludo no se ha ingresado el nombre, se visualiza el mensaje error: Por favor, Ingrese el Nombre.

Instrucciones del botón BtnSaludo:
‘Pregunta si se ha ingresado el nombre
If TxtNombre.Text.Trim = “”Then
‘Muestra el mensaje de erraror
MessageBox.Show(“Ingrese el nombre”, “Por Favor”)
‘Ubica el cursor en elcontrol TxtNombre
TxtNombre.Focus()
Exit Sub
End If
‘Define la variable nombre y le asigna el valor ingresado
Dim Nombre As String = TxtNombre.Text
‘Alinea el texto del aludo al centro de la etiqueta
LblSaludo.TextAlign = ContentAlignmente.MiddleCenter
‘Muestra el saludo
LblSaludo.Text = “Hola: “ & Chr(13) & Nombre & Chr(13) & Chr(13) & “Bienvenido a VisualBasic 2008 Express”


















Aplicación Desarrollada Nº II-05
Permite ingresar el nombre y tres notas y mostrar los puntos y el promedio. Si esta aprobado, su promedio se muestra en azul, de lo contrario en rojo.









Controles utilizados

Alos controles LblPuntos Y LblbPromedio asígneles en su propiedad Autosize el valorFalse.
Instrucciones del Botón BtnCalcular:







Instrucciones del Botón BtnNuevo:





Instrucciones del Botón BtnCerrar:


Podemos modificar las instrucciones del botón calcular para que verifique el ingreso correcto de las notas.
If txtnombre.Text.Trim = ""Then
MessageBox.Show("Ingrese el Nombre del Alumno", "Por Favor", MessageBoxButtons.OK,MessageBoxIcon.Information)
txtnombre.Focus()
ExitSub
EndIf
If txtnota1.Text.Trim = ""OrSingle.Parse(txtnota1.Text.Trim) < 0 OrSingle.Parse(txtnota1.Text.Trim) > 20 Then
MessageBox.Show("Ingrese la Nota 1", "Entre 0 y 20", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtnota1.Text = ""
txtnota1.Focus()
ExitSub
EndIf
If txtnota2.Text.Trim =""OrSingle.Parse(txtnota2.Text.Trim) < 0 OrSingle.Parse(txtnota2.Text.Trim) > 20 Then
MessageBox.Show("Ingrese la Nota 2", "Entre 0 y 20", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtnota2.Text = ""
txtnota2.Focus()
ExitSub
EndIf
If txtnota3.Text.Trim = ""OrSingle.Parse(txtnota3.Text.Trim) < 0 OrSingle.Parse(txtnota3.Text.Trim) > 20 ThenMessageBox.Show("Ingrese la Nota 3", "Entre 0 y 20", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtnota3.Text = ""
txtnota3.Focus()
ExitSub
EndIf
Dim nota1, nota2, nota3, puntos, promedio AsSingle
nota1 = Single.Parse(txtnota1.Text)
nota2 = Single.Parse(txtnota1.Text)
nota3 = Single.Parse(txtnota1.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
EndIf

APLICACIÓN DESARROLLADA Nº II-06
Este programa permite ingresar el nombre de un cliente y el monto total de su factura y calcula y...