تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قاريء النصوص الفرنسية و الانجليزية
#1
بسم الله الرحمن الرحيم

الترجمة والاعداد وتنظيم وترتيب وإضافة الشفرات من طرف alsouf
للمراسلات على العنوان الالكتروني: alsouf39400@gmail.com
في البداية نزل وثبت التطبيقات التالية على جهازك
-----------------------
تجدها في الروابط التالية: او تبحث عنها في الانترنت
1
http://www.microsoft.com/en-us/download/...x?id=27226
اختار واحد حسب نسخة الويندوز 86 او 64
x86_MicrosoftSpeechPlatformSDK\MicrosoftSpeechPlatformSDK.msi او
x64_MicrosoftSpeechPlatformSDK\MicrosoftSpeechPlatformSDK.msi
2
http://www.microsoft.com/en-us/download/...x?id=27225
اختار حسب نسختك
x86_SpeechPlatformRuntime\SpeechPlatformRuntime.msi
او
x64_SpeechPlatformRuntime\SpeechPlatformRuntime.msi
3
http://www.microsoft.com/en-us/download/...x?id=27224
et choisir dans la liste la voix que tu veux
اختار ما يناسبك من لهجات او لكنات
مثلا
MSSpeech_TTS_fr-FR_Hortense.msi
او
MSSpeech_TTS_fr-CA_Harmonie.msi
----------------------------------------------------
قم بتثبيت التطبيقات الثلاثة
ثم اذهب للمسار التالي (حسب نسخة نظامك) نظامي الحالي x86
------------------
C:\Program Files\Microsoft SDKs\Speech\v11.0\Assembly
تجد ملف مكتبة الربط الديناميكي  (مرفق مع المشروع في مجلد  Debug )
-----------------------------------------------------
افتح مشروع جديد (زرين و مربعي نص)
----------------
اضف ملف الدال الى References
-------------------------
نكتب الشفرات التالية مرتبة كما يلي:

PHP كود :
Imports Microsoft.Speech.Synthesis
Public Class Form1
    Private synth 
As SpeechSynthesizer
    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.Load
        synth 
= New SpeechSynthesizer
        synth
.SetOutputToDefaultAudioDevice()
 
       synth.SelectVoice("Microsoft Server Speech Text to Speech Voice (fr-FR, Hortense)")
 
       synth.Rate 0
        
'synth.SpeakAsync("Bonjour je parle Visual Basic.Net 2018")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnFrenchRead.Click
        synth.SpeakAsync(TextBox1.Text)
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        TextBox1.Height = TextBox1.Height + 1
    End Sub

    Private Sub BtnSpeakerEnglish_Click(sender As Object, e As EventArgs) Handles BtnSpeakerEnglish.Click
        Try
            Dim SpeakEnglish
            SpeakEnglish = CreateObject("sapi.spvoice")
            SpeakEnglish.speak(TextBox2.Text)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        TextBox2.Height = TextBox2.Height + 1
    End Sub
End Class 

المشروع في المرفقات   لا تنسونا من خالص الدعاء لي بالشفاء و لي والدي بالرحمة و المغفرة

الزر الاول لقراءة النص الفرنسي
و الثاني لقراءة النص الانجليزي
هناك شفرة اضافية اختيارية لتوسيع مربع النص اثناء كتابة النص
ملف مكتبة الربط في المرفقات
.rar   Microsoft.Speech.rar (الحجم : 206.48 ك ب / التحميلات : 17)
.rar   Microsoft.Speech.rar (الحجم : 206.48 ك ب / التحميلات : 17)


الملفات المرفقة
.rar   NewSpaekerFR.rar (الحجم : 283.12 ك ب / التحميلات : 11)
                                             
                                                        
                   
                                             صبرا جميل و الله المستعان عما يصفون  
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video برنامج لتعليم الأطفال حروف اللغة الانجليزية +تحميل البرامج ggtt17121985 0 109 20-08-18, 07:30 PM
آخر رد: ggtt17121985
Bug [VB.NET] سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً elgokr 11 617 13-07-18, 06:19 AM
آخر رد: elgokr
Photo برنامج تحديد المستوي للغة الانجليزية (Level Test) برجاء التقييم Mohamed Samy21 7 461 13-05-18, 04:57 AM
آخر رد: Mohamed Samy21
  [مشروع] برنامج زخرفة النصوص Mahdi 0 828 24-06-14, 04:22 AM
آخر رد: Mahdi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم