السلام عليكم ورحمة الله وبركاته
عزيزي المبرمج والئ كل شخص يهتم ويعشق البرمجة اليوم درسنه انشاء برنامج ينطق الحروف والكلمات اي ماتكتبه في اداة TextBox سينطقها …
برنامج ينطق الحروف والكلمات في الفيجول بيسك
الخطوات
- انشاء مشروع جديد
- في نافذة Form ادرج الادوات التالية
ـ Button عدد 2
ـ Textbox عدد 1
قم بتغير حجم الازرار Button ومن خصائص غير اسماء الازار احدهما اعطه اسما start والثاني Eixt
ـ قم بتغير حجم اداة TextBox من خلال وضع مؤشر الماوس على الاداة سوف تضهر لك سهم من خلاله كبر حجم الاداة
ـ غير الوان الازرار بما يحلو لك
ـ حدد اداة TextBox ومن خصائص غير حجم خط بحيث عندما تكتب سوف يضهر الكلمه واضحه
مرحله الكود
انقر نقرتين علئ زر start واكتب الكود التالي
Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.speak(TextBox1.Text)
انقر على زر Eixt واكتب كود تالي
End
من الكيبورد اضغط f5 لتنفيذ البرنامج
في Textbox اكتب ماتريده ثم اضغط على start وسوف ينطق البرنامج ماكتبته
هذه صوره البرنامج قبل وبعد التنفيذ
