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

شاطر | 
 

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

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



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

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

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

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

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

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

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

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

mediafire.com ?f6a1w2p5c38b1qi

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 :: منتدى الطلبات والاستفسارات-
انتقل الى: