ٍُtext-to-speech__speech-to-text

[PROSPPECH]

سلام بچه ها
کسی در مورد text-to-speechوspeech-to-text مطلبی یا سایتی و هز کمکی داره راهنمایی کنه
مرصی از کمکتان :wink:

[Nesta]

سلام دوست عزیز شما لطفا کمی‌ بیشتر توضیح بدین که با چه زبانی‌ شما باید قوانین این انجمن رو ملاحظه کنید و بدن پست بدهید .
متشکرم.
:D :arrow:

[PROSPPECH]

سلام
منظور من تبدیل متن به تلفظ و تلفظ به متن که در ویندوز وجود دارد . ترجیحا به زبان ويژوال بيسيك و هر سايتي در مورد اين مطلب داردي عنوان كنيد.مرصي از كمكتان

[Nesta]

سلام دوست عزیز
شما این موضوع رو اگه در بخش زبان ویبی‌ بفرمائید بیشتر رسیدگی‌ می‌شه .البته در دلفی‌ می‌تونم بهتون activx خود دلفی‌ حمصهین چیزی داره ولی‌ من باهاش کار نکردم فقط می‌دونم که آماده هست یا یک کمپننت واسه دلفی‌ هست که مثل microsoft agent هست که شما میتونین باهاش ارتباط برقرار کنین حتما میدونین چی‌ که اگه با اکسس کار کرده باشین یک ادمک میاد اونجا سمت راست بغل که میگه اگه کمکی‌ دارید انجام بده .یه همچی‌ چیزی با صدا .

[PROSPPECH]

سلام
مرصی از راهنماییتون
ولی اینگار منظور من را نفهمیدید.به هر حال هر کسی سایت مطلبی داره عنوان کنه
مرصی

[saman_uv]

سلام text to speechكه اسم يه برنامس كه توش نوشته كپي ميكني برات ميخونه ولي speech to text رو نشنيدم

[Nesta]

سلام راستی‌ شما کلا میخای برنامه بنویسی‌ یا دنبال همچین برنامه ای میگردی ؟
این رو شما بگی‌ ما منظور شما رو بهتر متوجه میشیم .
یا دنبال کامپوننت میگردین .

[PROSPPECH]

سلام
منظور من برنامه نویسی سایت مطلب و کامپوننت و ... هست
مرصی

[Nesta]

سلام دوست عزیز چه زبان برنامه نویسی‌ .
asp .net vb delphi dreamweaver ??
اینا همش می‌شه.
:wink: :roll:

[PROSPPECH]

با سلام
ببينيد بحث تبديل گفتار به متن و بالعكس يك بحث علمي است و اگر شما مطلب و کامپوننت و سايت ترجيحا با زبانهاي دلفي و يا ويژوال بيسيك داريد عنوان كنيد
مرصي

[khorshed]

سلام
من عضو جديد هستم
خواهش ميكنم اگر در مورد تبديل متن به گفتار در كامپيوتر ( text to speech) چيزي مي دونيد مرا راهنمايي كنيد .

[bithiah]

دوست عزیز
به انجمنهای P30World خوش اومدین.
اینجا یه تاپیک قدیمیه. لطف می کنین بگین چه زبون برنامه نویسی مدنظر شماست؟

[khorshed]

:sad:
[QUOTE=khorshed]سلام
من عضو جديد هستم
خواهش ميكنم اگر در مورد تبديل متن به گفتار در كامپيوتر ( text to speech) چيزي مي دونيد مرا راهنمايي كنيد .

[ZiTaNiX]

speach 2 text فکر میکنم همون speach مایکروسافت ورد باشه
که شما با میکروفن صحبت میکنید و ورد خودش مینویسه
البته انگلیسی ;)

[bithiah]

بله ZiTaniX جان
همینطوره. البته این مخصوص Word یا برنامه های دیگه مایکروسافت نیست، بلکه یک Engine هست که توسط مایکروسافت طراحی شده بنام Microsoft Text-to-Speech Engine . و اگه روی سیستمتون نصب شده باشه، در Control Panel d یک قسمتی برای تنظیمات اون هست بنام Speech. اتفاقا نمونه کدش رو بزبون VB داشتم. ولی نمی دونم چون khorshed جان سوالشون رو اینجا مطرح کردند، شک داشتم بذارم یا نه، ولی باوجود این نمونه کدهای زیر رو ببینین، خالی از لطف نیست:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***توجه: اینها کد VB هستند.
موفق باشید

[saeidbarname]

با سلام
ببينيد بحث تبديل گفتار به متن و بالعكس يك بحث علمي است و اگر شما مطلب و کامپوننت و سايت ترجيحا با زبانهاي دلفي و يا ويژوال بيسيك داريد عنوان كنيد
مرصي
با سلام
خانم كوثري اين هم كد تبديل متن به گفتار
دو ماژول به فرم اضافه كنيد
در اولي
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:40:

[saeidbarname]

سلام خانم كوثري
بنده سورس اين مطلب را در vb دارم

[saeidbarname]

سلام بچه ها
کسی در مورد text-to-speechوspeech-to-text مطلبی یا سایتی و هز کمکی داره راهنمایی کنه
مرصی از کمکتان :wink:
سلام من كد مورد نظر رادارم

[gonbad city]

دوستان برای تبدیل متن به گفتار که روش های مختلفی وجود داره و خیلی ساده است ولی بحث مهم تبدیل گفتار به متنه مثل برنامه نویسا البته من بلد نیستم ولی یک تیم ایرانی چنین برنامه ای نوشتن که حرف بزنی اون تایپ کنه.ضمنا زبان من وی بی 6 هستش