Visual Basic - URGENTE DE NUEVO!

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE DE NUEVO!

Publicado por Ignacio (23 intervenciones) el 14/06/2000 00:00:00
Estoy haciendo una mascota virtual que a medida que escribis te va
respondiendo. Quisiera hacer que por ejemplo cuando yo escribo "hola", el
programa elija entre varias opciones a contestar, por ejemplo: "hola" o "me
llamo Max" o "Que haces?".
Creo que esa funcion se llama Random, pero no la se usar. Me pueden ayudar?

Yo hasta ahora escribi esto:
Private Sub Command1_Click()
Dim charla As String
charla = Text1.Text
Select Case charla
Case "hola", "hello", "buen dia", "buenas noches", "buenas", "holas"
Label1.Caption = "Hola. Como te va?"
Case "bien"
Label1.Caption = "Barbaro. Me alegro"
Case "mal"
Label1.Caption = "Lo lamento"
End Select
End Sub
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:URGENTE DE NUEVO!

Publicado por Ery (197 intervenciones) el 14/06/2000 00:00:00
Randomize
Opcion = Int((6 * Rnd) + 1)

Si no usas Randomize siempre obtendras el mismo numero
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