المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الدورة الإحترافية في صناعة الأسطوانات التجميعية (من الالف الى الياء)



mohajer2allah
10-09-2010, 12:01 AM
http://ia341007.us.archive.org/3/items/ya3qoob-26-1-2008/rabania.com.gif
http://www.al3malka.com/upload/uploads/images/al3malka-172ffe479b.gif

إخواني أعضاء منتدى فرسان السنة


يسرني أن اقدم لكم هذه السلسلة من الدروس وهذه الدورة لإحتراف برنامج Autoplay media studio
البرنامج الشهير والإحترافي والأول في مجال صناعة الأسطوانات ذاتية التشغيل والأسطوانات التجميعية
وسأحاول إن شاء الله أن أتطرق إلى كل عنصر من عناصر هذا البرنامج على حدى

وللامانه هذا الشرح منقول ومقدم من الاخ karim_dz

وتابعوا معنا هذا الشرح القيم

لا تنسونا من صالح دعائكم

http://i165.photobucket.com/albums/u63/karim_dz2/014.gif

mohajer2allah
10-09-2010, 12:17 AM
شرح عمل تجميعة All In One بنفسك عليها صورك و برامجك
و زر لزيارة المنتدى ببرنامج Autoplay Media Studio 5.0 Pro.. الى آخره ..
(الشرح للنسخة الخامسة وهو لا يختلف كثيرا عن النسخة السادسة)


http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


http://i165.photobucket.com/albums/u63/karim_dz2/2-1.jpg

http://i165.photobucket.com/albums/u63/karim_dz2/3-1.jpg

http://i165.photobucket.com/albums/u63/karim_dz2/4-1.jpg

http://i165.photobucket.com/albums/u63/karim_dz2/5-1.jpg

http://img412.imageshack.us/img412/210/30942668bw2.jpg

http://img412.imageshack.us/img412/1411/32631656uf2.jpg

http://i165.photobucket.com/albums/u63/karim_dz2/8-1.jpg

http://img412.imageshack.us/img412/2452/10va9.jpg

http://img92.imageshack.us/img92/3241/14568753jk6.jpg

mohajer2allah
10-09-2010, 12:20 AM
كيفية عمل خلفية صوتية والتحكم فيها بزر
Play/Pause

http://i165.photobucket.com/albums/u63/karim_dz2/014.gif




سنتعلم في الدرس إن شاء الله كيفية عمل خلفية صوتية للأسطوانة بطريقة سهلة جدا بدون التعامل مع الأكواد والسكريبتات، فقط نقوم بفتح أي مشروع نريد عمل خلفية صوتية ثم نذهب إلى الأمر Project ونختار Audio كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/image001-2.jpg

تطلع لنا نافدة الـ Audio Setting ونضغط على Add
http://i165.photobucket.com/albums/u63/karim_dz2/image002-2.jpg

نقوم باختيار أي ملف صوتي من الجهاز وللعلم فإن الصيغ التي يقبلها البرنامج مبدئيا هي WAV و OGG إلا أنه يمكن إضافة صيغ أخرى كصيغة MP3 باستعمال الباتش FixSound الموجود في اسطوانة البرنامج وفي مشاركة كيفية التعامل مع الصيغ التي لا يقبلها البرنامج.
http://i165.photobucket.com/albums/u63/karim_dz2/image003-2.jpg


تم إدراج الصوت ويمكن إضافة مجموعة من الصوتيات كخلفية وبنفس الطريقة
http://i165.photobucket.com/albums/u63/karim_dz2/image004-1.jpg


بعد الضغط على OK نرجع للزر الذي نريد أن نجعله Play-Pause ونضغط عليه بيمين الماوس ونختار خصائص
http://i165.photobucket.com/albums/u63/karim_dz2/image005-1.jpg

نختار من خصائص الزر خاصية الـ Quick Action
ثم نختار الأمر Play/Pause background music
http://i165.photobucket.com/albums/u63/karim_dz2/image006-1.jpg


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



وإلى اللقاء في درس آخر

mohajer2allah
10-09-2010, 12:25 AM
كيفية عمل زر ببرنامج boton maker المرفق مع برنامج autoplay media

قم بإنشاء ثلاث أزرار مختلفة ببرنامج الفوتوشوب مثل هذه الأزرار الموجودة في هذا الدرس

http://i134.photobucket.com/albums/q117/abed_44/image011.jpg

ثم قم بفتح برنامج boton maker من القائمة tools من برنامج APMS وأعمل كم يلي

