+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اضع شرط لهذه العمليه الحسابيه (/showthread.php?tid=34340)
الصفحات:
1
2
كيف اضع شرط لهذه العمليه الحسابيه - كريم عبودي - 16-04-20
هذه مسأله حسابيه اذا كتبت اعداد زوجيه فيTextbox1 اريد هذه العملية:
Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text) /100
يظهر لي الناتج في Textbox1
ــــــــــــــــــــــــــــــــــــــــــــــــــ
واذا كتبت اعداد فردية فيTextbox1 اريد هذه العمليه :
Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text) /100
يظهر لي الناتج في Textbox1
ــــــــــــــــــــــــــــــــــــــــــــــــــ
وفي اي حدث اضع هذه العمليه
ـــــــــــــــــــــــــــــــــــــــــــــــــــ
RE: كيف اضع شرط لهذه العمليه الحسابيه - mmali127 - 16-04-20
السلام عليكم ورحمة الله وبركاتة
تحية لاعضاء المنتدى الكرام
كل عام وانتم بخير .
تفضل استاذى هذا الكود
تحياتى
If Val(Textbox1.Text) Mod 2 = 0 Then
Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text) /100
else
Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text) /100
end if
RE: كيف اضع شرط لهذه العمليه الحسابيه - كريم عبودي - 16-04-20
(16-04-20, 11:43 AM)mmali127 كتب : السلام عليكم ورحمة الله وبركاتة
تحية لاعضاء المنتدى الكرام
كل عام وانتم بخير .
تفضل استاذى هذا الكود
تحياتى
If Val(Textbox1.Text) Mod 2 = 0 Then
Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text) /100
else
Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text) /100
end if
العفو منك سيدي لم تضبط الارقام معي هل هناك حل اخر
وفي اي حدث اضعها بحيث اكتب الرقم داخل التكست بوكس ويتغير بالعمليه الحسابيه بدون مغادرت التكست بوكس
بارك الله فيك استاذي الغالي والف شكر لك ولجميع اساتذتنا الكرام وزادكم الله من فضله
RE: كيف اضع شرط لهذه العمليه الحسابيه - كريم عبودي - 16-04-20
(16-04-20, 02:08 PM)كريم عبودي كتب :(16-04-20, 11:43 AM)mmali127 كتب : السلام عليكم ورحمة الله وبركاتة
تحية لاعضاء المنتدى الكرام
كل عام وانتم بخير .
تفضل استاذى هذا الكود
تحياتى
If Val(Textbox1.Text) Mod 2 = 0 Then
Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text) /100
else
Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text) /100
end if
العفو منك سيدي لم تضبط الارقام معي هل هناك حل اخر
وفي اي حدث اضعها بحيث اكتب الرقم داخل التكست بوكس ويتغير بالعمليه الحسابيه بدون مغادرت التكست بوكس
بارك الله فيك استاذي الغالي والف شكر لك ولجميع اساتذتنا الكرام وزادكم الله من فضله
RE: كيف اضع شرط لهذه العمليه الحسابيه - WaeLx - 16-04-20
(16-04-20, 02:08 PM)كريم عبودي كتب :(16-04-20, 11:43 AM)mmali127 كتب : السلام عليكم ورحمة الله وبركاتة
تحية لاعضاء المنتدى الكرام
كل عام وانتم بخير .
تفضل استاذى هذا الكود
تحياتى
If Val(Textbox1.Text) Mod 2 = 0 Then
Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text) /100
else
Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text) /100
end if
العفو منك سيدي لم تضبط الارقام معي هل هناك حل اخر
وفي اي حدث اضعها بحيث اكتب الرقم داخل التكست بوكس ويتغير بالعمليه الحسابيه بدون مغادرت التكست بوكس
بارك الله فيك استاذي الغالي والف شكر لك ولجميع اساتذتنا الكرام وزادكم الله من فضله
السلام عليكم و رحمة الله و بركاته
الاخ الفاضل mmali127 ، وضع لك كود صحيح يقوم بالفعل بما طلبته، ألا و هو تمييز الارقام في TextBox1 اذا كانت فردية أم زوجية، و بكل احتمال ينفذ الشرط الذي وضعت انت معادلته
فاذا كانت الارقام غير مضبوطة، فراجع معادلتك أو راجع سؤالك
أما بالنسبة للحدث، ممكن في حدث textchanged أو أي شئ آخر على حسب الفكرة التي ترغب بتنفيذها، فرجاءا شرح الفكرة أو على الأقل ضع مثالا ليتم التعديل عليه
و شكرا لسعة صدرك
RE: كيف اضع شرط لهذه العمليه الحسابيه - aljzazy - 16-04-20
بامكانك استخدام جملة شرطية اذا كان الرقم بالتكست بوكس زوجي
ينفذ ما تريد وان لم يتحقق الشرط ينفذ الامر الاخر
هذه الجملة الشرطية للارقام الزوجية
ينفذ ما تريد وان لم يتحقق الشرط ينفذ الامر الاخر
هذه الجملة الشرطية للارقام الزوجية
كود :
Dim a as integer
a = text1.text
if a mod 2=0 then
"ما تريد فعله"
Else
"امر اخر تريد تنقيذه"
EndifRE: كيف اضع شرط لهذه العمليه الحسابيه - كريم عبودي - 16-04-20
(16-04-20, 08:57 PM)aljzazy كتب :الف شكر لكم جميعا.. ورحم الله والدينا ووالديكم.. اطيب ناس ما تقصرو بأي شي ..حفظكم الله اينما كنتم ...بامكانك استخدام جملة شرطية اذا كان الرقم بالتكست بوكس زوجي
ينفذ ما تريد وان لم يتحقق الشرط ينفذ الامر الاخر
هذه الجملة الشرطية للارقام الزوجية
كود :
Dim a as integer
a = text1.text
if a mod 2=0 then
"ما تريد فعله"
Else
"امر اخر تريد تنقيذه"
Endif
اريد عملية حسابيه للخصم في فاتورة المشتريات مثلا سعر الصنف 500 .. الخصم 20% كيف تتم العمليه الحسابيه وشكرا لكم وبارك الله فيكم
RE: كيف اضع شرط لهذه العمليه الحسابيه - WaeLx - 16-04-20
(16-04-20, 10:18 PM)كريم عبودي كتب : الف شكر لكم جميعا.. ورحم الله والدينا ووالديكم.. اطيب ناس ما تقصرو بأي شي ..حفظكم الله اينما كنتم ...
اريد عملية حسابيه للخصم في فاتورة المشتريات مثلا سعر الصنف 500 .. الخصم 20% كيف تتم العمليه الحسابيه وشكرا لكم وبارك الله فيكم
فلبكن سعر الصنف في textbox1
textbox2.text = val(textbox1.text) *4/5
RE: كيف اضع شرط لهذه العمليه الحسابيه - كريم عبودي - 16-04-20
(16-04-20, 10:49 PM)WaeLx كتب :الف شكر لك استاذي العزيز(16-04-20, 10:18 PM)كريم عبودي كتب : الف شكر لكم جميعا.. ورحم الله والدينا ووالديكم.. اطيب ناس ما تقصرو بأي شي ..حفظكم الله اينما كنتم ...
اريد عملية حسابيه للخصم في فاتورة المشتريات مثلا سعر الصنف 500 .. الخصم 20% كيف تتم العمليه الحسابيه وشكرا لكم وبارك الله فيكم
فلبكن سعر الصنف في textbox1
textbox2.text = val(textbox1.text) *4/5
يعني مثلا عندي تكست بوكس1 سعر الصنف
وعندي تكست بوكس2 الخصم%
اريد عندما اكتب قيمة الخصم في خانة الخصم اللي هي تكست بوكس2
يتغير سعر الصنف بقيمة الخصم مثلا السعر 500 عندما اكتب الخصم 10 يكون السعر 454.545454 مثلا هكذا وعندما يكون الخصم %20
يكون السعر 416.6666 وهكذا
بارك الله فيكم جميعا واعذروني على ازعاجكم ربي يحفظكم
RE: كيف اضع شرط لهذه العمليه الحسابيه - aljzazy - 17-04-20
في حدث keydown للتكست بوكس 2 ضع الكود التالي
اي بعد اخال نسبة الخصم بالتكست بوكس2 والضغط على انتر
كود :
If e.KeyCode = Keys.Enter Then
Dim a, b, c As Decimal
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = a * b / 100
TextBox1.Text = a - c
End If