طلب معونة في صنع مشغل صوتيات

[زياد مقداد]

الرّجاء إعانتي كي يحصل الإنتقال من المقطع إلى الموالي تلقائيا ثمّ البرجراس بار والعداد ينتهيان قبل انتهاء المقطع إن كان طويلا مثل أغاني أم كلثوم.
و هذا رابط الملف المفتوح مع الشكر سلفا:
http://www.mediafire.com/download/sp6p6c1t21iat43/music2.rar

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
اخي النت عندي شبه منعدم لم استطع تحميل المثال
وسبق للاخ عبود ان اجاب على مثل هذا السؤال سابقا .
اذا لم يجبك احد وعادت النت الى سابق عهدها عندي سأمدك باجابة الاخ عبود كاملة
في انتظار ذلك اتمنى لك التوفيق
:abc_138:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
اخي لقد حملت الملف اخيرا ولكن للاسف تنقصني هذه الاضافة
Error: Plugin "C:\Program Files\AutoPlay Media Studio 8\Plugins\Objects\SLIDEREX\SLIDEREX.APO" is not licensed for re-distribution
لذلك لم استطع الاطلاع عليه .
فالامر في عهدة المحترفين الآن ، اجابة الاخ عبود كانت تتعلق بتتالي الصوت فقط .
المعذرة اخي على عدم المساعدة
:abc_070:

[زياد مقداد]

أخي هذا رابط السلايدر وضعه في بوجين أوبجاكت
http://www.mediafire.com/download/ahkykjiue1ei04k/SliderEx.rar
مع شكري الخاص

[عبود عبود]

جارى التحميل للمعاينه ومحاولة تقديم المساعدة

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
شكرا اخ عبود ازحت ثقلا عن كاهلي فانا كنت ملتزما نحو الاخ ادبيا بمساعدته والآن فترة امتحانات الثلاثي الثاني والاختبارات على قدم وساق .
فشكرا مجددا . موفق بإذن الله ... لك مني أجمل تحية .
:abc_022:

[ثامر أبو بلقيس]

سأتابع الرد

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
اخي هذه محاولة الهواة
http://www.gulfup.com/?ymHzDG
في انتظار مساهمة المحترفين اتمنى لك التوفيق
:abc_152:

[زياد مقداد]

شكرا أخي فرح كما أنّي أنتظر ردود الأخوين ثامر و عبّود بكلّ شوق

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله
أخي زياد لم أعرف المشكل في ملفك حاولت معه بدى لي
صعب التعديل عليه بالنسبة لي بالكيفية الموجود عليها تحقيق القراءة
المتتالية للصوتيات في ListBox يكون هو الاول بعدها تبدأ تضيف له باقي
الخصائص التي تبغي اضافتها لمشروعك
إقتراحي لك : ألغي المشروع و ابدأ من جديد و سأرسم معك نصف الطريق
افتح مشروعا
ما العناصر التي نضعهما فيه
- ListBox و خليها باسمها أي ListBox1
في on select
tblSel = ListBox.GetSelected(this);
if tblSel then
item = tblSel[1]
local sLBData = ListBox.GetItemData(this, tblSel[1]);
bel(sLBData)
end

- ضع زر في التجميعية لجلب الصوتيات من الجهاز
file = Dialog.FileBrowse(true, "زياد", _DesktopFolder, "زياد (*.mp3)|*.mp3|", "", "dat", true, false);
if file then
for i,v in pairs (file ) do
local tblSplit = String.SplitPath(v)
ListBox.AddItem("ListBox1", tblSplit.Filename, v);
end
end
ListBox.SelectItem("ListBox1", 1);

- توجه إلى global functions و ازرع
function bel(path)
Audio.Load(CHANNEL_BACKGROUND, path, true, false);
Page.StartTimer(500);
local tblSplit = String.SplitPath(path);
nLen = Audio.GetLength(CHANNEL_BACKGROUND)
kiss=true
end

- و في on timer
if kiss then
nCurPos = Audio.GetCurrentPos(CHANNEL_BACKGROUND);
nGetLength = Audio.GetLength(CHANNEL_BACKGROUND);
if Math.Round(nCurPos)== Math.Round(nGetLength) then
item = item + 1
x = ListBox.GetItemData("ListBox1", item);
ListBox.DeselectItem("ListBox1", -1);
ListBox.SelectItem("ListBox1", item);
bel(x)
Application.Sleep(2000)
end
end

