بناء شخصية تتحرك وتتكلم

يمكنك استخدام Microsoft Office Assistance او مساعد الاوفيس و ستجد احدى المشاركات في المنتدى تشرح استخدامه استخدم خاصية البحث و ستجده ان شاء الله

هاهو المثال

/index.ph...%C7%E6%DD%ED%D3

هل تريد تصميم شخصية كاملة ؟؟ و تصميم حركاتها ؟؟

إذا كنت تريد إنشاء شخصية 3D معقدة فأنصحك باستخدام Direct3D

و أما إن أردت شخصية بسيطة فاستخدم Microsoft Agent Control و لكن الشخصيات في هذه الحالة تكون بسيطة جداً

و إليك الطريقة

أنشئ مشروع جديد

افتح نافذة Components و ذلك باختيار Project ==> Components... أو اضغط Ctrl & T

اختر Microsoft Agent Control 2.0 ثم ضع عنصر Microsoft Agent Control سمّه Agent1

ثم ضع الكود التالي

Dim x As IAgentCtlCharacter
Private Sub Form_Load()
Dim path
Dim file
path = App.path
If Right(path, 1) <> "\" Then path = path + "\"
file = path + "m.acs"
Agent1.Characters.Load "x", file
Set x = Agent1.Characters("x")
x.Show
x.Speak "Arab Team 2000 Forum" & vbCrLf _
& ""
End Sub

طبعاً لكل شخصية حركات خاصة بها و لكن حدث الكلام Speak فهي موجودة في معظم الشخصيات

و هذه صور لبعض العناصر عندي

ملاحظة : كل مساعد في الأوفيس يمكن استخدامه

أتمنى أن تكون قد استفدت من كل هذا الكلام

Moa

شكرا على الرد ساقوم بتجربة الاكواد ...بالنسبة للسؤال هل تريد تصميم شخصية كاملة ؟؟ و تصميم حركاتها ؟؟

انا اريد تصميم الشخصية على شكل معين وتصميم حركاتها

السلام عليكمعليكم و رحمة الله و بركاته

هذا الكود ان شاء الله يلبي طلبك

code

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Me.Hide

Agent1.Characters.Load "genie"

Agent1.Characters.Item("genie").Show

Agent1.Characters.Item("genie").GestureAt 150, 200

Agent1.Characters.Item("genie").Balloon.Style = 1

Agent1.Characters.Item("genie").Balloon.Visible = True

Agent1.Characters.Item("genie").Listen True

Agent1.Characters.Item("genie").Speak "wolcom arab team!"

Agent1.Characters.Item("genie").Think "Hmmm..."

Agent1.Characters.Item("genie").Speak "bonjour , tu va bien ,je veux te connaitre cet possible?."

Agent1.Characters.Character("genie").MoveTo 880, 490

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Item("genie").Speak "bonne journet et à bientot!"

Agent1.Characters.Character("genie").MoveTo 150, 200

Agent1.Characters.Character("genie").MoveTo 520, 100

Agent1.Characters.Character("genie").Play ("advert_1")

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Character("genie").Play ("announce")

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Character("genie").Play ("acknowledge")

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Character("genie").Play ("confused")

Agent1.Characters.Character("genie").MoveTo -20, 100

Agent1.Characters.Character("genie").Play ("congratulate")

Agent1.Characters.Character("genie").MoveTo 320, 100

Agent1.Characters.Character("genie").Play ("domagic2")

Agent1.Characters.Character("genie").MoveTo 880, 490

Agent1.Characters.Character("genie").MoveTo -20, 100

Agent1.Characters.Character("genie").Play ("explain")

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Character("genie").Play ("fart")

Agent1.Characters.Character("genie").MoveTo 320, 100

Agent1.Characters.Character("genie").Play ("getattention")

Agent1.Characters.Character("genie").Play ("getattentioncontinued")

Agent1.Characters.Character("genie").MoveTo -20, 100

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Character("genie").Play ("greet")

Agent1.Characters.Character("genie").MoveTo 320, 320

Agent1.Characters.Character("genie").Play ("hide")

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Character("genie").MoveTo -20, 100

Agent1.Characters.Character("genie").Play ("movedown")

Agent1.Characters.Character("genie").Play ("moveleft")

Agent1.Characters.Character("genie").MoveTo 880, 490

Agent1.Characters.Character("genie").Play ("moveup")

Agent1.Characters.Character("genie").Play ("read")

