حصري : كيف تصنع برنامجاً يقرأ ما تكتبه !

السلام عليكم إخواني واخواتي في هذا المنتدى الرائع ....

أقدم لكم اليوم موضوعاً حصرياً عن كيفية إنشاء برنامج ينطق كل ما تكتبه , ولكنه للأسف يقرأ ما يكتب بالإنجليزية فقط , فالأداة المسؤولة

عن النطق تحتوي على أسلوب يمكنها من القراءة بعدة لغات , لكن المشكلة فين , إن الإنديكس Index تبع اللغة العربية مش عندي , فهو

موجود فقط في مكتبة MSDN الخاصة بـــ Visual Basic 6

الطريقة سهلة جداً :

1/ إبدأ مشروعاً جديداً Standard EXE

2/ اتبع الخطوات التالية :

3/ اجعل شكل الفورم مثل الصورة التالية تقريباً :

4/ ضع الكود التالي , بدون أي تغييرات به

Private Sub Command1_Click()
	'
	If Text1.Text = Empty Then
		MsgBox "انت نايم واللا إيه ؟؟ لا زم تكتب نص علشان أعرف أقرأه , واللا إيه ؟", vbExclamation + vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "صباح الخير"
		Text1.Text = "Hi Sleep Man"
	End If
	'
	TextToSpeech1.Speak (Text1.Text)
	'
End Sub

Private Sub Form_Load()
	'
	Text1.Text = "Hi Boy"
	Text1.Alignment = 0
	Text1.RightToLeft = False
	'
	VScroll1.Max = 510
	VScroll1.Min = 30
	'
	TextToSpeech1.Speed = 30
	'
	Label1.Caption = "الســـــــرعة"
	Label2.Caption = "30"
	'
End Sub

Private Sub VScroll1_Change()
	'
	TextToSpeech1.Speed = VScroll1.Value
	'
	Label2.Caption = VScroll1.Value
	'
End Sub

5/ احفظ البرنامج , أو حوله إلى ملف تنفيذي EXE

عارف...عارف ....

طيب اللي معندوش الأداة دي , يعمل إيه ؟

متخفوش Ala2 VB موجود

-------------------------------------------------------------------------------------------------------------------------------------

تحميل الأداة

الأداة مضغوطة بــ Win Zip

حجم الأداة = 80 ك.ب

هي مكتبة DLL

1/ ضع الملف في الامتداد :

C:\Windows\Speech

2/ أو افتح Visual Basic 6 و اضغط Ctrl + T واضغط Browse... وحدد الأداة من أي مكان

تحميل السورس كود (مثال أنا عملته)

مضغوط بــ Win Zip

حجم اللمف = 6 كيلوبايت فقط !!

-------------------------------------------------------------------------------------------------------------------------------------

تحذير : إن قمت بجعل الأداة تقرأ أي نص غير إنجليزي , فإن الجهاز سيهنج , وستضر إلى إعادة التشغيل

أرجو أن ينال رضاكم , وأنتظر الردود