هذه مسأله حسابيه اذا كتبت اعداد زوجيه فيTextbox1 اريد هذه العملية:
Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text) /100
يظهر لي الناتج في Textbox1
ــــــــــــــــــــــــــــــــــــــــــــــــــ
واذا كتبت اعداد فردية فيTextbox1 اريد هذه العمليه :
Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text) /100
يظهر لي الناتج في Textbox1
ــــــــــــــــــــــــــــــــــــــــــــــــــ
وفي اي حدث اضع هذه العمليه
ـــــــــــــــــــــــــــــــــــــــــــــــــــ
السلام عليكم ورحمة الله وبركاتة
تحية لاعضاء المنتدى الكرام
كل عام وانتم بخير .
تفضل استاذى هذا الكود
تحياتى
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
(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
العفو منك سيدي لم تضبط الارقام معي هل هناك حل اخر
وفي اي حدث اضعها بحيث اكتب الرقم داخل التكست بوكس ويتغير بالعمليه الحسابيه بدون مغادرت التكست بوكس
بارك الله فيك استاذي الغالي والف شكر لك ولجميع اساتذتنا الكرام وزادكم الله من فضله
(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 أو أي شئ آخر على حسب الفكرة التي ترغب بتنفيذها، فرجاءا شرح الفكرة أو على الأقل ضع مثالا ليتم التعديل عليه
و شكرا لسعة صدرك
بامكانك استخدام جملة شرطية اذا كان الرقم بالتكست بوكس زوجي
ينفذ ما تريد وان لم يتحقق الشرط ينفذ الامر الاخر
هذه الجملة الشرطية للارقام الزوجية
كود :
Dim a as integer
a = text1.text
if a mod 2=0 then
"ما تريد فعله"
Else
"امر اخر تريد تنقيذه"
Endif
(16-04-20, 08:57 PM)aljzazy كتب : [ -> ]بامكانك استخدام جملة شرطية اذا كان الرقم بالتكست بوكس زوجي
ينفذ ما تريد وان لم يتحقق الشرط ينفذ الامر الاخر
هذه الجملة الشرطية للارقام الزوجية
كود :
Dim a as integer
a = text1.text
if a mod 2=0 then
"ما تريد فعله"
Else
"امر اخر تريد تنقيذه"
Endif
الف شكر لكم جميعا.. ورحم الله والدينا ووالديكم.. اطيب ناس ما تقصرو بأي شي ..حفظكم الله اينما كنتم ...
اريد عملية حسابيه للخصم في فاتورة المشتريات مثلا سعر الصنف 500 .. الخصم 20% كيف تتم العمليه الحسابيه وشكرا لكم وبارك الله فيكم
(16-04-20, 10:18 PM)كريم عبودي كتب : [ -> ]الف شكر لكم جميعا.. ورحم الله والدينا ووالديكم.. اطيب ناس ما تقصرو بأي شي ..حفظكم الله اينما كنتم ...
اريد عملية حسابيه للخصم في فاتورة المشتريات مثلا سعر الصنف 500 .. الخصم 20% كيف تتم العمليه الحسابيه وشكرا لكم وبارك الله فيكم
فلبكن سعر الصنف في textbox1
textbox2.text = val(textbox1.text) *4/5
(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 وهكذا
بارك الله فيكم جميعا واعذروني على ازعاجكم ربي يحفظكم
في حدث 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