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

تابع رندوم


mohamad.0085

سوال

با سلام

من یه چیزی می خوام مثل مثلا فال حافط که هرباری رو باتن بزنی یه متنی که بهش دادی بیاد

مثلا می خوام 100 تا متن بزنم

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

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

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

دوستان ما برای انتخاب رندوم تعداد رکوردها  رو مینویسیم . حالا اگه ما تعداد روکوردها رو ندونیم . مثلا هر رکوردی رو خود کاربر توی برنامه وارد میکنه و ما نمی دونیم قراره چندتا وارد کنه . چیکار باید بکنیم ؟

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

شما برای گرفتن عدد رندوم به این شکل می نویسید : rnd(0,101)

RND که مخفف رندوم هست و توی بیسیک یک دستوره برای بدست آوردن عدد رندوم یا تصادفی .

حالا دو تا آرگومان داره . یکی حداقل و حداکثر.

مثلا اگر شما عدد 0 رو برای حداقل بدید و عدد 101 روی برای حداکثر بدید از 0 تا 100 یک عدد رندوم انتخاب می کنه.

حالا برای فال حافظ:

بر فرض مثال شما 600 تا رکورد و فال دارید توی دیتابیس .

اول باید یک متغیر از نوع int تعریف کنید .

بعد مقدار اون رو قرار بدید با همون عدد رندوم :

Dim int1 As Int

int1 = rnd (1,601)

اگر یادتون باشه گفتیم اگر 601 بدیم تا 600 می گیره!

خوب حالا تا این جا تونستیم عدد رندوم رو ایجاد کنیم و توی یک متغیر قرار بدیم . شما می تونید توی رویداد یک دکمه یا پنل یا للیبل یا هر چیز دیگه ای قرار بدید .

 

مثلا اومدید و دیتابیس رو هم فراخوانی کردید .

حالا وقتی پوزیشن Cursor رو مشخص می کنید باید مقدارش رو قرار بدید با اون مقدار متغیر int1 .

و بعد هم مثلا می خواید متن فال رو توی لیبل نشون بدید :

Label1.Text = Cur.GetString("نام فبلد متن فال در دیتابیس")

و در این جا تمام .

اگر مشکلی دارید بفرمایید در خدمتم .

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

یکی از دوستان چند وقت پیش قرار داده بودم : http://s6.picofile.com/file/8188271592/%D9%81%D8%A7%D9%84_%D8%AD%D8%A7%D9%81%D8%B8.rar.html

سورس + دیتابیس

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

اگه متنت یکی دوتا باشه میشه از لیبل استفاده کنی بعد از اینکه تو دیزاینر لیبل را وارد کردی و متن بهش دادی میای تو کد نویسی میگی

If Label1.Visible = False Then
	Label1.Visible = True
	Else
	Label1.Visible = False
	End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

تقریبا اینطوری میشه

dim a as int = RND(0,100)
مراحل فراخوانی دیتابیست'
cur.position = a
مراحل فراخوانی اطلاعات در اکتیویتی '

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

بایگانی شده

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

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

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