سلسلة شروحات الاوتوبلاي

[الموج الصامت]

التعامل مع الفيدو: تشغيل الفيديو داخل الأسطوانة

لما تكلمنا عن تنصيب البرنامج في المشاركة الثانية كنت قد نصحت بتحميل التحديث للبرنامج
وفي هذا الدرس تكمن أهمية التحديث من خلال الـPlugin الخاص بتشغيل الفيديو والصوتيات داخل الأسطوانة
وفي هذه الطريقة (تشغيل الفيديو داخل الأسطوانة) هي تمكين مستعمل الأسطوانة من تشغيل أي فيديو داخل التجميعة أو الأسطوانة.
ولعمل ذلك قم بفتح المشروع المطلوب ونقوم بوضع مجموعة من الأزرار حسب عدد الفيديو المراد وضعها في الأسطوانة
كهذا المثال.

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

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

هاهي صورة الـ Plugin في الأسطوانة

الآن نذهب للزر الذي نريد أن يشتغل الفيديو بالضغط عليه ونختار خصائص أو نضغط مرتين على الزر

نذهب إلى سكريبت ثم On click ثم Add Action
ونقوم باختيار MediaPlayer ثم MediaPlayer.Load كما في الصورة

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

بعد اختيار الفيديو تلاحظ هذا السكريبت كما في الصورة

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

كيفية تغيير الأيقونة الصفراء للتجميعة

قد يحدث وأن تقوم بتغيير بغيير أيقونة التجميعة بالذهاب إلى project ثم setting ثم custum ico
لكن تتفاجئ عند حرق التجميعة بالأيقونة الصفراء المملة وتظهر الأيقونة التي قمت بتغييرها فقط في شريط العنوان
وأنا اليوم جايب لكم طريقة لتغيير تلك الأيقونة بأي أيقونة تريد وما عليك فقط
تحميل البرنامج الموجود في المرفقات ومتابعة الشرح جيدا ونبدأ
قم بتشغيل البرنامج كما في الصورة

بعدها تطلع صورة البرنامج كما في الصورة الموالية

قم بتغيير كل أيقونة من الجهة اليسري بما يقابلها في الجهة اليمنى كما ترى في الصورة

لا حظ الصورة يجب تغيير جميع الأيقونات في الجهة اليسرى بما يقابلها في الجهة اليمنىواضغط على حفظ save

وأخيرا النتيجة تم تغيير الأيقونة وحلت المشكلة

 

[الموج الصامت]

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

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

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

نقوم بتحديد ما تم نسخه ثم نعمل fill باللون الأبيض

ها هو شكل الماسك وقم بحفظه بصيغة png

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

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

لاحظ كيف تحول شكل شكل التجميعة

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

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

 

[الموج الصامت]

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

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

إختر سكريبت (******) ثم On Show ثم Add Action
كما في الصورة

نقوم بإدراج السكريبت المناسب لذلك
إختر ****** من قائمة الخيارات ثم setMask ثم Next

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

بعد الضغط على Terminer ترجع لهذه الصورة بعد أن تم إدراج السكريبت واضغط على ok

ملاحظة: يتكرر هذا العمل مع كل صفحة من صفحات العمل أي لكل صفحة ماسك خاص
حتى ولو كانت الصفحة لا تحتوي على ماسك
يجب أن تضع لها ماسك خاص كما في الصفحة الأولى من المثال المرفق
وضعت لها ماسك إسمه noMask وهذا الماسك هو عبارة عن صفحة بيضاء​

 

[الموج الصامت]

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

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

بعد تحديد الأزرار قم بالضغط على الزر المبين

ونفس الشئ بالنسبة للأزرار الأفقية

 

[الموج الصامت]

كيفية حماية تشغيل التجميعة بكلمة سر
-------------------------------------

كود:​

-- 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

 

[الموج الصامت]

كيفية عمل رسالة
" هل أنت متأكد من الخروج من التجميعة "
عند الضغط على exit
----------------------------------------
قم بفتح المشروع الذي تريد
إذهب إلى الأمر project من شريط القوائم واختر الأمر global functions
كما في الصورة

ثم قم بنسخ هذا الكود
كود:​

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

 

[الموج الصامت]

(((إدراج التوقيت الحالـــي للمشروع )))
---------------------------------------



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


قم بإدراج New Label كما في الصورة

وقم بالضغط مرتين عليه وقم وضع هذه الكلمة Label_Time كما في الصورة

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

