آموزش کار با پروگرس بار و سفارشی سازی آن در بیسیک فور اندروید

0 دیدگاه

آموزش کار با پروگرس بار و سفارشی سازی آن در بیسیک فور اندروید

در این مطلب در ادامه مقالات آموزشی بیسیک فور اندروید در خدمت شما هستیم با آموزش کار با پروگرس بار و سفارشی سازی آن در بیسیک فور اندروید از وب سایت آموزش برنامه نویسی سورس باران. در این آموزش میخواهیم یک نوار پیشرفت داشته باشیم که بر هر ده ثانیه یک بار به طور کامل لود شود و این عمل تکرار شود. به عبارت دیگر هر صد میلی ثانیه، این پروگرس بار یک درصد پیشرفت داشته باشد و عدد پیشرفت در لیبلی در زیر آن نمایش داده شود. با ما همراه باشید…

آموزش کار با پروگرس بار و سفارشی سازی آن در بیسیک فور اندروید

برای شروع کار یه پروژه تعریف می کنیم که در قالب آن بتوانیم کار با نوار پیشرفت یا همان پروگرس بار را در بیسیک فور اندروید یاد بگیریم و سپس متغیرهای لازم را تعریف می کنیم. دقت نمایید که متغیر تایمر باید در قسمت sub process global تعریف شود.

Sub Process_Globals
Dim timer1 As Timer
End Sub
 
Sub Globals
Dim progressbar1 As ProgressBar
Dim a As Int
Dim label1 As Label
End Sub

Sub Process_Globals

Dim timer1 As Timer

End Sub

Sub Globals

Dim progressbar1 As ProgressBar

Dim a As Int

Dim label1 As Label

End Sub

در قسمت اکیتویتی ، لایوت را لود کرده و ویوها را initialize کرده و به اکتیویتی اضافه می کنیم.

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
	progressbar1.Initialize("progressbar1")
Activity.AddView(progressbar1,0%x,10%y,100%x,10%y)
label1.Initialize("")
Activity.AddView(label1,10%x,23%y,80%x,10%y)
label1.Gravity=Gravity.CENTER
label1.TextSize=20
timer1.Initialize("timer1",100)
timer1.Enabled=True
Dim c1 As ColorDrawable
Dim c2 As ColorDrawable
c1.Initialize(Colors.Blue,5dip)
c2.Initialize(Colors.Red,5dip)
SetProgressDrawable2(progressbar1,c1,c2)
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("1")

progressbar1.Initialize("progressbar1")

Activity.AddView(progressbar1,0%x,10%y,100%x,10%y)

label1.Initialize("")

Activity.AddView(label1,10%x,23%y,80%x,10%y)

label1.Gravity=Gravity.CENTER

label1.TextSize=20

timer1.Initialize("timer1",100)

timer1.Enabled=True

Dim c1 As ColorDrawable

Dim c2 As ColorDrawable

c1.Initialize(Colors.Blue,5dip)

c2.Initialize(Colors.Red,5dip)

SetProgressDrawable2(progressbar1,c1,c2)

End Sub

در مورد تابع setprogress drawable2 که در خط آخر استفاده شده است باید بگوییم که برای سفارشی کردن و رنگ بندی پروگرس بار استفاده می شود. در ورودی تابع سه متغیر وجود دارد. متغیر اول همان پروگرس باری است که می خواهیم رنگ آن را تغییر دهیم. متغیر دوم ، یک متغیر از نوع colordarwable است که برای تعیین رنگ نوار پیشرفت استفاده می شودکه در اینجا آبی است. متغیر سوم هم تعیین کننده رنگ پس زمینه نوار پیشرفت است که در اینجا قرمز انتخاب شده است. کدهای این تابع در زیر آمده است.

Sub SetProgressDrawable2(p As ProgressBar,gd As ColorDrawable,cd As ColorDrawable)
	
	Dim r As Reflector
	Dim clipDrawable As Object


	Dim r As Reflector
	Dim clipDrawable As Object
	clipDrawable = r.CreateObject2("android.graphics.drawable.ClipDrawable", _
		Array As Object(gd, Gravity.LEFT, 1), _
		Array As String("android.graphics.drawable.Drawable", "java.lang.int", "java.lang.int"))
	r.Target = p
	r.Target = r.RunMethod("getProgressDrawable") 'Gets the layerDrawable
	r.RunMethod4("setDrawableByLayerId", _
		Array As Object(16908288, cd), _
		Array As String("java.lang.int", "android.graphics.drawable.Drawable"))
	r.RunMethod4("setDrawableByLayerId", _
		Array As Object(r.GetStaticField("android.R$id", "progress"), clipDrawable), _
		Array As String("java.lang.int", "android.graphics.drawable.Drawable"))
