تابع رندوم

[mohamad.0085 0]

با سلام

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

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

[mahfelsoft 130]

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

[mohamad.0085 0]

میشه بیشتر راهنمایی کنید ممنون میشم

[Kazem Forghani 2,928]

شما برای گرفتن عدد رندوم به این شکل می نویسید : 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("نام فبلد متن فال در دیتابیس")

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

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

[mohamad.0085 0]

ممنون فهمیدم

Sent from my K00E using Tapatalk

[mohamad.0085 0]

ببخشید میشه نمونه سورس بدید

[Kazem Forghani 2,928]

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

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

[qasem 249]

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

If Label1.Visible = False Then
	Label1.Visible = True
	Else
	Label1.Visible = False
	End If

[Nemesis 1,846]

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

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