Postada em 27/09/2010 20:03 hs
não é bem assim apenas um inputbox, vc terá de criar um banco com palavras chaves e com respostas basicas
tipo: se o texto for fixo tudo bem, porém se deseja criar uma inteligencia artificial teria de comparar algumas palavras ex:
a pessoa pode digitar tanto: Oi ,Tudo bom? como oi!, ou olá, tudo bem?
então existem N possibilidades
então poderia fazer o seguinte, coloque dois text em um form, e cole o código abaixo
Dim Saudacoes() As Variant
Private Sub Form_Load()
Saudacoes() = Array("Oi, Tudo Bom?", "Oi, como vai?", "olá, como vai?")
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If Text1.Text = Saudacoes(0) Then Text2.Text = "Sim ,e com você?"
If Text1.Text = Saudacoes(1) Then Text2.Text = "Oi estou bem e você?"
If Text1.Text = Saudacoes(2) Then Text2.Text = "Olá, estou bem e você?"
End If
End Sub
repare uma coisa se a palavra digita não for exatamente igual ao texto na array, nada será respondido.
uma melhor forma seria usar um banco de dados com um like
mas como eu disse no começo é bem complexo a situação
|
