رفتن به مطلب
  • 0

انجام یک کار به صورت اتفاقی


davood1382

سوال

سلام دوستان چجوری میشه یک اتفاق رو به صورت اتفاقی در بیسیک انجام داد

 

مثال

برنامه ی * pasor* لپتاپ که به صورت اتفاقی کارت ها رو بین افراد پخش می کنه 

 

اما من توی بیسیک می خوام.

 

ممنون میشم اگه چیزی می دونین بگین.

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

2 پاسخ به این سوال تاکنون داده شده است

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

مثلا به طور رندوم یا اتفاقی چیکار کنه ؟ :fekr:

 

چند تا ساب رو اجرا کنه تصادفی ؟ :fekr:

 

ببینید مثلا کد زیر واسه لود کردن رندوم یا اتفاقی لایوته :

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim panelnumbers(11) As Int
    Dim Panel1 As Panel
    Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    For i=1 To 10
        panelnumbers(i)=0
    Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Panel1_Click
    Dim panelname As String
    Dim name As String
    Dim number As String
    name="Layout"
    number=Rnd(1,11)
    'Find the number of panel that haven't loaded
    Do While panelnumbers(number)=1
        number=Rnd(1,11)
    Loop
    panelnumbers(number)=1'Set panel as loaded
    panelname=name&number
    Activity.LoadLayout(panelname)
    Label1.Text=panelname
End Sub

شمام دقیقا باید بیاید ببینید چیکا میخواید کنید

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

شما بیا با تابع رندوم یه عدد تصادفی ایجاد کن. بعد بگو اگه حاصل برابر 1 بود عمل اولو انجام بده. اگه حاصل برابر 2 بود عمل دوم... و به همین صورت.

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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