[كريم عبودي]

هذه مسأله حسابيه اذا كتبت اعداد زوجيه فيTextbox1 اريد هذه العملية:

Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text)  /100

يظهر لي الناتج في Textbox1
 ــــــــــــــــــــــــــــــــــــــــــــــــــ
واذا كتبت  اعداد فردية فيTextbox1 اريد هذه العمليه  :

Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text)  /100

يظهر لي الناتج في Textbox1
 ــــــــــــــــــــــــــــــــــــــــــــــــــ
وفي اي حدث اضع هذه العمليه
ـــــــــــــــــــــــــــــــــــــــــــــــــــ

[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, 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

العفو منك سيدي لم تضبط الارقام معي هل هناك حل اخر
وفي اي حدث اضعها بحيث اكتب الرقم داخل التكست بوكس ويتغير بالعمليه الحسابيه بدون مغادرت التكست بوكس 


بارك الله فيك استاذي الغالي والف شكر لك ولجميع اساتذتنا الكرام وزادكم الله من فضله

[WaeLx]

(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 أو أي شئ آخر على حسب الفكرة التي ترغب بتنفيذها، فرجاءا شرح الفكرة أو على الأقل ضع مثالا ليتم التعديل عليه

و شكرا لسعة صدرك

[aljzazy]

بامكانك استخدام جملة شرطية اذا كان الرقم بالتكست بوكس زوجي
ينفذ ما تريد وان لم يتحقق الشرط ينفذ الامر الاخر
هذه الجملة الشرطية للارقام الزوجية

كود :

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%  كيف تتم العمليه الحسابيه وشكرا لكم وبارك الله فيكم

[WaeLx]

(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 وهكذا 
بارك الله فيكم جميعا واعذروني على ازعاجكم ربي يحفظكم

[aljzazy]

في حدث 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