visualbasic6, project,

Visual Basic Text to speech converter + synthesize audio to text

Jai Jai Follow Dec 18, 2019 · 1 min read
Visual Basic Text to speech converter + synthesize audio to text
Share this

DLL FILE XVOICE.DLL

DOWNLOAD

COPY THE CODE HERE

''API REFERENCE FROM

Private Declare Function TextOut& Lib "gdi32" Alias "TextOutA" (ByVal ahDc&, ByVal x1&, ByVal y1&, ByVal lpString$, ByVal nCount&)

Public Sub OptUpdate()


HScpitch.Min = DirectSS.MinPitch
HScpitch.Max = DirectSS.MaxPitch

HScspeed.Min = DirectSS.MinSpeed
HScspeed.Max = DirectSS.MaxSpeed
End Sub



Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdEXIT.BackColor = vbRed
End Sub

Private Sub cmdExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdEXIT.BackColor = vbYellow
End Sub

Private Sub cmdSpeak_Click()
On Error Resume Next

DirectSS.FileName = ""


If optrecord.Value = True Then
DirectSS.FileName = Trim(txtfilename)
End If

DirectSS.Select (lstEngine.ListIndex + 1)
DirectSS.Speed = HScspeed.Value
DirectSS.Pitch = HScpitch.Value
DirectSS.Speak txtspeak.Text


End Sub

Private Sub Form_Load()


On Error Resume Next
Dim vEngines As Integer
Dim Count As Integer
vEngines = DirectSS.CountEngines

For Count = 1 To vEngines
lstEngine.AddItem DirectSS.ModeName(Count), Count - 1
lstEngine.ListIndex = 0
Next


OptUpdate
txtfilename.Text = App.Path + "\" + "mysound.wav"
End Sub



Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub lstEngine_Click()
On Error Resume Next
DirectSS.Select (lstEngine.ListIndex + 1)
OptUpdate

End Sub

Private Sub cmdSpeak_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdspeak.BackColor = vbRed
End Sub
Private Sub cmdSpeak_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdspeak.BackColor = vbYellow
End Sub

ANY DOUBTS PLEASE POST IN COMMENT SECTION

Join Newsletter
Get the latest news right in your inbox. We never spam!
Jai
Written by Jai Follow
Blogger, love to explore new ideas and to code