بسم الله الرحمن الرحيم
اليوم عندنا موضوع مهم وهو طريقة صنع الناطق Talker الأوامر و الأدوات ألازمة
أولا: نبدأ بالأدوات ألازمة
1-الأداة Microsoft Voice Text
2-ملف اللغات ( تجدة في موقع شركة مايكروسوفت "http://www.microsoft.com/reader/developers/downloads/tts.asp" )
3-مربعين نص
4-2 أزرار
5-واحد Combo
6-واحد UpDown1
ثانيا: طبعا انتم تقوم بترتيب الأدوات حسب رغبتكم والشكل إلي تحبونة
مربعين النص الأول للنص الذي تريد إن ينطقة و الثاني لسرعة النطق
ثلاثة أزرار الأول للنطق و الثاني للإيقاف
و الـ UpDown1 لزيادة و تقليل السرعة و الـ Combo للأوضاع النطق المتوفرة مثل امرأة,رجل,رجل إلي ...الخ
ثانيا : الأوامر
في Form_Load
Dim strVoiceType As String
Dim intEngine As Integer
Dim I As Integer
For no = 1 To TextToSpeech1.CountEngines
Combo1.AddItem TextToSpeech1.ModeName(no)
Next
Combo1.Text = Combo1.List(0)
TextToSpeech1.Select 1
TextToSpeech1.TeethLowerVisible = 0
TextToSpeech1.TeethUpperVisible = 0
TextToSpeech1.Speed = 150
UpDown1.Max = 250
UpDown1.Min = 50
في UpDown1_Change
Text2.Text = UpDown1.Value
TextToSpeech1.Speed = UpDown1.Value
في Combo1_Click
TextToSpeech1.Select (Combo1.ListIndex + 1)
في Command1_Click
TextToSpeech1.Speak Text2.Text
في Command2_Click
TextToSpeech1.StopSpeaking
وبعد كذا تكون انتهيت من الناطق ويمكنك تجريبة و الاستمتاع بة
وفي المرفقات مثال للتوضيح
أحمد Mody_Alb
Help:Mody_Alb@Hotmail.com
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
