سلام
من عضو جديد هستم
خواهش ميكنم اگر در مورد تبديل متن به گفتار در كامپيوتر ( text to speech) چيزي مي دونيد مرا راهنمايي كنيد .
سلام
من عضو جديد هستم
خواهش ميكنم اگر در مورد تبديل متن به گفتار در كامپيوتر ( text to speech) چيزي مي دونيد مرا راهنمايي كنيد .
دوست عزیز
به انجمنهای P30World خوش اومدین.
اینجا یه تاپیک قدیمیه. لطف می کنین بگین چه زبون برنامه نویسی مدنظر شماست؟
[QUOTE]
نوشته شده توسط khorshed
speach 2 text فکر میکنم همون speach مایکروسافت ورد باشه
که شما با میکروفن صحبت میکنید و ورد خودش مینویسه
البته انگلیسی![]()
بله ZiTaniX جان
همینطوره. البته این مخصوص Word یا برنامه های دیگه مایکروسافت نیست، بلکه یک Engine هست که توسط مایکروسافت طراحی شده بنام Microsoft Text-to-Speech Engine . و اگه روی سیستمتون نصب شده باشه، در Control Panel d یک قسمتی برای تنظیمات اون هست بنام Speech. اتفاقا نمونه کدش رو بزبون VB داشتم. ولی نمی دونم چون khorshed جان سوالشون رو اینجا مطرح کردند، شک داشتم بذارم یا نه، ولی باوجود این نمونه کدهای زیر رو ببینین، خالی از لطف نیست:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***توجه: اینها کد VB هستند.
موفق باشید
Last edited by bithiah; 14-12-2005 at 13:56.
با سلام
خانم كوثري اين هم كد تبديل متن به گفتار
دو ماژول به فرم اضافه كنيد
در اولي
Option Explicit
Public Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "COMCTL32.DLL" (iccex As tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200
Public Sub Main()
' we need to call InitCommonControls before we
' can use XP visual styles. Here I'm using
' InitCommonControlsEx, which is the extended
' version provided in v4.72 upwards (you need
' v6.00 or higher to get XP styles)
On Error Resume Next
' this will fail if Comctl not available
' - unlikely now though!
Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
' now start the application
On Error GoTo 0
Form1.Show
End Sub
در ماژول دومي
Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrrtning As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByVal dwParam2 As Long) As Long
Public Declare Function mciGetErrorString Lib "winmm.dll" _
Alias "mciGetErrorStringA" _
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, _
ByVal uLength As Long) As Long
درضمن از قسمت components بايد common dialog را به فرم آوريد
اين هم كد مربوط به فرم اصلي
Option Explicit
Dim WithEvents spt As SpeechLib.SpVoice
Private sptvoice As SpeechLib.ISpeechObjectToken
Dim m, n As Long
Dim RecdTime As Boolean
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub cmdspeak_Click()
On Error Resume Next
Set spt = New SpeechLib.SpVoice
spt.Rate = Slider1.Value - 10 'speed
spt.Volume = 5 * Slider2.Value ' volume
m = spt.Speak(Text1.Text, SVSFlagsAsync)
End Sub
Private Sub Form_Load()
Dim strVoice As String
Set spt = New SpeechLib.SpVoice
For Each sptvoice In spt.GetVoices
strVoice = sptvoice.GetDescription 'The token's name
Next
Slider2.Value = 10
Slider1.Value = 10
End Sub
اشياهاي text,commandاضافه كنيد
و دوتا slider اضافه كنيد
در ضمن اگر بازمشكلي داشتيد با من درارتباط باشيد
سعيد 09362069933![]()
سلام خانم كوثري
بنده سورس اين مطلب را در vb دارم
سلام من كد مورد نظر رادارم
دوستان برای تبدیل متن به گفتار که روش های مختلفی وجود داره و خیلی ساده است ولی بحث مهم تبدیل گفتار به متنه مثل برنامه نویسا البته من بلد نیستم ولی یک تیم ایرانی چنین برنامه ای نوشتن که حرف بزنی اون تایپ کنه.ضمنا زبان من وی بی 6 هستش
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)