كيف تتحكم بجهازك عن طريق الكلام !!! بالفايجوال بيزك - عيون العرب

**نبيل المجهول** · #1 01-04-2007, 09:32 PM

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

اولا: يجب ان تثبت في كمبيوترك برنامج Speech Recognition وهو موجود في موقع مايكروسوفت

ثانيا: يجب ان تثبت في كمبيوترك برنامج Microsoft Agent Server

ثالثا: تتبع الخطوات الموجودة في الصورة التالية:-

رابعأ: إضغط على الفورم مرتين وضع هذا الكود

رمز:
Private Sub Form_Load()reco.GrammarFromFile App.Path & "\Words.txt"reco.Activate Agent.Characters.Load "Genie", "Genie.acs"Set Bot = Agent.Characters("Genie")Bot.Show Bot.MoveTo 345, 210 Bot.Speak "Hi"Bot.Speak "How are you?" End Sub Private Sub reco_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 "Notepad"Shell "C:\Windows\NOTEPAD.exe", vbNormalFocus Case "Microsoft Paint"Shell "C:\Program Files\Accessories\MSPAINT.EXE", vbNormalFocus Case "Close"End End SelectEnd Sub

خامسا: إنشئ ملف text وسمي هذا الملف باسم Words وضع فيه هذه البيانات

CODE

[Grammer]
type=cfg
[<start>]
<start>=Notepad
<start>=Microsoft Paint
<start>=Close

سادسا: ضع ملف Words في نفس المشروع

وهذه ملحوظة مهمة :
شغل البرنامج وتتكلم

في المثال انا وضعت ثلاث كلمات

1- كلمةNotepad لفتح برنامج Notepad
2-كلمة Microsoft Paint لفتح برنامج Microsoft Paint
3- كلمة Close لإغلاق البرنامج

هذه الصورة توضح ذلك

وهذه هي البرامج المطلوبة :
Speech Recognition :

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

SAPI SDK 4.exe
من هنا

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

SAPI SDK 4 Suite.exe
من هنا

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

spchapi.EXE
من هنا

************

Microsoft Agent Server :
Download the Microsoft Agent SDK ********ation in compiled help (.chm) format (708 kB .zip archive)
من هنا

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

Download the Microsoft Agent Character Editor (1 MB exe)
من هنا

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

Download the Microsoft Agent Linguistic Information Sound Editing Tool (6.2 MB exe)
من هنا

وشكراً لكم

والسلام