رفتن به مطلب

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


Hamidbergis

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

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

 

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

 

با یه 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 رو بزاری تو اکت کریت تا وقتی برنامه اجرا شد بصورت راندوم یه متن بیاره

 

موفق باشی

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

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

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

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

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

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

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

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

سلام

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

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

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

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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