چرا بد رند میکنه؟

[iran2008]

سلام
من توی این سورسم یه قسمت دارم که وقتی مبلغ رو میزنه در قسمت زیرش باید رندش کنه.
اما نمیدونم چرا به 102 که میرسه بد رند میکنه و و رندش رو میزنه 1100

کسی میتونه کمکم کنه؟

مثلا میخوام اگه تو تکست باکس مبلغ واقعی شد :
زیر 50 بزنه 0
زیر 80 بزنه 0
زیر 100 الی 125 بزنه 100
بالای 125 تا 150 بزنه 150

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

در کل میخوام بدونم یه جوری رند بشه که خوب باشه و نزدیک .
مرسی :بوس::تشویق:

[iran2008]

نیازمند کمکتان هستم.
عاجزانه..

[ACorvinus]

سلام .

در روال Timer1_Tick وقتی داری متغیر Pool رو به Textbox4 و Textbox5 انتساب میدی از این کد استفاده کن .



Me.Textbox4.Text = Pool



عزیزم کاربرد تابع Str یه چیز دیگه هستش و اگه بخوای از Str استفاده کنی باید کد رو اینجوری بنویسی .



Me.Textbox4.Text = LTrim(Str(Pool))




در ضمن باید عرض کنم این کد رو در VB 6.0 می نوشتی خیلی بهتر بود. سعی کن کمی Net. تر بنویسی .

[iran2008]

مرسی دوستان عزیزم

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

مثلا من هزینه هر یک ساعت رو 800 تومان حساب کرده ام.
حال هر 10 دقیقه میشه 100 تومان. و نیم ساعتش میشه 400 تومان.
و همینطور طوری باشه که برای هر مبلغ کلی که ما بهش میدیم برای همه نحوه محاسبه یکی باشه.
مرسی.