IBRAHIM_A
02-09-2007, 11:03 AM
http://www.servamega.com/img/eff67556382c5abef634289b639ffc42/10rk1.jpg
الســــــــــلام عليكم اخواني الكرام اعضاء المنتدى المتميز برامج نت
اقدم فى هذا الموضوع بعض الاكواد والادوات والبرامج المساعده لكيفية استخدام "Microsoft Agent" فى برامجك
http://www.servamega.com/img/db9e85f05f02aa4a34cdcb850b40667b/msagent.gif
بالطبع كلنا يعرف الاداة المساعده فى برنامج اوفيس
http://www.servamega.com/img/fdcd93aa7e5ab82cdd40dcc9a1cf815e/11.JPG
وتفاعلها معك طوال البرنامج بالحركات وألتنبيهات وغيرها
وسوف نتعرف على كيفية تركيب هذه الأدوات فى برنامجك الخاص فى الفيجوال بيسك
طريقة إضافة أداة مساعد اوفيس فى برنامجك
1-قم بتحميل برنامج : Microsoft Agent version 2.0 (http://activex.microsoft.com/activex/controls/agent2/MSagent.exe)
(395K)
2- قم بتحميل برنامج : Install the Lernout & Hauspie TruVoice,
Text-to-Speech Engine (http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe)
(1MB)
3- اضافة الاداة بعد عمل سيطب للبرنامج الاول والثانى ......الطريقه ...>>>
http://www.servamega.com/img/a7001ccfe0a94ece4e17ad6d085bd73a/ibrahim_a.jpg
اتبع ترتيب الخطوات فى الصورة
طريقة إضافة الكود لعمل الاداة فى البرنامج
1- لنفترض ان الكراكتر لمساعد اوفيس المراد استخدامه فى برنامجى هو "GENIE" وامتداد الكراكتر يكون "GENIE.ACS"
2- بعد اضافة الاداة مساعد اوفيس الى البرنامج واستخدامها فى الفورم نقوم بتعريف الاداة كالتالى :
فى (GENERAL) نضع الكود التالى :
Dim Genie As IAgentCtlCharacter
فى الفورم نضع الكود التالى :
Dim FileName
FileName = App.Path
If Right(FileName, 1) <> "\" Then
FileName = FileName + "\"
End If
FileName = FileName + "genie.acs"
Agent1.Characters.Load "Genie", FileName
Set Genie = Agent1.Characters("Genie")
الأسطر الـــ 6 الأولى من الكود تقوم بتحديد مسار ملف المساعد "genie.acs" على اعتبار ان مسار الملف هو نفسه مسار البرنامج وليس كما هو المعتاد فى ملف "msagent" فى ويندوز.
السطرين الاخيرين من الكود يقومات بتحميل الاداة فى البرنامج وقت العمل لتثبيته على انه الكراكتر الذى سيتعامل معه البرنامج وتطبيق الاوامر الاخرى عليه الموجوده فى الفورم والمتعلقه بخصائص هذا الكراكتر.
3- مثال لبعض الاوامر التى يمكن تطبيقها على المساعد .
- اظهار المساعد بالضغط على احد ازرار الاوامر فى البرنامج :
Genie.Show
-إخفاء المساعد
Genie.Hide
- كود يقوم من خلاله المساعد بقراءة كلمة معينه او مجموعه من الجمل ولتكن كلمة "Welcome":
Genie.Speak "Welcome"
- ولكن ماهو الكود عندما نريد ان يقرأ المساعد الجمل المكتوبة فى تيكست معين مثلا
On Error Resume Next
Dim Text As String
Text = Text1.Text
Genie.Speak Text
السطر الاول من الكود حتى لايحدث البرنامج خطأ عند عدم وجود كلمات فى التكست المراد قرأءة كلماته .
4- هذا مثال مفتوح المصدر يمكنك الاطلاع عليه لمعرفة الاكواد الخاصه بخصائص الكراكتر مساعد اوفيس .
http://www.servamega.com/img/b5f8eae044625d72d52ba337a5c33a33/ibrahim_a2.JPG
يمكنك تحميل البرنامج من
هنــــــــــــا (http://www.zshare.net/download/microsoft-agent-rar.html)
أو
هنـــــــــــــا (http://www.badongo.com/file/2195065)
أو
هنــــــــــــــا (http://www.filefactory.com/file/8c9b24)
ملاحظة :الاكواد فى البرنامج سهله جدا ولا يزيد كل كود عن سطر تقريبا...ولكن لاتنس ان تقوم بعمل سيطب لمساعد اوفيس عن طريق البرنامجين الموجودين فى بداية الموضوع قبل تشغيل الكود ....
ملاحظة اخرى : هناك بعض الخصائص لاتعمل على غير الكراكتر الموجود وهو "" وذلك لكون كل اداة تحتوى على حركات خاصة بها .
5- الان بعد ان قمت بتشغيل البرنامج نحتاج الى شئ اخر وهو "Genie" تغيير الاصوات واللغه من مؤثرات الصوت على الكراكتر .
تأثير الاصوات وتغيير اللغة لقيام "Genie" بقراءة اللغات الاخرى
"اللغة العربيه غير موجوده للاسف "
1- هذا البرنامج يرشدك الى جميع الاكواد الخاصة بالمؤثرات الصوتية وتغيير اللغة للمساعد اوفيس بشرط ان تقوم بعمل تحميل لبرامج كل لغة اولا وسوف اقوم بارفاق ملفات كل لغة.
http://www.servamega.com/img/7976a51acc2e2c64b3be2720eb35a272/ibrahim_a3.JPG
صممت البرنامج لكى يظهر لك الكود فى التكست اسفل الفورم لكل امر تقوم به من الاوامر الموجودة فى الفورم .
يمكنك تحميل البرنامج من
هنــــــــا (http://www.badongo.com/file/2195126)
أو
هنــــــا (http://www.filefactory.com/file/8605e1)
2- بعض الأمثلة على تأثير الصوت .
- القراءة بصوت رجل فى اللغة الانجليزية :
Genie.TTSModeID = "{C5C35D60-DA44-11D1-B1F1-0000F803E456}"
- مثال لتسريع وتبطئ الصوت للمساعد :
Genie.Speak "\Spd=250\welcome to your guide to learn microsoft agent"
حيث 250 هو مقدار السرعة فى الصوت ويمكن التحكم فيها بالزيادة او النقصان.
أمثلة تغيير اللغة فى المساعد أوفيس
يجب قبل تطبيق الكود على اى لغة بعد تحميل ملفاتها التى سأرفقها بعد كل كود للغة معينة.
1- اللغة الفرنسية ...French... الكود:
Genie.TTSModeID = "{0879A4E0-A92C-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من: هنــــــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsfrf.exe) و هنـــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX040C.exe)
2- اللغة االألمانية ...German... الكود :
Genie.TTSModeID = "{3A1FB760-A92B-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من : هنـــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsged.exe) و هنــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0407.exe)
3- اللغة الايطالية ....Italian...الكود :
Genie.TTSModeID = "{7EF71700-A92D-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من : هنــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsiti.exe) و هنـــــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0410.exe)
4- اللغة الاسبانية ....Spanish...الكود :
Genie.TTSModeID = "{2CE326E0-A935-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من : هنــــــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsspe.exe) و هنــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0C0A.exe)
5- اللغة الروسية ...Russian....الكود :
Genie.TTSModeID = "{06377F80-D48E-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من: هنــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsrur.exe) و هنــــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0419.exe)
6- الان بقى ان ارفق بعض الكراكتر التى يمكن استخدامها فى مساعد اوفيس
ولا ننسى ان لكل كراكتر حركاته المميزه وبالطبع جميعهم يشتركون فى كثير من الحركات .
شخصيات مساعد أوفيس "Microsoft Agent Character"
إضغط على اسم الشخصية لتحميلها
http://www.servamega.com/img/50544c148235df36a2f2b7c751317d60/genie2.gif
Character: Genie (http://download.microsoft.com/download/0/0/c/00cde5f8-321d-4325-baae-eb27f1bde85f/genie.exe)
http://www.servamega.com/img/fb73dfa94c0c2283e8b7255c5fccd376/merlin2.gif
Character: Merlin the Wizard (http://download.microsoft.com/download/1/d/b/1dbee406-9b5f-48c5-b901-dd1a3f3c4669/merlin.exe)
http://www.servamega.com/img/252097249239dce721cebe7f6ec1a8f3/peedy2.gif
Character: Peedy the Parrot (http://download.microsoft.com/download/a/f/5/af572f68-b83e-4e2c-8b0f-fd5fadf588e7/peedy.exe)
http://www.servamega.com/img/e22225deb87a5907e23ed5659af9936a/robby2.gif
Character: Robby the Robot (http://download.microsoft.com/download/2/b/9/2b904bbb-c0b1-4840-b332-ba0615d1041e/robby.exe)
http://www.servamega.com/img/a0c6c2106ebd396b71512e34daf59580/debbie.gif
Character: Debbie (http://www.bellcraft.com/chars/42/debbie.exe)
http://www.servamega.com/img/c8dcc0b2ee348651a42cc91b61c55fbd/oscar.gif
Character: Oscar the Cat (http://www.bellcraft.com/chars/42/oscar.exe)
http://www.servamega.com/img/77fc99d0da8f29d5daf74a7dd54c4235/felini.gif
Character: felini (http://www.bellcraft.com/chars/42/felini.exe)
http://www.servamega.com/img/9a074adb740007ed0d010a8306901784/check.gif
Character: CheckMate (http://www.msagentring.org/chars/47/check.exe)
http://www.servamega.com/img/8f54d82611c1dd44099c702f0b9de783/blanche.gif
Character: blanche (http://www.msagentring.org/chars/47/blanche.exe)
http://www.servamega.com/img/66786cfd43af541de2f77ae69c284f5f/james.gif
Character: james (http://www.msagentring.org/chars/47/james.exe)
http://www.servamega.com/img/75d8dad90c5c71e9c8900d69dbb3b686/vrgirl.gif
Character: VRGirl (http://www.msagentring.org/chars/47/vrgirl.exe)
http://www.servamega.com/img/0d70b9274b7432249a14bcfce0879ec4/santa.gif
Character: santa (http://www.msagentring.org/chars/47/santa.exe)
ملاحظة : بعد تحميل ملف الشخصيات وتشغيله على جهازك ستجد الشخصيات فى ملف
ويندوز تحت اسم "msagent" ثم داخل مجدل "chars"
اتمنى ان يكون اول موضوع لى فى قسم البرمجه قد اعجبكم
ارجوا التنبيه لأى خطأ فى البرامج او الاكواد
الســــــــــــلام عليــــــــــكم ورحمة الله وبركاته
الســــــــــلام عليكم اخواني الكرام اعضاء المنتدى المتميز برامج نت
اقدم فى هذا الموضوع بعض الاكواد والادوات والبرامج المساعده لكيفية استخدام "Microsoft Agent" فى برامجك
http://www.servamega.com/img/db9e85f05f02aa4a34cdcb850b40667b/msagent.gif
بالطبع كلنا يعرف الاداة المساعده فى برنامج اوفيس
http://www.servamega.com/img/fdcd93aa7e5ab82cdd40dcc9a1cf815e/11.JPG
وتفاعلها معك طوال البرنامج بالحركات وألتنبيهات وغيرها
وسوف نتعرف على كيفية تركيب هذه الأدوات فى برنامجك الخاص فى الفيجوال بيسك
طريقة إضافة أداة مساعد اوفيس فى برنامجك
1-قم بتحميل برنامج : Microsoft Agent version 2.0 (http://activex.microsoft.com/activex/controls/agent2/MSagent.exe)
(395K)
2- قم بتحميل برنامج : Install the Lernout & Hauspie TruVoice,
Text-to-Speech Engine (http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe)
(1MB)
3- اضافة الاداة بعد عمل سيطب للبرنامج الاول والثانى ......الطريقه ...>>>
http://www.servamega.com/img/a7001ccfe0a94ece4e17ad6d085bd73a/ibrahim_a.jpg
اتبع ترتيب الخطوات فى الصورة
طريقة إضافة الكود لعمل الاداة فى البرنامج
1- لنفترض ان الكراكتر لمساعد اوفيس المراد استخدامه فى برنامجى هو "GENIE" وامتداد الكراكتر يكون "GENIE.ACS"
2- بعد اضافة الاداة مساعد اوفيس الى البرنامج واستخدامها فى الفورم نقوم بتعريف الاداة كالتالى :
فى (GENERAL) نضع الكود التالى :
Dim Genie As IAgentCtlCharacter
فى الفورم نضع الكود التالى :
Dim FileName
FileName = App.Path
If Right(FileName, 1) <> "\" Then
FileName = FileName + "\"
End If
FileName = FileName + "genie.acs"
Agent1.Characters.Load "Genie", FileName
Set Genie = Agent1.Characters("Genie")
الأسطر الـــ 6 الأولى من الكود تقوم بتحديد مسار ملف المساعد "genie.acs" على اعتبار ان مسار الملف هو نفسه مسار البرنامج وليس كما هو المعتاد فى ملف "msagent" فى ويندوز.
السطرين الاخيرين من الكود يقومات بتحميل الاداة فى البرنامج وقت العمل لتثبيته على انه الكراكتر الذى سيتعامل معه البرنامج وتطبيق الاوامر الاخرى عليه الموجوده فى الفورم والمتعلقه بخصائص هذا الكراكتر.
3- مثال لبعض الاوامر التى يمكن تطبيقها على المساعد .
- اظهار المساعد بالضغط على احد ازرار الاوامر فى البرنامج :
Genie.Show
-إخفاء المساعد
Genie.Hide
- كود يقوم من خلاله المساعد بقراءة كلمة معينه او مجموعه من الجمل ولتكن كلمة "Welcome":
Genie.Speak "Welcome"
- ولكن ماهو الكود عندما نريد ان يقرأ المساعد الجمل المكتوبة فى تيكست معين مثلا
On Error Resume Next
Dim Text As String
Text = Text1.Text
Genie.Speak Text
السطر الاول من الكود حتى لايحدث البرنامج خطأ عند عدم وجود كلمات فى التكست المراد قرأءة كلماته .
4- هذا مثال مفتوح المصدر يمكنك الاطلاع عليه لمعرفة الاكواد الخاصه بخصائص الكراكتر مساعد اوفيس .
http://www.servamega.com/img/b5f8eae044625d72d52ba337a5c33a33/ibrahim_a2.JPG
يمكنك تحميل البرنامج من
هنــــــــــــا (http://www.zshare.net/download/microsoft-agent-rar.html)
أو
هنـــــــــــــا (http://www.badongo.com/file/2195065)
أو
هنــــــــــــــا (http://www.filefactory.com/file/8c9b24)
ملاحظة :الاكواد فى البرنامج سهله جدا ولا يزيد كل كود عن سطر تقريبا...ولكن لاتنس ان تقوم بعمل سيطب لمساعد اوفيس عن طريق البرنامجين الموجودين فى بداية الموضوع قبل تشغيل الكود ....
ملاحظة اخرى : هناك بعض الخصائص لاتعمل على غير الكراكتر الموجود وهو "" وذلك لكون كل اداة تحتوى على حركات خاصة بها .
5- الان بعد ان قمت بتشغيل البرنامج نحتاج الى شئ اخر وهو "Genie" تغيير الاصوات واللغه من مؤثرات الصوت على الكراكتر .
تأثير الاصوات وتغيير اللغة لقيام "Genie" بقراءة اللغات الاخرى
"اللغة العربيه غير موجوده للاسف "
1- هذا البرنامج يرشدك الى جميع الاكواد الخاصة بالمؤثرات الصوتية وتغيير اللغة للمساعد اوفيس بشرط ان تقوم بعمل تحميل لبرامج كل لغة اولا وسوف اقوم بارفاق ملفات كل لغة.
http://www.servamega.com/img/7976a51acc2e2c64b3be2720eb35a272/ibrahim_a3.JPG
صممت البرنامج لكى يظهر لك الكود فى التكست اسفل الفورم لكل امر تقوم به من الاوامر الموجودة فى الفورم .
يمكنك تحميل البرنامج من
هنــــــــا (http://www.badongo.com/file/2195126)
أو
هنــــــا (http://www.filefactory.com/file/8605e1)
2- بعض الأمثلة على تأثير الصوت .
- القراءة بصوت رجل فى اللغة الانجليزية :
Genie.TTSModeID = "{C5C35D60-DA44-11D1-B1F1-0000F803E456}"
- مثال لتسريع وتبطئ الصوت للمساعد :
Genie.Speak "\Spd=250\welcome to your guide to learn microsoft agent"
حيث 250 هو مقدار السرعة فى الصوت ويمكن التحكم فيها بالزيادة او النقصان.
أمثلة تغيير اللغة فى المساعد أوفيس
يجب قبل تطبيق الكود على اى لغة بعد تحميل ملفاتها التى سأرفقها بعد كل كود للغة معينة.
1- اللغة الفرنسية ...French... الكود:
Genie.TTSModeID = "{0879A4E0-A92C-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من: هنــــــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsfrf.exe) و هنـــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX040C.exe)
2- اللغة االألمانية ...German... الكود :
Genie.TTSModeID = "{3A1FB760-A92B-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من : هنـــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsged.exe) و هنــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0407.exe)
3- اللغة الايطالية ....Italian...الكود :
Genie.TTSModeID = "{7EF71700-A92D-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من : هنــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsiti.exe) و هنـــــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0410.exe)
4- اللغة الاسبانية ....Spanish...الكود :
Genie.TTSModeID = "{2CE326E0-A935-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من : هنــــــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsspe.exe) و هنــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0C0A.exe)
5- اللغة الروسية ...Russian....الكود :
Genie.TTSModeID = "{06377F80-D48E-11D1-B17B-0020AFED142E}"
تحميل ملفات اللغة من: هنــــــــا (http://activex.microsoft.com/activex/controls/agent2/lhttsrur.exe) و هنــــــــا (http://activex.microsoft.com/activex/controls/agent2/AgtX0419.exe)
6- الان بقى ان ارفق بعض الكراكتر التى يمكن استخدامها فى مساعد اوفيس
ولا ننسى ان لكل كراكتر حركاته المميزه وبالطبع جميعهم يشتركون فى كثير من الحركات .
شخصيات مساعد أوفيس "Microsoft Agent Character"
إضغط على اسم الشخصية لتحميلها
http://www.servamega.com/img/50544c148235df36a2f2b7c751317d60/genie2.gif
Character: Genie (http://download.microsoft.com/download/0/0/c/00cde5f8-321d-4325-baae-eb27f1bde85f/genie.exe)
http://www.servamega.com/img/fb73dfa94c0c2283e8b7255c5fccd376/merlin2.gif
Character: Merlin the Wizard (http://download.microsoft.com/download/1/d/b/1dbee406-9b5f-48c5-b901-dd1a3f3c4669/merlin.exe)
http://www.servamega.com/img/252097249239dce721cebe7f6ec1a8f3/peedy2.gif
Character: Peedy the Parrot (http://download.microsoft.com/download/a/f/5/af572f68-b83e-4e2c-8b0f-fd5fadf588e7/peedy.exe)
http://www.servamega.com/img/e22225deb87a5907e23ed5659af9936a/robby2.gif
Character: Robby the Robot (http://download.microsoft.com/download/2/b/9/2b904bbb-c0b1-4840-b332-ba0615d1041e/robby.exe)
http://www.servamega.com/img/a0c6c2106ebd396b71512e34daf59580/debbie.gif
Character: Debbie (http://www.bellcraft.com/chars/42/debbie.exe)
http://www.servamega.com/img/c8dcc0b2ee348651a42cc91b61c55fbd/oscar.gif
Character: Oscar the Cat (http://www.bellcraft.com/chars/42/oscar.exe)
http://www.servamega.com/img/77fc99d0da8f29d5daf74a7dd54c4235/felini.gif
Character: felini (http://www.bellcraft.com/chars/42/felini.exe)
http://www.servamega.com/img/9a074adb740007ed0d010a8306901784/check.gif
Character: CheckMate (http://www.msagentring.org/chars/47/check.exe)
http://www.servamega.com/img/8f54d82611c1dd44099c702f0b9de783/blanche.gif
Character: blanche (http://www.msagentring.org/chars/47/blanche.exe)
http://www.servamega.com/img/66786cfd43af541de2f77ae69c284f5f/james.gif
Character: james (http://www.msagentring.org/chars/47/james.exe)
http://www.servamega.com/img/75d8dad90c5c71e9c8900d69dbb3b686/vrgirl.gif
Character: VRGirl (http://www.msagentring.org/chars/47/vrgirl.exe)
http://www.servamega.com/img/0d70b9274b7432249a14bcfce0879ec4/santa.gif
Character: santa (http://www.msagentring.org/chars/47/santa.exe)
ملاحظة : بعد تحميل ملف الشخصيات وتشغيله على جهازك ستجد الشخصيات فى ملف
ويندوز تحت اسم "msagent" ثم داخل مجدل "chars"
اتمنى ان يكون اول موضوع لى فى قسم البرمجه قد اعجبكم
ارجوا التنبيه لأى خطأ فى البرامج او الاكواد
الســــــــــــلام عليــــــــــكم ورحمة الله وبركاته