وتطلع لنا خصائص الصفحة
إذهب إلى Script ثم اختر on show وقم بلصق هذا الكود كما ترى في الصورة

كود:​

sPCtime = System.GetTime(TIME_FMT_MIL)
Label.SetText("Label_Time", sPCtime)
Page.StartTimer(1000);

ثم نذهب إلى الأمر On Timer ونلصق هذا الكود
كود:​

sPCtime = System.GetTime(TIME_FMT_MIL);
Label.SetText("Label_Time", sPCtime);

كما ترى في الصورة

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

 

[الموج الصامت]

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

قم بإدراج New Label كما في الصورة

وقم بالضغط مرتين عليه وقم وضع هذه الكلمة txtDate كما في الصورة

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

وتطلع لنا خصائص الصفحة
إذهب إلى Script ثم اختر on show وقم بلصق هذا الكود كما ترى في الصورة
كود:​

sPCdate = System.GetDate(DATE_FMT_ISO);
Label.SetText("txtDate", sPCdate);

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

 

[الموج الصامت]

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

نقوم بإدراج New Paragraph Objet كما ترى

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

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

قم بالضغط على الصفحة واختر خصائص أو بالضغط مرتين على المشروع أو بالضغط على Ctrl+Shift+Enter من لوح المفاتيح
وتطلع لك خصائص الصفحة والهدف من العملية هي إخفاء هذه الفقرة
وضع هذا الكود
كود:​

Paragraph.SetVisible("bramjnet", false);

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

الآن نأتي للزر الذي نريد أن يظهر العليق بمجرد المرور عليه ونضغط عليه مرتين

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

File.OpenURL("http://www.bramjnet.com/vb3", SW_SHOWNORMAL);

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

Paragraph.SetVisible("bramjnet", true);

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

Paragraph.SetVisible("bramjnet", false);

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

 

[الموج الصامت]

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

قم بمحو النص واختر الخط المناسب وحجمه وطول الشريط

قم بالضغط على Ctrl+Shift+Enter من لوح المفاتيح للذهاب لخصائص الصفحة
وقم ناختيار سكريبت ثم On Shaw وقم بنسخ هذا الكود
كود:​

title = " أكتب النص الذي تريد هنا لكي يكون عنوان الشريط ...";
Page.StartTimer(150);

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

-- set "now playing" display
myChar = String.Left(title, 1);
title = String.Right(title, (String.Length(title)-1));
title = title..myChar;
titleText = String.Left(title, 85);
Paragraph.SetText("Paragraph1", titleText);

كما في الصورة

إضغط Ok ثم F5 لمعاينة المشورع وتلاحظ النتيجة​

 

[الموج الصامت]

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

ثم قم بإدراج النص المطلوب كما في الصورة

الآن نذهب لخصائص الصفحة

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

--Put this code in the On Show event for the page to start the timer and pad the text
--Adjust the time for the Timer to control how fast the text will scroll
Input.SetText("Input1", Input.GetText("Input1").." ");
Page.StartTimer(170);

كما في الصورة

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

--Put this code in the on Timer event for the page to cause the text to scroll
ScrollInputText("Input1");

كما في الصورة

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

كود:​

--And here is the function that will cause it to scroll. Insert in the On Show event for the page.
function ScrollInputText(sObject)
strText = Input.GetText(sObject);
strText = String.Right(strText, String.Length(strText)-1)..String.Left(strText, 1)
Input.SetText(sObject, strText);
end

ثم إضغط على F5 للمعاينة وترى النتيجة
وللعلم فإن هذه الطريقة أفضل من سابقتها​

 

[الموج الصامت]

كيفية التعامل مع الفلاشات الترحيبية مع البرنامج
من بين أهم خيارات هذا البرنامج إمكانية إدراج فلاش ترحيبي يشتغل مع تشغيل الأسطوانة حيث يمكنك صنع أجمل الفلاشات الترحيبية ببرنامج الفلاش أم إكس أو السويتش إذا كنت تملك الخبرة في ذلك
أما إذا كانت خبرتك في مجال التعامل مع البرنامجين ضعيفة يمكنك الإستعانة بأحد برامج صناعة الفلاشات الجاهزة
مثل برنامج flash effect maker أو أي برنامج آخر
والآن بعد تصميم الفلاش الترحيبي نأتي لكيفية إدراجه في المشروع وأريد أن أنوه إلى أنه توجد طريقتين للتعامل معها
الطريقة الأولي: عن طريق إدراج الفلاش خارج المشروع
قم بفتح المشروع الذي تريد واذهب إلى Project ثم Startup Movie كما في الصورة