End Sub

Sub SetProgressDrawable2(p As ProgressBar,gd As ColorDrawable,cd As ColorDrawable)

Dim r As Reflector

Dim clipDrawable As Object

Dim r As Reflector

Dim clipDrawable As Object

clipDrawable = r.CreateObject2("android.graphics.drawable.ClipDrawable", _

Array As Object(gd, Gravity.LEFT, 1), _

Array As String("android.graphics.drawable.Drawable", "java.lang.int", "java.lang.int"))

r.Target = p

r.Target = r.RunMethod("getProgressDrawable") 'Gets the layerDrawable

r.RunMethod4("setDrawableByLayerId", _

Array As Object(16908288, cd), _

Array As String("java.lang.int", "android.graphics.drawable.Drawable"))

r.RunMethod4("setDrawableByLayerId", _

Array As Object(r.GetStaticField("android.R$id", "progress"), clipDrawable), _

Array As String("java.lang.int", "android.graphics.drawable.Drawable"))

End Sub

و در انتها در قسمت تابع مربوط به دوره تایمر ( که روی ۱۰۰ میلی ثانیه تنظیم شده است) می گوییم که به ازای هر دوره تایمر یک واحد به متغیر a اضافه کند و سپس آن را مساوی با پیشرفت پروگرس بار و متن لیبل قرار دهد و در صورتی که به ۱۰۰ رسید، ریست شود.

Sub timer1_tick
	a=a+1
	progressbar1.Progress=a
	label1.Text=a
	If a>=100 Then
		a=0
	End If
End Sub

Sub timer1_tick

a=a+1

progressbar1.Progress=a

label1.Text=a

If a>=100 Then

a=0

End If

End Sub

دانلود سورس

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

آموزش بیسیک فور اندروید – دانلود تمامی ابزارهای مورد نیاز برنامه نویسی B4A

آموزش بیسیک فور اندروید – آموزش گام به گام نصب و راه اندازی JDK

آموزش کامل نصب Android SDK

آموزش کامل نصب بیسیک فور اندروید+دانلود نرم افزار Basic4Android

آموزش نصب و کار با شبیه ساز اندروید NOX

آموزش کامل اجرا مستقیم برنامه روی گوشی با B4A Bridge

آموزش بیسیک فور اندروید – معرفی Activity و Layout + تغییر تم محیط بیسیک فور اندروید

آموزش و کاربرد دستور Try و Catch در بیسیک فور اندروید

آموزش حذف انیمیشن پیشفرض لایوت ها در بیسیک فور اندروید

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

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

به این مطلب امتیاز دهید

راستی! برای دریافت مطالب جدید در کانال تلگرام یا پیج اینستاگرام سورس باران عضو شوید.

نظرات

برچسب ها: آموزش بیسیک فور اندروید

صابر بوستانی

داستان من با دنیای برنامه‌ نویسی آغاز شد، و در ادامه به عنوان یک توسعه‌ دهنده نرم‌ افزار، طراح وب سایت و متخصص سئو، مهارت ‌های تکنیکی و تحلیلی خودم رو پرورش دادم. علاقه م به دنیای مالی منو به سمت یادگیری ترید و معامله‌گری سوق داد. و در حال حاضر در برنامه نویسی و معامله گری ارز دیجیتال انجام میدم. از سال 96 سعی کردم معامله گری در کریپتو رو یاد بگیرم. ترید و معامله گری برام پر از چالش و شکست‌ های متعدد بود. اما هر شکست، درسی ارزشمند برام داشت و من رو به یک تریدر و معامله گر قوی‌ تر و هوشمندتر تبدیل کرد. با پشتکار و یادگیری مداوم، تونستم به موفقیت‌های قابل توجهی دست یابم و به معامله گری موفق تبدیل بشم. در اینجا بزرگترین تجربیات و مهمترین دانش خودم رو در اختیار شما قرار میدم تا در مدت زمان کوتاه تر و شکست های کمتر در این مسیر به موفقیت برسید.

دوره آموزش برنامه نویسی پایتون در 24 ساعت + ساخت ربات تلگرامی

منبع : سورس باران
رمز فايل : www.sourcebaran.com
انتشار: ۱۲ اردیبهشت ۱۳۹۸

آموزش کار با پروگرس بار و سفارشی سازی آن در بیسیک فور اندروید

آموزش کار با پروگرس بار و سفارشی سازی آن در بیسیک فور اندروید

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

صابر بوستانی

دسته بندی موضوعات

آخرین محصولات فروشگاه

نظرات

بازخوردهای خود را برای ما ارسال کنید

لغو پاسخ

مطالب مرتبط