پخش یکی در میان چند صوت

[noorabas]

سلام
چطور میشه گزینه هایی قرار داد که دو مجموعه صوتی متفاوت با آدرس های مختلف مثلی یک در فولدر 1 و دیگری در فولدر 2 اجرا شوند به صورت های زیر


1. فقط فولدر 1
2. فقط فولدر 2
3. یکی در میان از فولدر 1 و فولدر 2 پس از پایان صوتی از فولدر 1 فایل صوتی از فولدر 2 پخش شود یعنی :

مثلا در فولدر 1 فایل های صوتی 1 و 2 و 3 و 4 و 5 و 6 و ............ و 100 قرار دارند و به همین تعداد در فولدر 2 است . مثلا فایل صوتی شماره 1 در فولذر 1 اجرا شود و بعد از پایان فایل صوتی 1 در فولدر 2 پخش شود و این روال تا به آخر ادامه یابد

یعنی
f1 s1
f2 s1
f1 s2
f2 s2
,
........
f1 s100
f2 s100

با مثال باشه عالیه
متشکرم

 

[MahmoodM30]

شما با یه تایمر میتونید و تابع مربوط به نشان دادن زمان پخش اهنگ به راحتی چک اگه اهنگ اول تموم شد مسیر رو به پوشه دوم تغییر دهید تا پخش بشه

 

[amin2dpr]

مثال پلیر اتوماتیک!!

اینطور که حدس میزنم پروژه شما یه پروژه قرآنی هستش که بعد از پخش قرآن به سراغ معنی صوتی اون میره
برای اینکار شما می تونی از مثال زیر الگو برداری کنی
فقط چون با سطح کاری شما با ام ام بی آشنا نیستم چند نکته رو میگم که راحت با مثال کار کنید
فایل پیوست شده یک پروژه هستش که درون خودش 2 مثال داره
محل قرار گیری فایلها صوتی شما در مثال:

CD$=<SrcDir>+'Sound'

معیین شده که و نام پوشه های شما درون پوشه Sound به ترتیب F1 و F2 هستش
این پوشه ها رو ایجاد کنید و درون هر یک از پوشه ها 2 فایل صوتی با فرمت mp3 بزارید و نام های اونهارو با 1 و 2 تعیین کنید
در این مثال 4 فایل صوتی قابل اجراست که روش کارو ببینید
بعد ایجاد پوشه و کپی می تونید sample 1 رو اجرا کنید و نتیجه کارو ببینید
برای sample 2 هم ابتدا Copy List رو بزنید و پوشه Sound رو انتخاب و تایید کنید

فقط پیشنهاد میکنم فایلهای صوتی که برای تست انتخاب میکنید کوتاه باشن که برای آزمون و خطا های خودتون هم حوصله سر بر نباشه

موفق باشید

 

[amin2dpr]

در ضمن برای اینکه روش کار sample 2 دستتون بیاد لیست کپی شده در پوشه

Sound رو در notepad باز کنید​

 

[noorabas]

متشکر از مثالتون
بله درست متوجه شدید برای کار قرآنی می خواهم

الان بخشی برای پخش قرائت و ترجمه دارم . بخشی هم برای پخش از اول تا آخر سوره و بخش دیگر برای پخش از اول تا آخر ترجمه رو دارم .

الان نیازم اینه که بتونه یکی در میان این ها رو پخش کنه تا اتمام آیه و ترجمه

ممنون اگه بتونید طبق این عرضم درست کنید

 

[amin2dpr]

خوب مثالی که برات درست کردم همین کارو میکنه
پوشه f1 قرآن و پوشه f2 ترجمه صونی!!!
فکر نکنم مثال راحت تر از این بشه زد

 

[noorabas]

مقصودم اینه که با همین داشته های موجود نمیشه ؟
وگرنه کار شما قابل تحسین است

این هم کد پخش تا انتهای آیه :

