رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
رضا آزاده

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

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

رضا آزاده    505

دپارتمان مدیریت

درود

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

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

به این صورت

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

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


لینک به ارسال

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

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

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

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

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

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

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

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

  • مطالب مشابه

    • توسط aref74
      سلام خدمت همه اساتید . 
      برای برنامم پرداخت درون برنامه ای گذاشتم ولی زمانیکه برای تست برنامه و عملکردش رو گزینه مربوطه کلیک میکنم که پرداخت انجام بگیره یک پیغام از طرف بازار میاد و نوشته لطفا صبر کنید . البته این پیغام در حد یک ثانیه میاد و میره و بعدشم هیچ اتفاقی نمیوفته و تو قسمت لُگ برنامه بیسیک همچین چیزی مینویسه . کسی میدونه مشکل کجاست ؟ 
      **requestCode = 1~i:** Activity (buy) Pause, UserClosed = false
      sending message to waiting queue (OnActivityResult)running waiting messages (1)Arrived: 1, 1
       
      اینم کدی که تو برنامه موجوده :
      Sub Process_Globals Dim bm As BillingManager3 Dim key As String = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBr......" End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("buylayout") bm.Initialize("bm", key) If File.Exists(File.DirInternal,"k.txt")=True Then ' bsbanner.DisableBannerAds ' Else ' bsbanner.EnableBannerAds ' End If End Sub Sub Label6_Click Try bm.RequestPayment("full","inapp","test") ' Catch ' Msgbox("لطفا مارکت بازار را نصب و سپس اقدام نمایید","مارکت بازار") ' End Try End Sub Sub bm_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then ToastMessageShow("با موفقیت پرداخت شد",True) File.Writestring(File.DirInternal,"k.txt","as") bsbanner.DisableBannerAds Else ToastMessageShow("خطا در پرداخت",True) End If End Sub  
       
    • توسط m0$tafa
      سلام میخوام از طریقیوزر نیم و پسود اکانت با php به اینستاگرام وصل بشم و موارد مثل ارسال عکس و ویدئو و نمایش فالوور ها و فالووینگ ها و .. رو در php انجام بدم. کسی کد سالم برای اینکار داره؟
      در github کلی کد دریافت کردم اما هیچکدام کار نمیکنن.
    • توسط chatbuzz
      سلام خدمت اساتید محترم 
      اول اینکه خواستم بدونم چطور میشه چند تا عکس با کتابخانه گلاید توی لیست ویو بنمایش در اورد؟
      دوم هم تو خیلی از برنامه ها دیدم وقتی لیست ویو اسکرول میشه به اون position عکس لود میشه و فرضا اگه ۱۰۰۰ ایتم باشه نمیاد یدفعه ای همه رو لود کنه ؟
      ممنون میشم اگه سورس یه مثالی هست ارائه بدین 
      با تشکر
    • توسط m007moh
      سلام دوستان 
      آیا میشه توی مانیفست بجای پکیج نیم یک مقدار پویا گداشت که خوئ مانیفست بتونه اونو تشخیص بده 
      مثلا این کد pushe رو ببینید
      AddManifestText( <permission android:name="m2.pushe.m.permission.C2D_MESSAGE" android:protectionLevel="signature" /> <uses-permission android:name="m2.pushe.m.permission.C2D_MESSAGE" /> <uses-permission android:name="android.permission.ACCESS_COARSE_LOCATION"/> <uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/> ) توی کد بالا m2.pushe.m پکیج نیم برنامه منه
      آیا میشه جای این مقدار چیزی گذاشت که بره از پکیج نیم بگیره و جای گزین کنه و لازم نباشه هربار اینو دستی تغییر بدیم؟؟
  • کاربران آنلاین در این صفحه   0 کاربر

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

×