AI Zone Admin Forum Add your forum

NEWS: Chatbots.org survey on 3000 US and UK consumers shows it is time for chatbot integration in customer service!read more..

Creating a Chatbot in VB/Access - Where do I Start?
 
 

Hello,

I woudl like to build a Chatbot in Visual Basics or MS-Access. But I don’t know how to build it or begin to it. I haven’t earlier built a chatbot or else that needs programming. So could anyone help me or do you have the code for me, so that I can build it together?

Thank you.

 

 
  [ # 1 ]

Hello Asir, and welcome to chatbots.org smile

The first thing that comes to mind for me is a question of how familiar you are with VB and Access. After that, I’m curious as to which versions of each you want to use. From there I wonder about whether this will be a personal project, one for school, or something that you’ll want to release publicly (and/or even monetize at some point). And lastly, how “smart” do you want your chatbot to be? Kindly supply answers to these questions (along with any other information that may be relevant), ans we’ll do what we can to assist.

Also, I’ll be changing the title of your post. Using “help help help!!!” is hardly descriptive of the problem, after all. wink

 

 
  [ # 2 ]

You might be better off using Ultra Hal Assistant 6.2. I believe it is built in VB and allows VB enhancements.
http://www.zabaware.com/assistant/

 

 
  [ # 3 ]

Everything Dave said above is important.  For the sake of conversation, Microsoft® Access may still have a macro programming language called Visual Basic for Applications (VBA).  The default startup form may still be set in the Access Options Dialog on the Current Database Tab.  It could be fun to try to build a chat bot that way!

 

 
  [ # 4 ]

Why specifically Visual Basic if you’ve never programmed before? If you don’t necessarily want to do all the coding, a ready-to-go chatbot system like AIML or Chatscript is easier. Unless you want it to do more than chat.

 

 
  [ # 5 ]

First of all, I don’t have programmed before. So, I don’t know anything of programming or else. It’s a project for school. This is a part of my exams. So, I can only use VBA because it is the only programming language that I can use from school.  I want only a chatbot that can answer questions. Like, (Hello=>Hi there) and (How are you=>I am fine. Thanks. And you?) and more of these simple things.

Could anyone help me, please? It’s better when someone has the code that I need or something else.

Thank you

 

 
  [ # 6 ]

Providing the code that you need sounds a bit like doing the project for you.

What is the goal of the assignment? Is the focus on learning VBA? In that case, this seems like something you should develop yourself.

 

 
  [ # 7 ]

CR is right, of course, but there’s no harm in asking for advice about specific issues that you’re facing. Just don’t ask things like “Specifically how do I do this” because the answer may not be satisfactory. wink

 

 
  [ # 8 ]

Of course, my goal is to learn VBA and programming. So, how can I start to code to create a chatbot in VBA???

So, I think it’s easier when someone can communicate with me though Whatsapp (+316 396 55 393).

Important !!!!
I have only 1 month to finish this project cheese

 

 
  [ # 9 ]

Apparently, OpenOffice.org can run many VBA macros, which makes Linux a possible option.
Maybe this link to an ELIZA QBASIC chatbot may give you some inspirations for a VBA chatbot.

http://www.petesqbsite.com/reviews/misc/qb_eliza.zip

 

 
  [ # 10 ]

Hi everyone, I had written the following code. But I have a problem. You must write the same text as in the code to get the good answer. Others you will get an error. How can I fix it ???

Public Class Form1

    
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim fname

        fname 
InputBox("Wat is je naam?")

        
MsgBox("Leuk om je te ontmoeten," fname)

        
Dim fyourq

        fyourq 
InputBox("Vraag maar eens wat.")

        If 
fyourq "Wat is je naam?" Then

            MsgBox
("Mijn naam is chatbot.")

            
fyourq InputBox("Vraag nog maar wat.")

        
End If

        If 
fyourq "Hoe gaat het?" Then

            MsgBox
("Met mij gaat het goed, dankjewel.")

        
End If

    
End Sub

End Class​ 
 

 
  [ # 11 ]

You might want to try the following, instead:

Public Class Form1

    
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim fname

        fname 
InputBox("Wat is je naam?")

        
MsgBox("Leuk om je te ontmoeten," fname)

        
Dim fyourq

        fyourq 
InputBox("Vraag maar eens wat.")

        If 
fyourq "Wat is je naam?" Then

            MsgBox
("Mijn naam is chatbot.")

            
fyourq InputBox("Vraag nog maar wat.")

        Else If 
fyourq "Hoe gaat het?" Then

            MsgBox
("Met mij gaat het goed, dankjewel.")

        Else

            
MsgBox("Ik weet niet hoe te reageren.")

        
End If

    
End Sub

End Class​ 

The code above adds a default response that translates to “I don’t know how to respond.” in “Google English” (for those who can’t read Dutch)

 

 
  [ # 12 ]

It should be noted here that this probably isn’t the best way to go about what you intend. But for a beginning project, it will suffice. smile

 

 
  [ # 13 ]

Thank you Dave, So, what can I do to fix it or what is your advice?

 

 
  [ # 14 ]

I haven’t got enough experience with VB to properly advise you. I never took any courses in programming, I’m afraid. downer

 

 
  [ # 15 ]

Can I do it in Python than? Perhaps, you can help me than…

 

 1 2 3 > 
1 of 3
 
  login or register to react