مشکل در قسمتی از پروژه ام (تابع Rnd)

[iranian-pc]

سلام دارم روی یک پروژه کار میکنم میخوام یه قسمت سخنان عارفانه بزارم یه تکست باکس توی صفحه اصلیم گذاشتم و یک لیست باک که توش سخنان عارفانه است در قسمت تنظیمات نرم افزار گذاشتم میخوام به صورت رندوم با ثانیه ای که خودت بهش دادی عوض بشه پروژه را گذاشتم دانلود کنید تا بفهمید و لطف کنید اگه میشه درستش کنید

[Pr0grammer]

میخوام به صورت رندوم با ثانیه ای که خودت بهش دادی عوض بشهتوی تنظیماتش، جایی که می خوای تنظیمات رو ذخیره کنی، باید مقدار ثانیه ای که کاربر داده (مثلا 3) رو در 1000 ضرب کنی و نتیجه رو در Interval مربوط به timer قرار بدی...
نهایتا، با True کردن Enable مربوط به Timer بر اساس زمانی که کاربر تعیین کرده، متن عوش میشه...
ضمنا، برنامه که جملات رو عوض میکنه! ظاهرا مشکلی با تابع Rnd وجود نداره! البته اگه اشتباه نکرده باشم...

[iranian-pc]

استادان مدیران یکی کمک کنه .........؟؟؟؟؟؟؟؟؟؟؟/:عصبانی++::عصبانی::افسرده::گر� �ه:

[xxxxx_xxxxx]

من هم مشکلی در برنامه نمی بینم. جملات با فاصله زمانی مشخص شده نمایش داده میشن. مشکل کجاست؟
فقط یک خورده پیچوندینش وگرنه کاری که باید انجام بشه انجام میشه!

[iranian-pc]

اگه مشکلی نیست چرا جمله ها به تر تیب میاند و رندوم کار نمیده

[xxxxx_xxxxx]

اوهوم، من فکر کردم با فاصله زمانیش مشکل دارید.

خب دلیلش این هست که متغیر i1 داره به صورت افزایشی مقداردهی میشه:


Text1.Caption = Frm_MenuSetting.List1.List(i1)
i1 = i1 + 1
If i1 = Frm_MenuSetting.List1.ListCount Then
i1 = 0
End If
به جای دستورات بالا، همون دستوراتی که در رویداد Activate نوشتید رو بنویسید:


Randomize
Dim RndSel As Integer
RndSel = Int(Rnd * (Frm_MenuSetting.List1.ListCount - 1))
Text1.Caption = Frm_MenuSetting.List1.List(RndSel)

[iranian-pc]

آقا مشکل من حل نشد کد رو گذاشتم ولی کار نداد میشه بزارید توی پروژه برای آپلود

[iranian-pc]

من کارم گیره تورو خدا یکی از مدیران این پروژه ای که گذاشتم رو تصحیحش کنه بده تو سایت به خدا جبران میکنم
مدیرااااااااااااااااااااا اااااااااااااااااان :عصبانی++::عصبانی++::عصبانی++::� �ریه::ناراحت::افسرده:

[xxxxx_xxxxx]

تغییرات پست 6 اعمال شد/