رفتن به مطلب

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


Nemesis

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

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

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

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

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

به این صورت

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

 

در پناه حق :gol: :gol:

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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