كود لقراءة النص الموجود داخل التكست فيجول بيسك دوت نيت code for read text vb.net

code for read text vb.net

كود لقراءة النص الموجود داخل التكست فيجول بيسك دوت نيت

ملاحظة : هذا الكود يعمل فقط مع اللغة الانجليزية فقط

اولا : نقوم بانشاء تكست بوكس وليكن اسمه textbox1

ثانياً : نقوم بانشاء زر وليكن اسمه كما تريد

نقوم بكتابه الكود التالي داخل الحدث click للزر

Dim sapt 
If Textbox1.Text <> "" Then sapt = CreateObject("sapi.spvoice") sapt.speak(Textbox1.Text) 
Else sapt = CreateObject("sapi.spvoice") sapt.speak("you have not typed anything") 
End If
 

يقوم الكود في البدايه بالتحقق ان كان الـــ textbox1 يحتوي فعلاً على نص ام لا فان كان هنالك نص فانه يقوم بقراءته وكما ذكرت سابقا فانه لا يدعم اللغة العربية فقط اللغة الانجليزية

وان لم يكن هنالك نص فانه يقرأ الجملة التالية you have not typed anything اي انه لم يتم كتابه اي شيء