منتدى تعليمي متعلق بالاتوبلاي ميديا ستوديو
 
الرئيسيةالتسجيلدخول

شاطر | 
 

  إضافة خاصية الإتنقال إلى الثمن المراد تلاوته في المشروع ؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
الامل الطائر



المساهمات : 57
تاريخ التسجيل : 12/03/2013

مُساهمةموضوع: إضافة خاصية الإتنقال إلى الثمن المراد تلاوته في المشروع ؟   الأربعاء مارس 20, 2013 10:46 am

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

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

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

يمكن قراءة الآية المطلوبة فى الثمن المحدد لها وهكذا .

Arrow ويمكنك رفع مثال مفتوح لتوضيح المطلوب عملة ويكون أفضل .

كما يمكن تعدد الأفكار لتنفيذ وعمل ذلك حسب إحتياج العمل .
مثال مفتـــــــــوح

http://www.mediafire.com/?f6a1w2p5c38b1qi

http://www.mediafire.com/?ley2g8g6m9ldnv2
فى زر التحفيظ طبعا يتم تحديد الاينبوت الذى يتم الحصول منة أو الكتابة فية عدد مرات التكرار وفى هذة الحالة

قمت بتحديد نفس الاينبوت رقم 1 يمكنك التغيير كما تريد :


الكود:
كود:
result = Input.GetText("Input1");
  sel = ListBox.GetSelected("ListBox1");
  items = ListBox.GetItemData("ListBox1", sel[1]);
  if String.ToNumber(result)~=0 then
      edit=true
      ap=0
  end
وفى أحداث الميديا بلير فى الحدث "On Finish" :
الكود:
كود:
if edit==true then
ap=ap+1
  if ap~=String.ToNumber(result) then
    MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..items..".mp3");
    elseif ap==String.ToNumber(result) then
      ListBox.SelectItem("ListBox1", sel[1]+1);
      edit=false
  end
else
  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
        ListBox.SelectItem("ListBox1", 1);
        sFileName = ListBox.GetItemData("ListBox1", 1);
        else
          sFileName = ListBox.GetItemText("ListBox1", nNextFileIndex);
          result = ListBox.GetItemData("ListBox1", nNextFileIndex);
          ListBox.SelectItem("ListBox1", nNextFileIndex);
          nSelect = ComboBox.GetText("ComboBox1");
    end
  end
end


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

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
ams 4 arab :: منتدى الطلبات والاستفسارات-
انتقل الى: