[elgokr]

الحمد لله على كل حال

بخصوص المعادلة انا شرحتها فى الرد الاول لى وهو :

(31-10-18, 11:25 PM)elgokr كتب :

بناءاً على ما يوجد بمحتوى المرفق

وحيث ان عند عدد ساعتين يصبح اجمالى المبلغ 197.14 فرنك

بالمعادلة ( 2 ساعة * 60 دقيقة * 60 ثانية ) يصبح الاجمالى 7200 ثانية

المبلغ الكلى لعدد ( الساعتين 197.14 / عدد الثانى 7200 ) يصبح لكل ثانية 0.0273805555555556 تقريباً

والشرح هنا كان على 2 ساعة

ومن حيث ساعة واحدة نفس الفكرة لكن بدل 2 اجعلها 1 لتصبح

[1*60*60] لتكون القيمة = 3600

الان السعر وهو 60.32 / 3600 (اى السعر للساعة على عدد الثواني ) تصبح القيمة = 0.0167555555555556

ناتى الان لتجربة 

قيمة الثانية : 0.0167555555555556 * عدد [15 دقيقة * 60 ثانية] عدد (900 ثانية )

بمعنى انه سيتم ضرب (0.0167555555555556 * 900 ) يبقي القيمة للربع ساعة هى = 15.08 لاقرب نسبة مئوية 0.00

وبما ان القيمة متغيير وليس ثابت

فكل ما عليك فعله هو اعلى السطر التالى

كود :

TextBox5.Text = Math.Round(Val(ii * 0.0167555555555556), 2).ToString("0.00")

قم باضافة هذا السطر

كود :

Dim money_ As Double = Val(TextBox2.Text) / Val(1 * 60 * 60)

وتعال على السطر التالى

كود :

TextBox5.Text = Math.Round(Val(ii * 0.0167555555555556), 2).ToString("0.00")

وقم بتعديله الى هذا الشكل

كود :

TextBox5.Text = Math.Round(Val(ii * money_), 2).ToString("0.00")

وبكده بمجرد انك تقوم بتغيير القيمة من 60.32 الى مثلا 72.44 وليكن

ستجد المعدلة تلقائي تتغير للقيمة الصحيحة عن كل ثانية دون الحاجة لاعادة التعديل على السورس

تحياتى لك

وتمنياتى لك التوفيق