Visual Basic 2008 SAPI Text to Voice COM object

CODE:

Public Class Form1 Dim SAPI Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click With SAPI .voice = .getvoices.item(HScrollBar1.Value) 'if you have more voices on your 'PC that the COM object can use .Volume = HScrollBar2.Value '1-100 .Rate = HScrollBar3.Value '1-10 slow -fast End With SAPI.Speak(TextBox1.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = "" End Sub Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load Dim I As Integer SAPI = CreateObject("sapi.spvoice") 'create object and then setup the properties For Each Voice In SAPI.getvoices
' this code will count the different voices 0= default I = I + 1 Next HScrollBar1.Value = (I - 1) HScrollBar1.Maximum = (I - 1) End Sub

End Class

Category:

Howto & Style

Tags:

• SnailWrangler
• plagiarized
• environmentalnerd53

[PCVideoResume]

@gamer2160 there is SAPI has a SDK that will install voices on you computer

[gamer2160]

@embraerss This is the Best one YouTube Because No one has the Rate per Sec, so you can slow it down and up, =]

The Only Thing is If There was Other voices that u could change it to, That would be AWESOME!! Please Make a Video If You Can On That!! Thank You

[gamer2160]

This is the Best one YouTube Because No one has the Rate per Sec, so you can slow it down and up, =]

The Only Thing is If There was Other voices that u could change it to, That would be AWESOME!! Please Make a Video If You Can On That!! Thank You