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


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

بعد تهيئة الأزرار المناسبة والتصميم المناسب نبدأ في عمل مشغل الصوتيات وليكن هذا التصميم
p1dIWYd.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);
كما في الصورة
UGqCgmr.jpg

ثم نذهب لزر الإيقاف ونضغط مرتين عليه ونذهب إلى سكريبت ثم On Click ونضع هذا الكود
كود:
Audio.Stop(CHANNEL_NARRATION);
ونعمل نفس الشيء بالنسبة للتشغيل والإيقاف المؤقت
كود التشغيل
كود:
Audio.Play(CHANNEL_NARRATION);
كود الإيقاف المؤقت
كود:
Audio.Pause(CHANNEL_NARRATION);
كما ترى في هذه الصورة
NODbtoo.jpg

الآن نذهب لوضع أمر التسريع للأمام والخلف بأي مقدار تريد
حيث نقوم بالضغط مرتين على زر التسريع للخلف ونختار On click
ثم نضغط على Add Action وتطلع هذه الصورة ونختار Audio ثم Audio.Seek
كما في الصورة
MvvobGA.jpg

YEj8dnm.jpg

وبالتالي نحصل على هذا الكود
كود:
Audio.Seek(CHANNEL_NARRATION, SEEK_BACKWARD, 15);
بنفس الطريقة نضع أمر التسريع للأمام فبدل أن نختار التراجع للخلف نختار Seek_Forward كما في الصورة
1KNiNOI.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);
PvNZLjI.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);
كما في الصورة
OSRg7CB.jpg

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

المرفقات


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

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

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

تطلع هذه الصفحة
GwD5pco.jpg

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

ملاحظة: لما تقوم بمعاينة الفيديو ربما تلاحظ تشغيله تلقائيا
ويمكنك إلغاء التشغيل التلقائي للفيديو بإلغاء علامة صح في النقطة رقم 9 التي تم شرحها
أو عن طريق السكريبت
إضغط مرتين على صفحة العمل ثم إذهب إلى سكريبت ثم On Show وضع هذا الكود
كود:
Video.Pause("Video1");
w3OP1eR.jpg

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

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

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

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

كود:
Video.Load("Video1", "AutoPlay\\Videos\\Your Video.wmv", true, false);
وهكذا نفعل مع الفيديو الثالث والرابع و... .
ولما نضغط على إسم الفيديو سيتم تشغيله وإيقاف سابقه.
 

المرفقات


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

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

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

وبالتالي نحصل على مثل هذا التصميم
BUxRj5r.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 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);
كما ترى في الصورة
Dj0sVG4.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
كما تري
efVQ2yw.jpg

ثم نذهب لكود الإيقاف المؤقت ونضع هذا الكود
كود:
Video.Pause("Video1");
ونذهب لكود الإيقاف ونضع هذا الكود
كود:
Video.Stop("Video1");
الأن نقوم بمعاينة المشروع وترى النتيجة
ملاحظة: قد تريد مشاهدة الفيديو بالخيار ملء الشاشة Full Screen ويمكنك ذلك وذلك بوضع كود ملء الشاشة
والأفضل أن يتم وضعه في الفيديو نفسه أي لما تضغط على الفيديو مرة يتم عرضه بملء الشاشة ولما تضغط عليه مرة أخرى يعود للحالة الطبيعية في الأسطوانة
ولعمل ذلك إضغط على الفيديو مرتين واذهب إلى سكريبت وضع هذا الكود
كود:
Video.SetFullScreen("Video1", true);
1FBk8Cv.jpg

وهذا هو الشكل النهائي
oTpU2UR.jpg

 

المرفقات


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

وتطلع لنا نافذة الخصائص نختار سكريبت ثم On Show ونضع هذا الكود بعد وضع الصورة في مجلد الصور
كود:
Video.Load("Video1", "AutoPlay\\Images\\Your Image.jpg", true, true);
كما ترى في الصورة
Zu2DBHi.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);
o30eNDV.jpg

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

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

المرفقات


كيفية عمل أسطوانة بملء الشاشة Full screen
سنتعلم في هذا الدرس إن شاء الله كيفية عمل أسطوانة بملء الشاشة بدون ظهور شريط عنوان وشريط المهام في الأسفل
ولعمل ذلك إذهب إلى المشروع ثم إذهب إلى الخيار Project واختر Settings
LN8zeCr.jpg

تطلع لك نافذة الخصائص واختر Appearance
إختر الأستايل Kiosk واختر لون الخلفية
قم بوضع مقاس الأسطوانة وأفضل مقاس للأسطوانات بملء الشاشة هو 800 x 600
لأنه يتوافق مع مقاس الشاشة في الحالتين 800/600 و1024/768
ثم قم بوضع الأيقونة المناسبة للأسطوانة كما ترى في الصورة.
iJTMohA.jpg

