Al meter una secuencia de comandos el pc te responde con otra...Como?

[BenRu]

Gracias, de hecho mas o menos se puede "entablar" una conversacion con el, pero me falta detalles como; que cada pregunta tenga varias respuestas diferentes, no solo una. Cuando pregunta algo que no este en la bd, pueda decir una cosa al "voleo",etc.

[Pseudoroot]

es cosa de ir programando los algoritmos.  con respecto a eso de frases al voleo, creo que podrias configurarlo paras que digiera una pregunta o respuesta universal, depende del caso..que le quedase a cualquier pregunta ....o respuesta....

[BenRu]

es cosa de ir programando los algoritmos.  con respecto a eso de frases al voleo, creo que podrias configurarlo paras que digiera una pregunta o respuesta universal, depende del caso..que le quedase a cualquier pregunta ....o respuesta....

El problema esque nunca he programado algoritmos.
El problema que tiene las frases esas ya predeterminadas esque si te pregunta siempre Hola, siempre saldra la misma contestacion que tu tienes puesto...Estoy utilizando este codigo.

Código [Seleccionar] Expandir

If InStr(Text1, "Hola") Then
Text1 = ""
Text2 = Text2 & R2 & vbCrLf & "<< R2 >> Hola,¿que tal?" & vbCrLf
End If

No se como podria ponerle para que una vez dijera "Hola, ¿que tal? y otra vez Hola a secas...y asi sucesivamente

[Pseudoroot]

pues depende del contexto,, pues si recien empieza la conversacion ..el robot diria . hola que tal??,, puesto que recien se estan conociendo....el otro hola..lo tendrias,,,que dajar para una pregunta ,,como
hola?
hola
HOLA....etc...

[BenRu]

Que va...ya lo probe 

Si tu pones Hola, Holas, Hola!, siempre te lo reconocera como Hola...
La verdad esque es una putada...

[Pseudoroot]

jajajajajaj.. puede ser.. pero por lo menos hay que intentar  ,probar...y volver a probar..que de eso se trata la programacion, hasta que las cosas salgan como queremos que salgann...

[BenRu]

Bueno...alguien me podria ayudar con lo que dije?El que cada vez diera un mensaje distinto, partiendo de este codigo...

Código [Seleccionar] Expandir

If InStr(Text1, "Hola") Then
Text1 = ""
Text2 = Text2 & R2 & vbCrLf & "<< R2 >> Hola,¿que tal?" & vbCrLf
End If

Gracias

[Pseudoroot]

mensajes distintos como cuales-..... ???

[BenRu]

Que al poner tu Hola, no siempre te conteste Hola,¿que tal?, "como esta puesto en ese codigo", que tuviera mas opciones para poder contestar.

[Pseudoroot]

ami se me ocurre una idea...luego de comprobar que el usuario saluda al robot.. deberias poner por ejemplo varias rutinas de saludo a parte de hola que tal.. como hola. que tal como vas...que tal.....hola bievenido .....e.tc...etcd..el saludo que se te ocurra que pueda contestar...pero que estos apunten a variables...luego se realiza un random...y se seleciona una cadena al azar de entre las posibilidades...creo que es bien facil llevarlo a codigo yo solo te planteo la idea que se me ocurrio..y de esta manera el propio programa elige de que manera responder...eligiendo un saludo aleatorio de los que tu le pondrias...
que dices??...se entiende la idea??...es bien facil programar eso..