+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيف احصل على زيادة الحمولة بهذا المثال (/showthread.php?tid=1861)
كيف احصل على زيادة الحمولة بهذا المثال - princeofislam - 09-02-14
ارفق مثال بسوالي عن كيفية استخراج زيادة الحمولة للاليات
ادا كانت الزيادة نصف طن فما فوق تحسب طن كامل
رياضيات يعني ...يا ريت اجد لها حل
المثال المرفق ..اسف كان لازم ارفقتة من اول
اذا كانت الحمولة الان اقل من الحمولة الفعلية للقلاب تكون زيادة الحمولة = 0 صفر
RE: كيف احصل على زيادة الحمولة بهذا المثال - asto - 11-02-14
حط تكست 4 و ليكن مخفي
كود :
If Text2.Text < Text1.Text Then Text3.Text = 0
If Text2.Text > Text1.Text Then Text3.Text = Val(Text2.Text) - Val(Text1.Text)
c = Len(Text3.Text)
Text4.Text = Split(Text3.Text, ".")(1)
a = Left(Text4.Text, 1)
b = Len(Text4.Text) + 1
bb = c - b
If a > 4 Then Text3.Text = Split(Text3.Text, ".")(0) + 1
If a < 4 Or a = 4 Then Text3.Text = Left(Text3.Text, bb)طبعا جربته و يعمل
RE: كيف احصل على زيادة الحمولة بهذا المثال - princeofislam - 11-02-14
شكرا اخي العزيز هناااك رسالة خطا
subsecrpit out of rang
????
RE: كيف احصل على زيادة الحمولة بهذا المثال - تركي الحلواني - 11-02-14
تفضل أخي التعديل
اتمنا الإستفادة للجميع
RE: كيف احصل على زيادة الحمولة بهذا المثال - princeofislam - 11-02-14
استاذ تركي
يعني كود خطير جدا و كلمتين خلت الموضوع ما شاء الله تبارك الله
الله يحميك