Visual Basic para Aplicaciones - ayuda radio button y button

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de MADIAN

ayuda radio button y button

Publicado por MADIAN (1 intervención) el 29/06/2015 07:02:06
Buenas noches disculpen necesito ayuda urgente en un proyecto, como veran soy nueva en esto actualemnte estudio ingeniería informática, y tengo un poco de conocimiento en visual ya llevo avanzado mi proyecto pero se me presento un problema el cual solicito de su ayuda para resolverlo.

TENGO UN FORMULARIO EN EL CUAL TENGO un label que contine la pregunta y 4 radio button que contienen las posibles respuestas mi pregunta es como puedo hacer para qume tome la primer pregunta mediante casos al cargar el formulario automaticamente. este es mi codigo espero puedan ayudarme.. gracias


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
Public Class PruebaOpcioens
 
    Dim contPreguntas As Integer = 1
 
    Property PUNTAJE As Integer = 0
 
 
    Private Sub PruebaOpcioens_Load(sender As Object, e As EventArgs) Handles Me.Load
        Label1.Text = "1CUANTOS"
        RadioButton1.Text = "GATO"
        RadioButton2.Text = "PERRO"
        RadioButton3.Text = "HAMSTER"
        RadioButton4.Text = "DDA"
 
        MsgBox("ENTRA")
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
        Select Case contPreguntas
 
            Case 1
                If RadioButton1.Checked = True Then
 
                    PUNTAJE = PUNTAJE + 10
                    MsgBox("el valor de puntaje es caso 1" + Str(PUNTAJE))
                    contPreguntas += 1
 
                Else
                    contPreguntas += 1
                    Label1.Text = "1CUANTOS"
                    RadioButton1.Text = "GATO"
                    RadioButton2.Text = "PERRO"
                    RadioButton3.Text = "HAMSTER"
 
                    RadioButton4.Text = "DDA"
 
                End If
 
 
 
            Case 2
                If RadioButton1.Checked = True Then
                    PUNTAJE = PUNTAJE + 10
                    MsgBox("el valor de puntaje es caso 2" + Str(PUNTAJE))
                    contPreguntas += 1
 
                    Label1.Text = "¿2Qué es Medio Ambiente?"
                    RadioButton1.Text = "Entorno  que afecta y condiciona  especialmente las circunstancias de vida de las personas o de la sociedad en su conjunto"
                    RadioButton2.Text = "No saber, No poder, No querer (des-motivación)"
                    RadioButton3.Text = "La prevención de incidentes o accidentesde las condiciones normales de operación, mediante los departamentos de medio ambiente, la salud, y la seguridad"
                    RadioButton4.Text = "Es el que sucede al trabajador durante su jornada laboral o bien en el trayecto al trabajo o desde el trabajo a su casa"
 
                Else
 
                    contPreguntas += 1
                    Label1.Text = "¿Qué es Medio Ambiente?"
                    RadioButton1.Text = "Entorno  que afecta y condiciona  especialmente las circunstancias de vida de las personas o de la sociedad en su conjunto"
                    RadioButton2.Text = "No saber, No poder, No querer (des-motivación)"
                    RadioButton3.Text = "La prevención de incidentes o accidentesde las condiciones normales de operación, mediante los departamentos de medio ambiente, la salud, y la seguridad"
                    RadioButton4.Text = "Es el que sucede al trabajador durante su jornada laboral o bien en el trayecto al trabajo o desde el trabajo a su casa"
 
                End If
 
 
 
            Case 3
                If RadioButton1.Checked = True Then
                    PUNTAJE = PUNTAJE + 10
                    MsgBox("el valor de puntaje es " + Str(PUNTAJE))
                    contPreguntas += 1
 
                    Label1.Text = "3¿Qué es Salud Ocupacional?"
                    RadioButton1.Text = "Golpes, aplastamiento, Contacto con el material, prendimiento"
                    RadioButton2.Text = "Maquinaria inadecuada"
                    RadioButton3.Text = "Acciones que permiten localizar y evaluar los riesgos"
                    RadioButton4.Text = "Actividades asociado a disciplinas,cuyo objetivo es la promoción y mantenimiento del más alto grado posible e bienestar físico, mental y social de los trabajadores; promoviendo la adaptación del trabajo al hombre  y del hombre al trabajo"
 
                Else
 
                    contPreguntas += 1
                    Label1.Text = "¿Qué es Salud Ocupacional?"
                    RadioButton1.Text = "Golpes, aplastamiento, Contacto con el material, prendimiento"
                    RadioButton2.Text = "Maquinaria inadecuada"
                    RadioButton3.Text = "Acciones que permiten localizar y evaluar los riesgos"
                    RadioButton4.Text = "Actividades asociado a disciplinas,cuyo objetivo es la promoción y mantenimiento del más alto grado posible e bienestar físico, mental y social de los trabajadores; promoviendo la adaptación del trabajo al hombre  y del hombre al trabajo"
                End If
 
            Case 4
                If RadioButton1.Checked = True Then
                    PUNTAJE = PUNTAJE + 10
                    MsgBox("el valor de puntaje es " + Str(PUNTAJE))
                    contPreguntas += 1
 
                    Label1.Text = "4¿Qué es Saguridad Industrial?"
                    RadioButton1.Text = "Golpes, aplastamiento"
                    RadioButton2.Text = "Se encarga de minimizar los riesgos de accidentes en la industria, ya que toda actividad industrial tiene riesgos inherentes que necesitan de una correcta gestión"
                    RadioButton3.Text = "No saber, No poder, No querer (des-motivación)."
                    RadioButton4.Text = "fuentes de los accidentes"
 
                Else
 
                    contPreguntas += 1
                    Label1.Text = "¿Qué es Saguridad Industrial?"
                    RadioButton1.Text = "Golpes, aplastamiento"
                    RadioButton2.Text = "Se encarga de minimizar los riesgos de accidentes en la industria, ya que toda actividad industrial tiene riesgos inherentes que necesitan de una correcta gestión"
                    RadioButton3.Text = "No saber, No poder, No querer (des-motivación)."
                    RadioButton4.Text = "fuentes de los accidentes"
                End If
            Case 5
                If RadioButton1.Checked = True Then
                    PUNTAJE = PUNTAJE + 10
                    MsgBox("el valor de puntaje es " + Str(PUNTAJE))
                    contPreguntas += 1
 
 
                    Label1.Text = "5¿Cuales de las siguientes respuestas en considerad una Función de EHS?"
                    RadioButton1.Text = "accidentes por Medio Ambiente"
                    RadioButton2.Text = "prendimiento, Resbalones"
                    RadioButton3.Text = "Prevenir Accidentes, Fomentar la Cultura de Seguridad y ambiental"
                    RadioButton4.Text = "fallas, olvidos"
 
                Else
 
                    contPreguntas += 1
                    Label1.Text = "¿Cuales de las siguientes respuestas en considerad una Función de EHS?"
                    RadioButton1.Text = "accidentes por Medio Ambiente"
                    RadioButton2.Text = "prendimiento, Resbalones"
                    RadioButton3.Text = "Prevenir Accidentes, Fomentar la Cultura de Seguridad y ambiental"
                    RadioButton4.Text = "fallas, olvidos"
                End If
 
            Case 6
                If RadioButton1.Checked = True Then
                    PUNTAJE = PUNTAJE + 10
                    MsgBox("el valor de puntaje es " + Str(PUNTAJE))
                    contPreguntas += 1
 
                    Label1.Text = "6¿A que se refiere las Politicas de Salud, seguridad y Medio ambiente?"
                    RadioButton1.Text = "Condiciones inseguras"
                    RadioButton2.Text = "Responsabilidad  tanto de la gerencia como de cada uno de sus empleados aplicando la mejora continua, la prevención en salud, seguridad y medio ambiente y cumpliendo con las leyes y reglamentos aplicables en la materia"
                    RadioButton3.Text = "Accidentes y enfermedades a que están expuestos los trabajadores"
                    RadioButton4.Text = "Golpes, aplastamiento, Contacto con el material, prendimiento, Resbalones y aprisionamiento"
 
                Else
 
                    contPreguntas += 1
                    Label1.Text = "¿A que se refiere las Politicas de Salud, seguridad y Medio ambiente?"
                    RadioButton1.Text = "Condiciones inseguras"
                    RadioButton2.Text = "Responsabilidad  tanto de la gerencia como de cada uno de sus empleados aplicando la mejora continua, la prevención en salud, seguridad y medio ambiente y cumpliendo con las leyes y reglamentos aplicables en la materia"
                    RadioButton3.Text = "Accidentes y enfermedades a que están expuestos los trabajadores"
                    RadioButton4.Text = "Golpes, aplastamiento, Contacto con el material, prendimiento, Resbalones y aprisionamiento"
                End If
            Case 7
                If RadioButton1.Checked = True Then
 
                    PUNTAJE = PUNTAJE + 10
                    MsgBox("el valor de puntaje es " + Str(PUNTAJE))
                    contPreguntas += 1
 
                    Label1.Text = "7¿Cual de las siguientes respuestas define que es Auto Evalución Personal?"
                    RadioButton1.Text = "Salud laboral y Seguridad en los´procesos"
                    RadioButton2.Text = "omisiones que hacen las personas al realizar un trabajo"
                    RadioButton3.Text = "Maquinaria inadecuada, Maquina sin mantenimiento, Maquinaria descompuesta"
                    RadioButton4.Text = "Condiciones inseguras, condición del ambiente laboral que puede contribuir a la ocurrencia de un accidente."
 
                Else
 
                    contPreguntas += 1
                    Label1.Text = "¿Cual de las siguientes respuestas define que es Auto Evalución Personal?"
                    RadioButton1.Text = "Salud laboral y Seguridad en los´procesos"
                    RadioButton2.Text = "omisiones que hacen las personas al realizar un trabajo"
                    RadioButton3.Text = "Maquinaria inadecuada, Maquina sin mantenimiento, Maquinaria descompuesta"
                    RadioButton4.Text = "Condiciones inseguras, condición del ambiente laboral que puede contribuir a la ocurrencia de un accidente."
                End If
 
 
 
 
                Label2.Text = "Tu puntuacion es de "
                ' TextBox1.Text = aciertos
                TextBox1.Text = PUNTAJE
 
 
        End Select
 
 
    End Sub
 
 
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder