تعلم صنع برنامج لتلفظ الكلمات الانكليزيه
صفحة 1 من اصل 1
تعلم صنع برنامج لتلفظ الكلمات الانكليزيه
يتم ذلك بخطوات:
1-افتح مشروع فيجوال بيسك 6 وادخل على project وثم References واضف مكتبة
Microsoft Speech Opject
2- انشئ اداة Text واداة Command ورتبها بالشكل الذي تريده
3-الان حان وقت الاكواد اكتب هذا الكود باداة Command
كود PHP:
ٍSpeakString text1.text
4- انشئ Module واكتب فيه هذا الكود:
كود PHP:
'-- The Enums:
Enum SpeechVoiceSpeakFlags
SVSFDefault = 0
SVSFlagsAsync = 1 '--speak asynchronously.
SVSFPurgeBeforeSpeak = 2 '--purge pending speech.
SVSFIsFilename = 4
SVSFIsXML = 8
SVSFIsNotXML = 16
SVSFPersistXML = 32
SVSFNLPSpeakPunc = 64 '--speak punctuation as word: "blah blah period"
'-- Masks
SVSFNLPMask = 64
SVSFVoiceMask = 127
SVSFUnusedFlags = -128
End Enum
'-- This flag may not be what you want but it's a sanmple.
'-- It will make TTS keep up with events rather than finish speaking it's
'-- buffer before moving on. For instance, if you set it to speak 500
'-- names and then tell it halfway through to speak 500 numbers instead,
'-- ASync will cause it to stop reading names and switch to numbers.
'-- Not-Async will cause it to finish with the names first.
Const SPEAK_FLAGS_1 = SVSFlagsAsync Or SVSFPurgeBeforeSpeak Or SVSFIsNotXML
Public SpkVoice As New SpVoice
'-- Public sub that can be called to speak provided string:
Public Sub SpeakString(sText As String)
On Error Resume Next
If (Len(sText) = 0) Then Exit Sub
SpkVoice.Speak sText, SVSFlagsAsync
End Sub
1-افتح مشروع فيجوال بيسك 6 وادخل على project وثم References واضف مكتبة
Microsoft Speech Opject
2- انشئ اداة Text واداة Command ورتبها بالشكل الذي تريده
3-الان حان وقت الاكواد اكتب هذا الكود باداة Command
كود PHP:
ٍSpeakString text1.text
4- انشئ Module واكتب فيه هذا الكود:
كود PHP:
'-- The Enums:
Enum SpeechVoiceSpeakFlags
SVSFDefault = 0
SVSFlagsAsync = 1 '--speak asynchronously.
SVSFPurgeBeforeSpeak = 2 '--purge pending speech.
SVSFIsFilename = 4
SVSFIsXML = 8
SVSFIsNotXML = 16
SVSFPersistXML = 32
SVSFNLPSpeakPunc = 64 '--speak punctuation as word: "blah blah period"
'-- Masks
SVSFNLPMask = 64
SVSFVoiceMask = 127
SVSFUnusedFlags = -128
End Enum
'-- This flag may not be what you want but it's a sanmple.
'-- It will make TTS keep up with events rather than finish speaking it's
'-- buffer before moving on. For instance, if you set it to speak 500
'-- names and then tell it halfway through to speak 500 numbers instead,
'-- ASync will cause it to stop reading names and switch to numbers.
'-- Not-Async will cause it to finish with the names first.
Const SPEAK_FLAGS_1 = SVSFlagsAsync Or SVSFPurgeBeforeSpeak Or SVSFIsNotXML
Public SpkVoice As New SpVoice
'-- Public sub that can be called to speak provided string:
Public Sub SpeakString(sText As String)
On Error Resume Next
If (Len(sText) = 0) Then Exit Sub
SpkVoice.Speak sText, SVSFlagsAsync
End Sub
صانع برامج- المدير العام
- عدد المساهمات : 415
0
تاريخ التسجيل : 05/04/2010
العمر : 40
الموقع : برامج x
مواضيع مماثلة
» تعلم فن تركيب الاطباق
» برنامج افلام كارتون
» تعلم اضافة ستايل لبرنامجك (شرح)
» كتاب تعلم الاوراكل الشامل بالعربي
» تعلم كيفية مشاهدة قنوات hd على الرسيفرات العادية ((بالصور))
» برنامج افلام كارتون
» تعلم اضافة ستايل لبرنامجك (شرح)
» كتاب تعلم الاوراكل الشامل بالعربي
» تعلم كيفية مشاهدة قنوات hd على الرسيفرات العادية ((بالصور))
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى