منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قاريء النصوص الفرنسية و الانجليزية

بسم الله الرحمن الرحيم

الترجمة والاعداد وتنظيم وترتيب وإضافة الشفرات من طرف 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 Object, ByVal e As System.EventArgs) Handles 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 

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

الزر الاول لقراءة النص الفرنسي
و الثاني لقراءة النص الانجليزي
هناك شفرة اضافية اختيارية لتوسيع مربع النص اثناء كتابة النص
ملف مكتبة الربط في المرفقات[attachment=19054][attachment=19054]