Programacion Public Class Form1
Martin GuncayExamen29 de Octubre de 2017
2.457 Palabras (10 Páginas)213 Visitas
Uniandes
Nombre: Martin Guncay
- Realizar el siguiente ejercicio
[pic 1]
Public Class Form1
Private Sub btn_resulato_Click(sender As Object, e As EventArgs) Handles btn_resulato.Click
ListBox_total.Items.Add(txt_nombre.Text)
If chk_españa.Checked = True Then
ListBox_total.Items.Add("españa")
End If
If chk_francia.Checked = True Then
ListBox_total.Items.Add("francia")
End If
If chk_alemania.Checked = True Then
ListBox_total.Items.Add("alemania")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
- Realizar:
[pic 2]
Public Class Form1
Private Sub rdb_argentino_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_argentino.CheckedChanged
If rdb_argentino.Checked = True Then
lst_imprimir.Items.Add("argentino")
End If
End Sub
Private Sub rdb_tre20_30_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_tre20_30.CheckedChanged
If rdb_argentino.Checked = True Then
lst_imprimir.Items.Add("entre 20 a 30")
End If
End Sub
Private Sub rdb_colombia_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_colombia.CheckedChanged
If rdb_colombia.Checked = True Then
lst_imprimir.Items.Add("colombiano")
End If
End Sub
Private Sub rdb_entre30_40_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_entre30_40.CheckedChanged
If rdb_entre30_40.Checked = True Then
lst_imprimir.Items.Add("entre 30 a 40 años")
End If
End Sub
Private Sub rdb_uruguay_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_uruguay.CheckedChanged
If rdb_uruguay.Checked = True Then
lst_imprimir.Items.Add("uruguayo")
End If
End Sub
Private Sub rdb_mayor40_CheckedChanged(sender As Object, e As EventArgs) Handles rdb_mayor40.CheckedChanged
If rdb_mayor40.Checked = True Then
lst_imprimir.Items.Add("mayor de 40 años")
End If
End Sub
End Class
3ro
[pic 3]
Public Class Form1
Private Sub RBT_ING_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_ING.CheckedChanged
If RBT_ING.Checked = True Then
LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_ING.Text
Else
LBL_MOSTRAR.Text = ""
End If
End Sub
Private Sub RRBT_ARQUI_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RRBT_ARQUI.CheckedChanged
If RRBT_ARQUI.Checked = True Then
LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RRBT_ARQUI.Text
Else
LBL_MOSTRAR.Text = ""
End If
End Sub
Private Sub RBT_LETRAS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_LETRAS.CheckedChanged
If RBT_LETRAS.Checked = True Then
LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_LETRAS.Text
Else
LBL_MOSTRAR.Text = ""
End If
End Sub
Private Sub RBT_ARTE_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_ARTE.CheckedChanged
...