متن تصادفی

[cris 17]

سلام ...فرض کنید من تو دیتابیسم 50 تا حدیث یا ضرب المثل یا هر سخن کوتاه دیگه ای دارم بعدش یه لیبل تو صفحه اصلی برنامم دارم چطور میتونم کاری کنم ک هر دقیقه یا هر ساعت یا ک هر روز به صورت تصادفی یکی از اون سخنا تو این لیبل قرار بگیره و بر اساس زمانی ک بهش دادیم خودکار عوض بشه؟؟  

[cris 17]

خب من زمان رو چطور بهش بدم ک مثلا هر روز به طور خودکار عوض بشه؟؟

[مهدی ایزدی 9,203]

خب من زمان رو چطور بهش بدم ک مثلا هر روز به طور خودکار عوض بشه؟؟

 

با شرط و Timer و ... در سرویس ...

توی سرویس میتونی مشخص کنی که هر موقع ساعت فلان موقع و فلان موقع و فلان موقع شد

بیا این عمل رو انجام بده

[mr-edris 186]

dim m as int

m=rnd(0,50)

labal1.text=m

[cris 17]

ممنون..

من از دیتابیس استفاده میکنم تو این کد چطور بهش بفهمونم ک از دیتابیس بگیره؟؟ همون دستور cur=sql1... رو باید بنویسم؟

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

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

برای مثال بنده یه تیکه کد نوشتم ( خارج از محیط بیسیک ) که میاد کل ردیف هارو میگیره و بر قرض اینکه بنده توی دیتابیس 2 تا فیلد id   و Txt  دارم:

Dim Cursor As Cursor
Dim RndData As Int
RndData = Rnd(0,Cursor.RowCount)
Cursor = SQL.ExecQuery("SELECT * FROM Tbl WHERE id="&RndData)
Cursor.Position = 0
Label1.Text = Cursor.GetString("Txt")

و متنشو به لیبل نسبت میدم