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

[davood1382 302]

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

 

مثال

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

 

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

 

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

[Elyas Erfani 3,582]

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

 

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

 

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

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

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

[asajadi84 567]

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