[cjawood]

Hi,
I like vb6 and have being working on building a robot, I want to add voice reconition and speach.
I found some code for a chatterbot and want to add to it some more.
but....
If i add 10000 lines of ElseIf 's
in my module code.
It crashes saying "Procedure to large".
Does anyone know how i could add these ElseIf's into a text file to look for the key words?

Thanks

ElseIf InStr(strQuestion, "good-night") Then
strAnswer = "good night, hope to talk to you later."
AnsFound = True

ElseIf InStr(strQuestion, "why") Then
strAnswer = "why what?"
AnsFound = True
LogQuestion

ElseIf InStr(strQuestion, "what!") Then
strAnswer = "I didn't stu-stu-stutter!"
AnsFound = True
LogQuestion

ElseIf InStr(strQuestion, "what") Then
strAnswer = "This is the best I can think of for that."
AnsFound = True
LogQuestion

Else
    strAnswer = "I'm afraid I don't understand what you have"
    LogQuestion
    End If
End If
AnsFound = True

ElseIf InStr(strQuestion, "are you") Then
strAnswer = "I don't know right now"
AnsFound = True

ElseIf InStr(strQuestion, "i am") Or InStr(strQuestion, "i'm") Then
strAnswer = "I'm sorry, I'm not sure what you are"
AnsFound = True
LogQuestion

ElseIf InStr(strQuestion, "shit") Then
strAnswer = "you do have a foul mouth"
AnsFound = True

ElseIf strQuestion = "hi" Then
strAnswer = "Hi, welcome to the session."
AnsFound = True

ElseIf InStr(strQuestion, "howdy") Then
strAnswer = "Hi, welcome to the session."
AnsFound = True

ElseIf InStr(strQuestion, "hey") Then
strAnswer = "what? what's up?"
AnsFound = True

[maj3091]

If it's always one question = one answer, then you could add them into a text file as delimited pairs (separated by a delimiter, so question;answer for example on each line).

There is a code snippet on reading in text files, so have a look at that.

You could store the results in a collection, using the question as the key, then you can query the collection by the key for the answer.

That should give you some starting points.

[guyfromri]

I would try using

Select Case

End Select

[cjawood]

Thanks for the idea, I'll look into trying to figure that out.

[cjawood]

One problem is that I already have a text file with many many
ElseIf Questions and answers, but to many I guess.
Could a person make alot of modules and have the program look at them?
How could I look to see if "answer not found" then have it look at the next module?
Is that possible?
Thanks much

[maj3091]

you wouldn't store the elseif type code in a text file, only the data, and there should be no issue with the size of a datafile.

If you look into the suggestion I made, it will do what you want.

[cjawood]

Thanks,
Might be some dirty stuff in it but,I added my text file for people that might want it..
I didn't make all the questions and answer's.

Attached File(s)

•  ifthen.zip (1.28MB)
  Number of downloads: 52

This post has been edited by cjawood: 15 April 2011 - 04:17 PM

[BobRodes]

maj's suggestion is much more efficient than this, although I would also look into the Dictionary object. Also, you have some elseifs there that will never get hit.

[Jeeves]

I am new to this forum but after reading your question I have some sample code that may help.

Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, _
ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, _
ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, _
ByVal results As Long)

Dim replyfiletext As String

Case "How are you"
    'SendKeys "How are you"
    lblReply.Caption = "How are you"
    Open App.Path & "\okreply.txt" For Input As #1
Input #1, replyfiletext
lblReply.Caption = replyfiletext
AC.Speak replyfiletext
AC.Speak "How are you,, today"
On Error Resume Next
Close #1

For each question asked you can have a text file with several answers to the same question.
If you use the Random statement you can have it cycle through that text file and read a single line of text.
While this code does not show the use of the random statement I am sure with some research you can find out how to use it.

Almost forgot to add, put this on you load form event.

DirectSR1.GrammarFromFile App.Path & "\Words.txt"
DirectSR1.Activate

Agent1.Characters.Load "Merlin", "Merlin.acs"
Agent1.Characters.Character("Merlin").Balloon.Visible = False
    Set AC = Agent1.Characters("Merlin")
    AC.Show

[cjawood]

Thanks,
I will check into it, in the winter time most likely.
Still haven't finished the body all the way so I'm not worried about this yet.
Thanks for the reply

[Jeeves]

This may get you going a little sooner.
I designed an Assistive Companion (robot) that will follow commands and retains a record of its movements so they can be repeated.
Here is a picture for you, next is a arm to be designed and added.

Attached image(s)

• 

[andrewsw]

@Jeeves
You've just posted your code that in another forum you say is not working

http://www.dreaminco...0&#entry1883939

This post has been edited by andrewsw: 03 August 2013 - 06:06 AM

[Jeeves]

You are correct to some point.
It works so long as it is used in a small way but when extended to hundreds of works/ phrases it has a problem.

[Jeeves]

I revoke my previous answer, it has some problems even with just three case and three replies.
Please do not use right now.

[Jeeves]

cjawood, on 15 April 2011 - 04:08 PM, said:

Thanks,
Might be some dirty stuff in it but,I added my text file for people that might want it..
I didn't make all the questions and answer's.

Can you provide a copy of the full project.
I might have an answer to you problem/question.