مشاهدة وتحميل الشرح من هنـــــــــا (http://i76.photobucket.com/albums/j5/karim_dz/Makeboton.swf)

وإن شاء الله فيه المزيد فيما بعد

mohajer2allah
10-09-2010, 12:28 AM
كيفية حماية حقوق المنتدى وحقوقك في التصميم

كما هو الشأن في جميع المنتديات تجد صاحب التجميعة يقوم بوضع إسمه أو منتداه أو موقعه ليظهر بمجرد تشغيل التجميعة بدل loading وبالتالي يقوم بحماية حقوقه في التصميم وحقوق موقعه ونحن إن شاء الله يكون إسمنا ومنتدانا بمجرد تشغيل التجميعة

لفعل ذلك قم بما يلي:

http://i134.photobucket.com/albums/q117/abed_44/image005.gif


=============


طريقة ثانية لحماية حقوق التصميم

حماية حقوقنا عند الخروج من التجميعة

قم بالضغط مرتين على صفحة المشروع
أو بيمين الماوس واختر خصائص
إختر الأمر سكريبت ثم On Close
كما في الصورة

http://i134.photobucket.com/albums/q117/abed_44/image006.jpg


ثم إختر Dialog

http://i134.photobucket.com/albums/q117/abed_44/image007.jpg

واكتب الرسالة التي تريد

http://i134.photobucket.com/albums/q117/abed_44/image008.jpg

قم بمعاينة المشروع واخرج منه تري الرسالة التالية
http://i134.photobucket.com/albums/q117/abed_44/image009.jpg

mohajer2allah
10-09-2010, 12:36 AM
شرح كيفية عمل ماسك mask للتجميعة

قم بفتح الصورة التي تريد عمل لها ماسك في برنامج الفوتوشوب
وقم بتحديد الجزء غير المرغوب فيه كم افي الصورة
http://i76.photobucket.com/albums/j5/karim_dz/1-1.jpg

بعد تحديد الجزء غير المرغوب فيه قم بعكس التحديد
كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/2-1.jpg

قم بفتح مشروع جديد في الفوتوشوب بنفس المقاس للصورة
وبخلفية سوداء واعمل نسخ لما قمت بتحديده مسبقا
والصق التحديد في الملف الجديد
http://i76.photobucket.com/albums/j5/karim_dz/3-1.jpg

نقوم بتحديد ما تم نسخه ثم نعمل fill باللون الأبيض
http://i76.photobucket.com/albums/j5/karim_dz/4-1.jpg

ها هو شكل الماسك وقم بحفظه بصيغة png
http://i76.photobucket.com/albums/j5/karim_dz/5-1.jpg

إلى هنا إنتهى شرح كيفية صنع الماسك لنتعرف كيفية التعامل معه في التجميعة

قم بفتح مشروع في برنامج الأوت بلاي ميديا ستوديو وضع الخلفية الأولى كما ترى في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/6.jpg

ونقوم بإدراج الماسك كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/7.jpg

لاحظ كيف تحول شكل شكل التجميعة
http://i76.photobucket.com/albums/j5/karim_dz/8.jpg

وأخيرا قم بالمعاينة بالضغط على f5 والنتيجة
http://i76.photobucket.com/albums/j5/karim_dz/9.jpg

mohajer2allah
10-09-2010, 12:40 AM
كيفية حماية تشغيل التجميعة بكلمة سر

http://i76.photobucket.com/albums/j5/karim_dz/image001.gif

كود:
-- the 'correct' password real_password = "password"; -- prompt the user to enter a password user_password = Dialog.PasswordInput("Password", "Please enter the password: ", MB_ICONQUESTION); -- compare the user's password to the 'correct' password. -- If the user supplies the wrong password, exit the program. if real_password ~= user_password then Application.Exit(); end
أما إذا أردت إدراج مجموعة من كلمات السر قم بوضع الكود التالي

كود:
--assume the user enters a bad password correct_password = false; -- the 'correct' password real_passwords = {"password", "password2", "3rdPassword"}; -- prompt the user to enter a password user_password = Dialog.PasswordInput("Password", "Please enter the password: ", MB_ICONQUESTION); -- compare the user's password to the 'correct' password. for j in real_passwords do if real_passwords[j] == user_password then correct_password = true; end end --if the password was bad, exit if not correct_password then Application.Exit(); end
http://i76.photobucket.com/albums/j5/karim_dz/image002.gif

mohajer2allah
10-09-2010, 12:44 AM
كيفية عمل رسالة
" هل أنت متأكد من الخروج من التجميعة "
عند الضغط على exit

قم بفتح المشروع الذي تريد

إذهب إلى الأمر project من شريط القوائم واختر الأمر global functions

كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/image003.jpg

ثم قم بنسخ هذا الكود
كود:
function QueryAllowProjectClose() --this function will be called when the program is exiting confirmation = Dialog.Message("Are you sure?", "Are you sure that you want to exit?", MB_YESNO, MB_ICONEXCLAMATION, MB_DEFBUTTON1); if confirmation == 6 then -- The yes button was pressed, allow program to close (return true) return true; else -- The yes button was NOT pressed, do NOT allow the program to close (Return false) return false; end end
http://i76.photobucket.com/albums/j5/karim_dz/image004.gif

mohajer2allah
10-09-2010, 12:50 AM
(((إدراج التوقيت الحالـــي للمشروع )))
من بين الخيارات المتوفرة في البرنامج إمكانية إدراج التوقيت الحالي في الأسطوانة دون الرجوع إلى ساعة الحاسب قد تظهر في أي جانب من جوتنب الأسطوانة والطريقة سهلة جدا فقط تابع هذا الشرح.


قم بإدراج New Label كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image001-3.jpg

وقم بالضغط مرتين عليه وقم وضع هذه الكلمة Label_Time كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image002-3.jpg

نقوم بالضغط مرتين على صفحة العمل أو إضغط بيمين الماوس واختر خصائص
http://i127.photobucket.com/albums/p122/veto44/image003-3.jpg


وتطلع لنا خصائص الصفحة

إذهب إلى ****** ثم اختر on show وقم بلصق هذا الكود كما ترى في الصورة

كود:
sPCtime = System.GetTime(TIME_FMT_MIL) Label.Set****("Label_Time", sPCtime) Page.StartTimer(1000);
http://i127.photobucket.com/albums/p122/veto44/image004-3.jpg


ثم نذهب إلى الأمر On Timer ونلصق هذا الكود
كود:
sPCtime = System.GetTime(TIME_FMT_MIL); Label.Set****("Label_Time", sPCtime);
كما ترى في الصورة
http://i127.photobucket.com/albums/p122/veto44/image005-3.jpg



إضغط Ok ثم قم بالضغط على F5 من لوح المفاتيح لمعاينة المشروع
والنتيجة

http://i127.photobucket.com/albums/p122/veto44/image006-3.jpg

mohajer2allah
10-09-2010, 12:52 AM
(((كيفية تخصيص لكل صفحة من المشروع ماسك خاص)))



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

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



قم بفتح المشروع الذي تريد وهذا المثال موجود في المرفقات لتجربته
http://i134.photobucket.com/albums/q117/abed_44/image001-6.jpg (http://i76.photobucket.com/albums/j5/karim_dz/image001-2.jpg)

إضغط على صفحة المشروع مرتين إو إذهب إلى page1 (نختار الصفحة الأولى) وكل ما سيذكر الآن يتكرر في كل صفحة

واضغط بيمين الماوس واختر خصائص كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image002-6.jpg

إختر سكريبت (******) ثم On Show ثم Add Action
كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image003-7.jpg

نقوم بإدراج السكريبت المناسب لذلك
إختر ****** من قائمة الخيارات ثم setMask ثم Next
http://i134.photobucket.com/albums/q117/abed_44/image004-6.jpg

قم بتحديد الماسك الذي تريد إدراجه
http://i134.photobucket.com/albums/q117/abed_44/image005-6.jpg

بعد الضغط على Terminer ترجع لهذه الصورة بعد أن تم إدراج السكريبت واضغط على ok
http://i134.photobucket.com/albums/q117/abed_44/image006-6.jpg



ملاحظة: يتكرر هذا العمل مع كل صفحة من صفحات العمل أي لكل صفحة ماسك خاص حتى ولو كانت الصفحة لا تحتوي على ماسك

mohajer2allah
10-09-2010, 12:55 AM
=>((إنشاء رسالة ترحيبية لمستعمل الأسطوانة وأخرى لتوديعه))<=



قد يرغب مصمم الأسطوانة في وضع لمسات خاصة على الأسطوانة تزيدها جمالا وبهاءا بحيث تخاطب مستعملها باسمه، وذلك من خلال إدراج رسالة ترحيبية تظهر بتشغيل الأسطوانة

وهذا ما سنتطرق إليه في درس اليوم



أولا قم بفتح المشروع الملطلوب واذهب إلى الأمر project ثم اختر الأمر Actions كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image001-9.jpg



تظهر لنا نافذة Action editor ونختار On Startup وقم بنسخ هذا الكود


كود:
user = Application.LoadValue("Information", "karim_dz"); if user == "" then user = "Unknown User"; user = Dialog.Input("Information Requested", "من فضلك قم بإدخال إسمك في هذه الخانة:", "", MB_ICONQUESTION); Application.SaveValue("Information", "****", user); end Dialog.Message("Welcome", "هلا وغلا بك أخي "..user..", مرحبا بك في أسطوانتي المتواضعة");
http://i127.photobucket.com/albums/p122/veto44/image002-9.jpg

قم بمعاينة المشروع بالضغط على F5 من لوح المفاتيح والنتيجة
http://i127.photobucket.com/albums/p122/veto44/image003-9.jpg

وهذا هو الترحيب
http://i127.photobucket.com/albums/p122/veto44/image004-8.jpg

إذا كانت هذه الرسالة الترحيبية فسنتطرق إلى كيفية إعداد رسالة توديع المستعمل

وترغيبه في إنتظار الإصدارات المقبلة من الأسطوانة



نقوم بنفس عمل الرسالة الترحيبية فقط هذه المرة يكون باختيار الأمر On Shutdown ونكتب الكود التالي:

كود:Dialog.Message("Thank you", "شكرا لك أخي "..user..", أتمنى أن تكون قد أعجبتك أسطوانتي");
كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image005-8.jpg

وقم بالمعاينة
http://i127.photobucket.com/albums/p122/veto44/image006-7.jpg

mohajer2allah
10-09-2010, 01:04 AM
((( إدراج التاريخ الحالـــي للمشروع )))


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

والطريقة سهلة جدا لا تختلف عن إدراج التوقيت فقط تابع هذا الشرح.

قم بإدراج New Label كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image001-4.jpg

وقم بالضغط مرتين عليه وقم وضع هذه الكلمة txtDate كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image002-4.jpg

نقوم بالضغط مرتين على صفحة العمل أو إضغط بيمين الماوس واختر خصائص
http://i127.photobucket.com/albums/p122/veto44/image003-4.jpg


وتطلع لنا خصائص الصفحة

إذهب إلى ****** ثم اختر on show وقم بلصق هذا الكود كما ترى في الصورة
كود:
sPCdate = System.GetDate(DATE_FMT_ISO); Label.Set****("txtDate", sPCdate);
http://i127.photobucket.com/albums/p122/veto44/image004-4.jpg

قم بالضغط على F5 من لوح المفاتيح للمعاينة
http://i127.photobucket.com/albums/p122/veto44/image005-4.jpg

mohajer2allah
10-09-2010, 01:07 AM
كيفية إظهار تعليق بمجرد مرور الماوس بالزر


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

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


ولعمل ذلك قم بفتح أي مشروع وقم بإدراج زر كهذا المثال
http://i134.photobucket.com/albums/q117/abed_44/image001-2.jpg (http://i76.photobucket.com/albums/j5/karim_dz/image001-5.jpg)

نقوم بإدراج New Paragraph Objet كما ترى
http://i134.photobucket.com/albums/q117/abed_44/image002-2.jpg

نقوم بكتابة النص والتعليق الذي نريد أن نظهره كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image003-3.jpg

قد تدرج في مشروعك العديد منها وفي تلك الحالة قم بتسمية إسم paragraph بإسم زر التعليق كما ترى
http://i134.photobucket.com/albums/q117/abed_44/image004-2.jpg

قم بالضغط على الصفحة واختر خصائص أو بالضغط مرتين على المشروع أو بالضغط على Ctrl+Shift+Enter من لوح المفاتيح

وتطلع لك خصائص الصفحة والهدف من العملية هي إخفاء هذه الفقرة

وضع هذا الكود

كود:
Paragraph.SetVisible("bramjnet", false);
كما في الصورة أي قمنا بإخفاء النص في الحالة العامة لتشغيل الأسطوانة
http://i134.photobucket.com/albums/q117/abed_44/image005-2.jpg

الآن نأتي للزر الذي نريد أن يظهر العليق بمجرد المرور عليه ونضغط عليه مرتين
http://i134.photobucket.com/albums/q117/abed_44/image006-2.jpg

بعد أن نقوم بإدراج الأمر الذي يؤدي إليه الزر ونحن في هذا المثال إخترنا عمل زر يربط بمنتدانا

وذلك بإدراج هذا الكود في السكريبت ثم On click

كود:
File.OpenURL("http://www.bramjnet.com/vb3", SW_SHOWNORMAL);
ثم نذهب لبيت القصيد من هذا الدرس

نذهب إلى سكريبت ثم On Enter ونكتب هذا الكود

كود:
Paragraph.SetVisible("bramjnet", true);
http://i134.photobucket.com/albums/q117/abed_44/image007-2.jpg


ثم نذهب الآن إلى On leave ونكتب الكود

كود:
Paragraph.SetVisible("bramjnet", false);
http://i134.photobucket.com/albums/q117/abed_44/image008-2.jpg

والأن إضغط على Ok واضغط على F5 من لوح المفاتيح للمعاينة وترى النتيجة

mohajer2allah
10-09-2010, 01:10 AM
كيفية عمل شريط إعلاني يشبه شريط الأخبار


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


ولعمل ذلك قم بفتح المشروع المطلوب وقم بإدراج New Paragraph Objet بالضغط على الأيقونة المبينة في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image001-10.jpg

قم بمحو النص واختر الخط المناسب وحجمه وطول الشريط
http://i134.photobucket.com/albums/q117/abed_44/image002-10.jpg



قم بالضغط على Ctrl+Shift+Enter من لوح المفاتيح للذهاب لخصائص الصفحة

وقم ناختيار سكريبت ثم On Shaw وقم بنسخ هذا الكود

كود:
title = " أكتب النص الذي تريد هنا لكي يكون عنوان الشريط ..."; Page.StartTimer(150);
http://i134.photobucket.com/albums/q117/abed_44/image003-11.jpg

ثم نذهب إلى إلى On Timer ونضع الكود التالي


كود:
-- set "now playing" display myChar = String.Left(title, 1); title = String.Right(title, (String.Length(title)-1)); title = title..myChar; title**** = String.Left(title, 85); Paragraph.Set****("Paragraph1", title****);
كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image004-10.jpg

إضغط Ok ثم F5 لمعاينة المشورع وتلاحظ النتيجة
http://i134.photobucket.com/albums/q117/abed_44/image005-9.jpg

mohajer2allah
10-09-2010, 01:14 AM
كيفية التعامل مع الفلاشات الترحيبية مع البرنامج



من بين أهم خيارات هذا البرنامج إمكانية إدراج فلاش ترحيبي يشتغل مع تشغيل الأسطوانة حيث يمكنك صنع أجمل الفلاشات الترحيبية ببرنامج الفلاش أم إكس أو السويتش إذا كنت تملك الخبرة في ذلك


أما إذا كانت خبرتك في مجال التعامل مع البرنامجين ضعيفة يمكنك الإستعانة بأحد برامج صناعة الفلاشات الجاهزة

مثل برنامج flash effect maker أو أي برنامج آخر

والآن بعد تصميم الفلاش الترحيبي نأتي لكيفية إدراجه في المشروع وأريد أن أنوه إلى أنه توجد طريقتين للتعامل معها



الطريقة الأولي: عن طريق إدراج الفلاش خارج المشروع



قم بفتح المشروع الذي تريد واذهب إلى Project ثم Startup Movie كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image001-4.jpg

تطلع لنا هذه النافذة
http://i134.photobucket.com/albums/q117/abed_44/image002-4.jpg

1- إختار الفلاش
2- حجم نافذة العرض (ملء الشاشة)
3- مطابقة الفلاش لحجم التجميعة
4- أو اختر حجم الشاشة الذي تريد
5- حجم الفلاش
( إختر اما الحجم العادي أو مضاعفة حجم الفلاش إذا كان صغيرا)
6- مطابقة حجم الفلاش مع حجم التجميعة
7- أو اختر حجم الفلاش المناسب
8- هذا الخيار يمكن من تخطي الفلاش بمجرد الضغط على الفلاش اثناء العرض
9- وضع شريط عنوان للفلاش
10- عرض الفلاش في مربع


ثم اضغط OK بعد اختيار الفلاش المناسب
http://i134.photobucket.com/albums/q117/abed_44/image003-5.jpg

بعد إدراج الفلاش قم بالمعاينة وترى النتيجة



=====================


الطريقة الثانية: إدراج الفلاش الترحيبي داخل المشروع


قم بفتح المشروع الذي تريد
http://i134.photobucket.com/albums/q117/abed_44/image004-4.jpg (http://i76.photobucket.com/albums/j5/karim_dz/image004-7.jpg)

نقوم بإدراج الفلاش في الصفحة الأولى page1 من المشروع
http://i134.photobucket.com/albums/q117/abed_44/image005-4.jpg

بعد إدراج الفلاش والتحكم فيه داخل الصفحة نذهب إلى الصفحة page1 ونختر خصائص
http://i134.photobucket.com/albums/q117/abed_44/image006-4.jpg

و نختار سكريبت ثم OnShow ونضع هذا السكريبت

كود:
Page.StartTimer(28000);
28000 معناه 28 ثانية أي كل ثانية = 1000

http://i134.photobucket.com/albums/q117/abed_44/image007-3.jpg

http://i134.photobucket.com/albums/q117/abed_44/image008-3.jpg

بعد إدراج السكريبت في On Show نختار On Timer ونضع خيار القفز أو هذا السكريبت

كود:
Page.Jump("Page2");
http://i134.photobucket.com/albums/q117/abed_44/image009-1.jpg

قم بالضغط على F5 من لوح المفاتيح لمعاينة المشروع

mohajer2allah
10-09-2010, 01:16 AM
طريقة ثانية لعمل شريط إعلاني في الأسطوانة


قم بفتح المشروع الذي تريد واضغط على زر إدراج New input objet كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/1-3.jpg

ثم قم بإدراج النص المطلوب كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/2-3.jpg

الآن نذهب لخصائص الصفحة
http://i76.photobucket.com/albums/j5/karim_dz/image009-2.jpg

ونختار سكريبت ثم Onshow ونكتب هذا الكود

كود:
--Put this code in the On Show event for the page to start the timer and pad the **** --Adjust the time for the Timer to control how fast the **** will scroll Input.Set****("Input1", Input.Get****("Input1").." "); Page.StartTimer(170);
كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/3-3.jpg

ثم نختار سكريبت ثم On timer ونكتب هذا الكود

كود:
--Put this code in the on Timer event for the page to cause the **** to scroll ScrollInput****("Input1");
كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/4-3.jpg


الآن نذهب إلى project ثم نختار Global Function ونقوم بإدراج هذا الكود

http://i76.photobucket.com/albums/j5/karim_dz/5-2.jpg

كود:
--And here is the function that will cause it to scroll. Insert in the On Show event for the page. function ScrollInput****(sObject) str**** = Input.Get****(sObject); str**** = String.Right(str****, String.Length(str****)-1)..String.Left(str****, 1) Input.Set****(sObject, str****); end
http://i76.photobucket.com/albums/j5/karim_dz/6-1.jpg

ثم إضغط على F5 للمعاينة وترى النتيجة

mohajer2allah
10-09-2010, 01:22 AM
التعامل مع الصوتيات في البرنامج


سنتعلم اليوم إن شاء الله تعالى كيفية التعامل مع الصوتيات و عمل مشغل صوتيات خاص بك ولعمل ذلك نحتاج لمجموعة من الأزرار


كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image001-7.jpg

بعد تهيئة الأزرار المناسبة والتصميم المناسب نبدأ في عمل مشغل الصوتيات وليكن هذا التصميم
http://i127.photobucket.com/albums/p122/veto44/image002-7.jpg



نذهب لزر الإستكشاف ونضغط عليه مرتين لفتح خصائصة ثم نذهب إلى سكريبت ثم On Click

ونكتب هذا الكود
كود:
audioFile = Dialog.FileBrowse(true, "Open File", _DesktopFolder, "Audio Files (.ogg, .wav, .mp3, .ram, .raw )|*.ogg;*.wav;*.mp3;*.aif;*.aiff;*.raw|", "", "", false, true); if (audioFile[1] ~= "CANCEL") then Audio.Load(CHANNEL_NARRATION, audioFile[1], true, false); end Page.StartTimer(150);
كما في الصورة

http://i127.photobucket.com/albums/p122/veto44/image003-7.jpg

ثم نذهب لزر الإيقاف ونضغط مرتين عليه ونذهب إلى سكريبت ثم On Click ونضع هذا الكود

كود:
Audio.Stop(CHANNEL_NARRATION);
ونعمل نفس الشيء بالنسبة للتشغيل والإيقاف المؤقت

كود التشغيل

كود:
Audio.Play(CHANNEL_NARRATION);
كود الإيقاف المؤقت

كود:
Audio.Pause(CHANNEL_NARRATION);
كما ترى في هذه الصورة
http://i127.photobucket.com/albums/p122/veto44/image004-6.jpg

الآن نذهب لوضع أمر التسريع للأمام والخلف بأي مقدار تريد حيث نقوم بالضغط مرتين على زر التسريع للخلف ونختار On click

ثم نضغط على Add Action وتطلع هذه الصورة ونختار Audio ثم Audio.Seek

كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image005-6.jpg

http://i127.photobucket.com/albums/p122/veto44/image006-5.jpg

وبالتالي نحصل على هذا الكود

كود:
Audio.Seek(CHANNEL_NARRATION, SEEK_BACKWARD, 15);
بنفس الطريقة نضع أمر التسريع للأمام فبدل أن نختار التراجع للخلف نختار Seek_Forward كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image007-3.jpg

ونحصل على هذا الكود

كود:
Audio.Seek(CHANNEL_NARRATION, SEEK_FORWARD, 15);
الآن بقي علينا التحكم في الصوت ولعمل ذلك نذهب إلى زر تخفيض الصوت ونضغط عليه مرتين ونذهب إلى سكريبت ثم On click كالعادةونضع هذا الكود
كود:
vol = Audio.GetVolume(CHANNEL_NARRATION) -15; if vol < 0 then vol = 0; elseif vol > 250 then vol = 250; end Audio.SetVolume(CHANNEL_NARRATION, vol);
http://i127.photobucket.com/albums/p122/veto44/image008-2.jpg

ثم زر زيادة الصوت كما يلي:
كود:
vol = Audio.GetVolume(CHANNEL_NARRATION) + 15; if vol < 0 then vol = 0; elseif vol > 255 then vol = 255; end Audio.SetVolume(CHANNEL_NARRATION, vol);
كما في الصورة

http://i127.photobucket.com/albums/p122/veto44/image009-2.jpg

وبهذا نكون قد صنعنا مشغل ميديا خاص بنا


ويمكن وضع هذه الطريقة في أسطوانة عادية أو تجميعة وبالتالي تعطي الخيار للمستعمل أن يختار الصوتيات المفضلة في جهازه والإستماع لها أثناء تصفه للأسطوانة

mohajer2allah
10-09-2010, 01:24 AM
إضافة المؤثرات الإنتقالية بين الصفحات



قد تريد أن تضفي صبغة خاصة على مشروعك من خلال التنقل بين مختلف صفحات المشروع مما يزيد الأسطوانة بهاءا وجمالا وخاصة إذا كانت صفحات كثيرة مثل هذا المثال

http://i127.photobucket.com/albums/p122/veto44/image001-5.jpg

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

ولعمل ذلك قم بالضغط على صفحة العمل مرتين أو إضغط Ctrl+Shift+Enter وتطلعلك النافذة التالية
http://i127.photobucket.com/albums/p122/veto44/image002-5.jpg

قم باختيار التأثير الذي تريد من بين التأثيرات الموجودة

كما يمكنك التحكم في التأثير من حيث جهة ظهوره ووقته (من الأعلى، الأسفل، اليمين أو اليسار ...)

http://i127.photobucket.com/albums/p122/veto44/image003-5.jpg


والدرس سهل جدا فقط جرب جميع التأثيرات وراح تشوف النتيجة.

mohajer2allah
10-09-2010, 01:26 AM
كيفية انشاء متصفح أنترنيت داخل التجميعة


من بين خصائص هذا البرنامج قدرته على قراءة صفحات الأنترنيت داخل الأسطوانة بدل أنك تضع زر لزيارة موقع بالمتصفح العادي للويندوز وبالطريقة الكلاسيكية المعرفة، حيث يمكنك صنع متصفح خاص بك يمكنك إستعماله ووضع فيه أفضل المواقع التي تريد



ولعمل متصفح قم بفتح المشروع الذي تريد وقم بإدراج صفحة ويب بالضغط على الزر الموضح في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image001-5.jpg

قم بوضع عنوان الصفحة في الحالة العامة
http://i134.photobucket.com/albums/q117/abed_44/image002-5.jpg (http://i76.photobucket.com/albums/j5/karim_dz/image002-13.jpg)

الآن نقوم بوضع مجموعة من الأزرار التي تشبه أزرار المتصفح

مثل زر العودة للوراء والأمام والتوقف والطباعة كما ترى في الصورة

http://i134.photobucket.com/albums/q117/abed_44/image003-6.jpg

نقوم بوضع الأكواد الخاصة بكل زر من الأزرار

قم بالضغط على الزر مرتين أو بيمين الماوس واختر خصائص كما ترى

http://i134.photobucket.com/albums/q117/abed_44/image004-5.jpg

إختر سكريبت ثم On click ثم Add Action ثم إختر ويب Web وقم بإختيار الخيار المناسب لكل زر من بين هذه الخيارات
http://i134.photobucket.com/albums/q117/abed_44/image005-5.jpg

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

كود العودة للخلف

كود:
Web.Back("Web1");
كود التقدم للأمام

كود:
Web.Forward("Web1");
كود إيقاف الصفحة

كود:
Web.Stop("Web1");
كود إعادة بعث الصفحة

كود:
Web.*******("Web1");
كود الطباعة

كود:
Web.Print("Web1");
http://i134.photobucket.com/albums/q117/abed_44/image006-5.jpg
.

.

.


بعد أن قمنا بوضع الأزرار للتحكم في المتصفح ماذا ينقص في المتصفح؟

.

.

.

ينقص شريط العنوان


نقوم بإدراج شريط العنوان عن طريق الضغط على أيقونة New Input objet لإدراج شريط العنوان
http://i134.photobucket.com/albums/q117/abed_44/image007-4.jpg

نقوم بالضغط عليه مرتين ونضع هذا الكود

كود:
if e_Key == 13 then end
http://i134.photobucket.com/albums/q117/abed_44/image008-4.jpg

لما نقوم بوضع شريط العنوان لايمكن أن يبقى لوحده إذ يجب أن يكون الزر GO لتنفيذ الموقع الموجود في الـ Input objet

قم بإدراج الزر GO واضغط عليه مرتين وقم بوضع هذا السكريبت

كود:
Web.LoadURL("Web1", Input.Get****("Input1"));
http://i134.photobucket.com/albums/q117/abed_44/image009-2.jpg

وبهذا نكون قد قمنا بصنع متصفح خاص بنا كهذا المثال .

http://i134.photobucket.com/albums/q117/abed_44/image010.jpg

أتمنى يفيدكم الدرس وسيتم فيما بعد إن شاء الله معرفة كيفية وضع محرك البحث Google داخل التجميعة

mohajer2allah
10-09-2010, 01:29 AM
كيفية جعل محرك البحث الشهير Google في الأسطوانة

تعرفنا في الدرس السابق كيفية التعامل وإنشاء متصفح خاص بنا

وسنتعلم الآن إن شاء الله كيفية جعل محرك البحث الشهير google في الأسطوانة بحيث يمكنك البحث في هذا الموقع بمجرد وضع الكلمة المفتاحية التي تبحث عنهاوالضغط على search ليبدأ في البحث

ولعمل ذلك نعود للمثال السابق و قم بإدراج New Input objet

http://i134.photobucket.com/albums/q117/abed_44/image001-9.jpg

كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image002-9.jpg

قم بالضغط عليه مرتين وضع هذا الكود
كود:
if e_Key == 13 then url = Input.Get****("Input2"); current = Web.GetURL("Web1"); Web.LoadURL("Web1", "http://www.google.com/search?query="..url, SW_SHOWNORMAL); Input.Set****("Input1" ,current); End
كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image003-10.jpg

ثم نقوم بوضع الزر Search لتنفيذ البحث
http://i134.photobucket.com/albums/q117/abed_44/image004-9.jpg

ونضع هذا الكود
كود:
url = Input.Get****("Input2"); current = Web.GetURL("Web1"); Web.LoadURL("Web1", "http://www.google.com/search?query="..url, SW_SHOWNORMAL);
كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image005-8.jpg

وقم بالضغط على Ok ثم إضغط على F5 من لوح المفاتيح للمعاينة وابحث كما تشاء في محرك البحث Google

mohajer2allah
10-09-2010, 01:31 AM
موقع يحتوي على أكثر من 100 ملف مفتوح جاهز للتعديل والإستفادة منه


والموقع من هــــنـــا (http://www.amsuser.com/)

mohajer2allah
10-09-2010, 01:34 AM
كيفية إظهار الصور بمرور الماوس



تكلمنا سابقا عن كيفية إظهار تعليق بمرور الماوس واليوم إن شاء الله نتعلم كيفية إظهار الصور بمجرد مرور الماوس بأي زر من الأزرار واختفاء الصورة بمجرد ترك الماوس للزر وهي لا تختلف كثير عن طريقة إظهار تعليق السابقة.

ولعمل ذلك نقوم بإدراج صورة وزر بالضغط عليهما كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image001-1.jpg

وليكن هذا المثال والذي هو مرفق
http://i134.photobucket.com/albums/q117/abed_44/image002-1.jpg

أولا: نقوم بإخفاء الصور لما تشغل الأسطوانة عن طريق السكريبت

إختر سكريبت ثم On preload ثم Add Action ونختار image ثم image.SetVisible

كما ترى في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image003-2.jpg

ثم نختار false ومعناه إخفاء الصورة ثم إنهاء
http://i134.photobucket.com/albums/q117/abed_44/image004-1.jpg



ثم نذهب إلى On show ونضع نفس سكريبت الإخفاء وبنفس الطريقة وهذا هو الكود لإخفاء الصورة

كود:
Image.SetVisible("Image1", false);
كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image005-1.jpg

قد يتساءل البعض ما دخل on preload هنا؟

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


الآن نذهب للزر الذي نريد إظهار الصورة به ونختار خصائص كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image006-1.jpg

وتطلع لنا الصورة ونختار On Enter ونقوم بوضع الكود بنفس الطريقة السابقة غير أننا نختار True أي السماح للصورة بالظهور لما يكون الماوس فوق الزر

أي هذا الكود

كود:
Image.SetVisible("Image1", true);
http://i134.photobucket.com/albums/q117/abed_44/image007-1.jpg

نضغط Ok ثم قم بمعاينة المشروع.


ماذا تلاحظ ؟


مشكلة ...http://www.bramjnet.com/vb3/images/smailes/smailes41.gif لما تضغط على الزر تظهر الصورة ولما الماوس يترك الزر تبقى الصورة ونحن نريد ان تختفي الصورة لما يروح عليها الماوسhttp://www.bramjnet.com/vb3/images/smilies/biggrinclarifils.gif .



ولذلك نقوم بإضافة كود الإخفاء في الزر نفسه
نضغط على الزر مرتين ثم نختار سكريبت ثم On leave ونظع كود الإخفاء السابق

كود:
Image.SetVisible("Image1", false);
http://i134.photobucket.com/albums/q117/abed_44/image008-1.jpg

إضغط Ok ثم قم بالمعاينة وترى النتيجة

وبهذه الطريقة يمكن التحكم في إظهار وإخفاء العديد من العناصر في المشروع كالفلاشات وصفحات الويب والفيديو وغيرها

mohajer2allah
10-09-2010, 01:37 AM
كيفية ترتيب الأزرار في الأسطوانة


أحيانا يكون في الأسطوانة العديد من الأزرار
وبالتالي قد تكون غير مرتبة رز داخل وزر خارج
وزر طالع وزر هابط

مثل هذا المثال
http://i134.photobucket.com/albums/q117/abed_44/image001-7.jpg

وقد تجد صعوبة في ترتيبها لذلك توجد طريقة سهلة لترتيبها
وعمل ذلك قم بتحديد الأزرار العمودية

واذهب إلى الأمر Align من شريط القوائم لترتيب
الأزرار سواءا نحو اليمين أو اليسار
http://i134.photobucket.com/albums/q117/abed_44/image002-7.jpg

http://i134.photobucket.com/albums/q117/abed_44/image003-8.jpg

بعد تحديد الأزرار قم بالضغط على الزر المبين
http://i134.photobucket.com/albums/q117/abed_44/image004-7.jpg

ونفس الشئ بالنسبة للأزرار الأفقية
http://i134.photobucket.com/albums/q117/abed_44/image005-7.jpg

وإلى اللقاء في درس آخر

mohajer2allah
10-09-2010, 01:40 AM
كيفية الإنتقال بين الصفحات عن طريق الـ Combobox



ولعمل ذلك قم بفتح مشروع بعدة صفحات كما يلي:
http://i134.photobucket.com/albums/q117/abed_44/image001-3.jpg

بعد فتح الملف المطلوب نقوم بإدراج combobox بالضغط على الزر المبين في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image002-3.jpg

قم بكتابة الصفحات الموجودة في المشروع
http://i134.photobucket.com/albums/q117/abed_44/image003-4.jpg

ثم نذهب إلى سكريبت ونختار On Select ونضع هذا الكود
كود:
selected_page = ComboBox.GetSelected("ComboBox1"); Page.Jump("page"..selected_page);
http://i134.photobucket.com/albums/q117/abed_44/image004-3.jpg

ثم نقوم بنسخ الكومبوبوكس الموجود في الصفحة الأولى
http://i134.photobucket.com/albums/q117/abed_44/image005-3.jpg

ونذهب إلى الصفحة الثانية والثالثة ونقوم بنسخ الكومبو بوكس
http://i134.photobucket.com/albums/q117/abed_44/image006-3.jpg

ثم قم بالضغط على f5 للمعاينة وترى النتيجة

mohajer2allah
10-09-2010, 01:43 AM
كيفية تغيير إسم الأسطوانة

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

وفي الأخير تتفاجئ بعدم وجود إسم للأسطوانة في شريط العنوان

ولذلك أحببت أن أنبه على هذه النقطة حتى نتفادى الوقوع في الخطأ وبالتالي تكون أسطوانتنا سليمة وخالية من العيوب.


و سنتعلم في هذا الدرس كيفية تغيير وإعطاء عنوان وإسم للأسطوانة والدرس سهل جدا

ولعمل ذلك قم بفتح المشروع المطلوب واذهب إلى project من شريط القوائم ثم إختر setting

كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image001-8.jpg

تطلع هذه النافذة وما عليك إلا القيام بإعطاء عنوان للأسطوانة وتحديد الأيقونة المناسبة

كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image002-8.jpg

قم باضغط على ok ثم قم بالضغط على f5 للمعاينة وترى النتيجة
http://i134.photobucket.com/albums/q117/abed_44/image003-9.jpg

وهذه أيقونة المشروع بجانب الساعة
http://i134.photobucket.com/albums/q117/abed_44/image004-8.jpg



وأتمنى تفيدكم الملاحظة وإلى اللقاء في درس آخر

mohajer2allah
10-09-2010, 01:46 AM
التعامل مع الـ menu bar

من خلال برنامجنا هذا يمكنك وضع شريط القوائم في أعلى الأسطوانة يشبه شريط القوائم الذي يوجد مع أغلب البرامج، ولذلك نعود للمثال السابق كيفية صنع متصفح ونضع له شريط قوائم

وهذا مثال عن شريط القوائم
http://i127.photobucket.com/albums/p122/veto44/image001-6.jpg

أي شريط القوائم هو مجموعةالأوامر الموجودة في الأعلى لتسهيل التعامل مع أي برنامج

ولعمل شريط القوائم إضغط على project ثم menu Bar
كما في الصورة السابقة

بعدها يظهر لنا مربع الحوار هذا
http://i127.photobucket.com/albums/p122/veto44/image002-6.jpg

كما يمكنك التحكم في عناصر كل قائمة من القوائم المدرجة
ويمكنك إضافة أو إزالة أي قائمة وذلك حسب رغبتك ومتطلبات الأسطوانة

نقوم بالضغط على أي عنصر من عناصر القائمة مرتين
وتطلع هذه النافذة
http://i127.photobucket.com/albums/p122/veto44/image003-6.jpg

1- هو رقم الـ ID (المعرف) وهذا نحتاجه في السكريبت أي يتم إدراج السكريبت حسب كل معرف
وسنتعرف فيما بعد على أهميته وفي حالة تطابق معرفين تظهر رسالة من البرنامج للتنبيه
2- إسم القائمة
3- تمكين القائمة وتأكد من تفعيل هذا الخيار حتى تكون القائمة متاحة
4- تفعيل الأمر
5- هو الخط الفاصل بين القوائم كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image004-5.jpg

أما عن كيفية إضافة القوائم فكما يلي:

القائمة الرائيسية: إضغط بيمين الماوس في المساحة البيضاء لإضافة العنصر

كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image005-5.jpg

القوائم الفرعية: إضغط على القائمة الرئيسية واختر Add item
http://i127.photobucket.com/albums/p122/veto44/image006-4.jpg

أما إذا أردت حذف عنصر قم بتحديده واضغط على زر Del (حذف) من لوح المفاتيح

في الأخير نحصل على مثل هذه القائمة
http://i127.photobucket.com/albums/p122/veto44/image007-2.jpg

الآن نأتي لكيفية تفعيل الأوامر من خلال الأكشن سكريبت.

قم بالضغط على الخيار Project من شريط القوائم واختر Action

كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image008-1.jpg

ونختار On Menu

ونقوم بإدراج السكريبت
مكونات السكريبت وهنا تظهر أهمية المعرف ID الذي أشرنا له في الأعلى
http://i127.photobucket.com/albums/p122/veto44/image009-1.jpg

كهذا المثال
http://i127.photobucket.com/albums/p122/veto44/image010-1.jpg


وهكذا إضغط على ok وقم بالضغط على f5 للمعاينة

mohajer2allah
10-09-2010, 01:52 AM
التعامل مع الفيديو: تشغيل الفيديو داخل الأسطوانة




وفي هذه الطريقة (تشغيل الفيديو داخل الأسطوانة) هي تمكين مستعمل الأسطوانة من تشغيل أي فيديو داخل التجميعة أو الأسطوانة.


ولعمل ذلك قم بفتح المشروع المطلوب ونقوم بوضع مجموعة من الأزرار حسب عدد الفيديو المراد وضعها في الأسطوانة

كهذا المثال.
http://i127.photobucket.com/albums/p122/veto44/image001-8.jpg

بعد تهيئة الأزرار والخلفية المناسبة نقوم بإدراج الـ plugin الخاص بتشغيل الفيديو
حيث نذهب إلى Object من شريق القوائم ونختار plugin ونختار MediaPlayer plugin

كما في الصورة.
http://i127.photobucket.com/albums/p122/veto44/image002-8.jpg

بعد إدراج الـ Plugin نقوم بالتحكم في طوله وارتفاعه ونقوم بإعطائه إسم مناسب إذا تعددت
أما إذا كان واحد فدعه كما هو كما في الصورة.
http://i127.photobucket.com/albums/p122/veto44/image003-8.jpg

هاهي صورة الـ Plugin في الأسطوانة
http://i127.photobucket.com/albums/p122/veto44/image004-7.jpg

الآن نذهب للزر الذي نريد أن يشتغل الفيديو بالضغط عليه ونختار خصائص أو نضغط مرتين على الزر
http://i127.photobucket.com/albums/p122/veto44/image005-7.jpg

نذهب إلى سكريبت ثم On click ثم Add Action

ونقوم باختيار MediaPlayer ثم MediaPlayer.Load كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image006-6.jpg

نقوم باختيار الفيديو المناسب من أي مكان من الجهاز وهو يقوم بنسخ ملف الفيديو على المجلد Video في مجلد الأسطوانة
http://i127.photobucket.com/albums/p122/veto44/image007-4.jpg

بعد اختيار الفيديو تلاحظ هذا السكريبت كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image008-3.jpg

كان هذا الفيديو الخاص بالزر الأول وهكذا نفعل مع جميع الأزرار

لكل زر نجعل الفيديو الخاص به



وبعد الإنتهاء نقوم بالمعاينة بالضغط على F5 من لوح المفاتيح وترى النتيجة
http://i127.photobucket.com/albums/p122/veto44/image009-3.jpg

أتمنى يفيدكم الدرس وإلى اللقاء في درس آخر.

mohajer2allah
10-09-2010, 01:55 AM
ملاحظة تابعة للدرس السابق
كنا قد تطرقتا بالأمس لكيفية تشغيل الفيديو داخل الأسطوانة عن طريق الـ Plugin الخاص بذلك
لكن من الملاحظ أن حجم الفيديو داخل الأسطوانة قد يكون صغير وبالتالي فإن مستعمل الأسطوانة قد لا تعجبه لأنه اعتاد على مشاهدة الفيديو بالخيار fullscreen
لذلك فإنه يمكن تشغيل الفيديو الموجود داخل الأسطوانة بالخيار Full screen

ولمعرفة طريقة ذلك نعود لمثال الأمس ونقوم بزيادة زر إضافي كما ترى
http://i134.photobucket.com/albums/q117/abed_44/image001.jpg

نقوم بالضغط على الزر مرتين ونختار سكريبت ثم On click ثم Add Action
ونختار MediaPlayer ثم MediaPlayer.SetFullScreen

ثم Next كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image002.jpg

نقوم باختيار Plugin و true كما في الصورة
http://i134.photobucket.com/albums/q117/abed_44/image003.jpg



هاهو الكود بعد ذلك

كود:
MediaPlayer.SetFullScreen("Plugin1", true);
http://i134.photobucket.com/albums/q117/abed_44/image004.jpg

قم بالضغط على Ok ثم F5 للمعاينة وقم بتشغيل أي فيديو ثم إضغط على زر ملء الشاشة وترى النتيجة

http://i134.photobucket.com/albums/q117/abed_44/image005.jpg (http://i76.photobucket.com/albums/j5/karim_dz/image005-18.jpg)

mohajer2allah
10-09-2010, 12:52 PM
كيفية عمل أسطوانة للقرآن الكريم (الجزء الأول من الشرح)




في هذا الجزء والذي يليه سنتعلم كيفية عمل أسطوانة للقرآن الكريم في صفحة واحدة من المشروع للشيخ الذي تفضل أن تستمع له، تلبية لطلبات بعض الإخوة الذين استفسروا عن ذلك.

في بادئ الأمر نحمد الله عز وجل على هذه النعمة التي سخرت في خدمة الدين والقرآن وعلى هذا البرنامج، ولذلك نرجوا من الإخوة أستخدامه فيما يرضي الله عز وجل، وإنا لنتعجب من البعض الذين يجهدون أنفسهم في صنع أقراص وأسطوانات الغناء أو غير ذلك فيوزعها فيحمل وزرها ووزر من يستعملها، وتخيل عزيزي لو ان البرنامج يستعمل في صنع أسطوانات القرآن الكريم أو المحاضرات أو الدروس ، أليس تنفع صاحبها حتى بعد موته !!!.



وبدون إطالة نبدأ بكيفية صنع الأسطوانة



أولا: نقوم بإدراج ListBox نحتاجها لوضع سور القرآن

http://www.imageswebhost.com/store14/13fcc9278f.jpghttp://i127.photobucket.com/albums/p122/veto44/image001.jpg

بعد إدراج اللسب بوكس نضغط عليه مرتين ونقوم بإدراج جميع سور القرآن في الجهة اليسرى

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



وإننا نحتاجه فيما بعد لأننا سنشغله على الميديا بلاير فيما بعد
http://www.imageswebhost.com/store14/bae05940f3.jpghttp://i127.photobucket.com/albums/p122/veto44/image002.jpg

هذه صورة الـ ListBox بعد إدراج جميع السور
http://www.imageswebhost.com/store14/3444ce85e7.jpg
http://i127.photobucket.com/albums/p122/veto44/image003.jpg

الآن نقوم بالضغط على الـ ListBox مرتين ونختار سكريبت ثم On Double-Click ثم Add Action
http://i127.photobucket.com/albums/p122/veto44/image004.jpg

ونختار لست بوكس ثم listBox.GetListBox كما في الصورة
http://www.imageswebhost.com/store14/76eb8a2cc8.jpg
http://i127.photobucket.com/albums/p122/veto44/image005.jpg

نختار اللست بوكس 1 ثم نكتب هذه النتيجة tbl_selected

كما في الصورة
http://www.imageswebhost.com/store14/29eef28bc2.jpg

ثم نضيف هذا السكريبت للسكريبت السابق

كود:
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
والآن نقوم بإضافة هذا السكريبت المؤقت لأننا سنتخلى عنه فيما، أي أننا نقوم بتشغيل الصوتيات خارج الأسطوانة لحد الآن
كود:
File.Open("AutoPlay\\Audio\\"..result..".mp3", "", SW_SHOWNORMAL);
وفي الأخير نحصل على هذا السكريبت كما في الصورة
http://www.imageswebhost.com/store14/2467fc397f.jpg
http://i127.photobucket.com/albums/p122/veto44/image006.jpg


الآن نقوم بالضغط على ok ثم نقوم بالمعاينة

http://i127.photobucket.com/albums/p122/veto44/image007.jpg

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

mohajer2allah
10-09-2010, 12:55 PM
عمل أسطوانة للقرآن الكريم (الجزء الثاني)




قبل أن نشرع في الجزء الثاني من الشرح لدي ملاحظة على الدرس السابق



وهي أنه يمكن تسمية الصوتيات في المجلد Audio باللغة العربية لكن يجب أن تكون الـ Data المقابل في سكريبت اللست بوكس باللغة العربية كذلك وقم بملاحظة الصورة التالية لفهم ذلك
http://www.imageswebhost.com/store14/8f6e2978aa.jpg
http://i127.photobucket.com/albums/p122/veto44/image001-1.jpg

هذا الذي أردت الإشارة إليه والآن نعود لأسطوانتنا



كان في الدرس السابق في العنصر الأول إدراج ListBox



ثانيا: إدراج MediaPlayer plugin داخل الأسطوانة



والهدف منه تشغيل السور الموجود في اللست بوكس داخل الأسطوانة

ولعمل ذلك نقوم بالضغط مرتين على صفحة العمل ونختار Plugins ثم MediaPayer

كما ترى في الصورة
http://www.imageswebhost.com/store14/dacd61cf22.jpg
http://i127.photobucket.com/albums/p122/veto44/image002-1.jpg

قم بالتحكم في مكانه وطوله وعرضه
http://www.imageswebhost.com/store14/405bfe2011.jpg
http://i127.photobucket.com/albums/p122/veto44/image003-1.jpg

نعود الآن لـ ListBox ونضغط عليها بيمين الماوس ونختار خصائص
http://www.imageswebhost.com/store14/d4e9e21618.jpg
http://i127.photobucket.com/albums/p122/veto44/image004-1.jpg

نذهب إلى سكريبت ثم OnDouble Click



نترك السطر الأول والثاني من السكريبت الذي تم شرحه في الدرس السابق

ونحذف الثالث ونستبدله بهذا
كود:
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..result..".mp3");
وفي الأخير نحصل على هذا السكريبت
كود:
tbl_selected = ListBox.GetSelected("ListBox1"); result = ListBox.GetItemData("ListBox1", tbl_selected[1]); MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..result..".mp3");
كما ترى في الصورة
http://www.imageswebhost.com/store14/ab552091ea.jpg
http://i127.photobucket.com/albums/p122/veto44/image005-1.jpg

