قرار دادن رندوم 4 اسم در 4 لیبل

[arastooms 1,046]

سلام به همه اساتید عزیزم و دوستان عزیز تر از جان 

فکر کنم تیتر تاپیک ئاضح هست!!!
4 تا اسم دارم یا مقدار یا string ..

علی 

مخمد

حسن

حسین

 

4 تا لیبل هم دارم 

 

lbl1

lbl2

lnl3

lbl4

 

میخام با فشار دادن یک کلیک این 4 تا رندوم در 4 لیبل قرار بگیره 
در واقع میخام یه سوال 4 گزینه ای طراحی کنم ولی نمیخام همیشه جواب گزینه اول یا دوم یا ... باشه 

چون با کد رندوم تا حالا کار نکردم نیاز به راهنمایی دارم 
مرسی و سپاس

     

 

[محمد رشوند 1,208]

سلام به همه اساتید عزیزم و دوستان عزیز تر از جان 

فکر کنم تیتر تاپیک ئاضح هست!!!

4 تا اسم دارم یا مقدار یا string ..

علی 

مخمد

حسن

حسین

 

4 تا لیبل هم دارم 

 

lbl1

lbl2

lnl3

lbl4

 

میخام با فشار دادن یک کلیک این 4 تا رندوم در 4 لیبل قرار بگیره 

در واقع میخام یه سوال 4 گزینه ای طراحی کنم ولی نمیخام همیشه جواب گزینه اول یا دوم یا ... باشه 

چون با کد رندوم تا حالا کار نکردم نیاز به راهنمایی دارم 

مرسی و سپاس

     

سلام اقا ارسطو من تو یکی از پروژه هام از این استفاده کردم ببین بدردت میخوره

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

Dim l(),label1 As Label
	l = Array As Object("ali","hassan","mohsen","hesam")
	
	Dim c = Rnd(0, 4) As Int
Select c
    Case 0
        label1.Text="ali"
    Case 1
        label1.Text="hassan"
    Case 2
        label1.Text="mohsen"
    Case 3
        label1.Text="hesam"

End Select

[مجید آرتا 5,874]

سلام

یه روش دیگه ای هم میتونی انجام بدی

اینکه اولا یک شرط بزاری که تمامی لیبل ها مقدار Length  نا برابر با 0 باشه

دوم اینکه لیبل هارو مقادیر Text  رو باهم مقایسه کنی تا هیچ لیبلی مثل هم نباشه،خب توی سوال تستی شما هیچ دو سوالی رو پیدا نمی کنی که یک جوابی رو داشته باشه و این مورد باید مد نظرتون باشه.

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