Re: THE BABY CHATBOT

[bplus]

Code: QB64: [Select]

1. _TITLE "THE BABY CHATBOT"
2. 'original code by petr mod by ron77 2019-11-27
3.  
4. REDIM SHARED Words(3) AS STRING
5. Words(0) = "mom"
6. Words(1) = "dad"
7. Words(2) = "food"
8. Words(3) = "hi"
9.  
10. RANDOMIZE TIMER
11.  
12. T$ = "Hi.i'm a baby chatbot teach me what and how to speak"
13. DO UNTIL in$ = "end"
14.     PRINT T$
15.     INPUT "", in$
16.     T$ = Answer$(in$)
17.     Add in$
18.     PRINT: PRINT "let's see baby's word list grow:"
19.     FOR i = LBOUND(words) TO UBOUND(words)
20.         PRINT i, Words(i)
21.     NEXT
22.     PRINT
23. LOOP
24.  
25. FUNCTION Answer$ (Player_say$)
26.     DO UNTIL INSTR(1, Words(search), Player_say$)
27.         search = search + 1
28.         IF search > UBOUND(words) THEN Answer$ = "i've learned to say something new! thank you!": EXIT FUNCTION
29.     LOOP
30.     'Answer$ = Words(search)
31.     Answer$ = Words(INT(RND * UBOUND(words) + 1))
32. END FUNCTION
33.  
34. SUB Add (TextInput AS STRING)
35.     i = UBOUND(words)
36.     REDIM _PRESERVE Words(i + 1) AS STRING
37.     Words(i + 1) = TextInput
38. END SUB
39.  
40.  

[bplus]

Might want to
1. remove duplicate words
2. save words to file so it's not like 50 first dates
3. sort words to find faster
4. associate words to keywords > actually might be a start to learning! that would be cool!

[Petr]

Unfortunately I am not able to help you build sentences in English. But I remember a long time ago when I was trying a similar program in MS - DOS in Quick Basic. I had a lot of fun with that. I analyzed the sentences into words. I tried by algorithm to find out whether it is a verb or an adjective or a noun, or a conjunction or an adverb. Of course - I didn't do much. But what I was able to filter out from the sentences was then stored in files (something like a database). Each word species into its own set. Then I tried to randomly generate a skeleton of sentences such as a title, then an adjective, an interjection, a noun and a verb. (the sentence structure is absolutely different from English). According to this skeleton, I randomly selected words from databases.
Maybe someone will be interested with this idea :)

Here is small upgrade. Program in begin load database with words (if exists) and save words before end. If database not exist, program self create new. Source code also contains easy function
AnswerRND$ (unused), which demonstrate how insert random words from database.

Code: QB64: [Select]

1.     _TITLE "THE BABY CHATBOT"
2. 'original code by petr mod by ron77 2019-11-27
3. 'add save/load for words
4.  
5. REDIM SHARED Words(3) AS STRING
6. Words(0) = "mom"
7. Words(1) = "dad"
8. Words(2) = "food"
9. Words(3) = "hi"
10.  
11. 'load words database
12. IF _FILEEXISTS("Dwords.txt") THEN
13.     ff = FREEFILE
14.     OPEN "Dwords.txt" FOR INPUT AS #ff
15.     i = UBOUND(words)
16.     WHILE NOT EOF(ff)
17.         i = i + 1
18.         REDIM _PRESERVE Words(i) AS STRING
19.         LINE INPUT #ff, Words(i)
20.     WEND
21.     CLOSE ff
22. END IF
23.  
24. 'RANDOMIZE TIMER  'not need. RND is not used.
25.  
26. T$ = "Hi.i'm a baby chatbot teach me what and how to speak"
27. DO UNTIL in$ = "end"
28.     PRINT T$
29.     INPUT "", in$
30.     T$ = Answer$(in$)
31.     Add in$
32.     '    PRINT: PRINT "let's see baby's word list grow:"
33.     '    FOR i = LBOUND(words) TO UBOUND(words)
34.     '    PRINT i, Words(i)
35.     '   NEXT
36.     PRINT
37. LOOP
38.  
39. 'save words database - begin with record 4, because first three records are built - in   in this program:
40. IF UBOUND(words) = 3 THEN END
41. ff = FREEFILE
42. OPEN "Dwords2.txt" FOR OUTPUT AS #ff
43. FOR w = 4 TO UBOUND(words)
44.     PRINT #ff, Words(w)
45. NEXT
46. CLOSE ff
47. IF _FILEEXISTS("dwords.txt") THEN KILL "dwords.txt"
48. NAME "Dwords2.txt" AS "Dwords.txt"
49. CLOSE ff
50.  
51.  
52. FUNCTION AnswerRND$ 'example, how do answers randomly  (with this uncomment also RANDOMIZE TIMER)
53.     record = RND * UBOUND(words)
54.     AnswerRND$ = Words(record)
55. END FUNCTION
56.  
57.  
58. FUNCTION Answer$ (Player_say$)
59.     DO UNTIL INSTR(1, Words(search), Player_say$)
60.         search = search + 1
61.         IF search > UBOUND(words) THEN Answer$ = "i've learned to say something new! thank you!": EXIT FUNCTION
62.     LOOP
63.     'Answer$ = Words(search)
64.     Answer$ = Words(INT(RND * UBOUND(words) + 1))
65. END FUNCTION
66.  
67. SUB Add (TextInput AS STRING)
68.     i = UBOUND(words)
69.  
70.     'test if this word is in database or not:
71.     FOR test = LBOUND(word) TO UBOUND(word)
72.         IF TextInput = Words(test) THEN EXIT SUB
73.     NEXT
74.  
75.     'if is not, add it.
76.     REDIM _PRESERVE Words(i + 1) AS STRING
77.     Words(i + 1) = TextInput
78. END SUB
79.  