Agent1.Characters.Item("genie").Speak "hello !"

Agent1.Characters.Character("genie").Play ("show")

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Item("genie").Speak "ok j'attent votre réponce !"

Agent1.Characters.Item("genie").Speak "alor tu ma dit oui !"

Agent1.Characters.Character("genie").MoveTo 320, 320

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Character("genie").MoveTo 520, 100

Agent1.Characters.Character("genie").Play ("show")

Agent1.Characters.Item("genie").Speak "ce logiciel est proagrammer par hicham,!"

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Item("genie").Speak "téléphone !"

Agent1.Characters.Character("genie").MoveTo -20, 100

Agent1.Characters.Item("genie").Speak "EMAIL: tigrenet2005@yahoo.fr!"

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Item("genie").Speak "alor tu va bien!"

Agent1.Characters.Item("genie").Speak "je répète hello!"

Agent1.Characters.Character("genie").Play ("write")

Agent1.Characters.Item("genie").Speak " LE 2, 5, 2005 à 22, heure, 56, minute!"

Form1.Show

End Sub

شكرا .. ارجو شرح الفكرة العامة من الكود .. حتى استوعب الفكرة

اقتباس

انا اريد تصميم الشخصية على شكل معين وتصميم حركاتها

إذاً عليك بـ Direct3D

:unsure:

Moa

Dim x As IAgentCtlCharacter
Private Sub Form_Load()
Dim path
Dim file
path = App.path
If Right(path, 1) <> "\" Then path = path + "ؤ"
file = path + "m.acs"
Agent1.Characters.Load "x", file
Set x = Agent1.Characters("x")
x.Show
x.Speak "Arab Team 2000 Forum" & vbCrLf _
& ""
End Sub

السطر 1 الإعلان عن متحوال اسمه x بنوع "شخصية المساعد"

السطر 2 تنفيذ الكود (الروتين الفرعي) عن تشغبل الفورم

السطر 3 الإعلان عن متغير باسم path

السطر 4 الإعلان عن متغير باسم file

السطر 5 المتغير path قيمته مثل قيمة مسار البرنامج

السطر 6 لوضع إشارة \

السطر 7 و ضع مكان وجود المساعد و هنا مسار البرنامج + m.acs

السطر 8 تحميل المساعد

السطر 9 إسناد المتغير x إلى المساعد

السطر 10 إظهار المساعد

السطر 11 ليقول المساعد Arab Team 2000 Forum

السطر 12 ليقول المساعد

السطر 13 إنهاء الروتين الفرعي

Moa

هذا نموذج يشرح لك كيف تبرمج حركات المساعد

عنجد شكرا شكرا شكرا .. سأجرب الاكواد وان شاء الله يمشي الحال

اكرر شكري .. ولكن اريد ان اعرف معنى العام مثلا

Agent1.Characters.Item("genie").Speak "wolcom arab team!"

Agent1.Characters.Item("genie").Think "Hmmm..."

Agent1.Characters.Item("genie").Speak "bonjour , tu va bien ,je veux te connaitre cet possible?."

Agent1.Characters.Character("genie").MoveTo 880, 49

هذا الكود يتم تكراره واعتقد لو فهمته ممكن استفيد اكتر .. بعرف اني تعبتكم بس .. ان شاء الله تاخدوا الاجر

شكرا لك اخي الكريم

السطر الاول هو استدعاء المساعد الذي اسمه "genie" لكي يتكلم ما تكتبه مثلا "welcom"

وفي اثاني هي الحركة التي سيقوم بفعلها

و الاخير هي الموقع الذي سوف يذهب اليه على صطح المكتب movie to 880 ,49 هذا تغيره انت كما تشاء

و السلام

شكرا لك ما هي Characters الثانية و ماهي .Item .... معلش لاني حناقش في تسليم المشروع ويجب ان اعرف الدلالة لكل كلمة .. يا رب ما تمل من اسئلتي :(

نسيت .. ما معنى

GestureAt 150 و

LE 2, 5, 2005 à 22, heure, 56, minute و

ce logiciel est proagrammer par hicham :^)

اهلا بكم جميعا يا اخوان

لي استفسار بسيط اتمني ان تقوموا بالاجابة عليه

هل رأي احد منكم برنامج

virtual girl

غرضي من السؤال هو معرفة الكيفية التي تم بها

برمجة هذا البرنامج و ايضا كيف تم عمل هذه الشخصية

