توقف اجرای فایل صوتی بعداز تکرار تعداد مشخص

[infoshayesteh 1]

دوستان سلام 

من میخوام یه فایل صوتی بعد از تعداد مشخصی تکرار متوقف بشه و یه شماره انداز داشته باشه که تعداد تکرار رو نشون بده و اگه قبل از اون تعداد مشخص کاربر پخش رو متوقف کرد یا از برنامه بیرون رفت تعداد تکرار شده ذخیره بشه و برای دفعه بعد از ادامه شروع بشه چطور باید این کار رو انجام بدم اگه راهنمایی کنید ممنون میشم

 

[programer 1]

در در 15 خرداد 1399 در 08:32، infoshayesteh گفته است :

دوستان سلام 

من میخوام یه فایل صوتی بعد از تعداد مشخصی تکرار متوقف بشه و یه شماره انداز داشته باشه که تعداد تکرار رو نشون بده و اگه قبل از اون تعداد مشخص کاربر پخش رو متوقف کرد یا از برنامه بیرون رفت تعداد تکرار شده ذخیره بشه و برای دفعه بعد از ادامه شروع بشه چطور باید این کار رو انجام بدم اگه راهنمایی کنید ممنون میشم

 

سلام

جهت تکرار تعداد مشخصی ابتدا باید بیایید یک تایمر تعریف کنید و سپس در اینشیالایز زمان تایمر را برابر با زمان صوت کنید.

حال یک متغیر از نوع اینت ایجاد کنید و در هر تایمر یکی به آن بیفزایید و سپس به صورت فایلtxt در دایراینترال ذخیره کنید و در تایمر بگویید اگر مثل متغیر اینت بالاتر از این فلان عدد شد صوت را متوقف کن.

[infoshayesteh 1]

ممنونم البته هنوز موفق نشدم 

 

[infoshayesteh 1]

دوستان سلام

اشکال  کار نمیدونم  کجاست مدام تکرار میشه

Sub Btplay_Click
    mp.Play
    mp.Looping = True
End Sub
Sub mp_Complete
    
    If File.Exists(File.DirInternal,"adadmusic.txt") Then
        
        
        File.WriteString(File.DirInternal,"adadmusic.txt",File.ReadString(File.DirInternal,"adadmusic.txt")+1)
        
    Else
        
        File.WriteString(File.DirInternal,"adadmusic.txt",1)
    End If
    
    
    If File.ReadString(File.DirInternal,"adadmusic.txt") >= 3 Then
        
        
        mp.Stop
        
    End If
        
End Sub

Sub Btpuse_Click
    mp.Pause
End Sub

Sub Btstop_Click
    mp.Stop
End Sub

[محمدرضا شاهپیری 5,492]

در ۱ ساعت قبل، infoshayesteh گفته است :

دوستان سلام

اشکال  کار نمیدونم  کجاست مدام تکرار میشه

End Sub

خیلی سادس این کار دوست عزیز. سورسشو نوشتم براتون.  

music.zip

[infoshayesteh 1]

سلام این ایرور رو میگیره

Main - 26: Unknown member: initialize
 

 

 

B4A Version: 9.90
Java Version: 8
Parsing code.    (0.00s)
Building folders structure.    (0.38s)
Compiling code.    Error
Error compiling program.
Error description: Unknown member: initialize
Error occurred on line: 26
arSharedPrefrence.Initialize("")
Word: initialize

[infoshayesteh 1]

در در 27 خرداد 1399 در 13:28، محمدرضا شاهپیری گفته است :

خیلی سادس این کار دوست عزیز. سورسشو نوشتم براتون.  

music.zip 10.85 kB · 4 downloads

سلام ممنونم ولی این ایرور رو میگیره

Building folders structure.    (0.01s)
Compiling code.    Error
Error compiling program.
Error description: Unknown member: initialize
Error occurred on line: 26
arSharedPrefrence.Initialize("")
Word: initialize

 

[محمدرضا شاهپیری 5,492]

در 4 دقیقه قبل، infoshayesteh گفته است :

سلام ممنونم ولی این ایرور رو میگیره

Building folders structure.    (0.01s)
Compiling code.    Error
Error compiling program.
Error description: Unknown member: initialize
Error occurred on line: 26
arSharedPrefrence.Initialize("")
Word: initialize

 

احتمالا از نسخه قدیمی کتابخونه استفاده میکنید. نسخه 2 رو باید دانلود کنید از لینک زیر

https://answercenter.ir/applications/core/interface/file/attachment.php?id=3625

 

[ali mo 262]

ساتم وقت بخیر

ابتدا باید بفهمید که کی تموم میشه مدیا با استفاده از رویداد پایان

mediaplayer می تونید این کار رو انجام بدید

و توسط ساب پاس هم می تونید این رویداد خروج کاربر رو بفهمید

شمارنده رو کنتر بندازید و با مقدار ذخیره شده چک کنید

انجام بدید هر جا که مشکل داشتید بفرمایید

[infoshayesteh 1]

سلام ممنونم 

ببخشید من مبتدی هستم اگه زحمتی نیست مرحله به مرحله توضیح بدید و اگه یه مثال هم بزنید ممنون میشم چون متوجه نشدم

[infoshayesteh 1]

سلام کسی نظری نداره

[mahdi tahan 723]

Sub mp_Complete
	
	If File.Exists(File.DirInternal,"adadmusic.txt") Then
		
		
		File.WriteString(File.DirInternal,"adadmusic.txt",File.ReadString(File.DirInternal,"adadmusic.txt")+1)
		
		Else
		
		File.WriteString(File.DirInternal,"adadmusic.txt",1)
	End If
	
	
	If File.ReadString(File.DirInternal,"adadmusic.txt") >= 30 Then
		
		
		'عمل مورد نظر انجام بده
		
	End If
		
End Sub

sub Complete کارش اینه ک وقتی موزیکی ک لود کردی تموم شد اجرا بشه.

میایم میگیم اگ فلان فایل نبود بسازش با عدد یک.

از دفعه بعد این عدد بعلاوه یک میشه

بعدشم شرط گذاشتیم ک مثلا اگر  30باز یا بیشتر تکرار شده بود ی کاری بکن.

وقتی تو فایل تکس ذخیره میکنی دیگ عددت پاک نمیشه از حافظه و موندگارمیمونه و چ بری بیرون از نرم افزار یا توقف کنی اون عدد برات میمونه ک با لود دوباره باز بهش اضافه میشه 

[ali mo 262]

سلام مجدد

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

[infoshayesteh 1]

سلام ممنونم لطف کردید