+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : قاريء النصوص الفرنسية و الانجليزية (/showthread.php?tid=26031)
قاريء النصوص الفرنسية و الانجليزية - alsouf - 08-08-18
بسم الله الرحمن الرحيم
الترجمة والاعداد وتنظيم وترتيب وإضافة الشفرات من طرف alsouf
للمراسلات على العنوان الالكتروني: alsouf39400@gmail.com
في البداية نزل وثبت التطبيقات التالية على جهازك
-----------------------
تجدها في الروابط التالية: او تبحث عنها في الانترنت
1
http://www.microsoft.com/en-us/download/details.aspx?id=27226
اختار واحد حسب نسخة الويندوز 86 او 64
x86_MicrosoftSpeechPlatformSDK\MicrosoftSpeechPlatformSDK.msi او
x64_MicrosoftSpeechPlatformSDK\MicrosoftSpeechPlatformSDK.msi
2
http://www.microsoft.com/en-us/download/details.aspx?id=27225
اختار حسب نسختك
x86_SpeechPlatformRuntime\SpeechPlatformRuntime.msi
او
x64_SpeechPlatformRuntime\SpeechPlatformRuntime.msi
3
http://www.microsoft.com/en-us/download/details.aspx?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]