espacio


Secuencia Didactica #3: Manejo de Datos
12. Abra el preograma del ejercicio 3 de la secuencia didáctica 1 e inserte una imagen utilizando un picture box.
INTERFAZ GRAFICACODIGO
Public Class FrmEdad

Private Sub BtnCapturar_Click(sender As Object, e As EventArgs) Handles BtnCapturar.Click
Dim Edad As Integer
Edad = Val(TxtEdad.Text)If Edad = 0 And Edad < 2 Then
MsgBox("Es un bebe")
ElseIf Edad >= 3 And Edad < 12 Then
MsgBox("Es un niño")
ElseIf Edad >= 13 And Edad < 21 ThenMsgBox("Es un joven")
ElseIf Edad >= 22 And Edad < 50 Then
MsgBox("Es un Adulto")
End If
End Sub

Private Sub BtnLimpiar_Click(sender As Object, e AsEventArgs) Handles BtnLimpiar.Click
TxtEdad.Text = ""
End Sub

Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click
End
End Sub
EndClass










13. Abra el programa del ejercicio 2 de la secuencia didáctica 1 e inserte una imagen utilizando un picture box.
INTERGAZ GRAFICA











CODIGO
Public ClassFrmTriangulo

Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click
Dim Lado1, Lado2, Lado3 As Single
Lado1 = Val(TxtLado1.Text)Lado2 = Val(TxtLado2.Text)
Lado3 = Val(TxtLado3.Text)
If Lado1 = Lado2 And Lado3 = Lado1 Then
MsgBox("El triangulo es Equilatero")
ElseIf Lado1 = Lado2 Or Lado3= Lado2 Or Lado1 = Lado3 Then
MsgBox("El triangulo es Isoseles")
ElseIf Lado1 Lado2 And Lado3 Lado1 Then
MsgBox("El triangulo es Escaleno")
End IfEnd Sub

Private Sub BtnLimpiar_Click(sender As Object, e As EventArgs) Handles BtnLimpiar.Click
TxtLado1.Text = ""
TxtLado2.Text = ""
TxtLado3.Text = ""
End Sub...