1. الإدارة العامة

    صفحة منتديات زيزووم للأمن والحماية

  2. الإدارة العامة

    الصفحة الرسمية لمنتديات زيزووم للأمن والحماية الفيس بوك

  3. الإدارة العامة

    الصفحة الرسمية لمنتديات زيزووم للأمن والحماية التلكرام

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

الموضوع في 'منتدى الدّورات العامّة ولُغات البرمجة' بواسطة عوض السوداني, بتاريخ ‏نوفمبر 2, 2020.

  1. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    التعامل مع الصوتيات في البرنامج
    سنتعلم اليوم إن شاء الله تعالى كيفية التعامل مع الصوتيات و عمل مشغل صوتيات خاص بك
    ولعمل ذلك نحتاج لمجموعة من الأزرار
    كما في الصورة
    [​IMG]
    بعد تهيئة الأزرار المناسبة والتصميم المناسب نبدأ في عمل مشغل الصوتيات وليكن هذا التصميم
    [​IMG]
    نذهب لزر الإستكشاف ونضغط عليه مرتين لفتح خصائصة ثم نذهب إلى سكريبت ثم 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);
    
    كما في الصورة
    [​IMG]
    ثم نذهب لزر الإيقاف ونضغط مرتين عليه ونذهب إلى سكريبت ثم On Click ونضع هذا الكود
    كود:
    Audio.Stop(CHANNEL_NARRATION);
    
    ونعمل نفس الشيء بالنسبة للتشغيل والإيقاف المؤقت
    كود التشغيل
    كود:
    Audio.Play(CHANNEL_NARRATION);
    
    كود الإيقاف المؤقت
    كود:
    Audio.Pause(CHANNEL_NARRATION);
    
    كما ترى في هذه الصورة
    [​IMG]
    الآن نذهب لوضع أمر التسريع للأمام والخلف بأي مقدار تريد
    حيث نقوم بالضغط مرتين على زر التسريع للخلف ونختار On click
    ثم نضغط على Add Action وتطلع هذه الصورة ونختار Audio ثم Audio.Seek
    كما في الصورة
    [​IMG]
    [​IMG]
    وبالتالي نحصل على هذا الكود
    كود:
    Audio.Seek(CHANNEL_NARRATION, SEEK_BACKWARD, 15);
    
    بنفس الطريقة نضع أمر التسريع للأمام فبدل أن نختار التراجع للخلف نختار Seek_Forward كما في الصورة
    [​IMG]
    ونحصل على هذا الكود
    كود:
    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);
    
    [​IMG]
    ثم زر زيادة الصوت كما يلي:
    كود:
    vol = Audio.GetVolume(CHANNEL_NARRATION) + 15;
    if vol < 0 then
    vol = 0;
    elseif vol > 255 then
    vol = 255;
    end
    Audio.SetVolume(CHANNEL_NARRATION, vol);
    
    كما في الصورة
    [​IMG]
    وبهذا نكون قد صنعنا مشغل ميديا خاص بنا
    ويمكن وضع هذه الطريقة في أسطوانة عادية أو تجميعة وبالتالي تعطي الخيار للمستعمل أن يختار الصوتيات المفضلة في جهازه والإستماع لها أثناء تصفه للأسطوانة
    وحمل المثال المرفق لمتابع العمل
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  2. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    التعامل مع الفيديو
    تكلمنا سابقا عن تشغيل الفيديو عن طريق WMP Plugin وكيفية إدراجه في المشروع
    أما درس اليوم فهو كيفية إدراج الفيديو بدون البلنج السابق الذكر
    وسنتكلم عن كيفية إدراجه والتعامل معه وتشغيل الفيديو في الأسطوانة به
    كيفية إدراج الفيديو
    نقوم بإدراج الفيديو بالضغط على Ctrl + 5 من لوح المفاتيح
    أو بالذهاب إلى الأمر Object ثم Video
    أو بالضغط على الأيقونة المبينة في الصورة
    [​IMG]
    بعد الضغط تطلع لك هذه الصورة وهي لإختيار الفيديو المراد وضعه في الأسطوانة
    [​IMG]
    قم باختيار الفيديو واضغط على Ok
    التحكم في خصائص الفيديو
    بعد إدراج الفيديو نقوم بتحديد خصائصه ولونه وإدراج الماسك له
    ولذلك نقوم بالضغط على الفيديو بيمين الماوس ونختر خصائص
    [​IMG]
    تطلع هذه الصفحة
    [​IMG]
    1– إدراج الفيديو
    2- للتحكم في لون خلفية الفيديو
    3- إستايل الفيديو
    4- التحكم في إظهار الوقت في الفيديو
    إما إنك تظهر الوقت المتبقي والكلي للفيديو أو أحدهما
    5- لون خلفية شريط الوقت
    6- لون النص (التوقيت)
    7- إظهار/إخفاء أزرار التحكم في الفيديو
    8- إظهار /إخفاء شريط الوقت
    9- تشغيل تلقائي
    10- إعادة عرض الفيديو بعد إنتهائه
    11- وضع إطار للفيديو
    12- وضع ماسك للفيديو
    ويمكنك تجربة ما تم شرحه نقطة بنقطة لفهمه.
    بعد التحكم في خصائص الفيديو نحصل مثل هذا الفيديو
    لون خلفيته بلون الخلفية للمشروع
    وبالتالي فإن مستعمل الأسطوانة لا يفرق بين الفيديو والخلفية
    [​IMG]
    ملاحظة: لما تقوم بمعاينة الفيديو ربما تلاحظ تشغيله تلقائيا
    ويمكنك إلغاء التشغيل التلقائي للفيديو بإلغاء علامة صح في النقطة رقم 9 التي تم شرحها
    أو عن طريق السكريبت
    إضغط مرتين على صفحة العمل ثم إذهب إلى سكريبت ثم On Show وضع هذا الكود
    كود:
    Video.Pause("Video1");
    
    [​IMG]
    ===============================================
    بعد أن تحكمنا في الفيديو نأتي لوضع الأكواد الخاصة بتشغيل الفيديو
    توجد العديد من الطرق لإدراج الفيديو (كومبوبوكس أو لست بوكس ..)
    وفي أسطوانتي هذه قمت بوضع مجموعة من الفيديو المضحكة
    وكل فيديو عنده رقم كما تلاحظ من 1 إلى 11 وكلما تضغط على رقم تشغل فيديو
    ولعمل ذلك قم بوضع رقم لكل فيديو أو إسمه في زر أو كتابة واضغط عليه مرتين
    [​IMG]
    نذهب إلى سكريبت ثم On click ونضغط على Add action ونختار Video ثم Video.Load
    [​IMG]
    ثم نقوم بتحديد الفيديو المناسب ونفعل الخيار True الأول
    [​IMG]
    وبالتالي نحصل على هذا الكود
    [​IMG]
    كود:
    Video.Load("Video1", "AutoPlay\\Videos\\Your Video.wmv", true, false);
    
    وهكذا نفعل مع الفيديو الثالث والرابع و... .
    ولما نضغط على إسم الفيديو سيتم تشغيله وإيقاف سابقه.
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  3. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    عمل قائمة لاستعراض الفيديو داخل الأسطوانة
    كنا قد تعلمنا كيفية إدراج الفيديو في الدرس السابق أما اليوم فسنتعلم كيفية عمل قائمة لإستعراض الفيديو من الجهاز وتشغيله داخل الأسطوانة
    ولذلك نحتاج إلى زر الاستكشاف وزر التشغيل وزر الإيقاف والإيقاف المؤقت بالإضافة إلى كومبوبوكس وفيديو بالضغط على الأيقونات المبينة في الصورة
    [​IMG]
    نقوم بالضغط على الفيديو مرتين ونزيل التشغيل التلقائي والإعادة المينين في الصورة ويمكنك التحكم في الفيديو وخصائصه ولون خلفيته كما تم شرحه في الدرس الاسبق
    [​IMG]
    نذهب إلى الكومبو بوكس ونضغط عليه مرتين ونكتب مثلا [ إختر فيديو ]
    [​IMG]
    وبالتالي نحصل على مثل هذا التصميم
    [​IMG]
    نذهب إلى زر البحث عن الفيديو أو الإستكشاف ونضع هذا الكود
    كود:
    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);
    
    كما ترى في الصورة
    [​IMG]
    ثم نذهب إلى زر التشغيل ونضع هذا الكود
    كود:
    -- 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
    
    كما تري
    [​IMG]
    ثم نذهب لكود الإيقاف المؤقت ونضع هذا الكود
    كود:
    Video.Pause("Video1");
    
    ونذهب لكود الإيقاف ونضع هذا الكود
    كود:
    Video.Stop("Video1");
    
    الأن نقوم بمعاينة المشروع وترى النتيجة
    ملاحظة: قد تريد مشاهدة الفيديو بالخيار ملء الشاشة Full Screen ويمكنك ذلك وذلك بوضع كود ملء الشاشة
    والأفضل أن يتم وضعه في الفيديو نفسه أي لما تضغط على الفيديو مرة يتم عرضه بملء الشاشة ولما تضغط عليه مرة أخرى يعود للحالة الطبيعية في الأسطوانة
    ولعمل ذلك إضغط على الفيديو مرتين واذهب إلى سكريبت وضع هذا الكود
    كود:
    Video.SetFullScreen("Video1", true);
    
    [​IMG]
    وهذا هو الشكل النهائي
    [​IMG]
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  4. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    إظهار صورة داخل الفيديو أثناء توقف الفيديو
    من خلال درسي الفيديو السابقين لاحظنا أن الفيديو في حالة التوقف تظهر مساحة الفيديو سوداء وبالتالي فإن الأسطوانة لاتظهر بالشكل المطلوب ومن خلال هذا الدرس اريد التنبيه إلى أنه يمكن وضع صورة أثناء الإنتظار في الفيديو وبعد إنتهائه أو إيقافه
    ولعمل ذلك إذهب إلى الصفحة واضغط عليها بينمن الماوس واختر خصائص
    [​IMG]
    وتطلع لنا نافذة الخصائص نختار سكريبت ثم On Show ونضع هذا الكود بعد وضع الصورة في مجلد الصور
    كود:
    Video.Load("Video1", "AutoPlay\\Images\\Your Image.jpg", true, true);
    
    كما ترى في الصورة
    [​IMG]
    نريد أن تظهر الصورة في حالة تشغيل الأسطوانة وقد وضعنا الكود السابق
    كما نريد أن تظهر الصورة في حالة توقف الفيديو وفي حالة إنتهائه
    نذهب إلى الفيديو ونضغط عليه بيمين الماوس ونختار خصائص ثم On Stop ونضع نفس الكود السابق
    كود:
    Video.Load("Video1", "AutoPlay\\Images\\Your Image.jpg", true, true);
    
    وكذلك نضع نفس الكود في On Finish
    كود:
    Video.Load("Video1", "AutoPlay\\Images\\Your Image.jpg", true, true);
    
    [​IMG]
    نضغط Ok ونقوم بالمعاينة وترى النتيجة
    [​IMG]
    وإلى اللقاء في درس آخر
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  5. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    كيفية عمل أسطوانة بملء الشاشة Full screen
    سنتعلم في هذا الدرس إن شاء الله كيفية عمل أسطوانة بملء الشاشة بدون ظهور شريط عنوان وشريط المهام في الأسفل
    ولعمل ذلك إذهب إلى المشروع ثم إذهب إلى الخيار Project واختر Settings
    [​IMG]
    تطلع لك نافذة الخصائص واختر Appearance
    إختر الأستايل Kiosk واختر لون الخلفية
    قم بوضع مقاس الأسطوانة وأفضل مقاس للأسطوانات بملء الشاشة هو 800 x 600
    لأنه يتوافق مع مقاس الشاشة في الحالتين 800/600 و1024/768
    ثم قم بوضع الأيقونة المناسبة للأسطوانة كما ترى في الصورة.
    [​IMG]
    وهذا مثال للأسطوانة في حالة وجود شريط العنوان
    [​IMG]
    وهذا المثال في حالة ملء الشاشة
    [​IMG]
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  6. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    كيفية انشاء متصفح أنترنيت داخل التجميعة
    من بين خصائص هذا البرنامج قدرته على قراءة صفحات الأنترنيت داخل الأسطوانة بدل أنك تضع زر لزيارة موقع بالمتصفح العادي للويندوز وبالطريقة الكلاسيكية المعرفة، حيث يمكنك صنع متصفح خاص بك يمكنك إستعماله ووضع فيه أفضل المواقع التي تريد
    ولعمل متصفح قم بفتح المشروع الذي تريد وقم بإدراج صفحة ويب بالضغط على الزر الموضح في الصورة
    [​IMG]
    قم بوضع عنوان الصفحة في الحالة العامة
    [​IMG]
    الآن نقوم بوضع مجموعة من الأزرار التي تشبه أزرار المتصفح
    مثل زر العودة للوراء والأمام والتوقف والطباعة كما ترى في الصورة
    [​IMG]
    نقوم بوضع الأكواد الخاصة بكل زر من الأزرار
    قم بالضغط على الزر مرتين أو بيمين الماوس واختر خصائص كما ترى
    [​IMG]
    إختر سكريبت ثم On click ثم Add Action
    ثم إختر ويب Web وقم بإختيار الخيار المناسب لكل زر من بين هذه الخيارات
    [​IMG]
    وهذه الأكواد الخاصة بكل زر ويتم الحصول عليها بنفس هذه الصورة السابقة
    كود العودة للخلف
    كود:
    Web.Back("Web1");
    
    كود التقدم للأمام
    كود:
    Web.Forward("Web1");
    
    كود إيقاف الصفحة
    كود:
    Web.Stop("Web1");
    
    كود إعادة بعث الصفحة
    كود:
    Web.Refresh("Web1");
    
    كود الطباعة
    كود:
    Web.Print("Web1");
    
    [​IMG]
    بعد أن قمنا بوضع الأزرار للتحكم في المتصفح ماذا ينقص في المتصفح؟
    ينقص شريط العنوان
    نقوم بإدراج شريط العنوان عن طريق الضغط على أيقونة New Input objet
    لإدراج شريط العنوان
    [​IMG]
    نقوم بالضغط عليه مرتين ونضع هذا الكود
    كود:
    if e_Key == 13 then
    end
    
    [​IMG]
    لما نقوم بوضع شريط العنوان لايمكن أن يبقى لوحده إذ يجب أن يكون الزر GO لتنفيذ الموقع الموجود في الـ Input objet
    قم بإدراج الزر GO واضغط عليه مرتين وقم بوضع هذا السكريبت
    كود:
    Web.Load("Web1", Input.GetText("Input1"));
    
    [​IMG]
    وبهذا نكون قد قمنا بصنع متصفح خاص بنا كهذا المثال والذي هو مرفق.
    [​IMG]
    أتمنى يفيدكم الدرس وسيتم فيما بعد إن شاء الله معرفة كيفية وضع محرك البحث Google داخل التجميعة
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  7. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    كيفية جعل محرك البحث الشهير Google في الأسطوانة
    تعرفنا في الدرس السابق كيفية التعامل وإنشاء متصفح خاص بنا
    وسنتعلم الآن إن شاء الله كيفية جعل محرك البحث الشهير google في الأسطوانة
    بحيث يمكنك البحث في هذا الموقع بمجرد وضع الكلمة المفتاحية التي تبحث عنها
    والضغط على search ليبدأ في البحث
    ولعمل ذلك نعود للمثال السابق و قم بإدراج New Input objet
    [​IMG]
    كما في الصورة
    [​IMG]
    قم بالضغط عليه مرتين وضع هذا الكود
    كود:
    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
    
    كما في الصورة
    [​IMG]
    ثم نقوم بوضع الزر Search لتنفيذ البحث
    [​IMG]
    ونضع هذا الكود
    كود:
    url = Input.GetText("Input2");
    current = Web.GetURL("Web1");
    Web.LoadURL("Web1", "http://www.google.com/search?query="..url, SW_SHOWNORMAL);
    
    كما في الصورة
    [​IMG]
    وقم بالضغط على Ok ثم إضغط على F5 من لوح المفاتيح للمعاينة وابحث كما تشاء في محرك البحث Google
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  8. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    كيفية عمل أسطوانة للقرآن الكريم (الخطوة الأولى من الشرح)
    في هذا الجزء والذي يليه سنتعلم كيفية عمل أسطوانة للقرآن الكريم في صفحة واحدة من المشروع للشيخ الذي تفضل أن تستمع له، تلبية لطلبات بعض الإخوة الذين استفسروا عن ذلك.
    في بادئ الأمر نحمد الله عز وجل على هذه النعمة التي سخرت في خدمة الدين والقرآن وعلى هذا البرنامج، ولذلك نرجوا من الإخوة أستخدامه فيما يرضي الله عز وجل، وإنا لنتعجب من البعض الذين يجهدون أنفسهم في صنع أقراص وأسطوانات الغناء أو غير ذلك فيوزعها فيحمل وزرها ووزر من يستعملها، وتخيل عزيزي لو ان البرنامج يستعمل في صنع أسطوانات القرآن الكريم أو المحاضرات أو الدروس ، أليس تنفع صاحبها حتى بعد موته !!!.
    وبدون إطالة نبدأ بكيفية صنع الأسطوانة
    أولا: نقوم بإدراج ListBox نحتاجها لوضع سور القرآن
    [​IMG]
    بعد إدراج اللسب بوكس نضغط عليه مرتين ونقوم بإدراج جميع سور القرآن في الجهة اليسرى
    وإسم السورة الموجود في المجلد Audio في مجلد الأسطوانة والمقابلة للسورة المراد تشغيلها ويفضل إستعمال السور بإمتداد mp3 لصغر حجمه
    وإننا نحتاجه فيما بعد لأننا سنشغله على الميديا بلاير فيما بعد
    [​IMG]
    هذه صورة الـ ListBox بعد إدراج جميع السور
    [​IMG]
    الآن نقوم بالضغط على الـ ListBox مرتين ونختار سكريبت ثم On Double-Click ثم Add Action
    [​IMG]
    ونختار لست بوكس ثم listBox.GetListBox كما في الصورة
    [​IMG]
    نختار اللست بوكس 1 ثم نكتب هذه النتيجة tbl_selected
    كما في الصورة
    ثم نضيف هذا السكريبت للسكريبت السابق
    كود:
    result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
    
    والآن نقوم بإضافة هذا السكريبت المؤقت لأننا سنتخلى عنه فيما،
    أي أننا نقوم بتشغيل الصوتيات خارج الأسطوانة لحد الآن
    كود:
    File.Open("AutoPlay\\Audio\\"..result..".mp3", "", SW_SHOWNORMAL);
    
    وفي الأخير نحصل على هذا السكريبت كما في الصورة
    [​IMG]
    الآن نقوم بالضغط على ok ثم نقوم بالمعاينة
    [​IMG]
    كان هذا درس كيفية تشغيل الملفات عن طريق اللست بوكس خارج الأسطوانة وسنتعلم في الدرس القادم إن شاء الله كيفية تشغيل الصوتيات داخل الأسطوانة بدل المشغل الموجود في الجهاز.
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  9. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10

    عمل أسطوانة للقرآن الكريم (الجزء الثاني)
    قبل أن نشرع في الجزء الثاني من الشرح لدي ملاحظة على الدرس السابق
    وهي أنه يمكن تسمية الصوتيات في المجلد Audio باللغة العربية لكن يجب أن تكون الـ Data المقابل في سكريبت اللست بوكس باللغة العربية كذلك وقم بملاحظة الصورة التالية لفهم ذلك
    [​IMG]
    هذا الذي أردت الإشارة إليه والآن نعود لأسطوانتنا
    كان في الدرس السابق في العنصر الأول إدراج ListBox
    ثانيا: إدراج MediaPlayer plugin داخل الأسطوانة
    والهدف منه تشغيل السور الموجود في اللست بوكس داخل الأسطوانة
    ولعمل ذلك نقوم بالضغط مرتين على صفحة العمل ونختار Plugins ثم MediaPayer
    كما ترى في الصورة
    [​IMG]
    قم بالتحكم في مكانه وطوله وعرضه
    [​IMG]
    نعود الآن لـ ListBox ونضغط عليها بيمين الماوس ونختار خصائص
    [​IMG]
    نذهب إلى سكريبت ثم 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");
    
    كما ترى في الصورة
    [​IMG]
    نضغط Ok ونقوم بالمعاينة ونرى النتيجة
    [​IMG]
    كانت هذه الخطوة الثانية من إعداد الأسطوانة
    ويتبع الخطوة الثالثة إن شاء الله
     

    الملفات المرفقة:

    Ghost rider7 و Mohammed Abuelgasim معجبون بهذا.
  10. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10


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



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



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



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



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

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

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


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

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



    نختار السورة التي نريد جعلها على شكل صفحة ويب
    [​IMG]

    بعد إدراج السورة نقوم بحفظ الصفحة ونذهب إلى الأمر file ثم save as
    [​IMG]

    نقوم بإعطاء إسم للملف المراد حفظه ويجب تسميته بإسم السورة الملقابلة لها في المجلد Audioونضغط على حفظ
    [​IMG]



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

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

    ونقوم بإدراج صفحة ويب بالضغط على الأيقونة المبينة في الصورة
    [​IMG]



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

    نقوم باختيار الصفحة الرتحيبية كما في الصورة وتجدها في الملف المرفق
    [​IMG]

    نضع الصفحة في المكان المناسب ونتحكم في طولها وارتفاعها كما ترى
    [​IMG]

    نضغط مرتين على صفحة الويب ونسميها Web1 كما في الصورة
    [​IMG]

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

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



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


    قم بالضغط على Ok ثم F5 للمعاينة وترى النتيجة
    [​IMG]

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

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

     
    أعجب بهذه المشاركة Ghost rider7
  11. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10
    شرح كيفية عمل أسطوانة للقرآن الكريم
    طريقة ثانية

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


    1.jpg

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

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



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



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

     
    أعجب بهذه المشاركة Ghost rider7
  12. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10
    وهذه ملاحظة تتعلق بالدرس السابق وهي كيفية إظهار رسالة في حالة عدم إختيار السورة

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


    وأتمنى تفيدكم الملاحظة وكالعادة أي استفسار أنا جاهز

     
    أعجب بهذه المشاركة Ghost rider7
  13. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10
    كيفية إختراق وكسر حماية التجميعات
    1.jpg
     
    أعجب بهذه المشاركة Ghost rider7
  14. MesterPerfect

    MesterPerfect زيزوومي VIP ★ نجم المنتدى ★ عضوية موثوقة ✔️

    إنضم إلينا في:
    ‏نوفمبر 5, 2016
    المشاركات:
    25,162
    الإعجابات :
    32,401
    نقاط الجائزة:
    10,370
    الجنس:
    ذكر
    الإقامة:
    sohag, Egypt
    برامج الحماية:
    Kaspersky
    نظام التشغيل:
    Windows 10
    بسم الله ما شاء الله
    دورة قيمة جدا وفي غاية الإفادة
    بوركت أخي الحبيب وأستازنا الفاضل @عوض السوداني على هذا المجهود الطيب في التنظيم والتنسيق والنشر
    جعله الله في موازينك
    يتم تثبيت الموضوع لمدة 10 أيام متجددة دائما إن شاء الله
    تحياتي لك أخي الغالي
     
    أعجب بهذه المشاركة عوض السوداني
  15. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10
    تشرفت بمرورك الكريم وتشجيعك الدائم
    جعلها الله في ميزان حسناتنا جميعا
    اتمني أن يستفيد منها الجميع ونري ابداعاتكم قريبا
    وارجو من الجميع عدم الإستخدام فيما يغضب الله
    تحياتي وتقديري لكم
     
    m_uons2002 و abukhaled معجبون بهذا.
  16. أسيرالشوق

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

    إنضم إلينا في:
    ‏يونيو 2, 2008
    المشاركات:
    43,022
    الإعجابات :
    22,499
    نقاط الجائزة:
    4,750
    الجنس:
    ذكر
    الإقامة:
    السعودية
    برامج الحماية:
    اخرى
    نظام التشغيل:
    windows 11
    بارك الله فيك
    شكراً على حضورك ومشاركتك
     
    أعجب بهذه المشاركة abukhaled
  17. abukhaled

    abukhaled زيزوومي VIP ★ نجم المنتدى ★

    إنضم إلينا في:
    ‏يوليو 20, 2007
    المشاركات:
    2,723
    الإعجابات :
    2,547
    نقاط الجائزة:
    2,750
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows8.1
    العلم بحر
    ماشاء الله تبارك الله
    شكرا على الشرح اللى اكثر من رائع

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

    مصطفى المصرى زيزوومي ماسى

    إنضم إلينا في:
    ‏أكتوبر 11, 2020
    المشاركات:
    1,099
    الإعجابات :
    1,680
    نقاط الجائزة:
    1,120
    الجنس:
    ذكر
    الإقامة:
    دبى
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10
    الدورة رائعة والاروع هو شرحك سلس والابداع فى التنسيق والتنظيم حقيقى كلمة شكر لا تكفى
    تحياتى وتقديرى لشخصك
     
    أعجب بهذه المشاركة عوض السوداني
  19. XPRISTO

    XPRISTO مراقب عام طـــاقم الإدارة ★ نجم المنتدى ★ نجم الشهر عضوية موثوقة ✔️

    إنضم إلينا في:
    ‏ابريل 5, 2011
    المشاركات:
    11,403
    الإعجابات :
    22,686
    نقاط الجائزة:
    12,575
    الجنس:
    ذكر
    الإقامة:
    Deutschland
    برامج الحماية:
    ESET
    نظام التشغيل:
    Windows 10
    ما شاء الله تبارك الرحمن
    عمل اكثر من رائع أخي الحبيب
    ودي وتقديري

    :rose::heart::rose:
     
    أعجب بهذه المشاركة عوض السوداني
  20. عوض السوداني

    عوض السوداني داعم للمنتدى داعــــم للمنتـــــدى عضو المكتبة الإلكترونية نجم الشهر

    إنضم إلينا في:
    ‏مايو 28, 2013
    المشاركات:
    1,817
    الإعجابات :
    6,222
    نقاط الجائزة:
    3,870
    الجنس:
    ذكر
    الإقامة:
    زيزووم
    برامج الحماية:
    Microsoft Security Essentials
    نظام التشغيل:
    Windows 10
    تشرفت بمروركم وردودكم الطيبة احبتي
    ننتظر ابداعاتكم قريبا ان شاء الله
    تقبلو خالص تحياتي وتقديري
     
    أعجب بهذه المشاركة abukhaled

مشاركة هذه الصفحة

جاري تحميل الصفحة...