[Petr]

Hi. Check out my last post. I edited it and added the code while you entered a new one with a query, which my code already solve.

[Petr]

Oh.... Rewrite on row 71 (word) to (words) in both cases...

Repaired here:

Code: QB64: [Select]

1. _TITLE "THE BABY CHATBOT"
2. 'original code by petr mod by ron77 2019-11-27
3. 'add save/load for words
4.  
5. REDIM SHARED Words(3) AS STRING
6. Words(0) = "mom"
7. Words(1) = "dad"
8. Words(2) = "food"
9. Words(3) = "hi"
10.  
11. 'load words database
12. IF _FILEEXISTS("Dwords.txt") THEN
13.     ff = FREEFILE
14.     OPEN "Dwords.txt" FOR INPUT AS #ff
15.     i = UBOUND(words)
16.     WHILE NOT EOF(ff)
17.         i = i + 1
18.         REDIM _PRESERVE Words(i) AS STRING
19.         LINE INPUT #ff, Words(i)
20.     WEND
21.     CLOSE ff
22. END IF
23.  
24. 'RANDOMIZE TIMER  'not need. RND is not used.
25.  
26. T$ = "Hi.i'm a baby chatbot teach me what and how to speak"
27. DO UNTIL in$ = "end"
28.     PRINT T$
29.     INPUT "", in$
30.     T$ = Answer$(in$)
31.     Add in$
32.     '    PRINT: PRINT "let's see baby's word list grow:"
33.     '    FOR i = LBOUND(words) TO UBOUND(words)
34.     '    PRINT i, Words(i)
35.     '   NEXT
36.     PRINT
37. LOOP
38.  
39. 'save words database - begin with record 4, because first three records are built - in   in this program:
40. IF UBOUND(words) = 3 THEN END
41. ff = FREEFILE
42. OPEN "Dwords2.txt" FOR OUTPUT AS #ff
43. FOR w = 4 TO UBOUND(words)
44.     PRINT #ff, Words(w)
45. NEXT
46. CLOSE ff
47. IF _FILEEXISTS("dwords.txt") THEN KILL "dwords.txt"
48. NAME "Dwords2.txt" AS "Dwords.txt"
49. CLOSE ff
50.  
51.  
52. FUNCTION AnswerRND$ 'example, how do answers randomly  (with this uncomment also RANDOMIZE TIMER)
53.     record = RND * UBOUND(words)
54.     AnswerRND$ = Words(record)
55. END FUNCTION
56.  
57.  
58. FUNCTION Answer$ (Player_say$)
59.     DO UNTIL INSTR(1, Words(search), Player_say$)
60.         search = search + 1
61.         IF search > UBOUND(words) THEN Answer$ = "i've learned to say something new! thank you!": EXIT FUNCTION
62.     LOOP
63.     'Answer$ = Words(search)
64.     Answer$ = Words(INT(RND * UBOUND(words) + 1))
65. END FUNCTION
66.  
67. SUB Add (TextInput AS STRING)
68.     i = UBOUND(words)
69.  
70.     'test if this word is in database or not:
71.     FOR test = LBOUND(words) TO UBOUND(words)
72.         IF TextInput = Words(test) THEN EXIT SUB
73.     NEXT
74.  
75.     'if is not, add it.
76.     REDIM _PRESERVE Words(i + 1) AS STRING
77.     Words(i + 1) = TextInput
78. END SUB
79.  

[Petr]

If you replace T$ = Answer$(in$) on row 30 (+/-) to T$ = AnswerRND$, then using RANDOMIZE TIMER has sense, otherwise not, if RND is not used.

[Petr]

Dwords .txt is created in the same folder as is your program EXE file placed. KILL is the same as DEL under DOS, delete all file types, not just text files.

Again. In program begin is all contens from Dwords.txt loaded to array Words. Then, if is NOT new record add to array Words, is nothing saved and Dwords.txt file is the same as in begin. If is some new word added to array Words, are all records from array Words writed to file Dwords2.txt  Then is old file Dwords.txt  deleted and Dwords2.txt renamed as Dwords.txt

[bplus]

Hi Ron,

Well 2 teachers is bad idea but you should find files with your Source code if you have  "Output EXE to Source folder" Bullet-ed under the RUN menu of IDE. That is, if Petr isn't KILLing everything which I doubt.

[Petr]

You're right, BPlus. The Dwords.txt file remains on the disk.

[bplus]

You know that is not an uncommon problem.

When you get word list going you might have a timer test for new words and update data file over regular intervals. That way you don't loose so much if the power goes out or you exit early.

[SMcNeill]

You know that is not an uncommon problem.

When you get word list going you might have a timer test for new words and update data file over regular intervals. That way you don't loose so much if the power goes out or you exit early.

And code for the _EXIT command, using it to save before logging out.