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

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: كانون الثاني 09, 2009, 08:40:19 مسائاً
بسم الله الرحمن  الرحيم

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

أثناء تجوالي في مواقع البرمجة  وجدت هذا الدرس في أحد المنتديات فقمت بنسخ الدرس ولصقه هنا  .

فالموضوع

منقول

وها هو الدرس  :

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

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

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

    هذه الصورة تم اعادة تحجيمها . الحجم الافتراضي  لها هو 653x589.

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

كود:

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 Select
End Sub




End Select
End  Sub


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


CODE

[Grammer]
type=cfg
[]
=Notepad
=Microsoft  Paint
=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)
من هنا



Ssoft

  • Hero Member
  • *****
    • مشاركة: 1410
    • مشاهدة الملف الشخصي
    • http://sabeur-academy.com
    • البريد الالكتروني
رد #1 في: كانون الثاني 10, 2009, 11:56:42 صباحاً
thank'sssssssssss


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: كانون الثاني 12, 2009, 06:06:33 مسائاً
merci


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: كانون الثاني 14, 2009, 03:15:42 مسائاً
لا شكرا على واجب شكرا لمروركم


oussama.hdi

  • Full Member
  • ***
    • مشاركة: 145
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
بارك الله فيك


آلاء

  • Full Member
  • ***
    • مشاركة: 145
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #5 في: تشرين الأول 14, 2009, 11:36:34 صباحاً
Trop fort
الله يرظى عليك
merci


آلاء

  • Full Member
  • ***
    • مشاركة: 145
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #6 في: تشرين الأول 14, 2009, 11:38:26 صباحاً
UN PROBLEME ICI
Microsoft Agent Server :
Download the Microsoft Agent SDK ********ation in compiled help (.chm) format (708 kB .zip archive)
 JE N'ARRIVE PAS A LE TELECHARGER


آلاء

  • Full Member
  • ***
    • مشاركة: 145
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #7 في: تشرين الأول 14, 2009, 12:09:18 مسائاً
salam
avant tout mon frere il faut definir les objets suivants
reco.GrammarFromFile App.Path & "\Words.txt"

 
 
reco.Activate---------------------------->c'est l'objet   DirectSR1
 Agent.Characters.Load "Genie", "Genie.acs----------------------> c'est l'objet "
Agent1

Bot.Show
bot normalement c'est un forme sisnon c'est quoi alors
un message d'erreur s'affiche ici
Agent1.Characters.Load "Genie", "Genie.acs"
pour signaler fichier introuvable
 
j'aimerai bien avoir le code complet et correcte svp


آلاء

  • Full Member
  • ***
    • مشاركة: 145
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #8 في: تشرين الأول 15, 2009, 10:19:00 صباحاً
trés bien
 
j'ai pu resoudre le probleme
avant tout il faut telecharger ce fichier .exe et l'installer sur votre Pc pour reconnaitre le fichier genie.acs
 
*
 
http://www.msagentring.org/chars.aspx?page=2
il faut choisir Character: Download Genie
 
maintenat sur votre code source
 
2-renommer 'objet DirectSR1 par reco
3-renommer l'objer Agent par Agent1
 
et normalement sa marchera trés bien
 
bon courage


toyoki

  • Newbie
  • *
    • مشاركة: 4
    • مشاهدة الملف الشخصي
    • http://www.kafilelyatim.tk
    • البريد الالكتروني
رد #9 في: تشرين الأول 19, 2009, 01:25:12 مسائاً
على ما أضن يفهم الانجليزية فقط ام أنا مخطئ
شكرا لك أخي


آلاء

  • Full Member
  • ***
    • مشاركة: 145
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #10 في: تشرين الأول 20, 2009, 08:58:49 صباحاً
مقتبس من: toyoki;377431
على ما أضن يفهم الانجليزية فقط ام أنا مخطئ
شكرا لك أخي

je n'ai pas saisi votre question


freezer

  • Jr. Member
  • **
    • مشاركة: 69
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #11 في: كانون الأول 16, 2009, 09:27:05 مسائاً
merci 7anoni