قراءة النصوص Text To Speech فى الفجوال بيسك 2010

الاخوة الافاضل اهلا بكم 

أقدم لكم ابسط كود لقراءة النصوص بالانجليزية Text To Speech فى الفجوال بيسك دوت نت 2010 .....بخطوات بسيطة جدا و كود سهل للغاية

1_ قم بانشاء مشروع توافذ جديد

2_ قم بإضافة مربع نص TextBox1 و زر امر button

3_ فى حدث النقر لزر الامر button أكتب الكود التالى :

الكود:

Dim SAPI
        SAPI = CreateObject("SAPI.spvoice")
        SAPI.Speak(TextBox1.Text)

4_ الان قم بكتابة اى نص بالانجليزية فى مربع النص TextBox1 ثم انقر على زر الامر لقراءة النص و سمعاه من المايك