آموزش ساخت متن متحرک در B4A + سورس

عضویت در سایت

نام کاربری*

ایمیل*

رمزعبور*

تایید رمز عبور*

نام*

نام خانوادگی*

نام نمایشی*

تصویر پروفایل*

مرور

کشور*

شهر*

جنسیت* آقا

خانم

سایر

سن*

قوانین و مقررات* با تیک زدن این گزینه شما قوانین و مقررات را میپذیرید.

عضویت در سایت

رایگان ثبت نام کنید و سوالات خود را بپرسید، همچنین میتوانید در پاسخگویی به سوالات دیگر کاربران نیز سهیم باشید، هر مشکلی در ثبت نام یا ورود داشتید با ایمیل beporsam@gmail.com در ارتباط باشید

آموزش ساخت متن متحرک در 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

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 = 1
    matn = "بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir "
   	timer1.Initialize("timer1",100)
    timer2.Initialize("timer2",10000)
   	timer1.Enabled = True
    timer2.Enabled = True
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

مطلب پیشنهادی: آموزش ویندوز ۱۰ – قسمت ششم(منوی Start)

همانطور که در بالا اشاره کردیم؛ دو تایمر به برنامه اضافه کردیم، حالا باید در رویداد تیک این دوتایمر کدهای مربوطه را بنویسیم که می شود به شرح زیر:

Sub timer1_Tick
	If Label1.Text.Length = matn.Length Then
       timer1.Enabled = False
	Else
       count = count + 1
       Label1.Text = matn.Substring2(0, count)
	End If
End Sub

Sub timer2_Tick
Label1.Text = ""
        count = 1
        matn = "بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir "
   		timer1.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 = 1
    matn = "بپرسم، مکانی برای آموزش و رفع مشکلات www.beporsam.ir "
   	timer1.Initialize("timer1",100)
    timer2.Initialize("timer2",10000)
   	timer1.Enabled = True
    timer2.Enabled = True
End Sub

Sub timer1_Tick
	If Label1.Text.Length = matn.Length Then
       timer1.Enabled = False
	Else
       count = count + 1
       Label1.Text = matn.Substring2(0, count)
	End If
End Sub
<div style="clear:both; margin-top:0em; margin-bottom:1em;"><a href="https://beporsam.ir/blog/create-footer-template/" target="_blank" rel="dofollow" class="u885609622814014633bddc7fb1a1b7ce"><!-- INLINE RELATED POSTS 2/3 //--><style> .u885609622814014633bddc7fb1a1b7ce { padding:0px; margin: 0; padding-top:1em!important; padding-bottom:1em!important; width:100%; display: block; font-weight:bold; background-color:#eaeaea; border:0!important; border-left:4px solid #34495E!important; box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -moz-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -o-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -webkit-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); text-decoration:none; } .u885609622814014633bddc7fb1a1b7ce:active, .u885609622814014633bddc7fb1a1b7ce:hover { opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; text-decoration:none; } .u885609622814014633bddc7fb1a1b7ce { transition: background-color 250ms; webkit-transition: background-color 250ms; opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; } .u885609622814014633bddc7fb1a1b7ce .ctaText { font-weight:bold; color:inherit; text-decoration:none; font-size: 16px; } .u885609622814014633bddc7fb1a1b7ce .postTitle { color:#000000; text-decoration: underline!important; font-size: 16px; } .u885609622814014633bddc7fb1a1b7ce:hover .postTitle { text-decoration: underline!important; } </style><div style="padding-left:1em; padding-right:1em;"><span class="ctaText">مطلب پیشنهادی:</span>  <span class="postTitle">آموزش طراحی قالب وردپرس – قسمت چهارم(footer.php)</span></div></a></div>
Sub timer2_Tick
Label1.Text = ""
        count = 1
        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” را تغییر دهید و متن خود را جایگزین کنید.
میتوانید سرعت نمایش متن را تغییر دهید، برای این کار می بایست مقادیر زیر را تغییر دهید:

مطلب پیشنهادی: آموزش ساخت متریال دیالوگ پیشرفته در B4A

timer1.Initialize("timer1",100)
timer2.Initialize("timer2",10000)

۱ ۲	timer1.Initialize("timer1",۱۰۰) timer2.Initialize("timer2",۱۰۰۰۰)

اگر بخواهید متن متحرک کل عرض صفحه را بگیرد، Label را در دیزاینر تنظیم کنید.

در آخر سورس را می توانید دانلود کنید.

این آموزش نیز به پایان رسید، امیدواریم مفید بوده باشه:)

هرگونه سوالی یا مشکلی در رابطه با مطلب فوق داشتید؛ در سایت بپرسید، پاسخگوی سوالات شما هستیم، برای پرسیدن سوال کلیک کنید.

موفق باشید.