Visual Basic - Hacer que pare las inputbox

Life is soft - evento anual de software empresarial
   
Vista:

Hacer que pare las inputbox

Publicado por Emanuel emaascagnetti@gmail.com (1 intervención) el 02/09/2015 04:08:52
Estoy haciendo un trabajo para la escuela sobre un juego de preguntas y respuestas, si responde bien la pregunta sigue con la otra pregunta y así, pero cuando se responde mal una pregunta te manda al otro formulario que dice que perdiste, el PROBLEMA es que cuando te manda al otro formulario te vuelve a salir la pregunta siguiente, quiero saber como parar las inputbox en ese momento indicado en el que te mueve al otro formulario

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Respuesta = InputBox("¿Cuanto es 7 x 7?")
If Respuesta = 49 Then
	My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background)
	PictureBox2.Left = PictureBox2.Left + 90
	Label1.Text = 100
Else
	MsgBox("Respuesta incorrecta, has perdido :(")
	Respuesta = ""
 
	Me.Close()
	Me.Hide()
	Perdiste.Show()
End If
Respuesta = InputBox("¿Cual es la capital de Japon?")
If Respuesta = ("Tokio") Then
	My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background)
	PictureBox2.Left = PictureBox2.Left + 90
	Label3.Text = 200
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
Imágen de perfil de Elier L

Hacer que pare las inputbox

Publicado por Elier L (8 intervenciones) el 02/09/2015 15:56:42
Bueno... Pienso que lo mejor es que Te Replantes el Algoritmo del Trabajo, pq si Analizas la secuencia... no hay dudas que te saldrá la Pregunta de nuevo...

Otra Opción es usando Goto a una Etiqueta que tengas al final del Programa... Ejemplo

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
Inicio
Pregunta 1
Si Pregunta=Correcta entonces
     Correcto
sino
     Incorrecto
     Goto Salir
Fin si
Pregunta 2
Si Pregunta=Correcta entonces
     Correcto
sino
     Incorrecto
     Goto Salir
Fin si
Pregunta 3
Si Pregunta=Correcta entonces
     Correcto
sino
     Incorrecto
     Goto Salir
Fin si
 
   'Aqui pondrías la Etiqueta 
   Salir:
Fin del Programa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Hacer que pare las inputbox

Publicado por Andres Leonardo (698 intervenciones) el 02/09/2015 16:18:20
Prueba despues del

Perdiste.Show()
Exit Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo

Hacer que pare las inputbox

Publicado por Andres Leonardo (698 intervenciones) el 04/09/2015 18:00:04
Que gusto que haya funcionado



Saludos
Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar