السلام عليكم
طلب مني الاخ عصام عبد الجواد طريقة التحكم بالكميوتر عن طريق الكلام و ان شاء الله ان يكون شرحي للموضوع واضح
بسم الله نبدأ
اولا: يجب ان تثبت في كمبيوترك برنامج 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 Select
End Subخامسا: إنشئ ملف text وسمي هذا الملف باسم Words وضع فيه هذه البيانات
[Grammer] type=cfg [<start>] <start>=Notepad <start>=Microsoft Paint <start>=Close
سادسا: ضع ملف Words في نفس المشروع
أرجو ان يكون الشرح واضح وأي استفسار أنا حاضر
