01-09-2012، 11:36 PM
با سورس زیر در ویژوال بیسیک 6 میتونید یه متن رو به صدا تبدیل کنید اونم بدون چیزهای اضافی
این سورس خودم نوشتم.
این سورس خودم نوشتم.
کد:
'Coder Amin Mansouri
Public Sub SPEAK(Text As String)
Dim AminVoice, sapi
AminVoice = Text
Set sapi = CreateObject("sapi.spvoice")
sapi.SPEAK AminVoice
End Sub
Private Sub Form_Load()
SPEAK ("Coder By Amin www.parsicoders.com")
End Sub