Visual Basic - problema grave

Life is soft - evento anual de software empresarial
 
Vista:

problema grave

Publicado por Ignacio Giron (23 intervenciones) el 29/06/2000 00:00:00
Estoy haciendo una mascota virtual, con dos textBox y 1 Comand. Cuando escribo en el text1 y aprieto el comand, la mascota me responde en el text 2. Ok? Uso la funcion Random para que elija entre varias respuestas para contestar.
A veces tengo que apretar mas de una vez el comand para que me conteste, me dijeron que eso se soluciona con un codigo, me podes ayudar?

Te mando el codigo que escribi en el comand:
Dim charla As Integer

If Text1.Text = "hola" Then

Randomize

charla = (8 * Rnd) + 1

Select Case charla

Case 1

Text2.Text = "Hola. ¿Cómo te va?"

Case 2

Text2.Text = "Hello! ¿Cómo estas hoy?"

Case 3

Text2.Text = "Hola de nuevo!"

Case 4

Text2.Text = "Yo soy Maxwell, creo que ya me conoces. Hola."

Case 5

Text2.Text = "Buenas, ¿cómo andas hoy?"

Case 6

Text2.Text = "Buen dia… o buenas noches. No importa, hola."

Case 7

Text2.Text = "Bienvenido a Maxwell 1.0… ¿qué tal andas hoy?"

Case 8

Text2.Text = "Hola."

End Select

End If

If Text1.Text = "buen dia" Then

Randomize

charla = (5 * Rnd) + 1

Select Case charla

Case 1

Text2.Text = "Buenas… ¿cómo estas?"

Case 2

Text2.Text = "Mi nombre es Maxwell."

Case 3

Text2.Text = "Buen dia. Cuando quieras podes empezar a hacerme preguntas."

Case 4

Text2.Text = "Son buenos?"

Case 5

Text2.Text = "Hola. Buen dia."

End Select

End IfÐ/LM/W3SVC/157/Root
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

RE:problema grave

Publicado por Jonathan (27 intervenciones) el 29/06/2000 00:00:00
Tu problema amigo es muy simple. En el primero de los casos, por ejemplo, veo que controlas ocho respuestas posibles, pero según la línea que has escrito (charla = (8 * Rnd) + 1), la variable charla puede tomar valores entre 1 y 9. Al ocurrir esto, cuando vale nueve no hay respuesta posible y le tendrás que dar otra vez al botón para que genere otro número aleatorio.

Para generar números aleatorios entre 1 y 8 escribe: charla = (7 * Rnd) + 1 (con los demás casos haz lo mismo). Además, mucho mejor si la línea del Randomize la susituyes por Randomize Timer (le añades esta función detrás). Con ello inicializas el generador de números aleatorios con una semilla realmente aleatoria (o casi). Tendrás así respuestas (cuasi)aletorias (cuasi)perfectas.

Jonathan.-
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