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