aDDED sPEECH oUT

spydaz · Jun 10, 2020 · 538d524 · 538d524
1 parent c590e2a
commit 538d524
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/Chatbot_2020_Tutorial.vbproj b/Chatbot_2020_Tutorial.vbproj
@@ -55,6 +55,7 @@
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.Speech" />
     <Reference Include="System.Web.Extensions" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />

diff --git a/Forms/Form_Chat_UI.vb b/Forms/Form_Chat_UI.vb
@@ -1,11 +1,11 @@
 Imports System.IO
-
+Imports System.speech
 
 ''' <summary>
 ''' This is the Main Communications Center
 ''' </summary>
 Public Class Form_Chat_UI
-
+    Private Speechout As Speech.Synthesis.SpeechSynthesizer
     Public Newpoint As New Point
 
     'Methods for form positioning
@@ -29,8 +29,15 @@ Public Class Form_Chat_UI
         End Get
 
     End Property
+    Public Sub EffectActuators(ByRef Text As String)
+        If Loaded = True Then
 
+            Speechout.Speak(Text)
+        End If
+
+    End Sub
     Public Sub DISPLAYOUTPUT(ByRef NewText As String)
+        EffectActuators(NewText)
         TextOut.Text += "User: " & mInputText & vbNewLine & "AI: " & NewText & vbNewLine
     End Sub