سورس متن حرکتی در بیسیک فور اندروید

[MR.B4A 252]

با استفاده از این سورس، متن حرکتی زیبا برای برنامه تان بسازید.

سورس:

این دستورات را در اکتیویتی مورد نظرتان کپی کنید:

Sub Process_Globals
	Private t As Timer
End Sub

Sub Globals
	Dim lbl As Label
	Dim lbl2 As Label
	
	Private a,b,c,d,e,f As Int
	Private pnl_adv As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	
	t.Initialize("t",500)
	t.Enabled=True
	
	lbl.Initialize("lbl")
	lbl.Text="برنامه‌نویسی اندروید یکی از محبوب‌ترین مهارت‌ها در حوزه فناوری است."& _
	"این مهارت به توسعه‌دهندگان امکان می‌دهد تا اپلیکیشن‌های متنوعی برای گوشی‌های هوشمند طراحی کنند."& _
	"با استفاده از زبان‌هایی مانند Java و Kotlin، برنامه‌نویسان قادر به ایجاد برنامه‌های قدرتمند و کاربردی هستند."& _
	"اندروید به‌عنوان یک سیستم‌عامل متن‌باز، امکانات زیادی برای سفارشی‌سازی در اختیار قرار می‌دهد."& _
	"در نهایت، یادگیری برنامه‌نویسی اندروید فرصتی عالی برای ورود به بازار کار فناوری است."
	lbl.Typeface=Typeface.DEFAULT_BOLD
	lbl.TextSize=18
	lbl.Gravity=Gravity.CENTER_VERTICAL
	Activity.AddView(lbl,0%x,10%y,100%x,15%y)

	Marquee(lbl)
	
	
	lbl2.Initialize("lbl2")
	lbl2.Text="Android programming is one of the most popular skills in the tech industry."& _
	"This skill allows developers To design a variety of applications For smartphones."& _
"Using languages like Java And Kotlin, programmers can create powerful And functional apps."& _
"As an open-source operating system, Android offers extensive customization capabilities."& _
"In the End, learning Android programming Is a great opportunity To enter the tech job market."
	lbl2.Typeface=Typeface.DEFAULT_BOLD
	lbl2.TextSize=18
	lbl2.Gravity=Gravity.CENTER_VERTICAL
	Activity.AddView(lbl2,0%x,20%y,100%x,15%y)

	Marquee2(lbl2)
End Sub

Sub Marquee(lbl_t As Label)
	lbl_t.SingleLine = True
	lbl_t.Ellipsize = "MARQUEE"
	Sleep(10)
	Dim jo As JavaObject = lbl_t
	jo.RunMethod("setSelected", Array(True))
End Sub

Sub Marquee2(lbl_t2 As Label)
	lbl_t2.SingleLine = True
	lbl_t2.Ellipsize = "MARQUEE"
	Sleep(10)
	Dim jo As JavaObject = lbl_t2
	jo.RunMethod("setSelected", Array(True))
End Sub

Private Sub t_Tick
	
	a=Rnd(0,255)
	b=Rnd(0,255)
	c=Rnd(0,255)
	
	lbl.TextColor=Colors.RGB(a,b,c)
	
	d=Rnd(0,255)
	e=Rnd(0,255)
	f=Rnd(0,255)
	
	lbl2.TextColor=Colors.RGB(d,e,f)
End Sub

سورس قابلیت خوان متن از دیتابیس آنلاین و آفلاین را دارد.

طراح و تهیه کننده:
مرتضی صباغی
MR.B4A

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

لینک کانال روبیکا: https://web.rubika.ir/#c=c0DYTXf0c992f816317cf4280db0333a