وهذا مثال للأسطوانة في حالة وجود شريط العنوان
8d2AoBj.jpg

وهذا المثال في حالة ملء الشاشة
gTG4o30.jpg

 

المرفقات


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

قم بوضع عنوان الصفحة في الحالة العامة
AHOH7uk.jpg

الآن نقوم بوضع مجموعة من الأزرار التي تشبه أزرار المتصفح
مثل زر العودة للوراء والأمام والتوقف والطباعة كما ترى في الصورة
gb5jrIS.jpg

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

إختر سكريبت ثم On click ثم Add Action
ثم إختر ويب Web وقم بإختيار الخيار المناسب لكل زر من بين هذه الخيارات
S66bnow.jpg

وهذه الأكواد الخاصة بكل زر ويتم الحصول عليها بنفس هذه الصورة السابقة
كود العودة للخلف
كود:
Web.Back("Web1");
كود التقدم للأمام
كود:
Web.Forward("Web1");
كود إيقاف الصفحة
كود:
Web.Stop("Web1");
كود إعادة بعث الصفحة
كود:
Web.Refresh("Web1");
كود الطباعة
كود:
Web.Print("Web1");
WHKSOxJ.jpg

بعد أن قمنا بوضع الأزرار للتحكم في المتصفح ماذا ينقص في المتصفح؟
ينقص شريط العنوان
نقوم بإدراج شريط العنوان عن طريق الضغط على أيقونة New Input objet
لإدراج شريط العنوان
nmWEELU.jpg

نقوم بالضغط عليه مرتين ونضع هذا الكود
كود:
if e_Key == 13 then
end
aEXDU18.jpg

لما نقوم بوضع شريط العنوان لايمكن أن يبقى لوحده إذ يجب أن يكون الزر GO لتنفيذ الموقع الموجود في الـ Input objet
قم بإدراج الزر GO واضغط عليه مرتين وقم بوضع هذا السكريبت
كود:
Web.Load("Web1", Input.GetText("Input1"));
TLbtAsB.jpg

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

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

المرفقات


كيفية جعل محرك البحث الشهير Google في الأسطوانة
تعرفنا في الدرس السابق كيفية التعامل وإنشاء متصفح خاص بنا
وسنتعلم الآن إن شاء الله كيفية جعل محرك البحث الشهير google في الأسطوانة
بحيث يمكنك البحث في هذا الموقع بمجرد وضع الكلمة المفتاحية التي تبحث عنها
والضغط على search ليبدأ في البحث
ولعمل ذلك نعود للمثال السابق و قم بإدراج New Input objet
LCnxz8S.jpg

كما في الصورة
3YAMwNq.jpg

قم بالضغط عليه مرتين وضع هذا الكود
كود:
if e_Key == 13 then
url = Input.GetText("Input2");
current = Web.GetURL("Web1");
Web.LoadURL("Web1", "http://www.google.com/search?query="..url, SW_SHOWNORMAL);
Input.SetText("Input1" ,current);
End
كما في الصورة
794jPyi.jpg

ثم نقوم بوضع الزر Search لتنفيذ البحث
4LVPgcW.jpg

ونضع هذا الكود
كود:
url = Input.GetText("Input2");
current = Web.GetURL("Web1");
Web.LoadURL("Web1", "http://www.google.com/search?query="..url, SW_SHOWNORMAL);
كما في الصورة
yosjBvD.jpg

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

المرفقات


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

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

هذه صورة الـ ListBox بعد إدراج جميع السور
bX3Hfis.jpg

الآن نقوم بالضغط على الـ ListBox مرتين ونختار سكريبت ثم On Double-Click ثم Add Action
MJJ6pO0.jpg

ونختار لست بوكس ثم listBox.GetListBox كما في الصورة
uou1Zl0.jpg

نختار اللست بوكس 1 ثم نكتب هذه النتيجة tbl_selected
كما في الصورة
ثم نضيف هذا السكريبت للسكريبت السابق
كود:
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
والآن نقوم بإضافة هذا السكريبت المؤقت لأننا سنتخلى عنه فيما،
أي أننا نقوم بتشغيل الصوتيات خارج الأسطوانة لحد الآن
كود:
File.Open("AutoPlay\\Audio\\"..result..".mp3", "", SW_SHOWNORMAL);
وفي الأخير نحصل على هذا السكريبت كما في الصورة
RFJt79q.jpg

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

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

