منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=14738)



طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - tighrmte - 14-02-16

السلام عليكم اخوتي اريد طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس في الفيجوال بيسك وشكرا


RE: طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - Ahmed_Mansoor - 14-02-16

أهلا أخي الكريم , الطريقة بسيطه , كالتالي :

PHP كود :
Text3.Text Val(Trim$(Text1.Text)) + Val(Trim$(Text2.Text))  'جمع
Text3.Text = Val(Trim$(Text1.Text)) - Val(Trim$(Text2.Text))  '
طرح
Text3
.Text Val(Trim$(Text1.Text)) / Val(Trim$(Text2.Text))  'قسمه
Text3.Text = Val(Trim$(Text1.Text)) * Val(Trim$(Text2.Text))  '
ضرب 



RE: طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - tighrmte - 14-02-16

مشكور اخي الكريم


RE: طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - tighrmte - 14-02-16

اريد من البرنامج ان يعطي الفواصل




عوض ان 97.7777 يهطيني 97.78

ومشكل اخر هو 80+97.77777=1777.78


RE: طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - Ahmed_Mansoor - 14-02-16

أهلا أخي الكريم ، إستخدم الدالة Round أو الدالة Format كالتالي :

PHP كود :
Text3.Text Format$(Val(Trim$(Text1.Text)) + Val(Trim$(Text2.Text)) ,"0.00")  'جمع
Text3.Text = Format$(Val(Trim$(Text1.Text)) - Val(Trim$(Text2.Text)) ,"0.00")  '
طرح
Text3
.Text Format$(Val(Trim$(Text1.Text)) / Val(Trim$(Text2.Text)) ,"0.00")  'قسمه
Text3.Text = Format$(Val(Trim$(Text1.Text)) * Val(Trim$(Text2.Text)) ,"0.00")  '
ضرب 

PHP كود :
Text3.Text Round(Val(Trim$(Text1.Text)) + Val(Trim$(Text2.Text)) ,2)  'جمع
Text3.Text = Round(Val(Trim$(Text1.Text)) - Val(Trim$(Text2.Text)) ,2)  '
طرح
Text3
.Text Round(Val(Trim$(Text1.Text)) / Val(Trim$(Text2.Text)) ,2)  'قسمه
Text3.Text = Round(Val(Trim$(Text1.Text)) * Val(Trim$(Text2.Text)) ,2)  '
ضرب 



RE: طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - tighrmte - 19-02-16

مشكور اخي الكريم


RE: طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس - tighrmte - 20-02-16

اريد كود لهده العملية وشكرا
text1=(text2/9)* text3