PromptBuilder Class using the PromptBuilder.AppendSsmlMarkup Method. Prosody Element of the (SSML) Speech Synthesis Markup Language to change the pitch, volume, duration, and a few other options of the voice to try making If you find that you only have one voice installed (the default voice) and you don`t want to purchase more voices then you can try using the It seems that after Windows XP or maybe Vista it has been this way. Monkeyboy has said, for newer OS`s you will have to purchase the voices you want through a 3rd party. ') speaker.Speak('This is the way I sound.') Catch MessageBox.Show('Voices have been disabled.') End Try End Sub End ClassĪs Mr. Imports 'Added reference to System.Speech Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim b As New Dim count As Integer = 0 () For Each voice As In b.GetInstalledVoices() count += 1 () Next MessageBox.Show('There are ' & count & ' installed voices.', 'Select voice and click Talk') End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim speaker As New SpeechSynthesizer() Dim selvoice As String If = 0 Then MessageBox.Show('Sorry, there are no installed voices on this computer.', 'No voices listed.') Exit Sub ElseIf ListBox1.SelectedIndex = -1 Then MessageBox.Show('You must select a voice from the list.') Exit Sub End If speaker.Rate = 0 speaker.Volume = 100 selvoice = Try speaker.SelectVoice(selvoice) speaker.Speak('Hello. Place 2 buttons and a listbox on the form. Try this program, which will list all the installed voices and test them. Your computer may not have the voices installed, or they may be disabled. P_objSynth.Rate = talking_speed '.ToString Talking_speed = Val(Mid$(stringReader, seprater + 1, eov_seprater - 1)) Voice_nbr = Val(Mid$(stringReader, 2, seprater - 1))

Msg_text = 'Read Chapter Process cancelled'Ĭhapter_name = Path.GetFileName(text_file) 'sets the text file name to be convertedĭim objReader = My.(text_file)ĭim seprater As String = InStr(stringReader, '/')ĭim eov_seprater As String = InStr(stringReader, '>') I would appreciate any suggestions as to how to make this would app work in visual basic 2013. The code that performs the voice change and read/speak is below. The app is supposed to change voices as indicated by 'voice indicators' However, itĭoesn't. I am a would be writer and have UPDATED an app I wrote years ago using vb6.0 to run with vb 2013 that reads text files to help with proofreading my work.

Upgrade cepstral voices