here's some code of the application that i wrote, (I'm not putting the whole code because it's a lot)
Expand|Select|Wrap|Line Numbers
- If RadioButton1.Checked = False And RadioButton2.Checked = False Then
- ErrorProvider1.SetError(Button1, "SELECCIONE EL GENERO PARA GENERAR NOMBRES")
- Else
- Dim r As New Random
- Dim num_al As Integer
- num_al = r.Next(0, 4)
- If RadioButton1.Checked = True And RadioButton2.Checked = False Then
- Select Case num_al
- Case 0
- Label4.Text = "Woody"
- Case 1
- Label4.Text = "Buzz"
- Case 2
- Label4.Text = "Chadd"
- Case 3
- Label4.Text = "Mark"
- Case 4
- Label4.Text = "Joe"
- End Select
- ElseIf RadioButton2.Checked = True And RadioButton1.Checked = False Then
- Select Case num_al
- Case 0
- Label4.Text = "Alisson"
- Case 1
- Label4.Text = "Luz"
- Case 2
- Label4.Text = "Karen"
- Case 3
- Label4.Text = "Lilliam"
- Case 4
- Label4.Text = "Andrea"
- End Select
any ideas, or help would be appreciated
PS had to delete a lot of code