نضغط Ok ونقوم بالمعاينة ونرى النتيجة
http://www.imageswebhost.com/store14/6462e6b474.jpg
http://i127.photobucket.com/albums/p122/veto44/image006-1.jpg

كانت هذه الخطوة الثانية من إعداد الأسطوانة
ويتبع الخطوة الثالثة إن شاء الله

mohajer2allah
10-09-2010, 12:58 PM
كيفية عمل أسطوانة للقرآن الكريم (الخطوة الثالثة)



كنا قد تناولنا في الدرسين السابقين كيفية عمل أسطوانة للقرآن الكريم واليوم إن شاء الله نكمل الخطوة الثالثة في تكوين الأسطوانة، حيث كان وضع جميع سور القرأن في عنصر ListBox كخطوة أولى ثم إدراج MediaPlayer plugin كخطوة ثانية أما الخطوة الثالثة فهي وضع مصحف على شكل صفحة ويب لكل سورة من صور القرآن الكريم.



فبدل أن المستمع يبقى يتفرج على التصميم رايح يستمع ويتابع من المصحف داخل الأسطوانة وبالتالي يكون أدعى للحفظ و تدبر هذا القرآن .



ونبدأ الخطوة الثالثة.



قبل أن نشرع في هذه الخطوة نحتاج صور لسور القرآن لكي نجعلها على شكل صفحات ويب.

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