تطلع لنا هذه النافذة

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

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

نقوم بإدراج الفلاش في الصفحة الأولى page1 من المشروع

بعد إدراج الفلاش والتحكم فيه داخل الصفحة نذهب إلى الصفحة page1 ونختر خصائص
و نختار سكريبت ثم OnShow ونضع هذا السكريبت
كود:​

Page.StartTimer(28000);

28000 معناه 28 ثانية أي كل ثانية = 1000

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

Page.Jump("Page2");

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

 

[الموج الصامت]

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

وليكن هذا المثال والذي

أولا: نقوم بإخفاء الصور لما تشغل الأسطوانة عن طريق السكريبت
إختر سكريبت ثم On preload ثم Add Action ونختار image ثم image.SetVisible
كما ترى في الصورة

ثم نختار false ومعناه إخفاء الصورة ثم إنهاء

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

Image.SetVisible("Image1", false);

كما في الصورة

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

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

Image.SetVisible("Image1", true);

نضغط Ok ثم قم بمعاينة المشروع.
ماذا تلاحظ ؟
مشكلة ...لما تضغط على الزر تظهر الصورة ولما الماوس يترك الزر تبقى الصورة ونحن نريد ان تختفي الصورة لما يروح عليها الماوس.
ولذلك نقوم بإضافة كود الإخفاء في الزر نفسه
نضغط على الزر مرتين ثم نختار سكريبت ثم On leave ونظع كود الإخفاء السابق
كود:​

Image.SetVisible("Image1", false);

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

 

[الموج الصامت]

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

بعد فتح الملف المطلوب نقوم بإدراج combobox بالضغط على الزر المبين في الصورة

قم بكتابة الصفحات الموجودة في المشروع

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

selected_page = ComboBox.GetSelected("ComboBox1");
Page.Jump("page"..selected_page);

ثم نقوم بنسخ الكومبوبوكس الموجود في الصفحة الأولى

ونذهب إلى الصفحة الثانية والثالثة ونقوم بنسخ الكومبو بوكس

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

 

[الموج الصامت]

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

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

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

 

[الموج الصامت]

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

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

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

1- هو رقم الـ ID (المعرف) وهذا نحتاجه في السكريبت أي يتم إدراج السكريبت حسب كل معرف
وسنتعرف فيما بعد على أهميته وفي حالة تطابق معرفين تظهر رسالة من البرنامج للتنبيه
2- إسم القائمة
3- تمكين القائمة وتأكد من تفعيل هذا الخيار حتى تكون القائمة متاحة
4- تفعيل الأمر
5- هو الخط الفاصل بين القوائم كما في الصورة

أما عن كيفية إضافة القوائم فكما يلي:
القائمة الرائيسية: إضغط بيمين الماوس في المساحة البيضاء لإضافة العنصر
كما في الصورة
القوائم الفرعية: إضغط على القائمة الرئيسية واختر Add item

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

الآن نأتي لكيفية تفعيل الأوامر من خلال الأكشن سكريبت.
قم بالضغط على الخيار Project من شريط القوائم واختر Action
كما في الصورة

ونختار On Menu
ونقوم بإدراج السكريبت
مكونات السكريبت وهنا تظهر أهمية المعرف ID الذي أشرنا له في الأعلى

كهذا المثال

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

 

[الموج الصامت]

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

الدرس سهل جدا ونحتاج لأحد الملفات واسمه 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", "SetWindowTransparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
end

