افزونه 1 نمایش تصادفی یک فایل

[amirhmz2]

چگونه میتوان کاری کرد که در MMB بعد از هر بار اجرا و یا چند دقیقه یکبار یک فایل به صورت تصادفی نمایش داده شود.
مثال ما 20 Group در پروژه خود داریم و میخواهیم با هر بار باز کردن پروژه یکی از این Group ها Show شود و بقیه Hide باقی بمانند .

 

[loo30fer]

name$='Group'
random = RND(19)+1
For i=1 To 20
  object$=name$+CHAR(i)
  If (i<>random) Then
    Hide("object$")
  Else
    Show("object$")
  End
Next i

توجه داشته باشيد نام Group هاتون حتما بايد از Group1 تا Group20 باشه.

 

[amirhmz2]

خیلی ممنون ولی با این کدنویسی که شما دادید فقط گروپ 1 نشان داده میشه بقیه هیچ موقع نشان داده نمیشه

 

[loo30fer]

شما چطور از كد تو پروژتون استفاده كردين و چيكار كردين رو نميدونم؟؟؟ وگرنه بايد درست كار ميكرد.
يك نمونه براتون پيوست كردم قشنگ دقت كنيد
ضمنا تابع rnd ممكنه مجددا بعد از انتخاب عدد 1 به صورت تصادفي باز 1 رو برگردونه
براي اينكه اين اتفاق نيفته ديگه بايد از آرايه كمك بگيرين و يكم خودتون به زحمت بندازين و كدنويسي كنيد.

موفق باشيد.

 

[amirhmz2]

این تنها روش نمایش یک فایل به صورت تصادفی است؟ یا روش دیگری هم هست.
آیا روش هست که به ترتیب بعد از هربار بازکردن برنامه گروپ ها نمایش داده شوند و پس از اتمام رسیدن گروپ ها دوباره از اول نمایش داده شوند
مثال : G1 و ... و g4 پایان گروپ ها g1 و ... G4

 

[loo30fer]

این تنها روش نمایش یک فایل به صورت تصادفی است؟ یا روش دیگری هم هست.

هر روش ديگه ام باشه از اون حالت كه براتون كدش رو نوشتم خارج نيست.

آیا روش هست که به ترتیب بعد از هربار بازکردن برنامه گروپ ها نمایش داده شوند و پس از اتمام رسیدن گروپ ها دوباره از اول نمایش داده شوند
مثال : G1 و ... و g4 پایان گروپ ها g1 و ... G4

بله به نمونه پيوستي در اين پست توجه كنيد
ضمنا بهتون كه گفتم تابع rnd ممكنه مجددا همون عدد كه براي مثال 1 باشد رو برگردونه كه براي جلوگيري از اين مشكل خودتون بايد ميومدين هر عدد كه رندوم برميگردوند رو در متغير رشته اي يا آرايه كه تعريف كردين جستجو ميكردين كه در صورت نبود اون عدد رو در اون متغير ميريختين و اون آبجكت رو نمايش ميدادين و البته بايد يك حلقه نامحدود تعريف ميكردين كه عدد رندوم توليد كنه تا موقعي كه عدد توليد شده توسط تابع rnd در متغيرتون وجود داره.

توصيه ميكنم خودتون رو يكم با اين كدها درگير كنيد وگرنه هميشه تو پياده كردن برنامتون به مشكل برميخوريد.