رفتن به مطلب
  • 0

سورس اسپلش با نمایش load بار


arastooms

سوال

سلام به عزیزان 
در انجمن هرچی سرچ میکنم پیدا نمیکنم 
نمونه اسپلش که بیاد یه لود بار در حال پُر شدن  باشه 
میشه اگرسورسی باشه با نومنه کدی من رو راهنمایی کنید 
ممنون میشم 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

اینو فک کنم 3 - 4 ماه پیش نوشتم 

کار میکنه 100 درصد

اگرم خواستی از این نوشته ها که میان ریز اون زیر که مثلا در جال انجام کاره برنامه اضافه کنی، بگو یه کد برات بنویسم

#Region  Project Attributes 
	#ApplicationLabel: filme baba
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: true
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim timer1 As Timer
Dim timer2 As Timer

	
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	Private ProgressBar1 As ProgressBar
	Dim a As Int
	Dim label1 As Label

End Sub


Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	timer1.Initialize("Timer1",5000)
	label1.TextColor=Colors.Black
	timer1.Enabled=True
	timer2.Initialize("Timer2",7)
	timer2.Enabled=True
	label1.Gravity=Gravity.CENTER
	
	a=1

End Sub
Sub Timer1_Tick
	StartActivity(Home)
	
	Activity.Finish
End Sub
Sub Timer2_Tick
ProgressBar1.Progress = a
	a = a + 5
	If a > 100 Then
	timer2.Enabled = False
	End If
End Sub



Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)

End Sub


این کل اکتیویتی مین منه

دیگه لایه هارو خودت ردیف کن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

اینو فک کنم 3 - 4 ماه پیش نوشتم 

کار میکنه 100 درصد

اگرم خواستی از این نوشته ها که میان ریز اون زیر که مثلا در جال انجام کاره برنامه اضافه کنی، بگو یه کد برات بنویسم

#Region  Project Attributes 
	#ApplicationLabel: filme baba
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: true
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim timer1 As Timer
Dim timer2 As Timer

	
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	Private ProgressBar1 As ProgressBar
	Dim a As Int
	Dim label1 As Label

End Sub


Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	timer1.Initialize("Timer1",5000)
	label1.TextColor=Colors.Black
	timer1.Enabled=True
	timer2.Initialize("Timer2",7)
	timer2.Enabled=True
	label1.Gravity=Gravity.CENTER
	
	a=1

End Sub
Sub Timer1_Tick
	StartActivity(Home)
	
	Activity.Finish
End Sub
Sub Timer2_Tick
ProgressBar1.Progress = a
	a = a + 5
	If a > 100 Then
	timer2.Enabled = False
	End If
End Sub



Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)

End Sub


این کل اکتیویتی مین منه

دیگه لایه هارو خودت ردیف کن

سلام شهاب جان به قول ایتالیایی ها 

tu sei un fenomeno 

( تو یک پدیده ای )

مثل همیشه درست و دقیق و عالی 

عمل کرد و تنها سوالم اینه که چه طور ضخامت اون پرگرس بار رو کمی ضخیم کنم دیده بشه ؟؟

ممنون و مرسی

لینک ارسال
به اشتراک گذاری در سایت های دیگر

:)

الان اعصابم عجیب خورده

کلا تعطیل شده ذهنم ، بعدا این ایتالیایی رو برات میفرستم :):gol:

 

کد زیر توی سایت مرجع هست

میتونی از این قسمت ابعاد رو تغییر بدی

Activity.AddView(pb, 10dip, 10dip, 300dip, 50dip)
Sub Globals
   Dim pb As ProgressBar
End Sub

نحوه استفاده دز اکتیویتی
Sub Activity_Create(FirstTime As Boolean)
   pb.Initialize("pb")
   Dim gd As GradientDrawable
   gd.Initialize("TOP_BOTTOM", Array As Int(Colors.Blue, Colors.Red))
        gd.CornerRadius = 3dip
   SetProgressDrawable(pb, gd)

   pb.Progress = 50
   Activity.AddView(pb, 10dip, 10dip, 300dip, 50dip)

End Sub
اینم کلاسشه که میتونی قست ها و رنگ هارو تغییر بدی

Sub SetProgressDrawable(p As ProgressBar, drawable As Object)
   Dim r As Reflector
   Dim clipDrawable As Object
   clipDrawable = r.CreateObject2("android.graphics.drawable.ClipDrawable", _
      Array As Object(drawable, 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(r.GetStaticField("android.R$id", "progress"), clipDrawable), _
      Array As String("java.lang.int", "android.graphics.drawable.Drawable"))
End Sub

اینارو داشته باش

یه دونه خیلی قبل درست کرده بودم، خوراک بود واسه کارت اما نیست سورسش

یکم با اینا ور برو ردیفه 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...