ثم نذهب إلى الخيار On Preload ونضع هذا الكود
كود:
sOS=String.Right(System.GetOSName(),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", "SetWindowTransparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
else
blnFade = false;
end

 

[الموج الصامت]

الاستفادة من خاصية auto save
درس اليوم هو عبارة عن ملاحظة أو تلميح عن كيفية الإستفادة من خاصية الـحفظ التلقائي Auto Save
قد تبدأ في عمل أسطوانة وتوشك على إنهائها ثم فجأة يتوقف الجهاز
أو ينقطع التيار الكهربائي خاصة إذا لم تكن تملك UPS
فتجد أن مشروعك قد راح وهذا ما حدث معي في تجميعة برامج الضغط
كنت أعمل فيها وقد أمضيت حوالي ساعة أو أكثر ولم أعمل لها حفظ وفجأة إنقطع التيار الكهربائي.
مصيبة !!! مجهود أكثر من ساعة راح أدراج الرياح لأني لم أعمل حفظ
وبعد عودة التيار الكهرباء رحت لمشروعي فوجدته على حالته الأولى كما بدأته
وهنا يأتي دور خاصية الحفظ الآلي راحت للمجلد Autosave
فوجدت آخر حفظ بـ 5دقائق قبل إنقطاع التيار الكهرباء
وبالتالي إرتحت من إعادة العمل بالكامل
ونبدأ في شرح هذه الخاصية
يمكنك عمل حفظ آلي بالوقت الذي تريد
وذلك بالذهاب إلى الأمر Edit من شريط القوائم ثم إختر perferences

إذهب إلى Scripts واختر التوقيت الذي ترد عمل حفظ به
ملاحظة: في الحالة العامة للبرنامج لا يمكن التراجع في العمل
أكثر من 10 خطوات للوراء ويمكنك رفع عدد خطوات التراجع
إلى 100 أو 1000 كما تريد

والآن كيفية الإستفادة من الملفات المحفوظة

إذهب لآخر ملف محفوظ في المجلد autosave
واعمل له نسخ ثم إرجع للمف الأصلي للتجميعة

إعمل لصق في مجلد التجميعة

أخيرا قم بتشغيل الملف المنسوخ بدل الملف الأول
وتجد أنك قد استرجعت ملفك المفقود

 

[الموج الصامت]

التعامل مع الفيديو
تكلمنا سابقا عن تشغيل الفيديو عن طريق WMP Plugin وكيفية إدراجه في المشروع
أما درس اليوم فهو كيفية إدراج الفيديو بدون البلنج السابق الذكر
وسنتكلم عن كيفية إدراجه والتعامل معه وتشغيل الفيديو في الأسطوانة به
كيفية إدراج الفيديو
نقوم بإدراج الفيديو بالضغط على Ctrl + 5 من لوح المفاتيح
أو بالذهاب إلى الأمر Object ثم Video
أو بالضغط على الأيقونة المبينة في الصورة

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

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

تطلع هذه الصفحة

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

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

Video.Pause("Video1");

===============================================
بعد أن تحكمنا في الفيديو نأتي لوضع الأكواد الخاصة بتشغيل الفيديو
توجد العديد من الطرق لإدراج الفيديو (كومبوبوكس أو لست بوكس ..)
وفي أسطوانتي هذه قمت بوضع مجموعة من الفيديو المضحكة
وكل فيديو عنده رقم كما تلاحظ من 1 إلى 11 وكلما تضغط على رقم تشغل فيديو
ولعمل ذلك قم بوضع رقم لكل فيديو أو إسمه في زر أو كتابة واضغط عليه مرتين

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

ثم نقوم بتحديد الفيديو المناسب ونفعل الخيار True الأول

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

كود:​

Video.Load("Video1", "AutoPlay\\Videos\\Your Video.wmv", true, false);

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

 

[الموج الصامت]

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

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

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

وبالتالي نحصل على مثل هذا التصميم

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

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 name visible and path as data
tbFilePath = String.SplitPath(file_path);
sFile = tbFilePath.Filename..tbFilePath.Extension;
ComboBox.AddItem("ComboBox1", sFile, file_path);
end
end
end
--Allow display the updated content
ComboBox.SetUpdate("ComboBox1", true);

كما ترى في الصورة

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

-- 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

كما تري

ثم نذهب لكود الإيقاف المؤقت ونضع هذا الكود
كود:​

Video.Pause("Video1");

ونذهب لكود الإيقاف ونضع هذا الكود
كود:​

Video.Stop("Video1");

الأن نقوم بمعاينة المشروع وترى النتيجة
ملاحظة: قد تريد مشاهدة الفيديو بالخيار ملء الشاشة Full Screen ويمكنك ذلك وذلك بوضع كود ملء الشاشة
والأفضل أن يتم وضعه في الفيديو نفسه أي لما تضغط على الفيديو مرة يتم عرضه بملء الشاشة ولما تضغط عليه مرة أخرى يعود للحالة الطبيعية في الأسطوانة
ولعمل ذلك إضغط على الفيديو مرتين واذهب إلى سكريبت وضع هذا الكود
كود:​

Video.SetFullScreen("Video1", true);

وهذا هو الشكل النهائي