اجرای تصادفی متن ها

[Hamidbergis 332]

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

 

خوب یکی از دوستان میخواستن که یه کاری کنن زمانی که برنامه اجرا میشه بصورت تصادفی یه متنی رو بیاره مثلا تو یه لیبل نشون بده.این کار میشه با دیتابیس انجام داد اما دوستمون گفتن نمیخواد از دیتابیس استفاده کنه منم گفتم بیا این راهو برو

 

با یه select case

 

میریم سر آموزش:

Dim t As Int

(t = Rnd(1,7

 

 

Select Case t

case 1

"lbl.text = "salam

case 2

....

case 3 

case4

.

.

.

به همین صو.رت تا شماره 7 میرید چون ما متغیر اینت رو برابر با تابع راندومی کردیم که گفتیم از 1 تا 7 باشه پس تو بخشselect caseهم باید 7تا caseبنویسیم و هر case رو میتونیذ بگید یه کار خاص رو انجام بده

 

حالا میتونی این selet case رو بزاری تو اکت کریت تا وقتی برنامه اجرا شد بصورت راندوم یه متن بیاره

 

موفق باشی

[mahdig502 27]

<p>سلام دوست عزیز<br />

خیلی ممنون کارم راه افتاد

فقط یه مشکلی هست که مثلا چند بار تکرار میکرد یک case را.

بجای تابع Rnd در (Rnd (1,7 چی بنویسم که به ترتیب کیس ها را نشون بده؟

راستی بخوام یک باتون بزارم به عنوان "دیگر این پیام ها را نشان نده" راه حلی هست؟

درکل خییییییلی ممنون

[Hamidbergis 332]

سلام

اول برا اولین سوالت که چن بار‌گفتی تکرار میشه

چون تعداد caseها کمه ممکنه یکی چن بار تکرار شه اگر تعداد رو بیشتر‌کنی احتمال اینکه یکی چن بار‌ تکرار شه کمتره

سوال دومت هم اره اگه نخوای دیگه select caseها اجرا شه میتونی با چک کردن و کپی‌کردن وجود یک فایل این کارو کنی مثلا تو رویداد یه باتن یگو بیاد این فایلو کپی کنه و تو اکت کریت‌بگو اگه این فایل نبود selec caseاجرا شه اگه بود نه