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

[arastooms 1,046]

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

[shahab.es 5,429]

سلام

اینو فک کنم 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

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

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

[arastooms 1,046]

سلام

اینو فک کنم 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 

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

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

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

ممنون و مرسی

[shahab.es 5,429]

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

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

 

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

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

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

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

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

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