الخطوة الأولى : شغل الفيجوال بيسك
الخطوة الثانية : من القائمة Project اختر Refences
الخطوة الثالثة : ضع إشارة صح عند Microsoft Speech Object Library
و هذه هي المكتبة التي سنستعملها
الآن في قسم ال General نضع الكود التالي:
رمز:Dim sp As New SpeechLib.SpVoice
وهنا محور عملنا
الآن نضيف TextBox لنقرأ ما كُتب داخله
وأيضا نضيف Command1
الكود التالي هو كود التيكست
رمز:Private Sub Text1_Change()If Len(Text1.Text) > 0 ThenCommand1.Enabled = TrueElseCommand1.Enabled = FalseEnd IfEnd Subوهو يتأكد أن المستخدم كتب شيئا
وإلا فلا يستطيع استخدام زر الأمر
والآن كود زر الأمر
رمز:Private Sub Command1_Click()On Error GoTo ibsp.Speak Text1.TextExit Subib:MsgBox Err.DescriptionEnd Subطبعا إذا وجد خطأ سيظهر ما المشكلة
أما عن الكود الأساسي للقراءة هو
الرمز PHP:sp.Speak Text1.Text
وبس
أرجو أن يعمل البرنامج مع الجميع
تقبلو تحياتي
Aleppo Force
حمل الدرس جاهزا من هنا