آموزش ساخت متن متحرک در B4A + سورس
سلام
امروز قصد داریم تا در بیسیک فور اندروید توسط تایمر یک متن متحرک بنویسیم، به این صورت که که متن شروع به نوشتن کنه، پس اگر موافق هستید در ادامه با بپرسم همراه باشید.
ساخت متن متحرک در B4A
آموزش:
- بیسیک فور اندروید را اجرا و یک Label به برنامه اضافه کنید و در برنامه تعریف کنید و سپس لایوت را ذخیره کنید.
- نیاز به تعریف یک متغیر از نوع string، یک متغیر از نوع Int، دو متغیر از نوع Timer داریم، پس کدهای قسمت Sub_Globals به شرح زیر می شود:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ |
Sub Globals Dim matn As String Dim count As Int Dim timer1 As Timer Dim timer2 As Timer Private Label1 As Label End Sub |
- سپس در Activity_Createباید کدهای برنامه را بنویسیم، که به شرح زیر می شود:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ |
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lm") Label1.Text = "" count = ۱ matn = "بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir " timer1.Initialize("timer1",۱۰۰) timer2.Initialize("timer2",۱۰۰۰۰) timer1.Enabled = True timer2.Enabled = True End Sub |
- همانطور که در بالا اشاره کردیم؛ دو تایمر به برنامه اضافه کردیم، حالا باید در رویداد تیک این دوتایمر کدهای مربوطه را بنویسیم که می شود به شرح زیر:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ |
Sub timer1_Tick If Label1.Text.Length = matn.Length Then timer1.Enabled = False Else count = count + ۱ Label1.Text = matn.Substring2(۰, count) End If End Sub Sub timer2_Tick Label1.Text = "" count = ۱ matn = "بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir " timer1.Enabled = True End Sub |
و در نهایت برنامه را اجرا کنید تا خروجی را مشاهده کنید.
- در آخر تمامی کدهای برنامه:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ ۲۱ ۲۲ ۲۳ ۲۴ ۲۵ ۲۶ ۲۷ ۲۸ ۲۹ ۳۰ ۳۱ ۳۲ ۳۳ ۳۴ ۳۵ ۳۶ ۳۷ ۳۸ ۳۹ ۴۰ ۴۱ ۴۲ ۴۳ ۴۴ ۴۵ ۴۶ ۴۷ ۴۸ ۴۹ ۵۰ |
#Region Project Attributes #ApplicationLabel: Matn Motaharek #VersionCode: 1 #VersionName: 1.0.0 #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: true #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Dim matn As String Dim count As Int Dim timer1 As Timer Dim timer2 As Timer Private Label1 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lm") Label1.Text = "" count = ۱ matn = "بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir " timer1.Initialize("timer1",۱۰۰) timer2.Initialize("timer2",۱۰۰۰۰) timer1.Enabled = True timer2.Enabled = True End Sub Sub timer1_Tick If Label1.Text.Length = matn.Length Then timer1.Enabled = False Else count = count + ۱ Label1.Text = matn.Substring2(۰, count) End If End Sub Sub timer2_Tick Label1.Text = "" count = ۱ matn = "بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir " timer1.Enabled = True End Sub |
نکات:
- متن “بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir” را تغییر دهید و متن خود را جایگزین کنید.
- میتوانید سرعت نمایش متن را تغییر دهید، برای این کار می بایست مقادیر زیر را تغییر دهید:
|
۱ ۲ |
timer1.Initialize("timer1",۱۰۰) timer2.Initialize("timer2",۱۰۰۰۰) |
- اگر بخواهید متن متحرک کل عرض صفحه را بگیرد، Label را در دیزاینر تنظیم کنید.
در آخر سورس را می توانید دانلود کنید.
این آموزش نیز به پایان رسید، امیدواریم مفید بوده باشه:)
هرگونه سوالی یا مشکلی در رابطه با مطلب فوق داشتید؛ در سایت بپرسید، پاسخگوی سوالات شما هستیم، برای پرسیدن سوال کلیک کنید.
موفق باشید.
ارسال نظر
شما باید وارد شوید یا عضو شوید تا بتوانید نظر ارسال کنید