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
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 = 0Private 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
0