Aboud Aboud
07-17-2007, 03:42 PM
أنا حبيت اكتب لكم هذا الموضوع لكي تعم الفائدة وهذا العمل اجتهاد شخصي
\\
\\
\----\
\--\
\\
الاّن نبدأ الدرس
أولا أنت بحاجة لأداة Microsoft Agent Control
و لكي تظهر الأدوات
انقر على : Ctrl + t
اختر Microsoft Agent Control
ضعها الآن على النافذة .
ثانيا أنت بحاجة الى مساعد اوفيس مثل Merlin.acs و Genie.acs و Peedy.acs
وان لم تكن لديك فيجب عليك تحميلها وهذا موقع اذا اردت تحميلها
http://msagentworld.tripod.com/characters.htm
الآن ضع هذا الكود في التصريحات : General
Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"
عرفنا هنا بالمتغيّر merlin بأنه المساعد الذي سنستخدمه
والآن ضع هذا الكود في حدث Form_Load
هذا السطر من أجل الأخطاء التي بالامكان أن تحدث
On Error Resume Next
Agent1.Characters.Load "merlin.acs", DATAPATH
وفي هذا السطر نعرّف الأداة التي وضعناها ( Agent ) بأنها تشغل المتغيّر merlin
Set merlin = Agent1.Characters("merlin.acs")
merlinID = &H409
وفي هذا السطر نشغّل المتغيّر merlin
merlin.Show
وفي هذا السطر نقوم بنقله الى المنطقة 350 ,350 من الشّاشة و الرقم 5000 دال على السرعة
merlin.MoveTo 350, 350, (5000)
بامكانك الان تشغيل النموذج
سترى المساعد ظهر وسترى أيضاً أنه أنتفل الى المنطقة 350, 350 وسيكون بطيْ لأننا أعطيناه رقم كبير 5000 .
-------------------------------------------------------------------
هناك حركان يستطيع المساعد القيام بها . سوف أضعها في المشروع المرفق (اللينك) ........... لكن نشرح منها:
الأمر merlin.show لإظهار المساعد
الأمر merlin.hide لإخفاء المساعد
الأمر Merlin.speak لقراءة المساعد لكلام وهناك حالتين
لو كان لديك Text1 وتريد أن يقرأه فأنك تعطي الأمر هكذا
merlin.speak text1.text
ولو كنت تريد أن يقرأ جملة ما مثل Hi how are you فأنك تعطي الأمر هكذا
merlin.Speak "Hi how are you"
وهناك الامر merlin.play وهو يحتوي على معظم الأوامر ويأتي على صور كثيرة مثل:
للكتابة
merlin.Play "Write"
والقراءة
merlin.Play "read"
والترحيب
merlin.Play "Greet"
وهنالك الكثيييييييييير داخل الملف المرفق (اللينك)
-------------------------------------------------------------------
ملاحظة هامة
اذا أردت أن تطول مدة الحركة تكتب الى جانب الكود continued
أي اذا أردته أن يقرأ طويلا تكتب
merlin.Play "Readcontinued"
-----------
اذا أردت أن تقصر مدة الحركة تكتب الى جانب الكود return
أي اذا أردته أن يقرأ مدة قصيرة تكتب
merlin.Play "Readreturn"
-----------
إن continued و return لا يعملان مع كل الحركات لكن أغلبها
-----------
وهذا هو اللينك وحجمه صغير وهو يحتوي على مشروعين الأول للمبتدئين والثاني للموسطين
http://www.zshare.net/download/272741101f3380
أرجوا أن تكونوا أستفدتم.............
ردودكم تشجعني.............
:smailes111: :smailes111: :smailes111: :smailes111:
\\
\\
\----\
\--\
\\
الاّن نبدأ الدرس
أولا أنت بحاجة لأداة Microsoft Agent Control
و لكي تظهر الأدوات
انقر على : Ctrl + t
اختر Microsoft Agent Control
ضعها الآن على النافذة .
ثانيا أنت بحاجة الى مساعد اوفيس مثل Merlin.acs و Genie.acs و Peedy.acs
وان لم تكن لديك فيجب عليك تحميلها وهذا موقع اذا اردت تحميلها
http://msagentworld.tripod.com/characters.htm
الآن ضع هذا الكود في التصريحات : General
Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"
عرفنا هنا بالمتغيّر merlin بأنه المساعد الذي سنستخدمه
والآن ضع هذا الكود في حدث Form_Load
هذا السطر من أجل الأخطاء التي بالامكان أن تحدث
On Error Resume Next
Agent1.Characters.Load "merlin.acs", DATAPATH
وفي هذا السطر نعرّف الأداة التي وضعناها ( Agent ) بأنها تشغل المتغيّر merlin
Set merlin = Agent1.Characters("merlin.acs")
merlinID = &H409
وفي هذا السطر نشغّل المتغيّر merlin
merlin.Show
وفي هذا السطر نقوم بنقله الى المنطقة 350 ,350 من الشّاشة و الرقم 5000 دال على السرعة
merlin.MoveTo 350, 350, (5000)
بامكانك الان تشغيل النموذج
سترى المساعد ظهر وسترى أيضاً أنه أنتفل الى المنطقة 350, 350 وسيكون بطيْ لأننا أعطيناه رقم كبير 5000 .
-------------------------------------------------------------------
هناك حركان يستطيع المساعد القيام بها . سوف أضعها في المشروع المرفق (اللينك) ........... لكن نشرح منها:
الأمر merlin.show لإظهار المساعد
الأمر merlin.hide لإخفاء المساعد
الأمر Merlin.speak لقراءة المساعد لكلام وهناك حالتين
لو كان لديك Text1 وتريد أن يقرأه فأنك تعطي الأمر هكذا
merlin.speak text1.text
ولو كنت تريد أن يقرأ جملة ما مثل Hi how are you فأنك تعطي الأمر هكذا
merlin.Speak "Hi how are you"
وهناك الامر merlin.play وهو يحتوي على معظم الأوامر ويأتي على صور كثيرة مثل:
للكتابة
merlin.Play "Write"
والقراءة
merlin.Play "read"
والترحيب
merlin.Play "Greet"
وهنالك الكثيييييييييير داخل الملف المرفق (اللينك)
-------------------------------------------------------------------
ملاحظة هامة
اذا أردت أن تطول مدة الحركة تكتب الى جانب الكود continued
أي اذا أردته أن يقرأ طويلا تكتب
merlin.Play "Readcontinued"
-----------
اذا أردت أن تقصر مدة الحركة تكتب الى جانب الكود return
أي اذا أردته أن يقرأ مدة قصيرة تكتب
merlin.Play "Readreturn"
-----------
إن continued و return لا يعملان مع كل الحركات لكن أغلبها
-----------
وهذا هو اللينك وحجمه صغير وهو يحتوي على مشروعين الأول للمبتدئين والثاني للموسطين
http://www.zshare.net/download/272741101f3380
أرجوا أن تكونوا أستفدتم.............
ردودكم تشجعني.............
:smailes111: :smailes111: :smailes111: :smailes111: