تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 2 از 2 اولاول 12
نمايش نتايج 11 به 19 از 19

نام تاپيک: ٍُtext-to-speech__speech-to-text

  1. #11
    در آغاز فعالیت
    تاريخ عضويت
    Dec 2005
    پست ها
    2

    پيش فرض

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

  2. #12
    اگه نباشه جاش خالی می مونه bithiah's Avatar
    تاريخ عضويت
    Mar 2005
    محل سكونت
    هرکجاهستم، باشم، آسمان مال من است
    پست ها
    479

    پيش فرض

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

  3. #13
    در آغاز فعالیت
    تاريخ عضويت
    Dec 2005
    پست ها
    2

    14

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

  4. #14

    تاريخ عضويت
    Apr 2005
    محل سكونت
    تو آسمونا !
    پست ها
    1,088

    پيش فرض

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

  5. #15
    اگه نباشه جاش خالی می مونه bithiah's Avatar
    تاريخ عضويت
    Mar 2005
    محل سكونت
    هرکجاهستم، باشم، آسمان مال من است
    پست ها
    479

    پيش فرض

    بله 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.

  6. #16
    در آغاز فعالیت
    تاريخ عضويت
    Jul 2009
    پست ها
    3

    12

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

  7. #17
    در آغاز فعالیت
    تاريخ عضويت
    Jul 2009
    پست ها
    3

    پيش فرض

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

  8. #18
    در آغاز فعالیت
    تاريخ عضويت
    Jul 2009
    پست ها
    3

    پيش فرض

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

  9. #19
    پروفشنال gonbad city's Avatar
    تاريخ عضويت
    Jul 2009
    محل سكونت
    گلستان گنبد کاووس
    پست ها
    648

    پيش فرض

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

صفحه 2 از 2 اولاول 12

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •