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

[nana0]

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

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

أثناء تجوالي في مواقع البرمجة وجدت هذا الدرس في أحد المنتديات ( أنا مش مشترك فيه والله , هو برامج نت وبس ) فقمت بنسخ الدرس ولصقه هنا .
وللعلم ( لا يلدغ المؤمن من جحر مرتين , كما حدث في موضوع دروس الهتمل )
فالموضوع

وها هو الدرس :

اولا: يجب ان تثبت في كمبيوترك برنامج 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
من هنا

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

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





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

وشكراً لكم

والسلام...

__________________

[m_oh_13]

والله جهدك في النقل تشكر عليه
ونشكر الكاتب الأصلي
للموضوع