التي تبدو ثلاثية الابعاد

و التي تتحرك علي الشاشة في اي اتجاه و باي شكل

و هل استطيع استخدام هذه الشخصية مرة اخري

اذا كان لدي هذه البرنامج

مع العلم اني لا اقصد الاشارة الي

microsoft agent character

فهو معلوم للجميع والكل سمع به ويعرف طريقةاستخدامه

و هل يمكن عمل ذلك باستخدام

visual basic 6

ولكم جزيل الشكر

الأستاذ لبيب

يرجى عدم تكرار نفس السؤال فقد وضعت هذا السؤال في نفس الوقت الذي فتحت فيه الموضوع "طلب عاجل , كيف يمكنني استخدام شخصية ثلاثية الابعاد"

يا جماعة أنا ماعدنيش على الجهاز إلا شخصية واحدة

وهي الحكيم مرلين

إذا ممكن حدد عنده شخصيات أخرى يضعهم لنا

لأن الكود

Agent1.Characters.Item("genie").Speak "wolcom arab team!"
Agent1.Characters.Item("genie").Think "Hmmm..."
Agent1.Characters.Item("genie").Speak "bonjour , tu va bien ,je veux te connaitre cet possible?."
Agent1.Characters.Character("genie").MoveTo 880, 49

لا يعمل وتظهر لي الرسالة المرفقة

شكرا للجميع على الرد .. افدتوني بشكل كبير جدا .. ان شاء الله تكون في ميزان حسناتكم جميعا كصدقة جارية

و أنا ماحدش رد علي ليييييييييييييييييه ؟ ؟ :angry: <_<

مفيش رد

طيب حد يشرح لي سبب الرسالة التي تظهر لي يمكن أنا مخطئ

emi كتب:

مرحبا ... اريد ان اعمل لبرنامجي شخصية تشرح الاقسام وتتحرك وتتحدث .. وان يقوم بتغير حركته مثل ان يمسك الكتاب ثم يعمل حركة تدل انه يفكر مثلا .. اريد ان اعرف كيف اقوم بعملها وكيف اصاحبها بالصوت ... ارجو المساعدة

←

اقتباس

اهلا بكم جميعا يا اخوان

لي استفسار بسيط اتمني ان تقوموا بالاجابة عليه

هل رأي احد منكم برنامج

virtual girl

غرضي من السؤال هو معرفة الكيفية التي تم بها

برمجة هذا البرنامج و ايضا كيف تم عمل هذه الشخصية

التي تبدو ثلاثية الابعاد

و التي تتحرك علي الشاشة في اي اتجاه و باي شكل

و هل استطيع استخدام هذه الشخصية مرة اخري

اذا كان لدي هذه البرنامج

مع العلم اني لا اقصد الاشارة الي

microsoft agent character

فهو معلوم للجميع والكل سمع به ويعرف طريقةاستخدامه

و هل يمكن عمل ذلك باستخدام

visual basic 6

لدي تعليق

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

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

و في الحقيقة هي ليست 3d هي مسطحة و بل صوره ببعدين و لكن تصنيعها هو 3d

---

الفكره هي انهم متوقعين عدد كبير من التوقعات و يرفقوا كل توقع بحدث ما مع الصوت

---

COMFORT كتب:

يا جماعة أنا ماعدنيش على الجهاز إلا شخصية واحدة

وهي الحكيم مرلين

إذا ممكن حدد عنده شخصيات أخرى يضعهم لنا 

لأن الكود

Agent1.Characters.Item("genie").Speak "wolcom arab team!"
Agent1.Characters.Item("genie").Think "Hmmm..."
Agent1.Characters.Item("genie").Speak "bonjour , tu va bien ,je veux te connaitre cet possible?."
Agent1.Characters.Character("genie").MoveTo 880, 49

لا يعمل  وتظهر لي الرسالة المرفقة

←

-----

من باب المساعده

هل جربت تحميل البرنامج من جديد و تحميل جميع المتفرقات او الادوات

لا أستطيع القول أكثر من هذا

مرحبا .. gameman ما هو رايك .. هل تقترح عدم استخدام شخصيات الاوفيس .. وان اقوم بتصميم شخصية بنفسي ؟

اقتباس

من باب المساعده

هل جربت تحميل البرنامج من جديد و تحميل جميع المتفرقات او الادوات

لا أستطيع القول أكثر من هذا

أي برنامج أخي الكريم