يمكن تحميل صور سور القرآن من هذا الرابط
http://www.megaupload.com/?d=20UDJBD2

بعد تحميل الصور نبدأ في عمل صفحات الويب لكل سورة من القرآن.

نقوم بفتح فتح ملف وورد فارغ ونذهب إلى الأمرInsert ونختار Images ثم نحدد الملف الموجود به صور سور القرآن الكريم كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image001-2.jpg



نختار السورة التي نريد جعلها على شكل صفحة ويب
http://i127.photobucket.com/albums/p122/veto44/image002-2.jpg

بعد إدراج السورة نقوم بحفظ الصفحة ونذهب إلى الأمر file ثم save as
http://i127.photobucket.com/albums/p122/veto44/image003-2.jpg

نقوم بإعطاء إسم للملف المراد حفظه ويجب تسميته بإسم السورة الملقابلة لها في المجلد Audioونضغط على حفظ
http://i127.photobucket.com/albums/p122/veto44/image004-2.jpg



بعد إنشاء الصفحة نعود لبرنامجنا وللملف في الدرس السابق

نقوم بنسخ جميع سور القرآن التي تم إنشاؤها إلى المجلد Docs في ملف الأسطوانة

ونقوم بإدراج صفحة ويب بالضغط على الأيقونة المبينة في الصورة
http://i127.photobucket.com/albums/p122/veto44/image005-2.jpg



تأتي الصورة الموالية ونقوم بحذف رابط الموقع ونختار صفحة مناسبة من الجهاز ويفضل أن تقوم بصنع صفحة ترحيبية للتعريف بمكونات الأسطوانة ووضع معلوماتك فيها وهي تظهر بمجرد تشغيل الأسطوانة وقبل الشروع في الأستماع
http://i127.photobucket.com/albums/p122/veto44/image006-2.jpg

نقوم باختيار الصفحة الرتحيبية كما في الصورة وتجدها في الملف المرفق
http://i127.photobucket.com/albums/p122/veto44/image007-1.jpg

نضع الصفحة في المكان المناسب ونتحكم في طولها وارتفاعها كما ترى
http://i127.photobucket.com/albums/p122/veto44/image008.jpg

نضغط مرتين على صفحة الويب ونسميها Web1 كما في الصورة
http://i127.photobucket.com/albums/p122/veto44/image009.jpg

الآن نذهب إلى الـ ListBox ونضغط مرتين عليها ونختار سكريبت ثم On double Click

ونضيف هذا السكريبت لسكريبت الدرس السابق (السكريبت الخاص بالخطوة الثانية)


كود:
Web.LoadURL("Web1", "Autoplay\\Docs\\"..result..".mht");
تلاحظ إمتداد mht وأنت تقوم بوضع الإمتداد المناسب htm أو mht حسب امتداد الصفحة
http://i127.photobucket.com/albums/p122/veto44/image010.jpg


قم بالضغط على Ok ثم F5 للمعاينة وترى النتيجة
http://i127.photobucket.com/albums/p122/veto44/image011.jpg

mohajer2allah
10-09-2010, 01:03 PM
كيفية الإحتفاظ بالمشروع على شكل قالب template

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

ولذلك سنتعلم اليوم كيفية الإحتفاظ بالمشروع في أيقونة واحدة

قم بفتح المشروع الذي تريدثم إذهب إلى File ثم Expot كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/2-5.jpg

إذا كنت اشتغلت على الملف قبل التصدير قد تواجهك هذه الرسالة
http://i76.photobucket.com/albums/j5/karim_dz/3-5.jpg

وهي للتنبيه وتطلب منك عمل حفظ للمشروع خبل التصدير
ولذلك إضغط على file ثم save لحفظ المشروع
http://i76.photobucket.com/albums/j5/karim_dz/4-5.jpg

بعد حفظ المشروع نعود للأمر file ثم Export
http://i76.photobucket.com/albums/j5/karim_dz/2-5.jpg

إختر مكان وضع القلب
http://i76.photobucket.com/albums/j5/karim_dz/5-3.jpg


قد تكون في الأسطوانة بعض الأزرار غير المستعملة والصور والملفات حيث يمكنك التخلص منها وذلك بتحديد الملف المراد عمل مسح للملفات غير المهمة كما في الصورة
http://i76.photobucket.com/albums/j5/karim_dz/6-2.jpg

الآن جاري عمل القالب
http://i76.photobucket.com/albums/j5/karim_dz/7-1.jpg


وأخيرا تم الإحتفاظ بالمشروع على شكل قالب template في أيقونة واحدة وبحجم صغير كما ترى
http://i76.photobucket.com/albums/j5/karim_dz/8-1.jpg

وإلى اللقاء في درس آخر إن شاء الله

mohajer2allah
10-09-2010, 01:06 PM
شرح خاصية الـ Optimaze ressource
مع استخدامك المتكرر لمشروع وإدراج الكثير من الفلاشات والأزرار والصور ثم تحذف بعضها وتضيف أخرى ، قد لا يعلم البعض بانها مازالت في مجلد التجميعة رغم انها محذوفة من المشروع بالتالي يكون حجم المشروع كبير نوعا ما إذا كانت الملفات التي تخلينا عنها كبيرة
ولذلك نستخدم خاصية Optimaze ressource لحذف تلك الملفات غير الضرورية

ولعمل ذلك إذهب إلى Tools ثم Optimize ressource كما في الصورة

http://i76.photobucket.com/albums/j5/karim_dz/1-5.jpg

بعد ذلك تطلع لك هذه النافذة وهي لتحديد المجلدات التي يتم تصفيتها من الملفات غير الضرورية
وما عليك إلا بتحديد المجلد المناسب لتنقيته
http://i76.photobucket.com/albums/j5/karim_dz/2-6.jpg

بعد الضغط على Ok تطلع لنا جميع الملفات التي تم العثور عليها داخل مجلد التجميعة والتي هي غير مستعملة
http://i76.photobucket.com/albums/j5/karim_dz/3-6.jpg

قم بالضغط على ok وجاري تصفية المشروع من الملفات غير الضرورية
http://i76.photobucket.com/albums/j5/karim_dz/4-6.jpg

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

وإن شاء الله في الأيام القادمة سنتعرف على كيفية صنع أسطوانة للقرآن الكريم بطريقة ثانية عن طريق الـ ComboBox
وإلى اللقاء

mohajer2allah
10-09-2010, 01:11 PM
كيفية جعل خلفية صوتية خاصة بكل صفحة



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

أولا إذهب للصفحة الأولى مثلا ثم اضغط عليها مرتين تطلع لك خصائص الصفحة
إذهب إلى سكريبت ثم Onshow واضغط على Add Action تطلع لك نافذة الأكشن
إختر Audio من قائمة الأكشن ثم load Audio واعطه الملف الصوتي الذي تريد ثم ok

ثم اذهب إلى الصفحة الثانية واعمل نفس الشيء وقم بتغيير الصوت الذي تريد

وكذلك الصفحة الثالثة والرابعة وكل الصفحات قم بتحديد ملف صوتي خاص.

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



أما الشرح الفلاشي من هذا الرابط ومعه ملف مفتوح ثاني
http://www.4shared.com/file/7841346/...aque_page.html (http://www.4shared.com/file/7841346/c0699c09/son_pour_chaque_page.html)

mohajer2allah
10-09-2010, 01:15 PM
شرح كيفية عمل أسطوانة للقرآن الكريم
(طريقة ثانية)

في هذه الطريقة سنتعلم كيفية صنع أسطوانة للقرآن الكريم بطريقة ثانية عن طريق Combobox وصفحة ويب وميديا بلاير وهي لا تختلف كثيرا عن الطريقة السابقة فقط إستبدال الأكواد و اللست بوكس بالكومبو بوكس

http://i134.photobucket.com/albums/q117/abed_44/111.jpg

ولتحميل الشرح الفلاشي من هذا الرابط
ومعه الملف المفتوح والسكريبتات المستعملة
http://www.4shared.com/file/7876103/.../__online.html (http://www.4shared.com/file/7876103/d9c3b85/__online.html)

الشرح فلاشي حوالي 5 دقائق أو أكثر من الشرح

mohajer2allah
10-09-2010, 01:17 PM
وهذه ملاحظة تتعلق بالدرس السابق وهي كيفية إظهار رسالة في حالة عدم إختيار السورة



http://i134.photobucket.com/albums/q117/abed_44/2.jpg



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



لتحميل الدرس


http://www.4shared.com/file/7913421/...servation.html (http://www.4shared.com/file/7913421/a4ad2cf7/karim_observation.html)



وأتمنى تفيدكم الملاحظة

mohajer2allah
10-09-2010, 01:20 PM
درس اليوم هو عبارة عن ملاحظة أو تلميح عن كيفية الإستفادة من خاصية الـحفظ التلقائي Auto Save



قد تبدأ في عمل أسطوانة وتوشك على إنهائها ثم فجأة يتوقف الجهاز
أو ينقطع التيار الكهربائي خاصة إذا لم تكن تملك UPS
فتجد أن مشروعك قد راح وهذا ما حدث معي في تجميعة برامج الضغط
كنت أعمل فيها وقد أمضيت حوالي ساعة أو أكثر ولم أعمل لها حفظ وفجأة إنقطع التيار الكهربائي.
مصيبة !!! مجهود أكثر من ساعة راح أدراج الرياح لأني لم أعمل حفظ



وبعد عودة التيار الكهرباء رحت لمشروعي فوجدته على حالته الأولى كما بدأته
وهنا يأتي دور خاصية الحفظ الآلي راحت للمجلد Autosave
فوجدت آخر حفظ بـ 5دقائق قبل إنقطاع التيار الكهرباء
وبالتالي إرتحت من إعادة العمل بالكامل



ونبدأ في شرح هذه الخاصية
يمكنك عمل حفظ آلي بالوقت الذي تريد
وذلك بالذهاب إلى الأمر Edit من شريط القوائم ثم إختر perferences

http://i127.photobucket.com/albums/p122/veto44/image001-13.jpg

إذهب إلى ********s واختر التوقيت الذي ترد عمل حفظ به

ملاحظة: في الحالة العامة للبرنامج لا يمكن التراجع في العمل
أكثر من 10 خطوات للوراء ويمكنك رفع عدد خطوات التراجع
إلى 100 أو 1000 كما تريد
http://i127.photobucket.com/albums/p122/veto44/image002-13.jpg

والآن كيفية الإستفادة من الملفات المحفوظة
http://i127.photobucket.com/albums/p122/veto44/image003-13.jpg

إذهب لآخر ملف محفوظ في المجلد autosave
واعمل له نسخ ثم إرجع للمف الأصلي للتجميعة
http://i127.photobucket.com/albums/p122/veto44/image004-11.jpg

إعمل لصق في مجلد التجميعة
http://i127.photobucket.com/albums/p122/veto44/image005-11.jpg

