آموزش قرار دادن تصادفی (Random) یک شی در برنامه

[Nemesis 1,846]

خوب مدتی هست که دوستان سوال میکنن چطور میشه مثلا یک دکمه رو به صورت رندوم در اکتیوتی قرار داد

با این آموزش متنی همراه باشید

من اینجا از دکمه استفاده کردم

ابتدا به نسبت نیاز خودتون دکه و یک داده عددی به صورت آرایه تعریف کنید

به این صورت

Sub Globals
    Dim btn(4) As Button
    Dim rand(4) As Int
End Sub

حالا نوبیت مقدار دهی اولیه هست او هارو باید initialize کنید و حتما باید بهشون Tag بدید و به داده عددی خودتون هم مقدار بدید و بذارید یکی یکی اضافه بشه بهترین کار به صورت هست

    For i = 0 To btn.Length -1
        btn(i).Initialize("btn")
        btn(i).Tag = i
        btn(i).Text = "دکمه شماره " & i
        rand(i)= i
    Next
    randomlocation

خوب من در کد بالا برای تمیز تر شدن کد نویسی خودم یه ساب با نام randomlocation فراخوانی کردم که کارش بررسی و جا گداری در جایگاه های تعریف شده هستش که به این صورت هست

Sub randomlocation
				ShuffleArray(rand)
				For i= 0 To btn.Length - 1
					Select rand(i)
						Case 0
							Activity.AddView(btn(i),10%x,20%y,50%y,10%x)
						Case 1
							Activity.AddView(btn(i),10%x,40%y,50%y,10%x)
						Case 2
							Activity.AddView(btn(i),10%x,60%y,50%y,10%x)
						Case 3
							Activity.AddView(btn(i),10%x,80%y,50%y,10%x)
					End Select
				Next
End Sub

و حالا اینجا هم یک ساب دیگه تعریف کردم که یک ورودی آرایه میگیره و اون رو بهم میریزه و بر میگردونه

به این صورت

Sub ShuffleArray(arr() As Int)
		For	i = arr.Length-1 To 0 Step -1
			Dim j, k As Int
			j = Rnd ( 0 , i + 1)
			k	= arr(j) 
			arr(j)=arr(i)
			arr(i) = k
		Next
End Sub

خوب تموم شد حالا شما با هر بار باز کردن برنامه یک جایگاه جدید به شعی خودتون نسبت میدید

 

و اما چنذ نکته

1.دوستانی که تسلط بیشتری به بیسیک دارن میتونن به جای Select case از ارایه استفاده کنن و داده ها رو از داخل اون بخونن و نیاز کد نویسی طولانی در Select نیست

2.شما میتونید حتی جایگاه ها رو هم به صورت تصادفی در بیارید کافه در زمان activity.addview داده های Left و Top رو با تابع RND تصادفی کنید و میبینید که جایگاه ها تصادفی میشه

3.دوستان مقداری همت کنید و خودتون دست بکار بشید این کارها واقعا سادست بشخصه انتظار بیشتری از کاربران این سایت دارم این همه بار آموزشی هست ولی هنوز خیلی از اپلیکیشن ها واقعا بار علمی و عملی درستی نداه

 

4.باور کنید من هرجایی بتونم پاسخ میدم و نیاز به دادن پیغام خصوصی و جواب دادن به فلان سوال نیست دوستان من

 

 

دانلود فایل

پسورد : basic4android.org

 

در پناه حق