تعلم إضافة مساعد أوفس إلى برنامجك -$-_LoVeR_-$- بارك الله فيك

رمز برمجي:
Dim x As IAgentCtlCharacter



وهنا اختصرنا الجملة السابقة ب x حتى لا نطر لكتابتها كل مرة بل نكتفي بالحرف X


ضع هذا الكود في حدث تحميل الفورم





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

رمز برمجي:
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 List1_Click()
x.Stop
x.Play List1.Text
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

أريده ان يتحرك لموقع معين من الشاشة بإحداثيات x,y



رمز برمجي:
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
ينبه ********************
الحالة الحيادية قبل التنبيه ********************return
يعلن 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

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