بعد تحقيق المشروع عاينه و من ثمة تبدأ تزيد كل مرة
وظيفة أو لمسة معينة

[ثامر أبو بلقيس]

الان سنضيف مثلا عداد لوقت الملف الصوتي
- نضيف لتجيعيتنا عنصر Label1

في الحدث on show
Label.SetText("Label1", "00:00");

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

في on timer كنا قد كتبنا أكواد لا نمسحها نضع هذه تحتها
c = Audio.GetCurrentPos(CHANNEL_BACKGROUND);
v1= Math.Floor(c/60);
v2=Math.Floor((c/60-v1)*60)
Label.SetText("Label1", v1..":"..v2);

[ثامر أبو بلقيس]

أين أنت أخي الكريم لا يمكني مواصلة الحديث وحدي
موفق:abc_152:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
تحدث هاني نتبع فيك ....
موفق بإذن الله ... لك مني أجمل تحية .
:abc_028:

[ثامر أبو بلقيس]

الان نضيف زرين واحد يقدم الملف الصوتي الموالي
و الثاني للسابق حسب قائمة الاصوات المستدعاة

1 - زر الانتقال للموالي :
item = item + 1
x = ListBox.GetItemData("ListBox1", item);
ListBox.DeselectItem("ListBox1", -1);
ListBox.SelectItem("ListBox1", item);
ListBox.SetItemCheck("ListBox1", item, BST_CHECKED);
bel(x)

2 - زر الرجوع للسابق
item = item - 1
x = ListBox.GetItemData("ListBox1", item);
ListBox.DeselectItem("ListBox1", -1);
ListBox.SelectItem("ListBox1", item);
bel(x)


طلع ما توصلنا اليه في ملف مفتوح وشوف ماذا يمكن أن نضيف :abc_152:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
العداد لا يعمل .....
:abc_085:

[ثامر أبو بلقيس]

هات الملف المفتوح :abc_138:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
تفضل ..
http://www.gulfup.com/?fHowY9
:abc_113:

[ثامر أبو بلقيس]

1 - كود استدعاء الملفات الصوتية من الجهاز
استعمل ما أرسلته و يتيح أستدعاء أكثر عدد
2 - عنصر Label2 ؟ وأنا ذكرت Label1 عدل
في التسمية أو في الاكود أحسن وضعها Label2 بدل من Label1

واحد في on show و آخر في آخر on timer

[زياد مقداد]

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

[فرح صالحي]

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

[ياسرهتهت]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
-http://www.abc4web.net/vb/images/smilies/abc_145.gif-أخــــي ثامر-http://www.abc4web.net/vb/images/smilies/abc_145.gif-
http://im81.gulfup.com/Wjy7P.gif
أمام سعة صدرك وطيبة قلبك وحبك لتقديم العون والمساعدة
واسلوبك الرائع والبسيط في ايصال المعلومة
لا يسع أي شحص
الا ان يقف تقدير واحترام لشخصكم الكريم
ويشكركم ويدعوا لك بالخير انت وكل اهلك
-----
http://im72.gulfup.com/QJEZo.gif

[امل الماضي]

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

[ثامر أبو بلقيس]

شكرا جزيلا أخي ياسر على هذه اللوحات الفنية
لم نجد كلاما في حجم ما تقدمه شكرا جزيلا
=====
لوضع زر ايقاف مؤقت
Page.StopTimer();
Audio.Pause(CHANNEL_BACKGROUND);

ولجعل زر للمواصلة
Page.StartTimer();
Audio.Play(CHANNEL_BACKGROUND);

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
كل هذه المراحل انتهينا منها .
هذا مشغل الاخ ثامر ، التخطيط وقطع الغيار له
التجميع لي .
http://www.gulfup.com/?zwX43f
موفق بإذن الله ... لك مني أجمل تحية
. :abc_051:

[زياد مقداد]

ما أجمل التّعاون و التّحابب جمعنا الله في جنّته آمين
شكرا لكلّ من ساهم في هذا العمل وخاصّة أخويّا ثامر و فرح
وهذا ما أنتجه العمل التّشاركي مع نصيب الأسد لثامر
http://www.mediafire.com/download/jfg15lsgpw2p9ti/music13.rar

[ثامر أبو بلقيس]

بارك الله فيك أخي صالحي

عندك بعض التعديلات في ملفك
- في الزر المسؤول عن التقديم للملف الصوتي التالي
في بداية الكود نسيت حرف
item = item + 1

