EJERCICIO 2
Código:
Public Class Form1
Dim genero As String
Dim edad As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
genero = UCase(ComboBox1.Text)
edad = Val(TextBox2.Text)
PictureBox1.Visible = True
If genero = "MASCULINO" And edad <= 12 Then
Label4.Text = "Niño"
Me.PictureBox1.Image = My.Resources.niño
Me.BackColor = Color.SlateBlue
ElseIf genero = "MASCULINO" And edad < 18 Then
Label4.Text = "Adolscente Varon"
Me.PictureBox1.Image = My.Resources.adolh
Me.BackColor = Color.Silver
ElseIf genero = "MASCULINO" And edad <= 50 Then
Label4.Text = "Adulto"
Me.PictureBox1.Image = My.Resources.adulto
Me.BackColor = Color.SkyBlue
ElseIf genero = "MASCULINO" And edad > 50 Then
Label4.Text = "Adulto Mayor"
Me.PictureBox1.Image = My.Resources.adultomayor
Me.BackColor = Color.SlateGray
ElseIf genero = "FEMENINO" And edad <= 12 Then
Label4.Text = "Niña"
Me.PictureBox1.Image = My.Resources.niña
Me.BackColor = Color.Pink
ElseIf genero = "FEMENINO" And edad < 18 Then
Label4.Text = "Adolscente Mujer"
Me.PictureBox1.Image = My.Resources.adolm
Me.BackColor = Color.PeachPuff
ElseIf genero = "FEMENINO" And edad <= 50 Then
Label4.Text = "Adulta Mujer"
Me.PictureBox1.Image = My.Resources.adulta
Me.BackColor = Color.PaleTurquoise
ElseIf genero = "FEMENINO" And edad > 50 Then
Label4.Text = "Adulta Mayor"
Me.PictureBox1.Image = My.Resources.adultamayor
Me.BackColor = Color.Olive
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
