کار با رندوم در ایمیج ویو

[majerajoo 161]

سلام دوستان

فرض کنید من 5 تا ایمیج ویو دارم میخوام به صورت رندوم مثلا هر 5 ثانیه پس زمینه یه ایمیج ویو عکس دار بشه و قبلی پس زمینه اش حذف بشه عکسی هم که میگم یه عکس بیشتر نیست و هر 5 ثانیه میخوام اون یه عکس به صورت تصادفی پس زمینه یه ایمیج ویو بشه  

[fito 45]

سلام

شما یه عدد تعریف میکنید

dim ran as int

توی ساب تایمر هم که تیک خورد

ran = Rnd(1,4)

	If ran = 1 Then
		i.Bitmap = LoadBitmap(File.DirAssets,"im.png")
		i2.Bitmap = Null
		i3.Bitmap = Null
						
	Else If ran = 2 Then
		
		i.Bitmap = Null
		i2.Bitmap = LoadBitmap(File.DirAssets,"im.png")
		i3.Bitmap = Null	
					
	Else If ran = 3 Then
		i.Bitmap = Null
		i2.Bitmap = Null
		i3.Bitmap = LoadBitmap(File.DirAssets,"im.png")
	End If

 

شما که مخواین عدد یک تا 5 بدین به این شکل میدین 

ran = Rnd(1,6)

اینجا یه عکس فقط از 1 تا 5 انتخاب میشه و 6 انتخاب نمیشه توی رندوم به این شکله

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

[majerajoo 161]

در 50 دقیقه قبل، fito گفته است :

سلام

شما یه عدد تعریف میکنید

dim ran as int

توی ساب تایمر هم که تیک خورد

ran = Rnd(1,4)

	If ran = 1 Then
		i.Bitmap = LoadBitmap(File.DirAssets,"im.png")
		i2.Bitmap = Null
		i3.Bitmap = Null
						
	Else If ran = 2 Then
		
		i.Bitmap = Null
		i2.Bitmap = LoadBitmap(File.DirAssets,"im.png")
		i3.Bitmap = Null	
					
	Else If ran = 3 Then
		i.Bitmap = Null
		i2.Bitmap = Null
		i3.Bitmap = LoadBitmap(File.DirAssets,"im.png")
	End If

 

شما که مخواین عدد یک تا 5 بدین به این شکل میدین 

ran = Rnd(1,6)

اینجا یه عکس فقط از 1 تا 5 انتخاب میشه و 6 انتخاب نمیشه توی رندوم به این شکله

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

ببخشید کد زیر درست نیست؟

چون یک بار یکی رو عکسدار میکنه دیگه تایمر فعال نمیشه واسه بعدی

 

Sub t_Tick
	If ran = 1 Then
		ImageView1.Bitmap = LoadBitmap(File.DirAssets,"im.png")
		ImageView2.Bitmap = Null
		ImageView2.Bitmap = Null
						
	Else If ran = 2 Then
		
		ImageView1.Bitmap = Null
		ImageView2.Bitmap = LoadBitmap(File.DirAssets,"im.png")
		ImageView3.Bitmap = Null
					
	Else If ran = 3 Then
		ImageView1.Bitmap = Null
		ImageView2.Bitmap = Null
		ImageView3.Bitmap = LoadBitmap(File.DirAssets,"im.png")
	End If
	
	t.Initialize("t",2000)
	t.Enabled = True
	
End Sub

 

[fito 45]

در ۱ ساعت قبل، majerajoo گفته است :

ببخشید کد زیر درست نیست؟

چون یک بار یکی رو عکسدار میکنه دیگه تایمر فعال نمیشه واسه بعدی

 

وقتی شما تعریف می کنید

	t1.Initialize("t",1000)
	t1.Enabled = True

توی ساب هم دوبار همینو ایونتو t اینیشیالایز می کنید و حتما فعال میشه دیگه.

sub t_tick
	t1.Initialize("t",1000)
end sub

 

در ضمن من فقط کدهای اصلی رو دادم و هر دفعه که تیک میخوره تایمر عکسی رندوم انتخاب میشه که ممکنه یکی پشته سر هم چند بار انتخاب بشه!

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