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

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


السلام عليكم ورحمة الله وبركاته أحبتي في الله ...


هذا الموضوع هام لكل من يريد تعلم البرمجة بطريقة سليمة

وها هو الدرس :


اولا: يجب ان تثبت في كمبيوترك برنامج 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"************l "C:\Windows\NOTEPAD.exe", vbNormalFocus Case "Microsoft Paint"************l "C:\Program Files\Accessories\MSPAINT.EXE", vbNormalFocus Case "Close"End End SelectEnd Sub



خامسا: إنشئ ملف ************ وسمي هذا الملف باسم 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
Download File

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

SAPI SDK 4 Suite.exe
Download File

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

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)
من هنا





وكل عام وانتم بخير


وشكراً لكم

المصدر: منتدى المهندس كوم كلية الهندسة