هذا السبب الذي يجعل الزر لا يعمل " يمكن تصحيحه "

- في عملك زرين واحد لرفع الصوت و الثاني للعكس
أدخل على الكودين و استبدل القناة ليصبح الكود حتى يتم رفع الصوت :
vol = Audio.GetVolume(CHANNEL_BACKGROUND) +15;
if vol < 0 then
vol = 0;
elseif vol > 255 then
vol = 255;
end
Audio.SetVolume(CHANNEL_BACKGROUND, vol);

وهذا للزر أقصى اليسار
vol = Audio.GetVolume(CHANNEL_BACKGROUND) -15;
if vol < 0 then
vol = 0;
elseif vol > 250 then
vol = 250;
end
Audio.SetVolume(CHANNEL_BACKGROUND, vol);


بارك الله فيك :abc_138:

[زياد مقداد]

ملاحظة صغيرة للإخوة في المقاطع الطويلة عمل
البروجريس بار يتوقف لنقل بعد6دق ويمر للمقطع
الموالي رجاء التدخل من الإخوة للمعونة مع شكري
وامتناني

[ثامر أبو بلقيس]

ما أجمل التّعاون و التّحابب جمعنا الله في جنّته آمين
شكرا لكلّ من ساهم في هذا العمل وخاصّة أخويّا ثامر و فرح
وهذا ما أنتجه العمل التّشاركي مع نصيب الأسد لثامر
http://www.mediafire.com/download/jfg15lsgpw2p9ti/music13.rar


رائع اخي زياد عمل و لا اروع
موفق :abc_138::abc_023:

[زياد مقداد]

أنا ممتن لك أخي ثامر و منك نتعلّم
شكري كذلك للعزيز فرح كما أرجو
التّحقّق من الملاحطة.. طبتم إخوة
:abc_139:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
طبتم اخواني جميعا وطاب مسعاكم وتبوأتم من الجنة منزلا
ونسأل الله ان يجمعنا جميعا في دار مقامته انه سميع قريب مجيب .
اخي حكاية الملاحظة الاخيرة خاصة بكبار المحترفين وأنا لست منهم .
موفق بإذن الله ... لك مني أجمل تحية
:abc_050::abc_152:. :abc_152:

[زياد مقداد]

أخي ثامر أنتظر تدخلك بالنسبة لملاحظتي
تحيّاتي القلبية

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
اعذر تدخلي اخي ، حسب ما طالعت وبحثت ، صعب جدا ان توفق بين الاغاني المختلفة في الوقت المستغرق وبين شريط التقدم .
اللهم يكون جهبذ متاع برمجة .
تقبل مروري
والسلام عليكم ورحمة الله وبركاته .

[ثامر أبو بلقيس]

أخي زياد كنت أضن أن تحقيق القراءة بالتتالي
حسب القناة التي اخترتها ساكون قد وفيت بمنتصف الطريق
الذي حدثتك عنه لكن ها أنت تحرجني بما هو فوق ما أعرفه
في هذا البرنامج === تمنيتها لو كانت لغة برمجية أخرى ==
على كل : تحدثت عن ربط الصوت بالـ Progress
عن نفسي لا أستعمل تلك أي عداد تحصلت من موقع سابقا على كود
ربط Progress بالصوت
كالتالي :
في golbal functions
function RoundChannelPercent(nChannel)
local nPos = Audio.GetCurrentPos(nChannel);
local nLen = Audio.GetLength(nChannel);
local nPercent = Math.Round(nPos/nLen*100,1)
if String.Find(nPercent,".") == -1 then
return nPercent .. ".0"
else
return nPercent
end
end

في on timer
local x=RoundChannelPercent(CHANNEL_BACKGROUND)
Progress.SetCurrentPos("Progress1", x);

واذا أردت اظهار نسبة مئوية للتقدم
ضف في آخر on timer
السطر :
Label.SetText("Label1", x.."%");

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

أي كل ا جاء في المشاركة 11

[زياد مقداد]

شكرا أخويّا ولكن بعد التتبع و الملاحظة
اكتشفت أنه يعمل بالنسبة للصيغة امبي ثري
على ديبت من 128 فما أقل وقد حولت الأغنبة
من 320 كيلوبايت إلى 96 كيلوبايت و نجحت
حيث قرأها كاملة مع البرجراس بار شكري ودعواتي القلبية لكما ولكل الإخوة

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

بسم الله الرحمن الرحيم

متابع معكم
لان لي تسائلات كثير ة في الموضوع