أخيرا قم بتشغيل الملف المنسوخ بدل الملف الأول
وتجد أنك قد استرجعت ملفك المفقود
http://i127.photobucket.com/albums/p122/veto44/image006-9.jpg

mohajer2allah
10-09-2010, 01:24 PM
كيفية ظهور الأسطوانة من الخفاء على الظهور تدريجيا

في هذا الدرس سنتعلم إن شاء الله تقنية جميلة في صناعة التجميعات
وهي ظهور المشروع تدريجيا عند تشغيله من الخفاء إلى الظهور

http://i133.photobucket.com/albums/q52/karim-dz/fad_in.jpg

الدرس سهل جدا ونحتاج لأحد الملفات واسمه wTrans.dll
وهو المسؤول عن إحداث الشفافية في المشروع
وستجد هذا الملف مرفق مع الشرح الفلاشي والأكواد

ولكيفية عمل هذا نقوم بنسخ الملف السابق في المجلد Docs في مجلد التجميعة
ثم نذهب إلى المشروع ونضغط بيمين الماوس على صفحة العمل ونختار خصائص


نذهب إلى سكريبت ثم On Show ونضع هذا الكود
وهو عبارة عن رسالة مفادها أن الملف wTrans.dll لا يشتغل إلا على
الويندوز إكس بي و 2000 فقط


