Added QA DATABASE

Author: spydaz

AI_AgentModel.vb

@@ -19,7 +19,11 @@ Public Class AI_AgentModel
     ''' <param name="UserInput"></param>
     ''' <returns></returns>
     Public Function GET_RESPONSE(ByRef UserInput As String) As String
+        'Get External Responses
         GET_RESPONSE = GetPluginResponse(UserInput, PreviousUserInput, PreviousResponse)
+        'IF NO RESPONSE TRY -  Question Answer Database
+        If GET_RESPONSE = "" Then GetQAResponse(UserInput, GET_RESPONSE)
+        'IF No Response Fallback Response
         If GET_RESPONSE = "" Then GET_RESPONSE = "Excuse me? Please, Rephrase?"
     End Function
     Private Function GetPluginResponse(ByRef UserInput As String, ByRef PrevUSerInput As String, ByRef PrevResponse As String) As String

Chatbot_2020_Tutorial.vbproj

@@ -106,6 +106,7 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="QuestionAnswer.vb" />
     <Compile Include="SplashScreen.Designer.vb">
       <DependentUpon>SplashScreen.vb</DependentUpon>
     </Compile>

Plugins/SamplePlugin.dll

@@ -0,0 +1,97 @@
+
+
+Module QuestionAnswer
+    Public Function GetQAResponse(ByRef UserInput As String, ByRef Response As String) As Boolean
+        GetQAResponse = False
+        If DetectAnswerMindQA(UCase(UserInput), Response) = True Then
+            Return True
+        Else
+        End If
+
+        If DetectAnswerQAMind(UCase(UserInput), Response) = True Then
+            Return True
+        Else
+        End If
+
+    End Function
+
+    Public Function DetectAnswerMindQA(ByRef Question As String, ByRef Answer As String) As Boolean
+        Dim Knowledge As List(Of TopicQuestion) = GetMindQA()
+        DetectAnswerMindQA = False
+        For Each item In Knowledge
+            If UCase(item.Question) Like UCase(Question) = True Then
+                Answer = item.Topic
+                Return True
+            Else
+            End If
+        Next
+    End Function
+    Public Function DetectAnswerQAMind(ByRef Question As String, ByRef Answer As String) As Boolean
+        Dim Knowledge As List(Of TopicQuestion) = GetQAMind()
+        DetectAnswerQAMind = False
+        For Each item In Knowledge
+            If UCase(item.Question) Like UCase(Question) = True Then
+                Answer = item.Topic
+                Return True
+            Else
+            End If
+        Next
+    End Function
+    Private Function GetMindQA() As List(Of TopicQuestion)
+        Dim DbSubjectLst As New List(Of TopicQuestion)
+        Const SQL As String = "SELECT *  FROM MINDQA"
+        Using conn = New System.Data.OleDb.OleDbConnection(My.Settings.MindQAConnectionString)
+            Using cmd = New OleDb.OleDbCommand(SQL, conn)
+                conn.Open()
+                Try
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read()
+                        Dim NewKnowledge As TopicQuestion
+                        NewKnowledge.Question = dr("QUESTION").ToString()
+                        NewKnowledge.Topic = dr("Answer").ToString()
+                        DbSubjectLst.Add(NewKnowledge)
+                    End While
+                Catch e As Exception
+                    ' Do some logging or something.
+                    MessageBox.Show("There was an error accessing your data. MINDQA: " & e.ToString())
+                End Try
+            End Using
+        End Using
+        Return DbSubjectLst
+    End Function
+    Private Structure TopicQuestion
+        ''' <summary>
+        ''' Question Associated with topic (can be used as a Flat response) or Can be used to
+        ''' learn new information from multiple sources
+        ''' </summary>
+        ''' <remarks></remarks>
+        Public Question As String
+        ''' <summary>
+        ''' Topic of Associated Question
+        ''' </summary>
+        ''' <remarks></remarks>
+        Public Topic As String
+    End Structure
+    Private Function GetQAMind() As List(Of TopicQuestion)
+        Dim DbSubjectLst As New List(Of TopicQuestion)
+        Const SQL As String = "SELECT * FROM QAMIND"
+        Using conn = New System.Data.OleDb.OleDbConnection(My.Settings.MindQAConnectionString)
+            Using cmd = New System.Data.OleDb.OleDbCommand(SQL, conn)
+                conn.Open()
+                Try
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read()
+                        Dim NewKnowledge As TopicQuestion
+                        NewKnowledge.Question = dr("QUESTION").ToString()
+                        NewKnowledge.Topic = dr("ANSWER").ToString()
+                        DbSubjectLst.Add(NewKnowledge)
+                    End While
+                Catch e As Exception
+                    ' Do some logging or something.
+                    MessageBox.Show("There was an error accessing your data. QA-MIND: " & e.ToString())
+                End Try
+            End Using
+        End Using
+        Return DbSubjectLst
+    End Function
+End Module

QuestionAnswer.vb

@@ -44,8 +44,8 @@ Public Class Sample_Plugin_Chatbot_Tutorial
     End Property
 
     Public Function GetResponse(UserInput As String) As Boolean Implements IPlugin.GetResponse
-        Dim NewResponse As String = "HI - Here we will Design its brain function"
-
+        Dim NewResponse As String = ""
+        If UCase(UserInput) = "HI" Then NewResponse = "YO BRO"
         If NewResponse IsNot Nothing Then
             Response = NewResponse
             Return True