القراءة التلقائية في الميديابلاير

[محمد بن أحمد أبو حذيفة]

السلام عليكم
عندي مجموعة من الاصورات

كيف اجعل قرائتها تلقائية .... اي واحدة تلو الاخرى

ولكم جزيل الشكر

[عبود عبود]

تختلف الطرق لعمل ذلك فعلى سبيل المثال " باستخدام الميديا بلير فقط مع زر أو أى أوبجيكت آخر غير الزر "

يوضع هذا الكود للزر :

sounds={"001","002","003","004"};
a=1
MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\qq\\"..sounds[a]..".mp3");


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

بالنسبة لخصائص الميديا بلير فى الحدث "On Play" يكون الكود كالتالى :

a=a+1

بمعنى أن أثناء تشغيل الميديا سيكون المتغير a يساوى المتغير الأصلى بإضافة 1 إلية .

بالنسبة لخصائص الميديا بلير فى الحدث "On Finish" يكون الكود كالتالى :

if a<=4 then
MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\qq\\"..sounds[a]..".mp3");
else
MediaPlayer.Stop("Plugin1");
end

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

:abc_083: طبعا المسار للصوتيات يتم تبديلة كما تريد فعلى سبيل المثال كما هو موضح بالكود قمت بوضع الصوتيات داخل مجلد qq داخل مجلد Audio فى المشروع .

أظن كدا الكود واضـــــــــــح .

تحياتى

[محمد بن أحمد أبو حذيفة]

لكن كيف تكون قراءة متتالية اي عندما اضغط على عنصر من الليست بوكس يتم قراءة القائمة كاملا من الليست بوكس دون تدخل مني

[أبو يوسف]

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


تحياتي لكما

[أبو محسن]

والله الكود كان عندي وفي أروع ما يكون ...

لاكن للأسف ما أدري وين راح علي ..:abc_070:

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

[محمد بن أحمد أبو حذيفة]

هذا هو الكود يوضع في الميديا بلاير عند الحدث
on finish

nCount ="";
nNext ="";
sFile ="";
nCount = ListBox.GetCount("ListBox1");
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
nSelected = tSelected[1];
nNext = nSelected;
if nNext < nCount then
nNext = nNext+1;
ListBox.SelectItem("ListBox1", nNext);
sFile = ListBox.GetItemData("ListBox1", nNext);
--MediaPlayer.Load("Plugin1", sFile);
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\10\\"..sFile..".mp3");
MediaPlayer.Play("media_player");
elseif nNext == nCount then
ListBox.SelectItem("ListBox1", 1);
sFile = ListBox.GetItemData("ListBox1", 1);
--MediaPlayer.Load("Plugin1", sFile);
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\10\\"..sFile..".mp3");
MediaPlayer.Play("media_player");
end
end

[أبو فارس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .