تعلم كيف تضيف مساعد الأوفس إلى برنامجك

رمز:
Dim x As IAgentCtlCharacter








القسم الأول لتحميل المساعد وإظهاره

رمز:
Agent1.Characters.Load "x"
Set x = Agent1.Characters("x")
x.Show

القسم الثاني لتعبئة الليست بوكس بجميع حركات المساعد لمعرفتها و استخدامها
رمز:

Dim Animation As Variant
For Each Animation In x.AnimationNames
List1.AddItem Animation
Next


حيث بالنقر على الزر يقوم المساعد بقراءة ما تريد في تعليمة ملاحظة
رمز:
Private Sub Command1_Click()
x.Speak "بسم الله الرحمن الرحيم"
End Sub









رمز:






تضع الكود
رمز:
Private Sub Command1_Click()
x.Play ""
End Sub

وضع بين قوسي التنصيص الحركة التي تريده أن ينفذها
اختر أي حركة من قائمة الليست واكتبها وسيقوم بتنفيذها

الطريقة السابقة كانت لإظهار العم مرلين وهو المساعد الافتراضي في الأوفيس
ألان ماذا لو أردت إظهار مساعد ذو شكل أخر كالروبوت أو المارد أوالقطة أوى شعار ميكروسوفت أو أي مساعد آخر



أولا يجب علي ان أحضر الملف المسئول عن هذا المساعد وهو يكون ذو اللاحقة ACS
جرب البحث في جهازك عن هذه الملفات واستخدم أي واحدة تريدها منها
طريقة البحث أدخل الكلمة *.ACS و ستجدها جميعا وانتفي احدها واستخدمه

لا تختلف الاكود عن سابقها إلا في طريق إيجاد المسار
وهنا سنختار مسار البرنامج يعني نضع الملف المراد استخدامه بجانب برنامجنا
رمز:


Private Sub Form_Load()
'من المسار
Dim path
Dim file
path = App.path
If Right(path, 1) <> "\" Then path = path + "\"
file = path + "[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
Agent1.Characters.Load "x", file
Set x = Agent1.Characters("x")

End Sub
يعني وضعنا الملف في نفس مسار البرنامج ونضع اسمه كما هو موجود
مثلا في الكود السابق اسم الملف www غيره على حسب نوع الملف
وكما ذكرنا نفس الطريقة السابقة بالنسبة للتكلم الحركات و التحرك و .....

و الآن نستعرض بعض الاكود الشائعة بفرض تنفيذها عند الضغط على زر كومند

أريده أن يقرأ ما يحويه صندوق نص أكون مثلا قد ربطته بملف نصي
رمز:
Private Sub Command1_Click()
x.Speak Text1.Text
End Sub




رمز:
Private Sub Command1_Click()
x.Stop
x.MoveTo 0, 190
End Sub

حيث x=0 و y=190
و لو أردناه أن يتحرك إلى الموقع بسرعة معينة إلى الموقع الجديد يبقى نضيف السرعة بعد الاحداثيات

رمز:


Private Sub Command1_Click()
x.Stop
x.MoveTo 0, 190, 1
End Sub
هنا الرقم 1 هو السرعة و كلما زدنا الرقم خفت سرعة التحرك
أريده أن يختفي
رمز:
x.Hide



رمز:
x.Show


أن يقوم بحركة معينة كما ذكرنا سلفا
رمز:
Private Sub Command1_Click()
x.Play "GREET"
End Sub

ونضع الحركة بين قوسي التنصيص مثلا
فالحركة السابقة للترحيب وهكذا دواليك
اقتباس:

يعترف Acknowledge ينبه Alert الحالة الحيادية قبل التنبيه Alertreturn يعلن Announce الحالة الحيادية قبل الإعلان Announcereturn يغمض عينيه Blink يحتار Confused الحالة الحيادية قبل الحيرة Confusedreturn يهنئ Congratulate الحالة الحيادية قبل التهنئة Congratulatereturn يتحسر Decline الحالة الحيادية قبل التحسر Declinereturn يتجاهل Dontrecognize الحالة الحيادية قبل التجاهل Dontrecognizereturn يشرح Explain الحالة الحيادية قبل الشرح Explainreturn يشير للأسفل Gesturedown الحالة الحيادية قبل الإشارة للأسفل Gesturedownreturn يشير للأعلى Gestureup الحالة الحيادية قبل الإشارة للأعلى Gestureupreturn يشير لليمين Gestureright الحالة الحيادية قبل الإشارة لليمين Gesturerightreturn يشير لليسار Gestureleft الحالة الحيادية قبل الإشارة لليسار Guestureleftreturn يلفت انتباه Getattention الحالة الحيادية قبل لفت الإنتباه Getattentionreturn يلمح للأسفل Glancedown يلمح لليسار Glanceleft يلمح لليمين Glanceright يلمح للأعلى Glanceup يحيي Greet الحالة الحيادية قبل التحية Greetreturn يصغي Hear-1 Hear-2 Hera-3 Hear-4 يتسكع Idle1-1 Idle1-2 Idle1-3 Idle1-4 Idle1-5 idle1-6 Idle2-1 Idle2-2 Idle2-3 بتثائب Idle3-2 بتظاهر بالنوم Idle3-1 ينظر للأسفل Lookdown ينظر للأسفل و يغمز Lookdownblink الحالة الحيادية قبل النظر للأسفل Lookdownreturn ينظر للأعلى Lookup ينظر للأعلىو يغمز Lookupblink الحالة الحيادية قبل النظر للأعلى Lookupreturn ينظر لليمين Lookright ينظر لليمين و يغمز Lookrightreturn الحالة الحيادية قبل النظر لليمين Lookrightreturn ينظر لليسار Lookleft ينظر لليسار و يغمز Lookleftblink الحالة الحيادية قبل النظر لليسار Lookleftreturn يبتهج Pleased الحالة الحيادية قبل الإبتهاج Pleasedreturn يدور بسرعة Processing الحالة الحيادية قبل الدوران Processingreturn يقرأ Read يقرأ و ينظر للأعلى Readcontinued الحالة الحيادية للقراءة Readingreturn يرتاح Resetpose يحزن Sad الحالة الحيادية قبل الحزن Sadreturn يبحث بمنظار البحثing الحالة الحيادية قبل البحث البحثingreturn يصغي Startlistening الحالة الحيادية قبل الإصغاء Startlisteningreturn يضع يده على أذنيه Stoplistening الحالة الحيادية قبل وضع يده على أذنيه Stoplisteningreturn يقترح Suggest الحالة الحيادية قبل الإقتراح Suggestreturn يندهش Surprised يفكر Think الحالة الحيادية قبل التفكير Thinkreturn يشك Uncertain الحالة الحيادية قبل الشك Uncertainreturn يلوح Wave الحالة الحيادية قبل التلويح Wavereturn يكتب Write يكتب و ينظر للأعلى Writecontinued الحالة الحيادية قبل الكتابة Writereturn

هذا رابط لمثال برنامج أذكار بواسطة مساعد الاوفس
إضغط هنا

مشكوووووووووووووووووووووووووووووور والله يعطيك العافية