كود:
if blnFade then Page.StartTimer(50) else result = Dialog.Message("OS not Supported", "This DLL will only work on Win2000 and up.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1) end

ثم نذهب إلى الخيار On Timer ونضع هذا الكود


كود:
if blnFade then Opacity = Opacity + 5 -- يمكنك تحديد درجة الظهور من هنا بزيادة أو تخفيض هذا الرقم if (Opacity < 255) then long = DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "Set******Transparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) end end
ثم نذهب إلى الخيار On Preload ونضع هذا الكود

كود:
sOS=String.Right(System.GetOS****(),2); if (sOS == "XP" ) or (sOS == "00") or (sOS == "03") then blnFade = true; Opacity = 0; handle = Application.GetWndHandle(); result = DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "Set******Transparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) else blnFade = false; end

mohajer2allah
10-09-2010, 01:26 PM
كيفية إظهار حقوق تصميمك في أيقونة التجميعة


كما ترى في هذه الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image001.jpg


لعمل ذلك قم بفتح المشروع المطلوب
ثم إذهب إلى Project واختر Settings
http://i133.photobucket.com/albums/q52/karim-dz/image002.jpg


وتطلع نافذة خصائص المشروع
إختر الخيار Version كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image003.jpg


بعد تفعيل خيار Stamp executable with custom information

قم بوضع إسم المؤسسة والبرنامج المستعمل وحقوق تصميمك كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image004.jpg

ثم إضغط Ok وقم بحرق التجميعة وسترى النتيجة

وإلى اللقاء في درس آخر

mohajer2allah
10-09-2010, 01:29 PM
كيفية عمل أسطوانة بملء الشاشة Full screen


سنتعلم في هذا الدرس إن شاء الله كيفية عمل أسطوانة بملء الشاشة بدون ظهور شريط عنوان وشريط المهام في الأسفل

ولعمل ذلك إذهب إلى المشروع ثم إذهب إلى الخيار Project واختر Settings

http://i133.photobucket.com/albums/q52/karim-dz/image002.jpg



تطلع لك نافذة الخصائص واختر Appearance

إختر الأستايل Kiosk واختر لون الخلفية

قم بوضع مقاس الأسطوانة وأفضل مقاس للأسطوانات بملء الشاشة هو 800 x 600

لأنه يتوافق مع مقاس الشاشة في الحالتين 800/600 و1024/768

ثم قم بوضع الأيقونة المناسبة للأسطوانة كما ترى في الصورة.

http://i133.photobucket.com/albums/q52/karim-dz/image002-1.jpg

mohajer2allah
10-09-2010, 01:32 PM
التعامل مع الفيديو



تكلمنا سابقا عن تشغيل الفيديو عن طريق WMP Plugin وكيفية إدراجه في المشروع

أما درس اليوم فهو كيفية إدراج الفيديو بدون البلنج السابق الذكر

وسنتكلم عن كيفية إدراجه والتعامل معه وتشغيل الفيديو في الأسطوانة به



كيفية إدراج الفيديو


نقوم بإدراج الفيديو بالضغط على Ctrl + 5 من لوح المفاتيح

أو بالذهاب إلى الأمر Object ثم Video

أو بالضغط على الأيقونة المبينة في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image001-1.jpg


بعد الضغط تطلع لك هذه الصورة وهي لإختيار الفيديو المراد وضعه في الأسطوانة
http://i133.photobucket.com/albums/q52/karim-dz/image002-2.jpg


قم باختيار الفيديو واضغط على Ok

التحكم في خصائص الفيديو

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

ولذلك نقوم بالضغط على الفيديو بيمين الماوس ونختر خصائص
http://i133.photobucket.com/albums/q52/karim-dz/image003-2.jpg

تطلع هذه الصفحة
http://i133.photobucket.com/albums/q52/karim-dz/image004-2.jpg



1– إدراج الفيديو


2- للتحكم في لون خلفية الفيديو


3- إستايل الفيديو


4- التحكم في إظهار الوقت في الفيديو


إما إنك تظهر الوقت المتبقي والكلي للفيديو أو أحدهما


5- لون خلفية شريط الوقت


6- لون النص (التوقيت)


7- إظهار/إخفاء أزرار التحكم في الفيديو


8- إظهار /إخفاء شريط الوقت


9- تشغيل تلقائي


10- إعادة عرض الفيديو بعد إنتهائه


11- وضع إطار للفيديو


12- وضع ماسك للفيديو

ويمكنك تجربة ما تم شرحه نقطة بنقطة لفهمه.

بعد التحكم في خصائص الفيديو نحصل مثل هذا الفيديو

لون خلفيته بلون الخلفية للمشروع

وبالتالي فإن مستعمل الأسطوانة لا يفرق بين الفيديو والخلفية
http://i133.photobucket.com/albums/q52/karim-dz/image005.jpg

ملاحظة: لما تقوم بمعاينة الفيديو ربما تلاحظ تشغيله تلقائيا

ويمكنك إلغاء التشغيل التلقائي للفيديو بإلغاء علامة صح في النقطة رقم 9 التي تم شرحها
أو عن طريق السكريبت
إضغط مرتين على صفحة العمل ثم إذهب إلى سكريبت ثم On Show وضع هذا الكود

كود:
Video.Pause("Video1");
http://i133.photobucket.com/albums/q52/karim-dz/image006.jpg




بعد أن تحكمنا في الفيديو نأتي لوضع الأكواد الخاصة بتشغيل الفيديو



توجد العديد من الطرق لإدراج الفيديو (كومبوبوكس أو لست بوكس ..)



وفي أسطوانتي هذه قمت بوضع مجموعة من الفيديو المضحكة

وكل فيديو عنده رقم كما تلاحظ من 1 إلى 11 وكلما تضغط على رقم تشغل فيديو

ولعمل ذلك قم بوضع رقم لكل فيديو أو إسمه في زر أو كتابة واضغط عليه مرتين
http://i133.photobucket.com/albums/q52/karim-dz/image007.jpg

نذهب إلى سكريبت ثم On click ونضغط على Add action ونختار Video ثم Video.Load

http://i133.photobucket.com/albums/q52/karim-dz/image008.jpg


ثم نقوم بتحديد الفيديو المناسب ونفعل الخيار True الأول
http://i133.photobucket.com/albums/q52/karim-dz/image009.jpg


وبالتالي نحصل على هذا الكود


كود:
Video.Load("Video1", "AutoPlay\\Videos\\Your Video.wmv", true, false);
http://i133.photobucket.com/albums/q52/karim-dz/image010.jpg


وهكذا نفعل مع الفيديو الثالث والرابع و... .

ولما نضغط على إسم الفيديو سيتم تشغيله وإيقاف سابقه.

>>> يتبع <<<

mohajer2allah
10-09-2010, 01:36 PM
عمل قائمة لاستعراض الفيديو داخل الأسطوانة


كنا قد تعلمنا كيفية إدراج الفيديو في الدرس السابق أما اليوم فسنتعلم كيفية عمل قائمة لإستعراض الفيديو من الجهاز وتشغيله داخل الأسطوانة



ولذلك نحتاج إلى زر الاستكشاف وزر التشغيل وزر الإيقاف والإيقاف المؤقت بالإضافة إلى كومبوبوكس وفيديو بالضغط على الأيقونات المبينة في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image001-2.jpg

نقوم بالضغط على الفيديو مرتين ونزيل التشغيل التلقائي والإعادة المينين في الصورة ويمكنك التحكم في الفيديو وخصائصه ولون خلفيته كما تم شرحه في الدرس الاسبق
http://i133.photobucket.com/albums/q52/karim-dz/image002-3.jpg

نذهب إلى الكومبو بوكس ونضغط عليه مرتين ونكتب مثلا [ إختر فيديو ]
http://i133.photobucket.com/albums/q52/karim-dz/image003-3.jpg

وبالتالي نحصل على مثل هذا التصميم
http://i133.photobucket.com/albums/q52/karim-dz/image004-3.jpg

نذهب إلى زر البحث عن الفيديو أو الإستكشاف ونضع هذا الكود

كود:
ComboBox.SetUpdate("ComboBox1", false); folder = Dialog.FolderBrowse("Open Folder", _DesktopFolder); -- this one search all this types tbSearchFiles = {"*.wmv","*.mpg","*.avi"}; for index,type in tbSearchFiles do file = File.Find(folder, type, false, false, nil); if file ~= nil and file ~="CANCEL" then for j,file_path in file do --add the item to the listbox, with the **** visible and path as data tbFilePath = String.SplitPath(file_path); sFile = tbFilePath.File****..tbFilePath.Extension; ComboBox.AddItem("ComboBox1", sFile, file_path); end end end --Allow display the updated ******* ComboBox.SetUpdate("ComboBox1", true);

كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image005-1.jpg


ثم نذهب إلى زر التشغيل ونضع هذا الكود

كود:
-- Get the selected items tSelected = ComboBox.GetSelected("ComboBox1"); if tSelected then sVideoToOpen = ComboBox.GetItemData("ComboBox1", tSelected); Video.Load("Video1", sVideoToOpen, true, false); if tSelected <= 1 then result = Dialog.Message("Error...", "Please select video!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); end end

كما تري
http://i133.photobucket.com/albums/q52/karim-dz/image006-1.jpg

ثم نذهب لكود الإيقاف المؤقت ونضع هذا الكود
كود:
Video.Pause("Video1");
ونذهب لكود الإيقاف ونضع هذا الكود
كود:
Video.Stop("Video1");
الأن نقوم بمعاينة المشروع وترى النتيجة



ملاحظة: قد تريد مشاهدة الفيديو بالخيار ملء الشاشة Full Screen ويمكنك ذلك وذلك بوضع كود ملء الشاشة

والأفضل أن يتم وضعه في الفيديو نفسه أي لما تضغط على الفيديو مرة يتم عرضه بملء الشاشة ولما تضغط عليه مرة أخرى يعود للحالة الطبيعية في الأسطوانة



ولعمل ذلك إضغط على الفيديو مرتين واذهب إلى سكريبت وضع هذا الكود

كود:
Video.SetFullScreen("Video1", true);
http://i133.photobucket.com/albums/q52/karim-dz/image007-1.jpg

mohajer2allah
10-09-2010, 02:24 PM
إظهار صورة داخل الفيديو أثناء توقف الفيديو


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



ولعمل ذلك إذهب إلى الصفحة واضغط عليها بينمن الماوس واختر خصائص
http://i133.photobucket.com/albums/q52/karim-dz/image001-3.jpg

وتطلع لنا نافذة الخصائص نختار سكريبت ثم On Show ونضع هذا الكود بعد وضع الصورة في مجلد الصور
كود:
Video.Load("Video1", "AutoPlay\\Images\\Your Image.jpg", true, true);

كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image002-4.jpg


نريد أن تظهر الصورة في حالة تشغيل الأسطوانة وقد وضعنا الكود السابق

كما نريد أن تظهر الصورة في حالة توقف الفيديو وفي حالة إنتهائه



نذهب إلى الفيديو ونضغط عليه بيمين الماوس ونختار خصائص
http://i133.photobucket.com/albums/q52/karim-dz/image003-2.jpg


ثم On Stop ونضع نفس الكود السابق


كود:
Video.Load("Video1", "AutoPlay\\Images\\Your Image.jpg", true, true);

وكذلك نضع نفس الكود في On Finish


كود:
Video.Load("Video1", "AutoPlay\\Images\\Your Image.jpg", true, true);
http://i133.photobucket.com/albums/q52/karim-dz/image003-4.jpg


نضغط Ok ونقوم بالمعاينة وترى النتيجة

mohajer2allah
10-09-2010, 02:26 PM
وهذه جميــــع الأكواد إللي يقبلها البرنامج

http://www.indigorose.com/webhelp/pl...dar_plugin.htm (http://www.indigorose.com/webhelp/plugins/calendar_plugin.htm)
http://www.indigorose.com/webhelp/pl...dio_plugin.htm (http://www.indigorose.com/webhelp/plugins/cdaudio_plugin.htm)
http://www.indigorose.com/webhelp/pl...box_plugin.htm (http://www.indigorose.com/webhelp/plugins/combobox_plugin.htm)
http://www.indigorose.com/webhelp/pl...pto_plugin.htm (http://www.indigorose.com/webhelp/plugins/crypto_plugin.htm)
http://www.indigorose.com/webhelp/pl...ftp_plugin.htm (http://www.indigorose.com/webhelp/plugins/ftp_plugin.htm)
http://www.indigorose.com/webhelp/pl...yer_plugin.htm (http://www.indigorose.com/webhelp/plugins/mediaplayer_plugin.htm)
http://www.indigorose.com/webhelp/pl...ess_plugin.htm (http://www.indigorose.com/webhelp/plugins/progress_plugin.htm)
http://www.indigorose.com/webhelp/pl...ite_plugin.htm (http://www.indigorose.com/webhelp/plugins/sqlite_plugin.htm)
http://www.indigorose.com/webhelp/pl...ist_plugin.htm (http://www.indigorose.com/webhelp/plugins/thumblist_plugin.htm)
http://www.indigorose.com/webhelp/pl...ton_plugin.htm (http://www.indigorose.com/webhelp/plugins/winbutton_plugin.htm)
http://www.indigorose.com/webhelp/pl...xml_plugin.htm (http://www.indigorose.com/webhelp/plugins/xml_plugin.htm)

mohajer2allah
10-09-2010, 02:35 PM
إضافـــة الخطوط إلى مجلـد الخطوط في الويندوز


قد يحدث وأن تقوم بالكتابة بأي خط تكون قد أضفته أنت لمجلد الخطوط في الويندوز وبالتالي فإن مستعمل الأسطوانة لما يقوم بتشغيلها ربما لا يتوفر جهازه على نفس الخط وبالتالي يتغير الخط داخل الأسطوانة وربما يكبر حجمه حتى يخرج من الأسطوانة وهذا ما لا نريده.
ومن خلال هذه الطريقــة يستطيـع متصفـح الإسطوانـة من نسخ الخط وتصفح الأسطوانة بشكل عادى .
قم أولاً بإنشـاء التصميم الخاص بالخطوط وأضف إليـه صور لبعض الخطوط الموجودة وذلك بتصويرهـا بأي برنامج ومن ثم إدراجهـا كهيئـة صور كذلك لاتنسـى أن تقوم بتصميم الإزرار بمعنـى لكل خط زر خاص بــه وأيضاً زر خاص بنسـخ جميـع الخطوط لتسهيل عمليـة التنزيل كما بالصورة أدناه

http://i133.photobucket.com/albums/q52/karim-dz/image001-4.jpg

ثم قم بنسخ الخطوط إلى المجلد Docs في مجلد سمه مثلا Font كما ترى

http://i133.photobucket.com/albums/q52/karim-dz/image002-5.jpg

وهذه صور الخطوط المقابلة للأزرار

http://i133.photobucket.com/albums/q52/karim-dz/image003-5.jpg

إذهب لزر الخط الأول وضع هذا الكود
كود:
File.Copy(&quot;AutoPlay\\Docs\\Font\\Hidjaz.TTF&quot;, _******sFolder .. &quot;\\Fonts&quot;, false);
كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image004-5.jpg

في هذا المثال يمكنك العود لدرس كيفية إظهار صورة بمجرد مرور الماوس فلا داعي لإعادة شرحها هنا
والهذف منها إظهار صورة الخط المقابل للزر



الآن بعد تخصيص لكل زر خط خاص به نأتي لزر تنصيب جميع الخطوط ونضغط عليه مرتين
http://i133.photobucket.com/albums/q52/karim-dz/image005-2.jpg


نذهب إلى سكريبت ثم On Click ونضع هذا الكود

كود:
confirmation = Dialog.Message(&quot; رسالة تأكيد &quot;, &quot;هل أنت متأكد من نسخ جميع الخطوط إلى جهازك؟&quot;, MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); if confirmation == 6 then File.Copy(&quot;AutoPlay\\Docs\\Font\\*.*&quot;, _******sFolder .. &quot;\\Fonts&quot;, false); else Application.Exit******(); end
http://i133.photobucket.com/albums/q52/karim-dz/image007-2.jpg


وهاهي النتيجة

http://i133.photobucket.com/albums/q52/karim-dz/image008-2.jpg

mohajer2allah
10-09-2010, 02:37 PM
شرح كيفية إظهار صورة ترحيبية في بداية المشروع


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

لمشاهدة الشرح إضغط هـــنــا (http://i133.photobucket.com/albums/q52/karim-dz/imageStartUp.swf)


ولتحميل الشرح إضغط على الرابط واختر حفظ بهدفSave as

mohajer2allah
10-09-2010, 02:40 PM
ملاحظة على درس التعامل مع الخطوط وكيفية تنصيبها بضغطة زر

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

ويمكن إضافة سكريبت لطمأنة المستخدم بأن العمل يتم على ما يرام كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image001-5.jpg

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

كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image002-6.jpg


كود:
confirmation = Dialog.Message(" رسالة تأكيد ", "هل أنت متأكد من نسخ جميع الخطوط إلى جهازك؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); if confirmation == 6 then StatusDlg.Show(MB_ICONNONE, false); File.Copy("AutoPlay\\Docs\\Arabic Font Pack\\*.*", _******sFolder .. "\\Fonts", false); StatusDlg.Hide(); else Application.Exit******(); end
تم حذف من الكود كلمة سكريبت لاحظ الصورة في الأعلى


وإلى بقية دروس الدورة

mohajer2allah
10-09-2010, 02:42 PM
كيفية جعل الأسطوانة Trial تعمل لعدد محدود من المرات



في هذه الطريقة يمكن جعل الأسطوانة تشتغل بعدد محدد من المرات ثم يتوقف تشغيلها إلا بعد شراء نسخة أخرى.

إلا أن هذه الطريقة لاتعجبني ولا أحب إستعمالها لأني بكل بساطة أعمل أسطوانات للإستفادة منها قدر الإمكان.



ولعمل هذه الحماية قم بفتح المشروع الذي تريد ولما تنتهي منه قم بما يلي:

إذهب إلى الأمر Project ثم إختر الأمر Actions

كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image001-6.jpg


إختر On startup وقم بنسخ هذا الكود

كود:
times_allowed = 20; times_run = Application.LoadValue("My Application", "Has Been Run"); times_run = String.ToNumber(times_run); times_remaining = (times_allowed - times_run) if times_run == "" then Application.SaveValue("My Application", "Has Been Run", "1"); else Application.SaveValue("My Application", "Has Been Run", (times_run + 1)); end if times_run > times_allowed then Dialog.Message("رسالة تحذير", "إنتهت النسخة حبيبي حك جيبك لشراء نسخة أخرى"); Application.Exit(); else Dialog.Message("تحذير", "باقي من وقت الأسطوانة "..times_remaining.." مـرة"); end
كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image002-7.jpg

فعند تشغيل الإسطوانــة أو معاينــة العمل سوف تخرج لك هذه النافذة
تفيد أنه باقـي على إغلاق النسخـة 20 تشغيلة أو عدد التشغيلات التي قمت بوضعها في الكود
وفي هذه الصورة بقي لي 3 تشغيلات
http://i133.photobucket.com/albums/q52/karim-dz/image003-6.jpg

وعند إنتهاء عدد المرات التي تم وضعها في الكود تظهر هذه الصورة.
http://i133.photobucket.com/albums/q52/karim-dz/image004-6.jpg


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

وإلى درس آخر إن شاء الله

mohajer2allah
10-09-2010, 02:46 PM
كيفية عمل تأثير جميل على النص

في هذا الدرس سنتعلم كيفية عمل تأثير على النص أو الز يظهر بمرور الماوس ثم يختفي
هذا التأثير هو ظهور خط تحت الكتابة والشرح فيديو

.
.
.
> مشاهدة الدرس (http://s133.photobucket.com/albums/q52/karim-dz/?action=view&current=Label.flv) <==> التحميل (http://www.4shared.com/file/9178393/48350904/Label.html) <
.
.
.
الكود المستعمل في حالة النص
نضغط على الكتابة مرتين ونختار سكريبت ثم On Enter ونضع هذا الكود


كود: Label.SetProperties(this, {FontUnderline=true});

ثم نذهب إلى On Leave ونضع هذا الكود


كود: Label.SetProperties(this, {FontUnderline=false});

الكود المستعمل في حالة الزر
نضغط على الزر مرتين ونختار سكريبت ثم On Enter ونضع هذا الكود


كود: Button.SetProperties(this, {FontUnderline=true});

ثم نذهب إلى On Leave ونضع هذا الكود


كود:
Button.SetProperties(this, {FontUnderline=false});

mohajer2allah
10-09-2010, 02:48 PM
كيفية جعل الأسطوانة Trial تعمل لعدد محدود من الأيام


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

ولعمل ذلك قم بفتح المشروع الذي تريد ولما تنتهي منه قم بما يلي:
إذهب إلى الأمر Project ثم إختر الأمر Actions
كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image001-6.jpg


إختر On startup وقم بنسخ هذا الكود


كود:
days_left = 30; date_installed = Application.LoadValue("My Application", "Date Installed"); date_installed = String.ToNumber(date_installed); times_limit = 30; if date_installed == 0 then Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN)); else day_left = (date_installed + times_limit) - System.GetDate(DATE_FMT_JULIAN); end if day_left < 1 then Dialog.Message("trial period over", "This software has expered"); Application.Exit(); else Dialog.Message("Trial Period", "You have "..days_left.." days in your trial period"); end
كما ترى في الصورة

http://img250.imageshack.us/img250/6883/image0026cy.jpg




فعند تشغيل الإسطوانــة أو معاينــة العمل سوف تخرج لك هذه النافذة
تفيد أنه باقـي على إغلاق النسخـة 30 يوم أو عدد الأيام التي قمت بوضعها في الكود
http://img250.imageshack.us/img250/9498/image0038jx.jpg



وعند إنتهاء عدد الأيام التي تم وضعها في الكود تظهر هذه الصورة.
http://img250.imageshack.us/img250/856/image0043zw.jpg


وما على المستعمل إلا رمي القرص واستبداله بقرص آخر


وإلى درس آخر إن شاء الله

mohajer2allah
10-09-2010, 02:51 PM
كيفية حماية الأسطوانة من الإختراق

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

Start ثم Run ثم كتابة هذا الأمر %temp% .

أما في هذا الدرس سنتعلم كيفية حماية تجميعاتنا من الإختراق وذلك بتعطيل الأوامر السابقة أي لا يمكن الدخول إلى الملفات المؤقتة مهما فعلت http://www.bramjnet.com/vb3/images/smailes/smailes59.gif مادامت التجميعة قيد التشغيل والإستعمال http://www.bramjnet.com/vb3/images/smilies/confused.gif وكلما تقوم بوضع الأوامر السابقة يتم غلق النافذةhttp://www.bramjnet.com/vb3/images/smailes/smailes8.gif .

والشرح فيديو بدون صوت
.
.
.
=>مشاهدة الدرس (http://s133.photobucket.com/albums/q52/karim-dz/?action=view&current=Protect_AIO.flv)<=
.
.
.
وهذه الأكواد المسعملة
إضغط على الصفحة مرتين وتطلع لك خصائص الصفحة

إذهب إلى الخيار On Show وضع هذا الكود
كود:
Page.StartTimer(100);
الهدف منه هو بدأ تطبيق الحماية بمجرد مرور 10 أجزاء من الـ 100
ثم إذهب إلى الخيار On Timer وضع هذا الكود


كود:
-- Get the titles and ****** handles of all open ******s. ******s = ********EnumerateTitles(); -- A variable containing **** in the title you want to search for. ******_**** = "Temp"; -- Loop through the table of ******s. for handle, title in ******s do -- Check if the ****** title has the target ****. result = String.Find(title, ******_****, 1, false); -- if the string was found in the title, send the ****** a close message. if (result ~= -1) then ********Close(handle, CLOSEWND_SENDMESSAGE); end end
هذا الكود له علاقة بالـ explorer
والطريقة هذه لها بعض العيوب إلا أنها فعالة في الحماية

وإلى اللقاء في درس آخر

mohajer2allah
10-09-2010, 02:54 PM
كيفية إظهار صورة ترحيبية بطريقة ثانية وأسهل



يمكن عرض صورة ترحيبية في المشروع أو ملف فلاش أو فيديو وبطريقة سهلة جدا
فقط تابع هذا الشرح جيد لتعرف كيف يتم ذلك.

قم بفتح مشروعك ثم إذهب إلى الأمر Project ثم إختر الأمر Action
كما ترى في الصورة



http://i133.photobucket.com/albums/q52/karim-dz/image001-6.jpg


إختر On Startup لأننا نريد وضع صورة، فلاش أو فيديو ترحيبي

أما إذا كنا نريد وضع صورة تأتي بعد غلق المشروع لتوديع المستخدم فبنفس الطريقة لكن نختار On Shutdown



نحن الآن بصدد وضع صورة ترحيبية إعمل ما يلي:



http://i133.photobucket.com/albums/q52/karim-dz/image002-8.jpg

ثم كما يلي


http://i133.photobucket.com/albums/q52/karim-dz/image003-7.jpg

وبالتالي نحصل على هذا الكود

كود:
Dialog.SplashImage("AutoPlay\\Images\\BramjNet.jpg", 5, true);
كما ترى في الصورة

http://i133.photobucket.com/albums/q52/karim-dz/image004-7.jpg

mohajer2allah
10-09-2010, 05:19 PM
عمل زر PausePlay بطريقة أخرى

في هذا الدرس سنتعلم كيفية إظهار كلمة التشغيل والإيقاف في زر واحد أي لما تضغط على الزر تظهر كلمة Pause وفي هذه الحالة تشغيل الخلفية الصوتية والعكس.

ولعمل ذلك قم بفتح أي مشروع وقم بإدراج زر ولا تكتب أي شئ في الزر كما ترى في الصورة

http://i133.photobucket.com/albums/q52/karim-dz/1.jpg

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

السطر الأول أنت من يقوم بتحديد الملف الصوتي من الجهاز معروفة كيفية عمل ذلك ولا داعي لشرحها في كل مرة
كود:
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\FX151.wav", true, true); Audio.Play(CHANNEL_BACKGROUND); Button.Set****("Button1", "Pause");

http://i133.photobucket.com/albums/q52/karim-dz/2-1.jpg


ثم نذهب للزر ونضغط عليه مرتين ونضع هذا الكود

كود:
-- CODE FOR THE BUTTON ON CLICK -- strStateLyd = Button.Get****("Button1"); if strStateLyd == "Play" then Audio.Play(CHANNEL_BACKGROUND); Button.Set****("Button1", "Pause"); -- This is the default setting of the button. elseif strStateLyd == "Pause" then Audio.Pause(CHANNEL_BACKGROUND); Button.Set****("Button1", "Play"); end
كما ترى في الصورة

http://i133.photobucket.com/albums/q52/karim-dz/3-1.jpg

قم بمعاينة المشروع وبالضغط على F5 وترى النتيجة

mohajer2allah
10-09-2010, 05:24 PM
كيفية التعامل مع الصور المتحركة في البرنامج


من بين المشاكل التي قد يصادفها أي واحد منا هي مشكلة البرنامج والصور المتحركة، أي لما تقوم بإدراج صورة GIF داخل المشروع فإنها تتحول لصورة ثابتة، بمعنى أن البرنامج لا يدعم الصور المتحركة، لكن يمكن تخطي هذه المشكلة وذلك باستعمال أحد برامج تحويل الصور المتحركة إلى فلاش وبعد ذلك نقوم بإدراجها على شكل SWF .

من بين أسهل وأروع البرامج في هذا المجال برنامج صغير الحجم عظيم الفائدة وهو برنامج GIF2SWF إذ يمكنك تحويل الصور المتحركة إلى فلاش بضغطة زر فقط كما سترى.

قم بتنصيب البرنامج تنصيب عادي
بعد التنصيب شغل البرنامج وإذهب إلى Help وقم بإدخال رقم التسجيل.


الآن نأتي للصورة التي نريد تحويلها ونضغط بيمين الماوس ونختار Convert gif to…
كما ترى في الصورة.
http://i133.photobucket.com/albums/q52/karim-dz/image001-9.jpg


بعد تحويلها إلى فلاش نأتى لبرنامج Autoplay media studio ونقوم بإدراجها على شكل فلاش
بالضغط على الأيقونة المبينة في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image002-11.jpg


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

http://i133.photobucket.com/albums/q52/karim-dz/image003-10.jpg

mohajer2allah
10-09-2010, 05:27 PM
كيفية جعل عناصر شريط القوائم من اليمين

درس اليوم فهو كيفية جعل شريط القوائم يبدأ من اليمين إلى اليسار أو جعل بعض العناصر من اليمين كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image001-10.jpg


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

ثم قم بنسخ الملف MenuHelper.dll الموجود في المثال المرفق في المجلد Docs
http://i133.photobucket.com/albums/q52/karim-dz/image002-12.jpg

ثم إضغط على الصفحة واختر خصائص
http://i133.photobucket.com/albums/q52/karim-dz/image003-11.jpg

نختار On Preload ونضع هذا الكود
كود:
--Define the number of menu items to right align. Use 0 for ALL nNumItems = 4; --call the global function to align the menus items RightAlignMenuItem(nNumItems);
كما ترى في هذه الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image004-9.jpg

ثم نذهب على الأمر Project ونختار Global Function
http://i133.photobucket.com/albums/q52/karim-dz/image005-4.jpg

نقوم بإدراج هذا الكود

كود:
function RightAlignMenuItem(nNumItems) --make sure nNumItems has a value if nNumItems == nil then nNumItems = 0; end --make sure nNumItems is numeric nNumItems = String.ToNumber(nNumItems); --call the DLL n = DLL.CallFunction("AutoPlay\\Docs\\MenuHelper.dll", "RightAlign", Application.GetWndHandle()..","..nNumItems, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); end
كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image006-3.jpg

وبهذا نكون قد نقلنا القائمة إلى اليمين


و في الأخير أتمنى يكون الشرح واضح

mohajer2allah
10-09-2010, 05:30 PM
إرسال رسالة إلى مصمم الأسطوانة وإبداء الرأي فيها


في هذا الدرس سنتعلم كيفية عمل زر وربطه بإميل، وهي خاصية جميلة ومهمة في الأسطوانات بحيث تمكن من فسح المجال للمستخدم من خلال تقديم إقتراحاتهم وملاحظاتهم للمصمم من أجل تطوير الأسطوانة وتدارك النقائص ويمكن عمل ذلك بعدة طرق وراح أشرح طريقتين:

الطريقة الأولى: بدون كتابة نص الرسالة

لعمل ذلك قم بعمل زر أو كتابة تدل على المراسلة واضغط عليه مرتين واختر خصائص لفتح محرر الأكشن.
http://i133.photobucket.com/albums/q52/karim-dz/image001-11.jpg

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

كود:
File.OpenEmail("[email protected]?subject=شكر وعرفان", "SW_SHOWNORMAL");
كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image002-13.jpg



الطريقة الثانية: كتابة موضوع الرسالة بالإضافة إلى العنوان

نعود لنفس الزر السابق ونضغط عليه مرتين ونختار خصائص
ونقوم بوضع هذا الكود مثلما في الطريقة الأولى

كود:
File.OpenEmail("[email protected]?Subject=شكر وعرفان&****=شكرا أخي العزيز على هذه الأسطوانة الجميلة وننتظر الإصدار المقبل بفارغ الصبر", SW_SHOWNORMAL);
http://i133.photobucket.com/albums/q52/karim-dz/image003-12.jpg


ورايح تقوم بالمعاينة وترى النتيجة وسوف يفتح برنامج الأتولوك مباشرة لإرسال الرسالـة
http://i133.photobucket.com/albums/q52/karim-dz/image004-10.jpg

mohajer2allah
10-09-2010, 05:32 PM
كيفية وضع تاريخ إنتهاء الصلاحية للأسطوانة


في هذه الطريقة يمكن جعل الأسطوانة تشتغل لتاريخ محدد من بدل الطريقين السابقين لكيفية جعل النسخة Trial
ولعمل ذلك قم بفتح المشروع الذي تريد ولما تنتهي منه قم بما يلي:
إذهب إلى الأمر Project ثم إختر الأمر Actions
كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image001-6.jpg


إختر On startup وقم بنسخ هذا الكود

كود:
--Input your expiration date here, format YYYYMMDD --(no spaces, dashes, slashes, etc. just use numbers) --Below is the date Dec 31, 2007 Expiration_Date = "20071231" --Get the system date in ISO format --Date = YYYY-MM-DD Date = System.GetDate(DATE_FMT_ISO); --Remove the dashes in the ISO format date --to reflect the format of our expiry date --Date == YYYYMMDD Date = String.Replace(Date, "-", "", false); --test to see if the application is expired if Date > Expiration_Date then --The application has expired Dialog.Message ("Application Expired!", "Your copy of this application has expired! This program will now exit."); Application.Exit(); end
كما ترى في الصورة

http://i133.photobucket.com/albums/q52/karim-dz/image001-12.jpg

بعد إنتهاء التاريخ المحدد تظهر هذه الرسالة
http://i133.photobucket.com/albums/q52/karim-dz/image002-14.jpg

وإلى اللقاء في درس آخر

mohajer2allah
10-10-2010, 01:41 AM
برنامج Autoplay media studio ومشكلته مع اللغة العربية

من بين أهم المشاكل التي قد نواجهها مع البرنامج والتي كثرت عليها الإستفسارات والتساؤلات مشكلة البرنامج واللغة العربية، فقد يحدث أن يقوم الواحد منا بعمل أسطوانة ولما ينتهي منها ويحرقها يتفاجئ بأن الأسطوانة معطوبة ولا تشتغل رغم أنه لما كان يقوم بالمعاينة كان كل شيء عادي. أي أن البرنامج غير داعم للغة العربية بصفة مطلقة وهي مشكلة ليست بغريبة علينا، لأن صانع البرنامج ليس عربي ،

ومع هذا وككثير من مشاكل البرنامج يمكن تخطيها والكتابة بالعربية واستعمال ملفات عربية. وهذا ماراح نتطرق إليه اليوم.

المشكلة الأولى: الكتابة بالعربية داخل مكونات الأسطوانة

قد تقوم بالكتابة على زر أو Input أو Paragraph أو Label باللغة العربية وتواجهك هذه المشكلة
http://i133.photobucket.com/albums/q52/karim-dz/image001-14.jpg

ولجعل هذه الكتابة مفهومة إضغط على الزر مرتين لتطلع لك خصائص الزر أو أي عنصر تريد الكتابة فيه كما ترى واتبع الخطوات المبينة في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image002-16.jpg


بعد إختيار أي خط عربي من الجهاز إضغط ok لتعود للمشروع وترى النتيجة
http://i133.photobucket.com/albums/q52/karim-dz/image003-14.jpg


وبنفس الطريقة يتم التعامل مع هذه العناصر المبينة في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image004-12.jpg


المشكلة الثانية: الكتابة العربية غير المفهومة في محرر السكريبت ****** Editor


لما تقوم بوضع الأكواد وتكون فيها كتابة عربية قد تكون برموز غير مفهومة كما ترى
http://i133.photobucket.com/albums/q52/karim-dz/image005-6.jpg

لتغييرها إتبع الخطوات المبينة في الصور
http://i133.photobucket.com/albums/q52/karim-dz/image006-4.jpg

http://i133.photobucket.com/albums/q52/karim-dz/image007-3.jpg

http://i133.photobucket.com/albums/q52/karim-dz/image008-3.jpg



بعد إختيار اللغة العربية العربية والموافقة على ذلك قم بمعاينة الكتابة العربية في محرر السكريبت وترى النتيجة
http://i133.photobucket.com/albums/q52/karim-dz/image003-12.jpg


المشكلة الثالثة: مشكلة البرنامج والملفات العربية داخل الأسطوانة

قد نقوم بإدراج ملفات عربية داخل الأسطوانة سواءا كانت ملفات نصية أو فيديو أو صوتية أو أزرار أو فلاشات أو غيرها وبعد حرق التجميعة نتفاجئ بأن كل الملفات العربية لا يمكن تشغيلها بينما الملفات باللغة الأحنبية تشغل بشكل عادي.

أحيانا لا تواجه هذه المشكلة (أي قد تكون ملفات عربية ويمكن تشغيلها بعد حرق الأسطوانة) وهذا يرجع لسببين :

السبب الأول: اللغة المستعملة في الجهاز وفي محرر السكريبت

ربما تملك ويندوز فرنسي أو إنجليزي لكن اللغة المفعلة والمستعملة فيه هي اللغة العربية مثلما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image010-1.jpg


السبب الثاني: كيفية حرق الأسطوانة

وذلك لما نختار Hard drive Foler والخيار الأخير Iso Image

اما لو نخترا حرق الأسطوانة على شكل تجميعة Web/Email Excutable فإن الملفات العربية داخل الأسطوانة لا تكون شغالة والله أعلم ، هذا حسب ما جربته .



وخلاصة القول في هذه المشكلة الأخيرة أنني لا أنصح باستعمال الملفات العربية داخل الأسطوانة لأنه ربما قد يجتمع السببين في جهازك وتكون الأسطوانة شغالة لكن لو تأخذها لجهاز آخر يكون أحد الشرطين غايب رايح تقع في حرج وتكون الأسطوانة شبه فارغة وبالتالي تبقى تتفرج على التصميم فقط.


هذا ما أردت تبيانه فيما يعلق باللغة العربية مع البرنامج


وإلى اللقاء في درس آخر

mohajer2allah
10-10-2010, 01:46 AM
كيفية إسقاط الكراك في مجلد البرنامج بضغطة زر


درس اليوم يتكلم عن كيفية إسقاط الكراك في مجلد البرنامج في الـ Programme files وبضغطة زر، دون أن تقوم بالعمليات الكلاسيكية وهي زر لفتح مجلد الكراك ثم النسخ ثم البحث عن مجلد البرنامج والقيام باللصق.

فهذه الطريقة تغنيك عن كل هذا، وراح نأخذ مثال لبرنامجنا autoplay media studio

هذا البرنامج لما تقوم بتنصيبه يكون في هذا المسار

كود:
C:\Program Files\AutoPlay Media Studio 6.0
او
كود:
D:\Program Files\AutoPlay Media Studio 6.0
إذا كنت في ويندوز منصب على البارتيشن D


في البدايـة قم بالضغط على الزر أو الكلمـة التي أخترتهــا وطبق واختر خصائص
http://i133.photobucket.com/albums/q52/karim-dz/image001-15.jpg

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

كود:
StatusDlg.Show(MB_ICONINFORMATION, false); File.Copy("AutoPlay\\Docs\\ams60.exe", _ProgramFilesFolder.."\\AutoPlay Media Studio 6.0\\", true, true, false, true, nil); StatusDlg.Hide();

والآن نشرح كل سطر من أسطر الكود

السطر الأول من الكود

الهدف منه إظهار رسالة تشعر المستخدم بأن عملية النسخ جارية وأما كيفية الحصول عليه
نضغط على Add Action ونختار StatusDlg
http://i133.photobucket.com/albums/q52/karim-dz/image002-17.jpg

http://i133.photobucket.com/albums/q52/karim-dz/image003-15.jpg

وبهذا نحصل على السطر الأول من الكود


السطر الثاني من الكود

وهو المسؤول عن عملية النسخ وبنفس الطريقة نعود لمحرر السكريبت ونختار Add Action هذه المرة نختار File ثم File.Copy
كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image004-13.jpg

http://i133.photobucket.com/albums/q52/karim-dz/image005-7.jpg

لماذا وضعنا كلمة ProgramFilesFolder متبوعة بنقطتين ؟

كان بإمكاننا وضع المسار المذكور في الأعلى
C:\Program Files\AutoPlay Media Studio 6.0

وهو مسار صحيح لكن بافتراض أن لديك نظامين تشغيل وأنت على الدرايفر D والبرنامج منصب فيه ماذا يحدث؟
لا شك أن الكراك لا يتم تركيبه.
ومن أجل هذا قمنا بوضع كلمة _ProgramFilesFolder .
فلو كنا على الويندوز الأول المنصب على الـ C فهي تحل محل C:\programme files
ولو كنا على الويندوز الثاني المنصب على الـ D فهي تحل محل D:\Programme Files

السطر الثالث من الكود

فهو للدلالة على أن عملية النسخ قد تمت
وكيفية الحصول عليه بالضغط على Add Action كالعادة واختيار StatusDlg
http://i133.photobucket.com/albums/q52/karim-dz/image006-5.jpg

وفي الأخير نحصل على هذا الكود
http://i133.photobucket.com/albums/q52/karim-dz/image007-4.jpg


بنفس الطريقة يمكن إسقاط الملفات في الـ System أو سطح المكتب أو الويندوز لكن نقوم بتغيير كلمة _ProgramFilesFolder بالكلمة المناسبة وهذه قائمة الأوامر التي قد تحتاجها



_DesktopFolder


"C" or "D:\********s and Settings\karim_dz\Desktop"



_ProgramFilesFolder


"C" or "D:\Programmes Files"



_SourceDrive


"C:" or "D:"



_SystemFolder


"C" or "D:\******s\System"



_TempFolder


"C" or "D:\******s\temp"



_******sFolder


"C" or "D:\******s"


أتمنى يفيدكم الدرس ولي عودة بعد قليل في درس آخر

mohajer2allah
10-10-2010, 01:49 AM
كيفية تنشيط لوح المفاتيح في الأسطوانة


هذا الدرس سنتعلم كيفية إستعمال لوح المفاتيح لإحداث أوامر في الأسطوانة، أي لما نضغط على Enter يتم تشغيل الموقع المكتوب في الـ Input مثلا ولما نضغط على على Esc نخرج من الأسطوانة وهكذا مع كل زر من أزرار لوح المفاتيح.

ولعمل ذلك قم بفتح أي مشروع واضغط بيمين الماوس في أي مساحة من المشروع واختر خصائص
http://i133.photobucket.com/albums/q52/karim-dz/image001-16.jpg

تطلع لك خصائص الصفحة نختار سكريبت ثم On Key كما ترى في الصورة
http://i133.photobucket.com/albums/q52/karim-dz/image002-18.jpg


أما الأرقام الموافقة لكل زر من أزرار لوح المفاتيح فهي في هذه الصورة
http://img59.imageshack.us/img59/2214/image003dd7.jpg


أتمنى يفيدكم الدرس

mohajer2allah
10-12-2010, 02:10 AM
كيفية التعامل مع الأزرار الفلاشية

(شرح خاصية FSCommand )


http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


بالإضافة إلى الأزرار البسيطة المرفقة مع البرنامج والتي يمكن صنعها بالبرنامج Button Maker يمكن إستعمال أزرار فلاشية في إحداث أوامر في الأسطوانة إلأ أن هذه الأخيرة تتميز ببعض التعقيد إذ ليست كالأزرار الأخرى التي بها أوامر ماشاء الله، فالزر الفلاشي لا يمكن وضع فيه نفس كود الزر العادي فهو يعتمد على خاصية تسمى خاصية FSCommand وهي مرتبطة بأكشن fscommand برنامج الفلاش أو السويش ماكس، وإن شاء الله في هذا الدرس سنسلط بعض الضوء على هذه الخاصية .



لما تصنع زر ببرنامج السويش وتنتهي منه نقوم بإدراج السكريبت الذي يمكننا من التعامل معه في برنامج الأوتو بلاي
http://i165.photobucket.com/albums/u63/karim_dz2/2.jpg


إضغط على سكريبت ثم Events ثم Button ثم On Press كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/3.jpg


تم إدراج جزء من الكود
http://i165.photobucket.com/albums/u63/karim_dz2/4.jpg


ثم سكريبت fscommand
http://i165.photobucket.com/albums/u63/karim_dz2/5.jpg

لما تقوم بوضع الأمر السابق يكون بدون متغير وأنت يبقى عليك إدخال إسم المتغير
وهو أهم شيء فهو الذي يمكن الإعتماد عليه فيما بعد كما سيأتي بيانه
http://i165.photobucket.com/albums/u63/karim_dz2/6.jpg


http://i165.photobucket.com/albums/u63/karim_dz2/014.gif

بعد وضع السكريبت في زر السويش قم بتصديره على شكل SWF
نرجع لبرنامجنا الـ AutoPlay Media Studio
نقوم بإدراج الزر الفلاشي الذي قمنا بصنعه وذلك بالذهاب إلى Object ثم Flash
أو بالضغط على Ctrl+6 من لوح المفاتيح

ونضغط عليه بيمين الماوس ونختار خصائص
http://i165.photobucket.com/albums/u63/karim_dz2/7.jpg

نقوم بإدراج هذا السكريبت

كود:
if (e_FSCommand == "bramjnet") then File.OpenURL("http://www.bramjnet.com/vb3", SW_SHOWNORMAL); end
http://i165.photobucket.com/albums/u63/karim_dz2/8.jpg


وهذه صورة لصيغة الكود
http://i165.photobucket.com/albums/u63/karim_dz2/9.jpg

كما يمكن صنع زر ببرنامج flash MX فهو يمتاز بخصائص روعة لمن هو متمكن منه
فيمكن الإعتماد عليه وفي الحقيقة لا أمد بصلة لهذا البرنامج ولا أعرف منه إلا وضع هذا الكود
والذي تشاهده في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/1.jpg

mohajer2allah
10-12-2010, 02:12 AM
كيفية التعامل مع الأزرار الفلاشية

(الحلقة الثانية)


http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


كنت تطرقت في الدرس السابق إلى كيفية التعامل مع الأزرار الفلاشية باستعمال خاصية FSCommand التي لها علاقة مباشرة بسكريبت برنامج الفلاش أم إكس أو السويتش ماكس،

أما درس اليوم فهو يختلف سابقة، بحيث يمكن أن تتحصل على أزرار فلاشية لا تعرف متغيرات Fscommand فيها وبالتالي يمكن الإستغناء عن هذه الخاصية في الطريقة

وهذا كما سيأتي بيانه إن شاء الله.

ونبدأ بفتح أي مشروع و ونقوم بإدراج الزر الفلاشي الذي نريد.
http://i165.photobucket.com/albums/u63/karim_dz2/0000.jpg

بعد فتح نافذة محرر الأكشن نختار On Show ونضع هذا الكود

كود:
Page.SetFocus(""); Page.StartTimer(10);
كما تر في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/0001.jpg

ثم نذهب إلى On Timer وندرج هذا الكود
كود:
focused_object = Page.GetFocus(); if focused_object == "Flash1" then File.OpenURL("http://www.bramjnet.com/vb3", SW_SHOWNORMAL); end
كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/0002.jpg

mohajer2allah
10-12-2010, 02:14 AM
كيفية صنع منبه


http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


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


الطريقة الأولى:


نقوم بفتح أي مشروع ونقوم بإدراج 3 عناصر input وأزار
كما ترى
http://i165.photobucket.com/albums/u63/karim_dz2/image001.jpg

نذهب لزر إدخال الأوقات المناسبة ونضغط عليه مرتين
ونضع هذا الكود

كود:
hours = Input.GetText("Input1"); minits = Input.GetText("Input2"); seconds = Input.GetText("Input3"); selectedtime=hours..minits..seconds;
كما ترى
http://i165.photobucket.com/albums/u63/karim_dz2/image002.jpg

ثم نذهب إلى page ونختار خصائص ثم سكريبت ثم on preload
ونضع الكود في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/image003.jpg

ثم On Timer ونضع هذا الكود

كود:
timenow = System.GetTime(TIME_FMT_MIL); Label.SetText("Label4", timenow); replacetime = String.Replace(timenow, ":", "", true); if (replacetime==selectedtime) then Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\******s XP.wav", true, true); Button.SetVisible("Button2", true); end
http://i165.photobucket.com/albums/u63/karim_dz2/image004.jpg


و نذهب لزر إيقاف التنبيه ونضع هذا الكود

كود:
Audio.Stop(CHANNEL_BACKGROUND); Button.SetVisible(this, false);
http://i165.photobucket.com/albums/u63/karim_dz2/image005.jpg


الطريقة الثانية: وهي طريقتي الخاصة


في هذه الطريقة نحتاج عنصر واحد فقط input وزرين
http://i165.photobucket.com/albums/u63/karim_dz2/image006.jpg


نضغط على زر إعتماد التنبيه ونضع هذا الكود

كود:
alarm = Input.GetText("Input1"); Page.StartTimer(100); Paragraph.SetText("Paragraph1", "alarm at: " ..alarm);
http://i165.photobucket.com/albums/u63/karim_dz2/image007.jpg

ثم نذهب على page ثم خصائص ونختار On timer ونضع هذا الكود

كود:
sTime = System.GetTime(TIME_FMT_MIL) if sTime == alarm then Audio.Load(CHANNEL_ BACKGROUND, "AutoPlay\\Audio\\******s XP.wav", true, true); Button.SetVisible("Button1",true); end
http://i165.photobucket.com/albums/u63/karim_dz2/image008.jpg

ثم نذهب لزر إيقاف التنبيه ونضع هذا الكود

كود:
Audio.Stop(CHANNEL_BACKGROUND); Button.SetVisible(this, false);
http://i165.photobucket.com/albums/u63/karim_dz2/image005.jpg

mohajer2allah
10-12-2010, 02:18 AM
كيفية جمع محركات البحث في القائمة

http://i165.photobucket.com/albums/u63/karim_dz2/014.gif




سنتعلم في هذا الدرس كيفية عمل أسطوانة على شكل محرك بحث بها جميع محركات البحث المعروفة، بحيث يقوم المستخدم بادخال الكلمة المراد البحث عنها وإختيار إسم محرك البحث والضغط على بحث

ولعمل ذلك نحتاج مجموعة من العناصر وهي :
- صفحة ويب
- كومبوبوكس
- عنصر إدخال Input
- و زر

http://i165.photobucket.com/albums/u63/karim_dz2/image001-1.jpg

قم بالضغط على الكومبوبوكس مرتين وقم بإدخال محركات البحث التي تريد
كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/image002-1.jpg


ثم نذهب لزر البحث ونقوم بوضع هذا الكود
كود:
-- إيجاد محرك البحث من القائمة combo_text = ComboBox.GetText("ComboBox1"); --شرط توافق محرك البحث مع النتيجة if (combo_text == "GOOGLE") then surl = "http://www.google.com/search?q=" elseif (combo_text == "LIVE SEARCH") then surl = "http://search.live.com/results.aspx?q=" elseif (combo_text == "YAHOO") then surl = "http://search.yahoo.com/search?p=" end -- إيجاد الكلمة المكتوبة في الإنبوت في محرك البحث المختار في القائمة url = Input.GetText("Input2"); current = Web.GetURL("Web1"); Web.LoadURL("Web1", surl..url, SW_SHOWNORMAL);
كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/image003-1.jpg

ملاحظة: GOOGLE هي الكلمة المكتوبة في الكومبو وهي نفسها التي تكون مكتوبة في الكود فانتبه لذلك!!!
ويمكن إضافة محركات بحث أخرى

mohajer2allah
10-12-2010, 02:20 AM
كيفية الإحتفاظ بالمشروع على شكل قالب
(طريقة ثانية ومفيدة)
http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


أولا وقبل أن ابدأ في الشرح أعتذر عن غيابي في الايام الماضية بسبب ظروف خاصة، وراح نبدأ ونعود للدورة


في درس اليوم سنتعلم كيفية الإحتفاظ بالمشروع على شكل قالب template يظهر ضمن القوالب الجاهزة المرفقة مع البرنامج، وللتذكير فقد تطرقت لكيفية الإحتفاظ بالقالب بصيغة apz سابقا

اما طريقة اليوم فسنتحتفظ بالقالب بالإمتداد apt

لعمل ذلك نذهب للمشروع الذي نريد ونعمل له save ثم نذهب إلى الأمر File ثم Export

كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/template.jpg


تطلع نافذة الـتصدير ونختار مكان الحفظ ونختار المسار
D:\Program Files\AutoPlay Media Studio 6.0\Templates

http://i165.photobucket.com/albums/u63/karim_dz2/template1.jpg

ثم إضغط على حفظ وتطلع هذه النافذة وقم بكتابة وملء المربعات
http://i165.photobucket.com/albums/u63/karim_dz2/template2.jpg

واضغط على Create

ثم Ok في النافذة الموالية
http://i165.photobucket.com/albums/u63/karim_dz2/template3.jpg

وجاري إنشاء القالب
http://i165.photobucket.com/albums/u63/karim_dz2/template4.jpg




بعد هذا قم بفتح البرنامج واختر Create a new project
وترى القالب الجديد ضمن القوالب
كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/template7.jpg

إنتهى الدرس وإلى اللقاء في درس آخر إن شاء الله.

mohajer2allah
10-12-2010, 02:22 AM
كيفية عمل قائمة في الزر
http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


في درس اليوم سنتعلم كيفية عمل قائمة في الزر تشبه قوائم الـ Menu Bar ، اي أنك تضغط على الزر الأيمن للماوس وتختار أحد الأوامر.

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

كما ترى في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/1-2.jpg

بعدها نختار سكريبت ثم On Right click
ونضع هذا الكود
كود:
Btn = Button.GetPos("Button1"); Y_Change = 20 X_pos = Btn.X Y_pos = Btn.Y + Y_Change myMenu = {}; myMenu[1] ={}; myMenu[1].Text = "Exit"; myMenu[1].ID = 50; myMenu[1].Checked = false; myMenu[1].Enabled = true; --************************************************** *************************************** menu_ID = Application.ShowPopupMenu(X_pos, Y_pos, myMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true) --************************************************** *************************************** if menu_ID == 50 then ********Close(Application.GetWndHandle(), CLOSEWND_TERMINATE); end

http://i165.photobucket.com/albums/u63/karim_dz2/2-3.jpg


ثم قم بمعاينة المشروع وترى النتيجة
http://i165.photobucket.com/albums/u63/karim_dz2/3-2.jpg

mohajer2allah
10-12-2010, 02:26 AM
كيفية عمل موسوعة قرآنية
لمجموعة من القراء
http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


كنت قد شرحت في السابق كيفية عمل أسطوانة لمقرئ واحد وفي صفحة واحدة ، أما اليوم فسنشرح إن شاء الله كيفية عمل موسوعة للقرأن الكريم ولعدد غير محدود من المقرئين وفي صفحة واحد فقط.



أولا: نقوم بإدراج ListBox نضع سور القرآن فيها
http://i165.photobucket.com/albums/u63/karim_dz2/014.gif

http://i127.photobucket.com/albums/p122/veto44/image001.jpg


بعد إدراج اللسب بوكس نضغط عليه مرتين ونقوم بإدراج جميع سور القرآن في الجهة اليسرى
وإسم السورة الموجود في المجلد Audio في مجلد الأسطوانة والمقابلة للسورة المراد تشغيلها ويفضل إستعمال السور بإمتداد mp3 لصغر حجمه

http://i165.photobucket.com/albums/u63/karim_dz2/image002-3.jpg

بعد إدراج القائمة (ListBox) نذهب إلى المجلد Audio الموجود في ملف الأسطوانة ونقوم بإدراج مجلد لكل مقرئ

مثلا مجلد إسمه Hossari ونضع فيه صوتيات الشيخ محمود خليل الحصري ومجلد basset ونضع فيه صوتيات الشيخ عبدالباسط عبدالصمد ومجلد menshawi ونضع فيه المصحف للشيخ محمد صديق المنشاوي وهكذا نقوم بعمل مجلد لكل مقرئ حتى لا تختلط السور بين المقرئين.
http://i165.photobucket.com/albums/u63/karim_dz2/image003-3.jpg

بعد إدراج المجلدات نقوم بوضع سور القرآن لكل مقرئ في مجلده ونقوم بتسمية كل سورة برقم الداتا (المقابل لكل سورة في اللست بوكس)
مثلا سورة الفاتحة = 001 وطبعا تكون بامتداد mp3 فتصبح 001.mp3
سورة البقرة = 002 ونفس الشئ 002.mp3
سورة آل عمران = 003.mp3

.

.

.

وهكذا على غاية سورة الناس = 114.mp3




ثانيا: إدراج MediaPlayer plugin داخل الأسطوانة
http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


والهدف منه تشغيل السور الموجود في اللست بوكس داخل الأسطوانة
ولعمل ذلك نقوم بالضغط مرتين على صفحة العمل ونختار Plugins ثم MediaPayer

كما ترى في الصورة
http://i127.photobucket.com/albums/p122/veto44/image002-1.jpg

http://i165.photobucket.com/albums/u63/karim_dz2/image005-2.jpg

قم بالتحكم في مكانه وطوله وعرضه

http://i127.photobucket.com/albums/p122/veto44/image003-1.jpg



ثالثا: إدراج كومبو بوكس ComboBox
http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


الهد من هذه القائمة هو إدراج المقرئين فيها حتى إذا تم إختيار المقرئ وبعدها إختيار سورة ما يتم تشغيل السورة للمقرئ المختار


قم بالضغط على أيقونة إدراج كومبوبوكس كما ترى

http://i165.photobucket.com/albums/u63/karim_dz2/image007-1.jpg

نضغط على الكومبو مرتين أو بيمين الماوس ونختار خصائص كما ترى في الصورة.

http://i165.photobucket.com/albums/u63/karim_dz2/image008-1.jpg

نقوم بوضع المقرئين الذين نريد إدراجهم في الأسطوانة
http://i165.photobucket.com/albums/u63/karim_dz2/image009.jpg

رابعا: إدراج صفحة ويب داخل الأسطوانة
http://i165.photobucket.com/albums/u63/karim_dz2/014.gif


ونقوم بإدراج صفحة ويب بالضغط على الأيقونة المبينة في الصورة
http://i165.photobucket.com/albums/u63/karim_dz2/image010.jpg

تأتي الصورة الموالية ونقوم بحذف رابط الموقع ونختار صفحة مناسبة من الجهاز ويفضل أن تقوم بصنع صفحة ترحيبية للتعريف بمكونات الأسطوانة ووضع معلوماتك فيها وهي تظهر بمجرد تشغيل الأسطوانة وقبل الشروع في الاستماع
http://i165.photobucket.com/albums/u63/karim_dz2/image011.jpg

قم باختيار الصفحة الترحيبية التي قمت بصنعها


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

وأما كيفية التعامل مع صور سور القرآن رايح نفتح برنامج الـ FrontPage
ونذهب إلى الأمر Inser ثم Images ونختار صورة سور القرآن
http://i165.photobucket.com/albums/u63/karim_dz2/image012.jpg

http://i165.photobucket.com/albums/u63/karim_dz2/image013.jpg

http://i165.photobucket.com/albums/u63/karim_dz2/image014.jpg

بعد إكمال جميع السور ونقوم بنسخها إلى المجلد Docs نأتي لأهم شئ وهو إدراج الأكواد اللازمة



نأتي إلى اللست بوكس ListBox ونضغط عليه مرتين ونختار سكريبت
نقوم بإدراج الكود

كود:
--كيفية الحصول على الكود السابق -- إيجاد النص المكتوب في الكومبو بوكس nSelect = ComboBox.GetText("ComboBox1"); -- إيجاد السور المحددة في اللست بوكس Sura_Selected = ListBox.GetSelected("ListBox1"); --إيجاد الداتا للسورة المحددة result = ListBox.GetItemData("ListBox1", Sura_Selected[1]); -- ألآن نبدأ في الكود if nSelect == "إختر المقرئ"then --عرض رسالة خطأ إختر المقرئ من فضلك Dialog.Message("","إختر المقرئ من فضلك"); elseif nSelect == "محمود خليل الحصري" then -- تشغيل السورة الموافقة للداتا في مجلد الشيخ الحصري MediaPlayer.Load("media_player", "AutoPlay\\Audio\\hossari\\"..result..".mp3"); --تشغيل صفحة الويب الموافقة للسورة المختارة Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm"); -- نقوم بنفس ما قمنا به مع الشيخ الحصري للشيوخ الآخرين elseif nSelect == "عبدالباسط عبدالصمد" then -- تشغيل السورة الموافقة للداتا في مجلد الشيخ MediaPlayer.Load("media_player", "AutoPlay\\Audio\\basset\\"..result..".mp3"); --تشغيل صفحة الويب الموافقة للسورة المختارة Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm"); elseif nSelect == "محمد صديق المنشاوي"then -- تشغيل السورة الموافقة للداتا في مجلد الشيخ MediaPlayer.Load("media_player", "AutoPlay\\Audio\\menshawi\\"..result..".mp3"); --تشغيل صفحة الويب الموافقة للسورة المختارة Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm"); -- وهكذا end
الكود مرفق باسم List_Code وبامتداد LUA أي أنك تفتح محرر السكريبت
وتضغط على Ctrl+O من لوح المفاتيح لإستراد الكود
http://i165.photobucket.com/albums/u63/karim_dz2/image015.jpg

هذه صورة الكود
http://i165.photobucket.com/albums/u63/karim_dz2/image016.jpg


يجب أن يكون الإسم الموجود في الكومبو هو نفسه الموجود في الكود في اللست واي فراغ أو حرف إضافي راح يحدث خلل في الأسطوانة

http://i165.photobucket.com/albums/u63/karim_dz2/image017.jpg

الأن نأتي للخطوة واللمسة السحرية في الأسطوانة
وهي جعل السور الموجودة في القائمة تشغل آليا الواحدة تلو الأخرى
أي أنك تختار سورة الفاتحة وباقى السور تشغل كلما تنتهي سابقتها


لعمل ذلك إذهب إلى WMP plugin واضغط عليه مرتين
وقم بإدراج الكود الثاني باسم Magic_code
كما ترى
http://i165.photobucket.com/albums/u63/karim_dz2/image018.jpg


كود:
-- السورة الموالية في اللست بوكس nItemsInListBox = ListBox.GetCount("ListBox1"); if nItemsInListBox ~= 0 then -- إيجاد العنصر والسورة المحددة tSelected = ListBox.GetSelected("ListBox1"); sJustFinishFile = ListBox.GetItemData("ListBox1", tSelected[1]); nFileIndex = ListBox.FindItem("ListBox1", -1, 1, sJustFinishFile); nNextFileIndex = nFileIndex+1; if nFileIndex == nItemsInListBox or nFileIndex > nItemsInListBox then --nNextFileIndex > nItemsInListBox or -- this will select the 1st song of the PlayList when -- the last file is finished ListBox.SelectItem("ListBox1", 1); sFile**** = ListBox.GetItemData("ListBox1", 1); else -- تشغيل السورة الموالية sFile**** = ListBox.GetItemText("ListBox1", nNextFileIndex); result = ListBox.GetItemData("ListBox1", nNextFileIndex); ListBox.SelectItem("ListBox1", nNextFileIndex); nSelect = ComboBox.GetText("ComboBox1"); if nSelect == "محمود خليل الحصري"then MediaPlayer.Load("media_player", "AutoPlay\\Audio\\hossari\\"..result..".mp3"); elseif result == "عبدالباسط عبدالصمد" then MediaPlayer.Load("media_player", "AutoPlay\\Audio\\basset\\"..result..".mp3"); elseif result == "محمد صديق المنشاوي" then MediaPlayer.Load("media_player", "AutoPlay\\Audio\\menshawi\\"..result..".mp3"); -- ويمكنك وضع المزيد من المقرئين هنا بنفس الطريقة end Web.LoadURL("Web1", "Autoplay\\Docs\\"..result..".htm"); end end
وإلى هنا نكون قد أنهينا الشرح ويبقى عليك القيام بالمعاينة وترى النتيجة

الماحي عبدالله
06-05-2012, 03:17 AM
http://www.alnawafeth.com/vb/uploaded/46/0c0f900e2a.gif