رفتن به مطلب
لـــرن نــت

انجمن های پشتیبانی

شما می توانید سوالات و مشکلات خود را در انجمن های تخصصی برنامه نویس ایرانی پیگیری کنید.

تــوجــه

این وب سایت تابع قوانین جمهوری اسلامی میباشد و وابسته به هیچ گروه سیاسی و ارگان خاصی نمیباشد.

تــوجــه

این وب سایت تحت نظر پلیس فتا میباشد و تمامی مطالب طبق قوانین ایران میباشد.

رضا آزاده

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

پست های پیشنهاد شده

درود

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

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

به این صورت

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.دوستانی که تسلط بیشتری به بیسیک دار

  • پسندیدم 2

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


لینک به ارسال

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

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • مطالب مشابه

    • توسط FoRI
      سلام
      میخوام یک کلمه رو در یک جدول جستجو کنم اگر بود فلان کار انجام بشه
      از کد زیر استفاده کردم اما نتیجه نگرفتم
      ممنون میشم دوستان راهنمایی کنند
      cursur1 = SQL1.ExecQuery("SELECT * FROM fav WHERE post LIKE '"&text&"' ") If cursur1.RowCount = 0 Then '''''''' nist Else ''''''''' hast End If  
    • توسط AmirZareb4a
      وقت باتن ذخیره  رو میزنم ارور میده
      مشکل از چیه ؟
      data.ExecNonQuery2("INSERT INTO basicapp(title,doro,ghaa,naz,darsa,nadars) VALUES(?,?,?,?,?,?)",Array As Object(onvan.Text,EditText1.Text,EditText2.Text,EditText3.Text,ttt1.Text,ttt2.Text))  
    • توسط macho2002
      سلام دوستان خسته نباشید
      من سه تا فرگمنت دارم تو فرگمنت اول از سرور چهار تا رکورد میگرم و داخل لیست ویو میریزم. ولی وقتی به فرگمنت سوم میرم و بعد به اولی برمی گردم، دوباره همون چهارتارو میگیره و به لیست ویو اضافه می کنه و میشه هشت تا آیتم. این ماجرا تا بی نهایت ادامه داره.
      کسی راه حلی داره؟ یه جایی خوندم باید از باندل استفاده کنم، اما واقعا استفاده از باندل در فرگمنت سخته. لطفا کسی که جواب گرفته از باندل تو فرگمنت، کمکم کنه
  • کاربران آنلاین در این صفحه   0 کاربر

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

×