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

[goodbye]

Usa un repertorio de forma aleatoria, si caben varias respuestas. Es lo que quieres darle más flexibilidad.
Atendendiendo al valor numérico que tome un variable mediante la función random (rnd)

Código [Seleccionar] Expandir


dim i
i = int((rnd*3) +1)
if text1 = "hola" then
   select case i
        case 1
             print "que tal"
        case 2
             print "como está?"
        case 3
             print "hola, que tal"
    end select
end if 

[Pseudoroot]

Bueno amigo ese es tu punto de vista ,lo que no quiere decir que sea el correcto o el verdadero,  hay algunos que creemos que la programacion de inteligencia artificial aunque nuca podria ser como humano ,por los sentimientos, pensamientos y demaces. simular o tratar. de parecerseles lo mas posible.. con respecto a lo que recomiendas para contruir el robot ,estoy de acuerdo contigo..
Lo que si la maquina es imposible que responda.. ???, por que imposible....?


PD: basta con postear el codigo una sola vez..
no le veo sentido el postearlo 2 veces..

[{_The_Alwar_}]

que responda es posible, que responda bien el 50% de las preguntas tambien, pero no el 100% de las preguntas

[BenRu]

Al 100% es imposible...

El codigo esa que as puesto no encuentro la manera para que los resultados se queden en text2...salen como si fuera print...(en medio del form)

[Pseudoroot]

pero eso se cambia agregandole

nombretext.text="hola que tal"

o como se llame el text en cuestion.. sea el text1 o text2..es cosa tuya

es decir no tienes que hacer el copy paste tal ycual si no que tines quie ir viendo donde quieres los resultados ,.,la funciohn print.. imprime en el form.. por eso, no te sale en el text.--que tu quieres..

[BenRu]

Pero donde lo añado?Lo añado a algunos sitios y da error...

Y como tu as puesto, siempre diria Hola que tal y no la otras opciones

[Pseudoroot]

veo que quieres que te den todo en bandeja no entiedes con los ejemplos ...or que no posteas el codigo..y vemos en que falla...ademas eso de la cadena se le pueden agregar mas o menos ,eso no importa,.,solo era a modo de ejemplo...
Postea el codigo. y pregunta cual es el problema

[goodbye]

Lo que te puse fue, valga la redundancia, un ejemplo del método aleatorio que usarías para generar varias frases hechas.
Después tu lo adaptas a tu code.

[BenRu]

Ya lo se..lo que pasa esque debo de borrar el codigo que llevo...si lo quiero hacer de nuevo...o borrar solo partes...y me queria asegurar antes de cambiarlo...ya que antes de todo me gustaria tenerlo todo bien y seguro, ya que por ejemplo, tambien me gustaria que mi mensaje tambien saliera en la misma pantalla que la contestacion, como si fuera un chat tipo msn

[{_The_Alwar_}]

Código [Seleccionar] Expandir


Dim Lai As Integer


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = "13" Then
Res "Hola"
End If
End Sub

Public Sub Res(mensaje As String)
Randomize
Lai = Rnd * 10
If mensaje = "Hola" Then
Select Case Lai
Case "1"
Text2.Text = Text2.Text & vbCrLf & "Hola que te cuentas?"
Case "2"
Text2.Text = Text2.Text & vbCrLf & "Hola"
Case "2"
Text2.Text = Text2.Text & vbCrLf & "Hola, hoy no tengo ganas de hablar"
Case "3"
Text2.Text = Text2.Text & vbCrLf & "Hola, uff que dia llevo"
Case "4"
Text2.Text = Text2.Text & vbCrLf & "Hola, como te va?"
Case "5"
Text2.Text = Text2.Text & vbCrLf & "Hola, que pasa!?"
Case "6"
Text2.Text = Text2.Text & vbCrLf & "Hola, toy ocupado luego hablamos"
Case "7"
Text2.Text = Text2.Text & vbCrLf & "Hola, que pasa neng!"
Case "8"
Text2.Text = Text2.Text & vbCrLf & "Adios"
Case "9"
Text2.Text = Text2.Text & vbCrLf & "Toy cansado me voy ya"
Case "10"
Text2.Text = Text2.Text & vbCrLf & "No quiero hablar con tigo"
End Select
End If
End Sub
Se necesitan dos text box, text1 es para escibir, con multiline a false, y text2 para ver las respuestas, multiline a true en este