**RunScript("about-sp")
EditBox4N=1000
LoadText("EditBox4","1000")
************************
Show("Group10")
b$=CHAR(x)
ayehN=ayehN+1
ayeh$=CHAR(ayehN)
LoadText("ayeh","ayeh$")
****************************
path$='<SrcDir>\data\tartil\Parhizkar\m '+'('+soreh$+')'+'\a.txt'
path1$='<SrcDir>\data\tartil\Parhizkar\m '+'('+soreh$+')'+'\b.txt'
*******************************************
If (EditBox3N=1) Then
sound$='<SrcDir>\data\tartil\Parhizkar\m '+'('+soreh$+')'+'\\'
Else
If (EditBox3N=2) Then
sound$='<SrcDir>\data\tartil\qamedi\\'+soreh$+'\\'
Else
End
End
nol=NOL(path$)
x=x+1
If (x<=nol) Then
result$=StrFromFile(path$,x,1)
result1$=StrFromFile(path1$,x,1)
LoadText("Paragraph","result$")
LoadText("Paragraph1","result1$")
End
**********************
**********************
If (EditBox3N=1) Then
StopSound()
sound$=sound$+CHAR(x)+'.wav'
WavePlay("sound$","")
Else
If (EditBox3N=2) Then
WaveStop()
sound$=sound$+'q '+'('+CHAR(x)+')'+'.mp3'
WavePlay("sound$","")
Else
End
End
If (x>=nol+1 &EditBox2N<>1) Then
ayehN=ayehN-1
x=x-1
LoadText("Paragraph","صدق الله العلي العظيم")
LoadText("Paragraph1","راست گفت خداوند بلند مرتبه و بزرگ")
WavePlay("<SrcDir>\data\tartil\Parhizkar\s.wav","")
ayeh$=CHAR(ayehN)
LoadText("ayeh","ayeh$")
** ayehN=ayehN+1
**x=x+1
Hide("TextBTN1")
Hide("PolyHotSpot1010")
Else
ScriptTimer("TimerA=TestEnd","1000")
End
***************
If (sorehN>1&sorehN<>9&ayehN=0) Then
a$=CHAR(x)
ss$='<SrcDir>\data\tartil\Parhizkar\m (1)\s.txt'
LoadText("ayeh"," ")
LoadText("Paragraph"," ss$")
LoadText("Paragraph1","به نام خداوند رحمتگر مهربان")
If (EditBox3N=1) Then
WavePlay("<SrcDir>\data\tartil\parhizkar\m (1)\1.wav","")
Else
If (EditBox3N=2) Then
WavePlay("<SrcDir>\data\tartil\qamedi\1\q (1).mp3","")
End
End
Else
Show("TextBTN3")
End

 

[amin2dpr]

از متن شما و کدی که دادید اصلا چیزی متوجه نشدم
EditBox برای چیه؟ Group10 برای چیه؟ و...
می دونم ربطی به اجرای فایل صوتی نداره ولی وقتی میخایید کدی برای شما تکمیل بشه سعی کنید کدهای نا مرطبت رو حذف کنید
ولی از اونجایی که خیلی سال پیش خودم چنین برنامه ای رو مد نظر داشتم برای یه ارگان درست کنم می تونم حدس بزنم که شما اجرای سوره نمی خاید، اجرای آیه به آیه می خوایید که متن فارسی اون هم در هتگام قرائت نمایش داده شه
اگه اینطور باشه شما باید در درجه اول کل سوره و کل قرآن و گوش کنید و آیه به آیه تایم بندی کنید و ازش یک پایگاه داده (دیتابیس) حالا می خواد بصورت متنی باشه یا SQL باشه تهیه کنید و با توجه به اون برای پلیر صوتی تون کد لازمه رو بنویسید
اگه چنین کار کردید یک نمونه از فایل صوتی و تایم ها و معانی رو برام آپ کنید تا در وقت آزادم براتون یک نمونه درست کنم