المرفقات


عمل أسطوانة للقرآن الكريم (الجزء الثاني)
قبل أن نشرع في الجزء الثاني من الشرح لدي ملاحظة على الدرس السابق
وهي أنه يمكن تسمية الصوتيات في المجلد Audio باللغة العربية لكن يجب أن تكون الـ Data المقابل في سكريبت اللست بوكس باللغة العربية كذلك وقم بملاحظة الصورة التالية لفهم ذلك
QH0DngE.jpg

هذا الذي أردت الإشارة إليه والآن نعود لأسطوانتنا
كان في الدرس السابق في العنصر الأول إدراج ListBox
ثانيا: إدراج MediaPlayer plugin داخل الأسطوانة
والهدف منه تشغيل السور الموجود في اللست بوكس داخل الأسطوانة
ولعمل ذلك نقوم بالضغط مرتين على صفحة العمل ونختار Plugins ثم MediaPayer
كما ترى في الصورة
koxhhuW.jpg

قم بالتحكم في مكانه وطوله وعرضه
pDhrxYp.jpg

نعود الآن لـ ListBox ونضغط عليها بيمين الماوس ونختار خصائص
AuBb6zC.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");
كما ترى في الصورة
bsbjUMZ.jpg

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

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

المرفقات



كيفية عمل أسطوانة للقرآن الكريم (الخطوة الثالثة)



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



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



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



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

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

يمكن تحميل صور سور القرآن من هذا الرابط


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

نقوم بفتح فتح ملف وورد فارغ ونذهب إلى الأمرInsert ونختار Images ثم نحدد الملف الموجود به صور سور القرآن الكريم كما في الصورة
b7whiUY.jpg




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


بعد إدراج السورة نقوم بحفظ الصفحة ونذهب إلى الأمر file ثم save as
NcL3ZXg.jpg


نقوم بإعطاء إسم للملف المراد حفظه ويجب تسميته بإسم السورة الملقابلة لها في المجلد Audioونضغط على حفظ
2kLH5AQ.jpg




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

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

ونقوم بإدراج صفحة ويب بالضغط على الأيقونة المبينة في الصورة
nnbHkF6.jpg




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


نقوم باختيار الصفحة الرتحيبية كما في الصورة وتجدها في الملف المرفق
qlWdhVa.jpg


نضع الصفحة في المكان المناسب ونتحكم في طولها وارتفاعها كما ترى
tf0ZMpF.jpg


نضغط مرتين على صفحة الويب ونسميها Web1 كما في الصورة
vsS2xdq.jpg


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

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



كود:
Web.LoadURL("Web1", "Autoplay\\Docs\\"..result..".mht");
تلاحظ إمتداد mht وأنت تقوم بوضع الإمتداد المناسب htm أو mht حسب امتداد الصفحة
q4D01hm.jpg



قم بالضغط على Ok ثم F5 للمعاينة وترى النتيجة
3VkaekZ.jpg


وحمل الملف المرفق من هنا و أتمنى يفيدكم الشرح

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

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

1.webp


المثال المرفق من هنا

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



ولمشاهدة الشرح الفلاشي من هــــــــنــــا



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

1.webp

وهو شرح فلاشي كذلك تابع لنفس الدرس ومرفق معه الكود اللازم
وأتمنى تفيدكم الملاحظة وكالعادة أي استفسار أنا جاهز
 
بسم الله ما شاء الله
دورة قيمة جدا وفي غاية الإفادة
بوركت أخي الحبيب وأستازنا الفاضل @عوض السوداني على هذا المجهود الطيب في التنظيم والتنسيق والنشر
جعله الله في موازينك
يتم تثبيت الموضوع لمدة 10 أيام متجددة دائما إن شاء الله
تحياتي لك أخي الغالي
 
توقيع : MesterPerfectMesterPerfect is verified member.
بسم الله ما شاء الله
دورة قيمة جدا وفي غاية الإفادة
بوركت أخي الحبيب وأستازنا الفاضل @عوض السوداني على هذا المجهود الطيب في التنظيم والتنسيق والنشر
جعله الله في موازينك
يتم تثبيت الموضوع لمدة 10 أيام متجددة دائما إن شاء الله
تحياتي لك أخي الغالي

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

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

:rose::heart::rose:
 
بارك الله فيك
شكراً على حضورك ومشاركتك

العلم بحر
ماشاء الله تبارك الله
شكرا على الشرح اللى اكثر من رائع

تحياتى لك الحارة

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

ما شاء الله تبارك الرحمن
عمل اكثر من رائع أخي الحبيب
ودي وتقديري

:rose::heart::rose:

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