تحدث مع حاسوبك

بسم الله الرحمن الرحيم

الموضوع: كيفية استخدام Voice Recognition & Text-to-speech

النتيجة: بعد هذا الدرس يمكنك التحدث من خلال المايكروفون او اي جهاز ادخال للصوت, وبعدها يحللها الكمبيوتر, وبناء على النتيجة يمكن احداث حدث معين مثل عندما تقول what is the time يقوم الكمبيوتر بالرد الصوتى ويعطيك الوقت.

المتطلبات:

1- Speech Recognition Control:

http://activex.microsoft.com/activex/contr...ent2/actcnc.exe

2- Text-to-speech control: already installed

الخطوات:

1- قم بتشغيل برنامج الفيجوال بيسك Standard EXE project

2- قم باضافة Microsoft Direct Speech Recognition & the Direct Text-To-Speech control

Project->Components

3- قم باضافتها على الفورم ثم غير اسم Voice Recognition ->vcrVoice

Text-to-speech->spkSpeak

4- اضف الكود التالي:

Const t = "what is the time"

Private Sub Form_Load()

Dim SpeechGrammer As String

SpeechGrammer = "[Grammar]" & vbCrLf & _

"langid = 1033" & vbCrLf & _

"type=cfg" & vbCrLf & _

"[<Start>]" & vbCrLf & _

"<start>=" & YOURNAME

vcrVoice.GrammarFromString SpeechGrammer

vcrVoice.Activate

End Sub

Private Sub vcrVoice_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)

Select Case Phrase

Case Is = t

spkSpeak.Speak Time

End Select

End Sub

5- شغل البرنامج و قل what is the time و اسمع الوقت من خلال الكمبيوتر

النهاية:

هذا برنامج بسيط للكلام يمكنك تطوير افكار اخرى مثل اغلاق جهازك عن طريق الكلام.