Working Plugin Model

Author: spydaz

AI_AgentModel.vb

@@ -56,17 +56,15 @@ Public Class AI_AgentModel
     ''' <param name="_userInput"></param>
     ''' <remarks></remarks>
     Private Function ExecutePlugins(ByVal _userInput As String, ByRef Plugins As ICollection(Of IPlugin)) As String
-        Dim responded = False
-
-
         Dim Str As String = ""
 
         'Plugins
         If Plugins IsNot Nothing Then
             For Each NewPlugin In Plugins
+                NewPlugin.GetResponse(_userInput)
                 If IsNotTest(NewPlugin.Response) = True Then
                     If NewPlugin.Response <> "" Or NewPlugin.Response <> " " Then
-                        Str = LCase(RTrim(LTrim(Str)) & NewPlugin.Response)
+                        Str &= LCase(RTrim(LTrim(Str)) & NewPlugin.Response)
                     End If
                 Else
                 End If

Chatbot_2020_Tutorial.vbproj

@@ -144,9 +144,13 @@
   <ItemGroup>
     <Content Include="Icon_AI_Brain.ico" />
     <Content Include="Icon_SpydazBrain.ico" />
+    <Content Include="Plugins\AI_Contracts.dll">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Plugins\SamplePlugin.dll">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
   </ItemGroup>
-  <ItemGroup>
-    <Folder Include="Plugins\" />
-  </ItemGroup>
+  <ItemGroup />
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

Plugins/AI_Contracts.dll

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

Plugins/SamplePlugin.dll

@@ -7,8 +7,6 @@
     Private Sub SplashScreen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         'Set up the dialog text at runtime according to the application's assembly information.  
 
-        'TODO: Customize the application's assembly information in the "Application" pane of the project 
-        '  properties dialog (under the "Project" menu).
 
         'Application title
         If My.Application.Info.Title <> "" Then
@@ -18,21 +16,15 @@
             ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
         End If
 
-        'Format the version information using the text set into the Version control at design time as the
-        '  formatting string.  This allows for effective localization if desired.
-        '  Build and revision information could be included by using the following code and changing the 
-        '  Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar.  See
-        '  String.Format() in Help for more information.
-        '
-        '    Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
-
         Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
 
         'Copyright info
         Copyright.Text = My.Application.Info.Copyright
         Main()
+
         Me.Close()
 
     End Sub
 
+
 End Class