نمایش متن تصادفی

[sadeghkiyani 98]

سلام

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

با چه کدی میشه همچین دستوری نوشت که کاربر با کلیک کردن روی یک باتن از بین یک دیتابیس 100 تا بصورت رندوم یک متن را نمایش بده که امکان اشتراک گذاری و علاقه مندی هم داشته باشه 

لطفا راهنمایی کنید

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

	Dim NumberOfRows As Int
	NumberOfRows = db.ExecQuerySingleResult("SELECT count(*) FROM table1")
	Private id As Int = Rnd(1,NumberOfRows)
	Private cr As Cursor = db.ExecQuery("SELECT * FROM table1 WHERE id="&id)
	If Not(cr.RowCount > 0) Then Return
	cr.Position = 0
	lblText.Text = cr.GetString("text")

 

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

سلام

با تابع Rnd  اشنایی دارید دیگه ؟

وظیفش اینه بین دو بازه عددی یک عدد رو به صورت رندوم بر میگردونه.

شما میایید ردیف دیتابیس یا id  رو به این تابع میدید، یعنی بازه ی 1 تا اخرین  id که با RouwCount  میتونید بدست بیارید

حالا هر عددی که در اومد میایید به وسیله ی WHERE  اون ردیف رو متنشو توی لیبل نمایش میدید.

[sadeghkiyani 98]

تشکر بله متوجه شدم اما اگه  راهنمایی بیشتر کنید (کد) لطف میکنید