تعلم صنع برنامج لتلفظ الكلمات الانكليزيه

من طرف **صانع برامج** الجمعة أبريل 30, 2010 5:26 pm

يتم ذلك بخطوات:
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