سورس آماده شمارش معکوس در Basic4Android

[MR.B4A 270]

تا حالا خواستید یک تایمر شمارش معکوس حرفه‌ای و ساده به برنامه اندرویدی خود اضافه کنید؟
با این مینی سورس کاربردی B4A می‌توانید به‌راحتی الگوریتم شمارش معکوس را یاد بگیرید و در پروژه‌های خود استفاده کنید.

✨ ویژگی‌های این سورس:
✅ کدنویسی ساده و قابل فهم
✅ بدون نیاز به نصب یا استفاده از کتابخانه‌های اضافی
✅ مناسب برای افراد مبتدی و حرفه‌ای
✅ دارای توضیحات و راهنمای خط‌به‌خط فارسی
✅ قابل استفاده در انواع پروژه‌های اندرویدی

🎯 یک سورس کوچک، اما کاربردی برای یادگیری بهتر منطق تایمرها در Basic4Android

همین حالا یاد بگیرید، اجرا کنید و در پروژه‌های خود به کار ببرید 🚀

ویدئوی سورس:

https://aparat.com/v/hvs7648

سورس کامل با ترجمه خط به خط

Sub Process_Globals
	
End Sub

Sub Globals
	Private cl As ColorDrawable
	
	Private a,b,c As Int
	
	Private Label1 As Label
	Private pnlCircle As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	
	If cl.IsInitialized=False Then
		cl.Initialize2(Colors.RGB(25, 30, 42),7dip,1,Colors.RGB(255,0,110))
	End If
	'راه اندازی کتابخانه تغییر رنگ و حاشه پنلی که داخلش شمارش معکوس انجام میشه
	'نگ خود پنل + انحنای گوشه ها + ضخامت حاشیه های دور پنل + رنگ حاشه دور پنل

	pnlCircle.Initialize("")
	'راه اندازی پنلی که داخلش شمارش معکوس انجام میشود
	'این ویو به صورت کدنویسی به برنامه اضافه شده
	Activity.AddView(pnlCircle, 25%x, 25%y, 50%x, 50%x)
	'اضافه کردن پنل مذکور به اکتیویتی
    
	pnlCircle.Background=cl
	'کتابخانه تغییر رنگ و حاشیه ای پنل که در بالا ساختیم رو به پس زمینه پنلمون نسبت میدیم
	pnlCircle.Elevation=6dip
	'این ویژگی پنل باعث میشه پنل برجسته به نظر بیاد
	'بیشتر برای ظاهر کار است

	Label1.Initialize("")
	'راه اندازی لیبلی که شمارش معکوس در اون اتفاق میوفته
	'این ویو هم به صورت کدنویسی به برنامه اضافه شده
	Label1.Gravity = Gravity.CENTER
	'جایگاه نوشته را در این خط مشخص کردم.
	'این خط باعث میشه نوشته در وسط لیبل قرار بگیره
	Label1.Typeface = Typeface.LoadFromAssets("number.ttf")
	'با استفاده  از این دستور به شمارش معکوس فونت دادم تا زیبا به نظر بیاد
	Label1.TextSize = 40
	'اندازه متن لیبل در این خط مشخص میشه

	pnlCircle.AddView(Label1, 0, 0, pnlCircle.Width, pnlCircle.Height)
	'حالا ما لیبل رو داخل یک پنلی که شمارش معکوس قرار است در آن اتفاق بیوفته اضافه کردیم
	
	StartCountdown
	'صدا زدن سابی که همه پردازش در آن اتفاق می افته
End Sub

Sub StartCountdown

	For i = 5 To 1 Step -1
		
		a=Rnd(0,255)
		b=Rnd(0,255)
		c=Rnd(0,255)
        
		Label1.Text = i
        
		Label1.TextSize = 15
        
		For size = 15 To 55 Step 4
			Label1.TextSize = size
			Sleep(25)
		Next
        
		For size = 55 To 48 Step -2
			Label1.TextSize = size
			Sleep(25)
		Next
        
		For size = 48 To 55 Step 2
			Label1.TextSize = size
			Sleep(25)
		Next
		
		Label1.TextColor=Colors.RGB(a,b,c)
        
		Sleep(400)
        
	Next

	Label1.Text = "MR.B4A"
	Label1.TextSize = 20
    
	For size = 20 To 45 Step 3
		Label1.TextSize = size
		Sleep(30)
	Next

End Sub
'این ساب اصلی برنامس و تمام پردازش اصلی برنامه در آن اتفاق می افتد
'ساب دارای حلقه های تو در تو برای نمایش هرچه بهتر شمارش معکوس است

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Private Sub Activity_Click
	StartCountdown
End Sub
'با کلیک روی صفحه، شمارش معکوس دوباره اجرا میشود

جهت دریافت فایل سورس ها و کتابخانه های مربوطه به صورت رایگان، عضو کانال MR.B4A شوید.

تهیه و تنظیم   
مرتضی صباغی  
MR.B4A

لینک کانال ایتا: https://eitaa.com/basic4androidlan

لینک کانال تلگرام:
https://t.me/programmingwithb4a